EEVBLOG Dave Jones + Forum

Alle overige elektronica.
Bericht
Auteur
Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#136 Bericht door Dopp »

Hallo Allemaal,

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.

Radioot
Berichten: 1037
Lid geworden op: 09 aug 2009, 04:47

Re: EEVBLOG Dave Jones + Forum

#137 Bericht door Radioot »

Leuk filmpje, wel jammer van de rare pruik JM.

Mijn eerst synth was een Korg MS-10, very old school.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#138 Bericht door Dopp »

Ook veel draadjes

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.

Gebruikersavatar
PD0JSB
Berichten: 400
Lid geworden op: 11 jun 2011, 09:52
Roepletters: PD0JSB
Locatie: Breda

Re: EEVBLOG Dave Jones + Forum

#139 Bericht door PD0JSB »

Als Alfa Romeo fanaat toch wel een pijnlijk Tesla filmpje :mrgreen:
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 !

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#140 Bericht door Dopp »

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
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

PA0HJA
Berichten: 440
Lid geworden op: 30 jun 2012, 11:29
Roepletters: PA0HJA

Re: EEVBLOG Dave Jones + Forum

#141 Bericht door PA0HJA »

The Singularity is nu ècht near......... :-)

http://tweakers.net/nieuws/112027/singu ... leren.html

PA0HJA
....The Singularity is near!

PA0HJA
Berichten: 440
Lid geworden op: 30 jun 2012, 11:29
Roepletters: PA0HJA

Alternatieven voor Li-Ion batterijen ontwikkelen

#142 Bericht door PA0HJA »

....The Singularity is near!

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#143 Bericht door Dopp »

Hallo Allemaal,

Alvast een voorproefje van mijn StopWatch programma

zoals besproken op PI2NOS today !!!


Have Fun....
Bijlagen
StopWatchPA3BNX.zip
Zip met exe file
(13.82 KiB) 266 keer gedownload
Stopwatch
Stopwatch
stopwatch.png (26.5 KiB) 12157 keer bekeken
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#144 Bericht door Dopp »

Hallo Allemaal,

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) 237 keer gedownload
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

PA0HJA
Berichten: 440
Lid geworden op: 30 jun 2012, 11:29
Roepletters: PA0HJA

Elon Musk thinks we’re characters in acomputer simulation

#145 Bericht door PA0HJA »

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
....The Singularity is near!

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#146 Bericht door Dopp »

73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

PA0HJA
Berichten: 440
Lid geworden op: 30 jun 2012, 11:29
Roepletters: PA0HJA

Re: EEVBLOG Dave Jones + Forum

#147 Bericht door PA0HJA »

PA3BNX schreef: Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.
In ieder geval heeft hij nog niet van jouw Credo gehoord! :-)

Maar wel geinig!

PA0HJA
....The Singularity is near!

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#148 Bericht door Dopp »

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
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#149 Bericht door Dopp »

Hallo Allemaal,


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.

Gebruikersavatar
Dopp
Berichten: 1242
Lid geworden op: 08 mei 2011, 18:03
Roepletters: PA3BNX

Re: EEVBLOG Dave Jones + Forum

#150 Bericht door Dopp »

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 ...
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.

Plaats reactie