منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] الرجاء المساعدة في شرح بعض الاكواد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] الرجاء المساعدة في شرح بعض الاكواد (/showthread.php?tid=2848)

الرجاء المساعدة في شرح بعض الاكواد - مبرمج صغير - 12-05-14

ارجوكم ساعدوني يا شباب عندي امتحان الخميس القادم
و مطلوب مني اني اشرح اكواد المشروع المبدائي بتاعي و انا مش فاهم معظم الاكواد هو اكيد سهل بلنسه للمحترفين فا ياريت تقولولي كل كود من دول بيعمل ايه

Option Explicit

Dim Random As Integer
Dim Counter As Integer
Dim Guess As Integer


Private Sub cmdGuess_Click()
Guess = txtGuess.Text
Counter = Counter + 1
If Guess > Random Then
lblGuess.Caption = "Less"
ElseIf Guess < Random Then
lblGuess.Caption = "More"
ElseIf Guess = Random Then
lblGuess.Caption = "You Win"
cmdGuess.Enabled = False
txtGuess.Enabled = False
Else
lblGuess.Caption = "Try Again"
End If
End Sub

Private Sub cmdNew_Click()
Counter = "0"
Random = Int((1000 * Rnd) + 1)
cmdGuess.Enabled = True
txtGuess.Enabled = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub txtGuess_Change()

End Sub

RE: ارجوكم سعدوني باقصي سرعه - تركي الحلواني - 12-05-14

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
اتمنا يكون واضح معاك الشرح الموضوع بسيط

RE: ارجوكم سعدوني باقصي سرعه - مبرمج صغير - 12-05-14

الف الف الف مليووووووووووووووون شكر والله مش عارف اقولك ايه يا استاذ تركي
بجد شكررررررررررررررررا جدا ليك ربنا يكرمك