Zendamateur.COM

24 uur per dag QRV
Het is nu 21 feb 2017, 18:35

Alle tijden zijn GMT + 1 uur


Forumregels


Plaats hier uitsluitend belangrijke mededelingen. Elektronicatopics en activiteiten horen hier niet thuis. Daar is zijn afzonderlijke rubrieken voor.



Plaats een nieuw onderwerp Antwoord op onderwerp  [ 164 berichten ]  Ga naar pagina Vorige  1 ... 7, 8, 9, 10, 11  Volgende
Auteur Bericht
BerichtGeplaatst: 11 mei 2016, 18:43 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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.


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 11 mei 2016, 20:31 
Offline

Geregistreerd: 09 aug 2009, 04:47
Berichten: 532
Leuk filmpje, wel jammer van de rare pruik JM.

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


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 14 mei 2016, 16:08 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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.


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 19 mei 2016, 16:38 
Offline
Avatar gebruiker

Geregistreerd: 11 jun 2011, 09:52
Berichten: 229
Woonplaats: Breda
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 x30,x50n,MFJ1786, hvt-400, hyendfed 10-20-40, sandpiper MV5+3

ik soldeer beter dan ik schrijf !


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 25 mei 2016, 20:45 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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.


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 04 jun 2016, 11:25 
Offline

Geregistreerd: 30 jun 2012, 11:29
Berichten: 319
The Singularity is nu ècht near......... :-)

http://tweakers.net/nieuws/112027/singularity-university-wil-gebruik-van-technologie-in-nederland-stimuleren.html

PA0HJA

_________________
....The Singularity is near!


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 13 jun 2016, 09:56 
Offline

Geregistreerd: 30 jun 2012, 11:29
Berichten: 319
http://www.electronics-eetimes.com/news ... s_id=82832

PA0HJA

_________________
....The Singularity is near!


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 15 jun 2016, 17:34 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
Hallo Allemaal,

Alvast een voorproefje van mijn StopWatch programma

zoals besproken op PI2NOS today !!!


Have Fun....


Bijlagen:
Opmerkingen bij bestand: Zip met exe file
StopWatchPA3BNX.zip [13.82 KiB]
28 keer gedownload
Opmerkingen bij bestand: Stopwatch
stopwatch.png
stopwatch.png [ 26.5 KiB | 2793 keer bekeken ]

_________________
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.
Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 19 jun 2016, 17:20 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
Hallo Allemaal,

Update StopWatch 1.01

En de SRC

Code:
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]
13 keer gedownload

_________________
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.
Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 24 jun 2016, 22:16 
Offline

Geregistreerd: 30 jun 2012, 11:29
Berichten: 319
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/12007694/elon-musk-simulation-cartoon?utm_campaign=vox&utm_content=chorus&utm_medium=social&utm_source=twitter

:-) ??

PA0HJA

_________________
....The Singularity is near!


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 26 jun 2016, 21:32 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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

_________________
73's
PA3BNX
Lodewijk

Mijn Credo!

Zelfbouw:
Minimaal hardware
en maximaal software.


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 26 jun 2016, 23:41 
Offline

Geregistreerd: 30 jun 2012, 11:29
Berichten: 319
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!


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 03 jul 2016, 18:48 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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.


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 22 jul 2016, 20:28 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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.


Omhoog
 Profiel  
Antwoord met een citaat  
BerichtGeplaatst: 25 jul 2016, 15:56 
Offline
Avatar gebruiker

Geregistreerd: 08 mei 2011, 18:03
Berichten: 926
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.


Omhoog
 Profiel  
Antwoord met een citaat  
Geef de vorige berichten weer:  Sorteer op  
Plaats een nieuw onderwerp Antwoord op onderwerp  [ 164 berichten ]  Ga naar pagina Vorige  1 ... 7, 8, 9, 10, 11  Volgende

Alle tijden zijn GMT + 1 uur


Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 3 gasten


Je mag geen nieuwe onderwerpen in dit forum plaatsen
Je mag niet antwoorden op een onderwerp in dit forum
Je mag je berichten in dit forum niet wijzigen
Je mag je berichten niet uit dit forum verwijderen
Je mag geen bijlagen toevoegen in dit forum

Zoek naar:
Ga naar:  
Powered by phpBB® Forum Software © phpBB Group
phpBB.nl Vertaling