Visual-Basic-Examples-2020/relogio.vb at master · amgauna/Visual-Basic-Examples-2020 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
' relogio.bas

Sub OnOffButton.Click (index as integer)
    If (index = 1 ) then
       AlarmOn = true
    else
       AlarmOn = False
    End If
End Sub

Sub OnOffItem_Click()
    If (alarmOn) then
       AlarmOn = False ´Muda o alarme
       OnOffItem.Caption = "Alarm Off"
    Else
       AlarmOn = True ´Muda o Ala
       OnOffItem.Caption = "Alarm On"
    End If
End Sub

Sub OnOffItem_Click() ´Relogio despertador com menu
    If (AlarmOn then
       AlarmOn = Fals ´Muda o alarme
       AlarmOnItem.Visible = True
       AlarmOffItem = False
    End If
End Sub

Sub OnItem_Click()
    If (AlarmOn) Then
       AlarmOn = False
       OnItem.Checked = False
    Else
       AlarmOn = True
       OnItem.Checked = True
    End If
End Sub