ahmadfononi
معاونت انجمن
Dim A(5) As Integer, j As Integer
Private Sub cmd1_Click()
If A(0) = Val(Text1(0)) Then Text1(0).BackColor = vbGreen
If A(1) = Val(Text1(1)) Then Text1(1).BackColor = vbGreen
If A(2) = Val(Text1(2)) Then Text1(2).BackColor = vbGreen
If A(3) = Val(Text1(3)) Then Text1(3).BackColor = vbGreen
If A(4) = Val(Text1(4)) Then Text1(4).BackColor = vbGreen
If A(5) = Val(Text1(5)) Then Text1(5).BackColor = vbGreen
End Sub
Private Sub CMD2_Click()
Dim i As Integer
Timer1.Enabled = True
For i = 0 To 5
A(i) = Int(Rnd() * 9)
Label2(i).Caption = A(i)
Next
End Sub
Private Sub CMD3_Click()
A(0) = 0
A(1) = 0
A(2) = 0
A(3) = 0
A(4) = 0
A(5) = 0
For j = 0 To 5
Text1(j) = ""
Text1(j).BackColor = vbBlack
Next
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = 5 Then
Timer1.Enabled = False
Label2(0).Caption = ""
Label2(1).Caption = ""
Label2(2).Caption = ""
Label2(3).Caption = ""
Label2(4).Caption = ""
Label2(5).Caption = ""
i = 0
End If
End Sub
Dim A(7) As Integer
Private Sub cmd1_Click()
Dim i As Integer
Timer1.Enabled = True
For i = 0 To 7
A(i) = Int(Rnd() * 9)
Label2(i).Caption = A(i)
Next
End Sub
Private Sub cmd1_Click()
If A(0) = Val(Text1(0)) Then Text1(0).BackColor = vbGreen
If A(1) = Val(Text1(1)) Then Text1(1).BackColor = vbGreen
If A(2) = Val(Text1(2)) Then Text1(2).BackColor = vbGreen
If A(3) = Val(Text1(3)) Then Text1(3).BackColor = vbGreen
If A(4) = Val(Text1(4)) Then Text1(4).BackColor = vbGreen
If A(5) = Val(Text1(5)) Then Text1(5).BackColor = vbGreen
End Sub
Private Sub CMD2_Click()
Dim i As Integer
Timer1.Enabled = True
For i = 0 To 5
A(i) = Int(Rnd() * 9)
Label2(i).Caption = A(i)
Next
End Sub
Private Sub CMD3_Click()
A(0) = 0
A(1) = 0
A(2) = 0
A(3) = 0
A(4) = 0
A(5) = 0
For j = 0 To 5
Text1(j) = ""
Text1(j).BackColor = vbBlack
Next
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = 5 Then
Timer1.Enabled = False
Label2(0).Caption = ""
Label2(1).Caption = ""
Label2(2).Caption = ""
Label2(3).Caption = ""
Label2(4).Caption = ""
Label2(5).Caption = ""
i = 0
End If
End Sub
Dim A(7) As Integer
Private Sub cmd1_Click()
Dim i As Integer
Timer1.Enabled = True
For i = 0 To 7
A(i) = Int(Rnd() * 9)
Label2(i).Caption = A(i)
Next
End Sub