�� 6

�� 6 �� 

�� 

�� :

�� name �� (�� (��)) � �� :

�� 20 �� 1 � �� :

Private Sub Form_Load()
time = 20
sumtrue = 0
sumfalse = 0
sumq = 0
a1 = ""
a2 = ""
a3 = ""
a4 = ""
q = ""
a1.Enabled = False
a2.Enabled = False
a3.Enabled = False
a4.Enabled = False
End Sub

� �� :

�� 1 � �� .

�� :

�� Enabled � �� False . � �� 1000 �� Interval � �� 1000 .

�� Timer1 �� :

Private Sub Timer1_Timer()

time = Val(time.Caption) - 1
If Val(time.Caption) = 0 Then
a1.Enabled = False
a2.Enabled = False
a3.Enabled = False
a4.Enabled = False
m = MsgBox("�� ", vbOKOnly, "�� ")
Timer1.Enabled = False
End If

End Sub

�� :

time = Val(time.Caption) - 1

�� 1 �� .

If Val(time.Caption) = 0 Then

�� time ��

a1.Enabled = False
a2.Enabled = False
a3.Enabled = False
a4.Enabled = False

�� a4-a3-a2-a1 �� .

m = MsgBox("�� ", vbOKOnly, "�� ")

�� OK � �� .

Timer1.Enabled = False

�� .

End If

�� If .

�� a1,a2,a3,a4,q �� RightToLeft �� True �� (�� ):

�� - �� General �� - � �� :

Dim t1, t2, t3, t4, l1, l2, l3, l4 As Integer
Dim namber As Long

�� t1, t2, t3, t4, l1, l2, l3, l4 ��

� �� namber �� .

�� Load -�� -:

Private Sub Form_Load()
time = 20
sumtrue = 0
sumfalse = 0
sumq = 0
a1 = ""
a2 = ""
a3 = ""
a4 = ""
q = ""
a1.Enabled = False
a2.Enabled = False
a3.Enabled = False
a4.Enabled = False
t1 = a1.Top
l1 = a1.Left
t2 = a2.Top
l2 = a2.Left
t3 = a3.Top
l3 = a3.Left
t4 = a4.Top
l4 = a4.Left

End Sub

t1 = a1.Top

�� t1 �� a1

l1 = a1.Left

�� l1 �� a1

t2 = a2.Top

�� t2 �� a2

l2 = a2.Left

�� l2 �� a2

t3 = a3.Top

�� t3 �� a3

l3 = a3.Left

�� l3 �� a3

t4 = a4.Top

�� t4 �� a4

l4 = a4.Left

�� l4 �� a4

� �� a1 �� a1 � �� .

�� :

Private Sub Command1_Click()
time = 20
Timer1.Enabled = True

Dim a As Integer
10
Randomize
a = Int(Rnd * 4)
If a = 0 Then
a1.Move l1, t1
a2.Move l2, t2
a3.Move l3, t3
a4.Move l4, t4
ElseIf a = 1 Then
a2.Move l1, t1
a1.Move l2, t2
a3.Move l3, t3
a4.Move l4, t4
ElseIf a = 2 Then
a3.Move l1, t1
a2.Move l2, t2
a1.Move l3, t3
a4.Move l4, t4
ElseIf a = 3 Then
a4.Move l1, t1
a2.Move l2, t2
a3.Move l3, t3
a1.Move l4, t4
End If

n = Int(Rnd * 3)
If n = 0 Then
namber = Int(Rnd * 1000) * 10
ElseIf n = 1 Then
namber = Int(Rnd * 1000) * 100
ElseIf n = 2 Then
namber = Int(Rnd * 1000) * 1000
End If
q = "�� " & namber & "�" & 10 & "="
a1 = namber / 10
a2 = namber * 10
a3 = namber / 100
a4 = namber * 100
If a1 = a2 Or a1 = a3 Or a1 = a4 Or a2 = a3 Or a2 = a4 Or a3 = a4 Then GoTo 10
a1.Enabled = True
a2.Enabled = True
a3.Enabled = True
a4.Enabled = True
End Sub

� �� .

time = 20

�� time �� 20

Timer1.Enabled = True

��

Dim a As Integer

�� a ��

10 ��

Randomize

��

a = Int(Rnd * 4)

�� a �� 0 � 1 � 2 � 3

If a = 0 Then
a1.Move l1, t1
a2.Move l2, t2
a3.Move l3, t3
a4.Move l4, t4

�� a=0 �� :

�� a1 �� l1, t1 �� Move �� (,)� �� .

ElseIf a = 1 Then
a2.Move l1, t1
a1.Move l2, t2
a3.Move l3, t3
a4.Move l4, t4

�� a=1 �� :

�� a1 �� a2 � �� a3 � a4 �� .

ElseIf a = 2 Then
a3.Move l1, t1
a2.Move l2, t2
a1.Move l3, t3
a4.Move l4, t4

�� a=2 �� :

�� a1 �� a3 � �� a2 � a4 �� .

ElseIf a = 3 Then
a4.Move l1, t1
a2.Move l2, t2
a3.Move l3, t3
a1.Move l4, t4
End If

�� a=3 �� :

�� a1 �� a4 � �� a3 � a2 �� .

n = Int(Rnd * 3)

�� n �� 0 � 1 � 2 (�� ).

If n = 0 Then

namber = Int(Rnd * 1000) * 10

�� n �� 0 �� namber �� 1000 � �� 10 �� 3450 �� 320 � �� .

ElseIf n = 1 Then
namber = Int(Rnd * 1000) * 100

�� n �� 1 �� namber �� 1000 � �� 100 �� 34500 �� 3200 � �� .

ElseIf n = 2 Then
namber = Int(Rnd * 1000) * 1000
End If

�� n �� 2 �� namber �� 1000 � �� 1000 �� 345000 �� 32000 � �� .

q = "�� " & namber & "�" & 10 & "="

�� q �� namber � �� 10 � �� = � �� (&) �� q .

a1 = namber / 10

�� a1 �� namber �� 10 � �� a1 .

a2 = namber * 10

�� a2 �� namber �� 10 �� .

a3 = namber / 100

�� a3 �� namber �� 100 �� .

a4 = namber * 100

�� a4 �� namber �� 100 �� .

If a1 = a2 Or a1 = a3 Or a1 = a4 Or a2 = a3 Or a2 = a4 Or a3 = a4 Then GoTo 10

�� 10 �� .

a1.Enabled = True
a2.Enabled = True
a3.Enabled = True
a4.Enabled = True

�� a1 � a2 � a3 � a4 �� .

�� nateja �� name �� :

� �� Visible �� False �� .

�� nateja ��

�� nateja �� 3 �� .

�� , � �� Enabled �� False � �� Interval�� 3000 . �� .

� �� :

Private Sub Timer2_Timer()
nateja.Visible = False
Timer2.Enabled = False
a1 = ""
a2 = ""
a3 = ""
a4 = ""
q = ""
a1.Enabled = False
a2.Enabled = False
a3.Enabled = False
a4.Enabled = False
End Sub

�� .

�� a1 � �� .

Private Sub a1_Click()
nateja.Caption = "�� "
nateja.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
sumtrue = Val(sumtrue.Caption) + 1
End Sub

nateja.Caption = "�� "

�� nateja ��

nateja.Visible = True

�� nateja

Timer2.Enabled = True

�� 3 �� .

Timer1.Enabled = False

��

sumtrue = Val(sumtrue.Caption) + 1

�� 1 �� sumtrue �� .

�� a2 � �� :

Private Sub a2_Click()
nateja.Caption = "�� "
nateja.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
sumfalse = Val(sumfalse.Caption) + 1
End Sub

nateja.Caption = "�� "

�� nateja ��

nateja.Visible = True

�� nateja

Timer2.Enabled = True

�� 3 �� .

Timer1.Enabled = False

��

sumfalse = Val(sumfalse.Caption) + 1

�� 1 �� sumfalse �� .

�� a3 � a4 .

Private Sub a3_Click()
nateja.Caption = "�� "
nateja.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
sumfalse = Val(sumfalse.Caption) + 1
End Sub

Private Sub a4_Click()
nateja.Caption = "�� "
nateja.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
sumfalse = Val(sumfalse.Caption) + 1
End Sub

�� nateja ��

�� .

� �� :

sumq = Val(sumq.Caption) + 1

� �� :

�� . �� .�� .

�� : ��

�� @2006