EEVBLOG Dave Jones + Forum
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Legendary Instruments - Jean Michel Jarre
https://www.youtube.com/watch?v=ctOhwRG ... detailpage
Nice to watch
Legendary Instruments - Jean Michel Jarre
https://www.youtube.com/watch?v=ctOhwRG ... detailpage
Nice to watch
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
Leuk filmpje, wel jammer van de rare pruik JM.
Mijn eerst synth was een Korg MS-10, very old school.
Mijn eerst synth was een Korg MS-10, very old school.
Re: EEVBLOG Dave Jones + Forum
Ook veel draadjes
Koop doosjes.
Alleen geen zend/ontvangs antennes hi
Venetian Snares - Magnificent Stumble V2
https://www.youtube.com/watch?v=tbLt0S0 ... detailpage
Koop doosjes.
Alleen geen zend/ontvangs antennes hi
Venetian Snares - Magnificent Stumble V2
https://www.youtube.com/watch?v=tbLt0S0 ... detailpage
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
Als Alfa Romeo fanaat toch wel een pijnlijk Tesla filmpje
https://www.youtube.com/watch?v=tysEI30SOzQ
https://www.youtube.com/watch?v=tysEI30SOzQ
Icom 7600. Yaesu FT817, Yaesu FT847, Yaesu vr6,Diamond x50n,, hyendfed 10-(15)-20-40-80
ik soldeer beter dan ik schrijf !
ik soldeer beter dan ik schrijf !
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Nog wat climate disrupt info sites
From Abrupt Climate Change to Climate Collapse * Guy McPherson
https://www.youtube.com/watch?v=5Suqtbp ... detailpage
How Serious is Climate Change? : Documentary Lecture on Causes and Solutions for Global
Warming
https://www.youtube.com/watch?v=spiKBYM ... detailpage
Effe lachen:
Last Week Tonight with John Oliver - Climate Change Censored
https://www.youtube.com/watch?v=4h_9UVL ... detailpage
Nog wat climate disrupt info sites
From Abrupt Climate Change to Climate Collapse * Guy McPherson
https://www.youtube.com/watch?v=5Suqtbp ... detailpage
How Serious is Climate Change? : Documentary Lecture on Causes and Solutions for Global
Warming
https://www.youtube.com/watch?v=spiKBYM ... detailpage
Effe lachen:
Last Week Tonight with John Oliver - Climate Change Censored
https://www.youtube.com/watch?v=4h_9UVL ... detailpage
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
The Singularity is nu ècht near.........
http://tweakers.net/nieuws/112027/singu ... leren.html
PA0HJA
http://tweakers.net/nieuws/112027/singu ... leren.html
PA0HJA
....The Singularity is near!
Alternatieven voor Li-Ion batterijen ontwikkelen
....The Singularity is near!
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Alvast een voorproefje van mijn StopWatch programma
zoals besproken op PI2NOS today !!!
Have Fun....
Alvast een voorproefje van mijn StopWatch programma
zoals besproken op PI2NOS today !!!
Have Fun....
- Bijlagen
-
- StopWatchPA3BNX.zip
- Zip met exe file
- (13.82 KiB) 281 keer gedownload
-
- Stopwatch
- stopwatch.png (26.5 KiB) 12464 keer bekeken
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Update StopWatch 1.01
En de SRC
Update StopWatch 1.01
En de SRC
Code: Selecteer alles
Option Strict On
Option Explicit On
Option Compare Text
Public Class Form1
''((C))PA3BNX Stopwatch Timer
''13-06-2016
''Const string
Const ProgName As String = "((C))PA3BNX Stopwatch 1.01"
Const strc2Zero As String = "00"
Const strcFNCfg As String = "\StopWatch.cfg"
Const strcTimeQuestion As String = "00:00:00"
Const strcGroupbox1 As String = "Repeater Talk Timer "
''String
Dim MyAppPath As String = My.Computer.FileSystem.CurrentDirectory
Dim strcSec As String = " Sec's"
Dim strcStart As String = "&Start (Space)"
Dim strcStop As String = "&Stop (Space)(F2)"
Dim strcRunning As String = "&Running (Space)(F2)"
Dim strcContinue As String = "&Continue (F2)"
Dim StartTime As String = strcTimeQuestion
''Integer
Dim MaxTimeMinutes As Integer
Dim ElapsedSeconds As Integer = 0
Dim ElapsedSeconds1(4) As Integer
Dim form1Top As Integer
Dim form1Left As Integer
''Const Integer
Const cError As Long = 999999
''Bool
Dim bFlagToggle As Boolean
Dim bReset As Boolean
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
''ToDo
form1Left = Me.Left
form1Top = Me.Top
Call SaveStopWatchCfg()
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
''ToDo
Select Case e.KeyCode
Case Keys.Space
If Me.Button1.Focused = False Then
Call Button1_Click(sender, e)
End If
Case Keys.F1
bReset = True
Case Keys.F2
If Button1.Text = strcRunning Then
Me.Button1.Text = strcContinue
Me.Label1.BackColor = Color.Magenta
ElseIf Button1.Text = strcContinue Then
Me.Button1.Text = strcRunning
Me.Label1.BackColor = Color.LightGreen
End If
End Select
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
''ToDo
Call LoadStopWatchCfg()
Me.Left = form1Left
Me.Top = form1Top
Me.Button1.Left = Me.ProgressBar1.Left
Me.Button2.Left = Me.ProgressBar1.Left
Me.Label1.Left = Me.ProgressBar1.Left
Me.Button2.Height = Me.Button1.Height
Me.Text = ProgName
Me.KeyPreview = True
Me.GroupBox1.Text = strcGroupbox1
Me.ToolTip1.SetToolTip(Me.GroupBox1, "Do not talk to long on the repeater")
Me.Button1.Text = strcStart
Me.ToolTip1.SetToolTip(Me.Button1, "Press SpaceBar to toggle" & vbCrLf & "Press F2 for break")
Me.CheckBox1.Text = "Alarm Sounds"
Me.Button2.Text = "R&eset (F1)"
Me.ToolTip1.SetToolTip(Me.Button2, "Restart timer or press F1")
Me.ToolTip1.SetToolTip(Me.NumericUpDown1, "Alert time in minutes")
If bFlagToggle = False Then
Me.Label1.Text = "0" & strcSec
Else
Me.Label1.Text = strcTimeQuestion
End If
Me.NumericUpDown1.Minimum = 1
Me.NumericUpDown1.Maximum = 30
If MaxTimeMinutes >= Me.NumericUpDown1.Minimum And MaxTimeMinutes <= Me.NumericUpDown1.Maximum Then
Me.NumericUpDown1.Value = CDec(MaxTimeMinutes)
End If
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = MaxTimeMinutes * 60
Me.ProgressBar1.Value = 0
Me.ToolTip1.SetToolTip(Me.ProgressBar1, "Bar Range " & MaxTimeMinutes.ToString & " Minutes")
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
''ToDo
Select Case Button1.Text
Case strcStart, strcStop
Me.Button1.Text = strcRunning
StartTime = TimeString
Me.Label1.BackColor = Color.LightGreen
Call ElapseTimeArrayAdd(ElapsedSeconds)
''ElapsedSeconds1 = ElapsedSeconds
Case strcRunning
Me.Button1.Text = strcStop
Me.Label1.BackColor = Color.Red
Case strcContinue
Me.Button1.Text = strcRunning
Me.Label1.BackColor = Color.Magenta
End Select
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
''ToDo
''Integer
Static t As Integer = 0
Me.GroupBox1.Text = strcGroupbox1 & TimeString
If bReset = True Then
bReset = False
Me.Button1.Text = strcRunning
StartTime = TimeString
Me.Label1.BackColor = Color.LightGreen
Call ElapseTimeArrayAdd(ElapsedSeconds)
''ElapsedSeconds1 = ElapsedSeconds
t = 0
End If
Select Case Me.Button1.Text
Case strcStart
t = 0
Call ShowLabelProgressbar(ElapsedSeconds)
Case strcStop
t = 0
Call ShowLabelProgressbar(ElapsedSeconds)
Case strcRunning
''Calc and show Time
''Adjust progressbar
''Play a wave file if alert
ElapsedSeconds = SecDiff(Time2Sec(TimeString), Time2Sec(StartTime))
Call ShowLabelProgressbar(ElapsedSeconds)
If Me.CheckBox1.Checked Then
If ElapsedSeconds > MaxTimeMinutes * 60 Then
If CBool(t Mod 5) = False Then
If t < 100 Then
Select t
Case 0
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)
Case Else
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
End Select
End If
If t > 10000 Then t = 10000 ''Never overflow
End If
t += 1
End If
End If
Case strcContinue
StartTime = Sec2Time((Time2Sec(StartTime) + 1))
End Select
End Sub
Private Sub ShowLabelProgressbar(ByVal timesec As Integer)
''ToDo
''Integer
Dim x As Integer
Dim u As Integer
''String
Dim myval As String = ""
Const old As String = " (old)"
Const click As String = vbCrLf & "Click me to change"
u = UBound(ElapsedSeconds1, 1)
If bFlagToggle = False Then
For x = 0 To u Step 1
myval &= vbCrLf & Sec2Time(ElapsedSeconds1(x)) & old
Next x
Me.Label1.Text = timesec.ToString & strcSec
Me.ToolTip1.SetToolTip(Me.Label1, Sec2Time(timesec) & myval & Click)
Else
For x = 0 To u Step 1
myval &= vbCrLf & ElapsedSeconds1(x).ToString & strcSec & old
Next x
Me.Label1.Text = Sec2Time(timesec)
Me.ToolTip1.SetToolTip(Me.Label1, timesec.ToString & strcSec & myval & Click)
End If
If timesec <= Me.ProgressBar1.Maximum Then
Me.ProgressBar1.Value = timesec
Else
Me.ProgressBar1.Value = Me.ProgressBar1.Maximum
End If
End Sub
Private Sub SaveStopWatchCfg()
''ToDo
''String
Dim myval As String
myval = ProgName & vbCrLf
myval &= form1Left.ToString & vbCrLf
myval &= form1Top.ToString & vbCrLf
myval &= MaxTimeMinutes.ToString & vbCrLf
myval &= Me.CheckBox1.Checked & vbCrLf
myval &= bFlagToggle & vbCrLf
My.Computer.FileSystem.WriteAllText(MyAppPath & strcFNCfg, myval, False)
End Sub
Private Sub LoadStopWatchCfg()
''ToDo
''String
Dim myval As String
Dim mysplit() As String
Try
myval = My.Computer.FileSystem.ReadAllText(MyAppPath & strcFNCfg)
mysplit = Split(myval, vbCrLf)
If CBool(InStr(mysplit(0), ProgName)) Then
form1Left = CInt(mysplit(1).Trim)
form1Top = CInt(mysplit(2).Trim)
MaxTimeMinutes = CInt(mysplit(3).Trim)
If CBool(InStr(1, mysplit(4), "True")) Then
Me.CheckBox1.Checked = True
End If
If CBool(InStr(1, mysplit(5), "True")) Then
bFlagToggle = True
End If
Else
Call DefaultCfg()
End If
Catch ex As Exception
Call DefaultCfg()
End Try
End Sub
Private Sub NumericUpDown1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.Click
''ToDo
''Integer
Static old As Integer
MaxTimeMinutes = CInt(Me.NumericUpDown1.Value)
If MaxTimeMinutes <> old Then
If ElapsedSeconds > MaxTimeMinutes * 60 Then
Me.ProgressBar1.Maximum = MaxTimeMinutes * 60
Me.ProgressBar1.Value = MaxTimeMinutes * 60
Else
Me.ProgressBar1.Maximum = MaxTimeMinutes * 60
End If
End If
Me.ToolTip1.SetToolTip(Me.ProgressBar1, "Bar Range " & MaxTimeMinutes.ToString & " Minutes")
old = MaxTimeMinutes ''Backup
End Sub
Private Function Time2Sec(ByVal myTime As String) As Long
''ToDo
''Const String
Const d As String = ":"
''Const Integer
Const x1 As Long = 1
Const x2 As Long = 60
Const x3 As Long = 3600
''Integer
Dim x As Long
''String
Dim tmp As String
Dim myval() As String
''Simple Check
If myTime = Nothing Then Return cError
For x = 1 To myTime.Length - 1
tmp = myTime.Substring(CInt(x), 1)
Select Case tmp
Case "0" To "9", d
Case Else
Return cError
End Select
Next x
''TimeString
''Split
myval = Split(d & myTime, d)
'For x = 1 To 3
' Debug.Print(myval(CInt(x)))
'Next x
''Get seconds
If UBound(myval) >= 3 Then
''Check
If CInt(myval(1)) < 0 Or CInt(myval(1)) > 24 Then
Return cError
End If
If CInt(myval(2)) < 0 Or CInt(myval(2)) > 59 Then
Return cError
End If
If CInt(myval(3)) < 0 Or CInt(myval(3)) > 59 Then
Return cError
End If
''Calculate
Return CLng(myval(1)) * x3 + CLng(myval(2)) * x2 + CLng(myval(3)) * x1
Else
Return cError
End If
End Function
Private Function Sec2Time(ByVal sec As Double) As String
''ToDo
''String
Const d As String = ":"
''Integer
Dim hh As Long
Dim mm As Long
Dim ss As Long
''Float
Dim x As Double
Dim reminder As Double
x = sec / 3600
hh = CLng(Int(x))
reminder = sec - (hh * 3600)
x = reminder / 60
mm = CLng(Int(x))
reminder = sec - (hh * 3600) - (mm * 60)
ss = CLng(reminder)
Return Format(hh, strc2Zero) & d & Format(mm, strc2Zero) & d & Format(ss, strc2Zero)
End Function
Private Function SecDiff(ByVal sec1 As Long, ByVal sec2 As Long) As Integer
''ToDo
''Integer
Dim x As Integer
''ToDo also overflow error here
x = CInt(Math.Abs(sec2 - sec1))
Return x
End Function
Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click
''ToDo
bFlagToggle = Not bFlagToggle
Call ShowLabelProgressbar(ElapsedSeconds)
End Sub
Private Sub DefaultCfg()
''ToDo
''Default values
''In Cfg file
form1Left = 0
form1Top = 0
MaxTimeMinutes = 2
Me.CheckBox1.Checked = False
bFlagToggle = False
''Not in CFG
ElapsedSeconds = 0
Dim x As Integer
For x = 0 To UBound(ElapsedSeconds1, 1)
ElapsedSeconds1(x) = 0
Next x
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
''ToDo
bReset = True
End Sub
Private Sub ElapseTimeArrayAdd(ByVal x As Integer)
''ToDo
''18-06-2016
Dim t As Integer
Dim u As Integer
u = UBound(ElapsedSeconds1, 1)
For t = u To 1 Step -1
ElapsedSeconds1(t) = ElapsedSeconds1(t - 1)
Next t
ElapsedSeconds1(0) = x
End Sub
End Class
- Bijlagen
-
- StopWatch101PA3BNX.zip
- (14.14 KiB) 248 keer gedownload
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Elon Musk thinks we’re characters in acomputer simulation
This cartoon explains why Elon Musk thinks we’re characters in a computer simulation.
He might be right.
http://www.vox.com/technology/2016/6/23 ... ce=twitter
??
PA0HJA
He might be right.
http://www.vox.com/technology/2016/6/23 ... ce=twitter
??
PA0HJA
....The Singularity is near!
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Kogeltjes
Echt super huisvlijt enjoy !
Kaplamino
Wintergatan - Marble Machine (music instrument using 2000 marbles
https://www.youtube.com/watch?feature=p ... vUU8joBb1Q
How it works
https://www.youtube.com/watch?
v=uog48viZUbM&feature=player_detailpage&list=RDuog48viZUbM
https://www.youtube.com/watch?feature=p ... 0Guq7vZb_E
https://www.youtube.com/watch?v=bwTdGVN ... detailpage
https://www.youtube.com/watch?feature=p ... GbMYvYZEHc
https://www.youtube.com/watch?feature=p ... Q9gs-5lRKc
https://www.youtube.com/watch?feature=p ... bRh-Q-GCVQ
https://www.youtube.com/watch?v=B_FX18u ... detailpage
Kogeltjes
Echt super huisvlijt enjoy !
Kaplamino
Wintergatan - Marble Machine (music instrument using 2000 marbles
https://www.youtube.com/watch?feature=p ... vUU8joBb1Q
How it works
https://www.youtube.com/watch?
v=uog48viZUbM&feature=player_detailpage&list=RDuog48viZUbM
https://www.youtube.com/watch?feature=p ... 0Guq7vZb_E
https://www.youtube.com/watch?v=bwTdGVN ... detailpage
https://www.youtube.com/watch?feature=p ... GbMYvYZEHc
https://www.youtube.com/watch?feature=p ... Q9gs-5lRKc
https://www.youtube.com/watch?feature=p ... bRh-Q-GCVQ
https://www.youtube.com/watch?v=B_FX18u ... detailpage
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
In ieder geval heeft hij nog niet van jouw Credo gehoord!PA3BNX schreef: Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Maar wel geinig!
PA0HJA
....The Singularity is near!
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Voor alle 2000 Marbles fans 2 extra linkjes
Wintergatan: Marble Machine (Guitar Arrangement) | Ubaldo B
https://www.youtube.com/watch?v=nSyzalv ... detailpage
Wintergatan - Marble Machine (Drum Cover)
https://www.youtube.com/watch?feature=p ... kZo_Qd0L-s
Enjoy
Voor alle 2000 Marbles fans 2 extra linkjes
Wintergatan: Marble Machine (Guitar Arrangement) | Ubaldo B
https://www.youtube.com/watch?v=nSyzalv ... detailpage
Wintergatan - Marble Machine (Drum Cover)
https://www.youtube.com/watch?feature=p ... kZo_Qd0L-s
Enjoy
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Een site die iedere zendamateur moet zien die verder kijkt dan zijn neus lang is:
Sam Carana
http://arctic-news.blogspot.nl/
Een site die iedere zendamateur moet zien die verder kijkt dan zijn neus lang is:
Sam Carana
http://arctic-news.blogspot.nl/
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
Re: EEVBLOG Dave Jones + Forum
Hallo Allemaal,
Nog twee linkje die leuk zijn om te bekijken hi..
Economic Collapse Confirmed! Most Credible Video Ever
https://www.youtube.com/watch?v=OnY1WQP ... detailpage
http://www.hetverhaalvansteenkool.nl/he ... energiemix
Have fun watching and learning ...
Nog twee linkje die leuk zijn om te bekijken hi..
Economic Collapse Confirmed! Most Credible Video Ever
https://www.youtube.com/watch?v=OnY1WQP ... detailpage
http://www.hetverhaalvansteenkool.nl/he ... energiemix
Have fun watching and learning ...
73's
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.
PA3BNX
Lodewijk
Mijn Credo!
Zelfbouw:
Minimaal hardware
en maximaal software.