All pastes #773859 Raw Edit

Stuff

public text v1 · immutable
·published 2007-11-14 20:34 UTC
rendered paste body
Dim Firstnum As Integer

Dim Secondnum As Integer

Dim I As Integer
Private Sub Num1()

Line1(0).Visible = 0
Line1(1).Visible = 0
Line1(2).Visible = 1
Line1(3).Visible = 0
Line1(4).Visible = 0
Line1(5).Visible = 1
Line1(6).Visible = 0

End Sub
Private Sub Num1b()

Line2(0).Visible = 0
Line2(1).Visible = 0
Line2(2).Visible = 1
Line2(3).Visible = 0
Line2(4).Visible = 0
Line2(5).Visible = 1
Line2(6).Visible = 0

End Sub

Private Sub Num2()

Line1(0).Visible = 1
Line1(1).Visible = 0
Line1(2).Visible = 1
Line1(3).Visible = 1
Line1(4).Visible = 1
Line1(5).Visible = 0
Line1(6).Visible = 1

End Sub
Private Sub Num2b()

Line2(0).Visible = 1
Line2(1).Visible = 0
Line2(2).Visible = 1
Line2(3).Visible = 1
Line2(4).Visible = 1
Line2(5).Visible = 0
Line2(6).Visible = 1

End Sub

Private Sub Num3()

Line1(0).Visible = 1
Line1(1).Visible = 0
Line1(2).Visible = 1
Line1(3).Visible = 1
Line1(4).Visible = 0
Line1(5).Visible = 1
Line1(6).Visible = 1

End Sub

Private Sub Num3b()

Line2(0).Visible = 1
Line2(1).Visible = 0
Line2(2).Visible = 1
Line2(3).Visible = 1
Line2(4).Visible = 0
Line2(5).Visible = 1
Line2(6).Visible = 1

End Sub

Private Sub Num4()

Line1(0).Visible = 0
Line1(1).Visible = 1
Line1(2).Visible = 1
Line1(3).Visible = 1
Line1(4).Visible = 0
Line1(5).Visible = 1
Line1(6).Visible = 0

End Sub

Private Sub Num4b()

Line2(0).Visible = 0
Line2(1).Visible = 1
Line2(2).Visible = 1
Line2(3).Visible = 1
Line2(4).Visible = 0
Line2(5).Visible = 1
Line2(6).Visible = 0

End Sub

Private Sub Num5()

Line1(0).Visible = 1
Line1(1).Visible = 1
Line1(2).Visible = 0
Line1(3).Visible = 1
Line1(4).Visible = 0
Line1(5).Visible = 1
Line1(6).Visible = 1

End Sub

Private Sub Num5b()

Line2(0).Visible = 1
Line2(1).Visible = 1
Line2(2).Visible = 0
Line2(3).Visible = 1
Line2(4).Visible = 0
Line2(5).Visible = 1
Line2(6).Visible = 1

End Sub

Private Sub Num6()

Line1(0).Visible = 1
Line1(1).Visible = 1
Line1(2).Visible = 0
Line1(3).Visible = 1
Line1(4).Visible = 1
Line1(5).Visible = 1
Line1(6).Visible = 1

End Sub

Private Sub Num6b()

Line2(0).Visible = 1
Line2(1).Visible = 1
Line2(2).Visible = 0
Line2(3).Visible = 1
Line2(4).Visible = 1
Line2(5).Visible = 1
Line2(6).Visible = 1

End Sub

Private Sub Num7()

Line1(0).Visible = 1
Line1(1).Visible = 0
Line1(2).Visible = 1
Line1(3).Visible = 0
Line1(4).Visible = 0
Line1(5).Visible = 1
Line1(6).Visible = 0

End Sub

Private Sub Num7b()

Line2(0).Visible = 1
Line2(1).Visible = 0
Line2(2).Visible = 1
Line2(3).Visible = 0
Line2(4).Visible = 0
Line2(5).Visible = 1
Line2(6).Visible = 0

End Sub

Private Sub Num8()

Line1(0).Visible = 1
Line1(1).Visible = 1
Line1(2).Visible = 1
Line1(3).Visible = 1
Line1(4).Visible = 1
Line1(5).Visible = 1
Line1(6).Visible = 1

End Sub

Private Sub Num8b()

Line2(0).Visible = 1
Line2(1).Visible = 1
Line2(2).Visible = 1
Line2(3).Visible = 1
Line2(4).Visible = 1
Line2(5).Visible = 1
Line2(6).Visible = 1

End Sub

Private Sub Num9()

Line1(0).Visible = 1
Line1(1).Visible = 1
Line1(2).Visible = 1
Line1(3).Visible = 1
Line1(4).Visible = 0
Line1(5).Visible = 1
Line1(6).Visible = 0

End Sub

Private Sub Num9b()

Line2(0).Visible = 1
Line2(1).Visible = 1
Line2(2).Visible = 1
Line2(3).Visible = 1
Line2(4).Visible = 0
Line2(5).Visible = 1
Line2(6).Visible = 0

End Sub

Private Sub Num0()

Line1(0).Visible = 1
Line1(1).Visible = 1
Line1(2).Visible = 1
Line1(3).Visible = 0
Line1(4).Visible = 1
Line1(5).Visible = 1
Line1(6).Visible = 1

End Sub

Private Sub Num0b()

Line2(0).Visible = 1
Line2(1).Visible = 1
Line2(2).Visible = 1
Line2(3).Visible = 0
Line2(4).Visible = 1
Line2(5).Visible = 1
Line2(6).Visible = 1

End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Cmdsubmit_Click()

If Len(Text1.Text) = 1 Then
Text1.Text = 0 & Text1.Text
End If
Dim Firstnum As Integer
Firstnum = Mid(Text1.Text, 1, 1)

Dim Secondnum As Integer
Secondnum = Mid(Text1.Text, 2, 1)

Select Case Firstnum

Case 0:
Num0b
Case 1:
Num1b
Case 2:
Num2b
Case 3:
Num3b
Case 4:
Num4b
Case 5:
Num5b
Case 6:
Num6b
Case 7:
Num7b
Case 8:
Num8b
Case 9:
Num9b

End Select

Select Case Secondnum

Case 0:
Num0
Case 1:
Num1
Case 2:
Num2
Case 3:
Num3
Case 4:
Num4
Case 5:
Num5
Case 6:
Num6
Case 7:
Num7
Case 8:
Num8
Case 9:
Num9

End Select

End Sub

Private Sub Form_Load()
Firstnum = 0
Secondnum = 0
Timer1.Enabled = 0
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = 1
If Secondnum = 10 Then Firstnum = Firstnum + 1
If Secondnum = 10 Then Secondnum = 0
If Firstnum = 10 Then Firstnum = 0
Secondnum = Secondnum + 1

Select Case Secondnum

Case 1:
Num1
Case 2:
Num2
Case 3:
Num3
Case 4:
Num4
Case 5:
Num5
Case 6:
Num6
Case 7:
Num7
Case 8:
Num8
Case 9:
Num9
Case 10:
Num0
End Select

Select Case Firstnum

Case 0:
Num0b
Case 1:
Num1b
Case 2:
Num2b
Case 3:
Num3b
Case 4:
Num4b
Case 5:
Num5b
Case 6:
Num6b
Case 7:
Num7b
Case 8:
Num8b
Case 9:
Num9b

End Select

End Sub