資訊好好玩

0愛的鼓勵 0訂閱站台

Dim n As Integer
Dim s7 As String

Private Sub Command1_Click()
n = Val(Text1)
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

'-------------------------------------------------------------------------------------------

Private Sub Form_Load()
Timer1.Enabled = False

For i = 0 To 6
    Seg(i).BorderStyle = 0
Next
 n = 0
 Text1 = n
 Call Show7(n)
End Sub
'-------------------------------------------------------------------------------------------
Private Sub Show7(ByVal n As Integer)
Dim Str(6) As String

Select Case n          'abcdefg" 七段顯示器字型(共陰型)
Case 0
        s7 = "1111110"
Case 1
        s7 = "0110000"
Case 2
        s7 = "1101101"
Case 3
        s7 = "1111001"
Case 4
        s7 = "0110011"
Case 5
        s7 = "1011011"
Case 6
        s7 = "1011111"
Case 7
        s7 = "1110000"
Case 8
        s7 = "1111111"
Case 9
        s7 = "1110011"
End Select

For i = 0 To 6      '七段值放入陣列
    Str(i) = Mid(s7, i + 1, 1)
Next
For i = 0 To 6
    If Str(i) = "1" Then
       Seg(i).FillColor = RGB(255, 0, 0)
    Else
       Seg(i).FillColor = &H8000000F
    End If
Next
End Sub

'-------------------------------------------------------------------------------------------

Private Sub Timer1_Timer()
Call Show7(n)
n = n - 1
If n < 0 Then Timer1.Enabled = False

End Sub

'-------------------------------------------------------------------------------------------

Private Sub VS_Change()
Timer1.Enabled = False
Text1 = VS.Value
n = Val(Text1)
Call Show7(n)
End Sub