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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير