Zendamateur.COM

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