Option Explicit
Dim Seg(9) As String
Private Sub Form_DblClick()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub
Private Sub Form_Load()
Oscura
Seg(0) = "123456" 'corrispondenze tra lettere e numeri dei sengmenti
Seg(1) = "23" ' _______ _______
Seg(2) = "12457" '| a | | 1 |
Seg(3) = "12347" '|f |b |6 |2
Seg(4) = "2367" '|_______| |_______|
Seg(5) = "13467" '| g | | 7 |
Seg(6) = "134567" '|e |c |5 |3
Seg(7) = "123" '|_______| |_______|
Seg(8) = "1234567" ' d 4
Seg(9) = "123467" '
Me.Left = Screen.Width - Me.Width
Me.Top = 0
End Sub
Private Sub Oscura()
Dim I As Integer
For I = 0 To 7 * 14 - 1
lne(I).Visible = False
Next I
End Sub
Private Sub Numero(Cifra As Integer, Aggiunta As Integer)
Dim I As Integer
For I = 1 To Len(Seg(Cifra))
lne(Mid(Seg(Cifra), I, 1) - 1 + Aggiunta).Visible = True
Next I
End Sub
Private Sub Slider1_Change()
MakeTransparent Me.hwnd, Slider1.Value
End Sub
Private Sub tmrOra_Timer()
On Error Resume Next
Static Cont As Integer
Dim Cifre(13) As Integer
Dim Ora As String
Dim I As Integer
Oscura
Ora = Format(Now, "hhmmssddmmyyyy")
For I = 0 To 13
Cifre(I) = Mid(Ora, I + 1, 1)
Numero Cifre(I), 7 * I
Next I
Cont = Cont + 1
If Cont = 3 Then
For I = 0 To 3
shp(I).Visible = Not (shp(I).Visible)
Next I
Cont = 0
End If
End Sub