📄 s.txt
字号:
Dim i, s1, m0, m1, h0, h1 As Integer
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 10 Then
i = 0
s1 = s1 + 1
End If
If i = 0 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = True
Line1(5).Visible = True
Line1(6).Visible = False
End If
If i = 1 Then
Line1(0).Visible = False
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = False
Line1(4).Visible = False
Line1(5).Visible = False
Line1(6).Visible = False
End If
If i = 2 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = False
Line1(3).Visible = True
Line1(4).Visible = True
Line1(5).Visible = False
Line1(6).Visible = True
End If
If i = 3 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = False
Line1(5).Visible = False
Line1(6).Visible = True
End If
If i = 4 Then
Line1(0).Visible = False
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = False
Line1(4).Visible = False
Line1(5).Visible = True
Line1(6).Visible = True
End If
If i = 5 Then
Line1(0).Visible = True
Line1(1).Visible = False
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = False
Line1(5).Visible = True
Line1(6).Visible = True
End If
If i = 6 Then
Line1(0).Visible = True
Line1(1).Visible = False
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = True
Line1(5).Visible = True
Line1(6).Visible = True
End If
If i = 7 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = False
Line1(4).Visible = False
Line1(5).Visible = False
Line1(6).Visible = False
End If
If i = 8 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = True
Line1(5).Visible = True
Line1(6).Visible = True
End If
If i = 9 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = False
Line1(5).Visible = True
Line1(6).Visible = True
End If
If i = 0 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = True
Line1(5).Visible = True
Line1(6).Visible = False
End If
If i = 1 Then
Line1(0).Visible = False
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = False
Line1(4).Visible = False
Line1(5).Visible = False
Line1(6).Visible = False
End If
If i = 2 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = False
Line1(3).Visible = True
Line1(4).Visible = True
Line1(5).Visible = False
Line1(6).Visible = True
End If
If i = 3 Then
Line1(0).Visible = True
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = True
Line1(4).Visible = False
Line1(5).Visible = False
Line1(6).Visible = True
End If
If i = 4 Then
Line1(0).Visible = False
Line1(1).Visible = True
Line1(2).Visible = True
Line1(3).Visible = False
Line1(4).Visible = False
Line1(5).Visible = True
Line1(6).Visible = True
End If
If s1 = 6 Then
s1 = 0
m0 = m0 + 1
End If
If s1 = 0 Then
Line1(7).Visible = True
Line1(8).Visible = True
Line1(9).Visible = True
Line1(10).Visible = True
Line1(11).Visible = True
Line1(12).Visible = True
Line1(13).Visible = False
End If
If s1 = 1 Then
Line1(7).Visible = False
Line1(8).Visible = True
Line1(9).Visible = True
Line1(10).Visible = False
Line1(11).Visible = False
Line1(12).Visible = False
Line1(13).Visible = False
End If
If s1 = 2 Then
Line1(7).Visible = True
Line1(8).Visible = True
Line1(9).Visible = False
Line1(10).Visible = True
Line1(11).Visible = True
Line1(12).Visible = False
Line1(13).Visible = True
End If
If s1 = 3 Then
Line1(7).Visible = True
Line1(8).Visible = True
Line1(9).Visible = True
Line1(10).Visible = True
Line1(11).Visible = False
Line1(12).Visible = False
Line1(13).Visible = True
End If
If s1 = 4 Then
Line1(7).Visible = False
Line1(8).Visible = True
Line1(9).Visible = True
Line1(10).Visible = False
Line1(11).Visible = False
Line1(12).Visible = True
Line1(13).Visible = True
End If
If s1 = 5 Then
Line1(7).Visible = True
Line1(8).Visible = False
Line1(9).Visible = True
Line1(10).Visible = True
Line1(11).Visible = False
Line1(12).Visible = True
Line1(13).Visible = True
End If
''·??ó
If m0 = 10 Then
m0 = 0
m1 = m1 + 1
End If
If m0 = 0 Then
Line1(14).Visible = True
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = True
Line1(18).Visible = True
Line1(19).Visible = True
Line1(20).Visible = False
End If
If m0 = 1 Then
Line1(14).Visible = False
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = False
Line1(18).Visible = False
Line1(19).Visible = False
Line1(20).Visible = False
End If
If m0 = 2 Then
Line1(14).Visible = True
Line1(15).Visible = True
Line1(16).Visible = False
Line1(17).Visible = True
Line1(18).Visible = True
Line1(19).Visible = False
Line1(20).Visible = True
End If
If m0 = 3 Then
Line1(14).Visible = True
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = True
Line1(18).Visible = False
Line1(19).Visible = False
Line1(20).Visible = True
End If
If m0 = 4 Then
Line1(14).Visible = False
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = False
Line1(18).Visible = False
Line1(19).Visible = True
Line1(20).Visible = True
End If
If m0 = 5 Then
Line1(14).Visible = True
Line1(15).Visible = False
Line1(16).Visible = True
Line1(17).Visible = True
Line1(18).Visible = False
Line1(19).Visible = True
Line1(20).Visible = True
End If
If m0 = 6 Then
Line1(14).Visible = True
Line1(15).Visible = False
Line1(16).Visible = True
Line1(17).Visible = True
Line1(18).Visible = True
Line1(19).Visible = True
Line1(20).Visible = True
End If
If m0 = 7 Then
Line1(14).Visible = True
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = False
Line1(18).Visible = False
Line1(19).Visible = False
Line1(20).Visible = False
End If
If m0 = 8 Then
Line1(14).Visible = True
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = True
Line1(18).Visible = True
Line1(19).Visible = True
Line1(20).Visible = True
End If
If m0 = 9 Then
Line1(14).Visible = True
Line1(15).Visible = True
Line1(16).Visible = True
Line1(17).Visible = True
Line1(18).Visible = False
Line1(19).Visible = True
Line1(20).Visible = True
End If
''·??óê???
If m1 = 0 Then
Line1(21).Visible = True
Line1(22).Visible = True
Line1(23).Visible = True
Line1(24).Visible = True
Line1(25).Visible = True
Line1(26).Visible = True
Line1(27).Visible = False
End If
If m1 = 1 Then
Line1(21).Visible = False
Line1(22).Visible = True
Line1(23).Visible = True
Line1(24).Visible = False
Line1(25).Visible = False
Line1(26).Visible = False
Line1(27).Visible = False
End If
If m1 = 2 Then
Line1(21).Visible = True
Line1(22).Visible = True
Line1(23).Visible = False
Line1(24).Visible = True
Line1(25).Visible = True
Line1(26).Visible = False
Line1(27).Visible = True
End If
If m1 = 3 Then
Line1(21).Visible = True
Line1(22).Visible = True
Line1(23).Visible = True
Line1(24).Visible = True
Line1(25).Visible = False
Line1(26).Visible = False
Line1(27).Visible = True
End If
If m1 = 4 Then
Line1(21).Visible = False
Line1(22).Visible = True
Line1(23).Visible = True
Line1(24).Visible = False
Line1(25).Visible = False
Line1(26).Visible = True
Line1(27).Visible = True
End If
If m1 = 5 Then
Line1(21).Visible = True
Line1(22).Visible = False
Line1(23).Visible = True
Line1(24).Visible = True
Line1(25).Visible = False
Line1(26).Visible = True
Line1(27).Visible = True
End If
'ê±?ó
If m1 = 6 Then
m1 = 0
h0 = h0 + 1
'If h0 = 10 Then
'h0 = 0
'h0 = h0 + 1
End If
'End If
If h0 = 0 Then
Line2(0).Visible = True
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = True
Line2(4).Visible = True
Line2(5).Visible = True
Line2(6).Visible = False
End If
If h0 = 1 Then
Line2(0).Visible = False
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = False
Line2(4).Visible = False
Line2(5).Visible = False
Line2(6).Visible = False
End If
If h0 = 2 Then
Line2(0).Visible = True
Line2(1).Visible = True
Line2(2).Visible = False
Line2(3).Visible = True
Line2(4).Visible = True
Line2(5).Visible = False
Line2(6).Visible = True
End If
If h0 = 3 Then
Line2(0).Visible = True
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = True
Line2(4).Visible = False
Line2(5).Visible = False
Line2(6).Visible = True
End If
If h0 = 4 Then
Line2(0).Visible = False
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = False
Line2(4).Visible = False
Line2(5).Visible = True
Line2(6).Visible = True
End If
If h0 = 5 Then
Line2(0).Visible = True
Line2(1).Visible = False
Line2(2).Visible = True
Line2(3).Visible = True
Line2(4).Visible = False
Line2(5).Visible = True
Line2(6).Visible = True
End If
If h0 = 6 Then
Line2(0).Visible = True
Line2(1).Visible = False
Line2(2).Visible = True
Line2(3).Visible = True
Line2(4).Visible = True
Line2(5).Visible = True
Line2(6).Visible = True
End If
If h0 = 7 Then
Line2(0).Visible = True
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = False
Line2(4).Visible = False
Line2(5).Visible = False
Line2(6).Visible = False
End If
If h0 = 8 Then
Line2(0).Visible = True
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = True
Line2(4).Visible = True
Line2(5).Visible = True
Line2(6).Visible = True
End If
If h0 = 9 Then
Line2(0).Visible = True
Line2(1).Visible = True
Line2(2).Visible = True
Line2(3).Visible = True
Line2(4).Visible = False
Line2(5).Visible = True
Line2(6).Visible = True
End If
'ê±?óê???
If h0 = 10 Then
h0 = 0
h1 = h1 + 1
End If
If h1 = 0 Then
Line2(7).Visible = True
Line2(8).Visible = True
Line2(9).Visible = True
Line2(10).Visible = True
Line2(11).Visible = True
Line2(12).Visible = True
Line2(13).Visible = False
End If
If h1 = 1 Then
Line2(7).Visible = False
Line2(8).Visible = True
Line2(9).Visible = True
Line2(10).Visible = False
Line2(11).Visible = False
Line2(12).Visible = False
Line2(13).Visible = False
End If
If h1 = 2 Then
Line2(7).Visible = True
Line2(8).Visible = True
Line2(9).Visible = False
Line2(10).Visible = True
Line2(11).Visible = True
Line2(12).Visible = False
Line2(13).Visible = True
End If
If h1 = 2 And h0 = 4 Then
h1 = 0
h0 = 0
End If
End Sub
Private Sub Timer2_Timer()
m1 = m1 + 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -