04-09-19, 03:50 AM
PHP كود :
Dim Final As Integer
Dim st As Integer
Dim win As Integer
Dim takin As String
Private Function geno() As String
Dim n As String
begin:
n = CInt(Rnd * 1)
Dim tr As String
If n = 0 Then
tr = "+"
ElseIf n = 1 Then
tr = "-"
End If
If tr = takin Then GoTo begin
geno = tr
End Function
Private Sub Gen()
Dim a1, a2 As Integer
a1 = CInt(Rnd * 9)
a2 = CInt(Rnd * 9)
n1.Caption = a1
n2.Caption = a2
Dim o As String
o = geno
takin = o
'lo.Caption = takin
Select Case o
Case "+"
r.Caption = Val(n1.Caption) + Val(n2.Caption)
Case "-"
r.Caption = Val(n1.Caption) - Val(n2.Caption)
End Select
Select Case lo.Caption
Case "+"
If r.Caption = Val(n1.Caption) + Val(n2.Caption) Then
win = win + 1
End If
Case "-"
If r.Caption = Val(n1.Caption) - Val(n2.Caption) Then
win = win + 1
End If
End Select
lo.Caption = "?"
en
End Sub
Private Sub cmdabout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Width = 9540
End If
End Sub
Private Sub cmdabout_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Width = 4770
End Sub
Private Sub cmdm_Click()
lo.Caption = "-"
dis
End Sub
Private Sub cmdp_Click()
lo.Caption = "+"
dis
'Timer1.Enabled = True
End Sub
Private Sub cmdstart_Click()
Gen
tmr.Enabled = True
cmdstart.Enabled = False
End Sub
Private Sub Form_Load()
Randomize
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Final = 10
st = 1
win = 0
End Sub
Private Sub dis()
cmdp.Enabled = False
cmdm.Enabled = False
End Sub
Private Sub en()
cmdp.Enabled = True
cmdm.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Me.Height >= (lbl.Top + (lbl.Height * 2)) Then Timer1.Enabled = False
Me.Height = Me.Height + 100
End Sub
Private Sub tmr_Timer()
If st >= Final Then
lbl.Caption = win & " Of " & Final
Timer1.Enabled = True
tmr.Enabled = False
Exit Sub
End If
st = st + 1
Gen
End Sub
