[تركي الحلواني]

Option Explicit
تعريف متغيرات من نوع رقمي
Dim Random As Integer
Dim Counter As Integer
Dim Guess As Integer


Private Sub cmdGuess_Click()
اسناد قيمة التكست الى المتغير Guess
Guess = txtGuess.Text
Counter = Counter + 1
زيادة قيمة المتغير Counter بواحد
If Guess > Random Then
شرط اذا كان المتغير Guess أصغر من المتغير Random نفذ التالي
lblGuess.Caption = "Less"
ضع كلمة Less في الليبل lblGuess
ElseIf Guess < Random Then
في حال لم يتم تحقق الشرط شرط اذا كان اكبر منه نفذ
lblGuess.Caption = "More"
[color=#FFFFE0]مالم نفذ هذاالشرط
ElseIf Guess = Random Then
lblGuess.Caption = "You Win"[/color]
وقم بعمل تجميد لكل من cmdGuess و txtGuess
cmdGuess.Enabled = False
txtGuess.Enabled = False
مالم
Else
نفذ هذا
lblGuess.Caption = "Try Again"
End If
انهاء الشرط
End Sub
انهاء الاجراء
Private Sub cmdNew_Click()
وفي حدث الزر كومند
Counter = "0"
ضع في المتغير Counter القيمة صفر

وفي المتغير Random قم بإجراء عشوائي لعرض رقم مضروب في 1000 زايد 1
Random = Int((1000 * Rnd) + 1)
وقم بتمكين cmdGuess و txtGuess
cmdGuess.Enabled = True
txtGuess.Enabled = True
End Sub
اتمنا يكون واضح معاك الشرح الموضوع بسيط