تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الرجاء المساعدة في شرح بعض الاكواد
#1
Exclamation 
ارجوكم ساعدوني يا شباب عندي امتحان الخميس القادم
و مطلوب مني اني اشرح اكواد المشروع المبدائي بتاعي و انا مش فاهم معظم الاكواد هو اكيد سهل بلنسه للمحترفين فا ياريت تقولولي كل كود من دول بيعمل ايه

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
الرد }}}}
تم الشكر بواسطة:
#2
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
اتمنا يكون واضح معاك الشرح الموضوع بسيط
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}}
تم الشكر بواسطة: مبرمج صغير , king2512010
#3
الف الف الف مليووووووووووووووون شكر والله مش عارف اقولك ايه يا استاذ تركي
بجد شكررررررررررررررررا جدا ليك ربنا يكرمك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] لرجاء المساعدة في جملة adoPrimaryRS.Open إبراهيم خشافه1 11 74 منذ 18 دقيقة مضت
آخر رد: sendbad100
  [vb6.0] المساعدة في تشغيل المنبه انمار العبيدي 11 235 24-09-17, 07:52 PM
آخر رد: انمار العبيدي
  [vb6.0] سؤال مهم جدا بالنسبة لي ارجو المساعدة محمد حمد محمد 1 87 14-08-17, 08:14 PM
آخر رد: Amir_alzubidy
  [vb6.0] ارجو المساعدة في حل مشكلة في البرنامج المرفق larbihamri 2 127 23-07-17, 03:19 AM
آخر رد: larbihamri
  [vb6.0] استبدال نص في قاعدة بيانات...أرجو المساعدة فيصل علي 2 181 17-06-17, 06:40 AM
آخر رد: فيصل علي
  ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) larbihamri 6 304 01-05-17, 03:06 PM
آخر رد: mosamosa
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 303 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
  [vb6.0] ارجوا المساعدة في اظهار بيانات الفورم الأول في الفورم الثالث عبدالقادرعواد 2 206 22-04-17, 11:00 AM
آخر رد: عبدالقادرعواد
Question [vb6.0] نامل المساعدة العاجلة عندي في تاريخ الحاسب اليوم 3 هجري والبرنامج يقول لي اليوم 4؟؟ Microformt 4 357 11-02-17, 12:27 AM
آخر رد: Ahmed_Mansoor
  [ تمّ الحل] : رجاء المساعدة بتصحيح كود الحفظ عبد العزيز البسكري 8 482 09-02-17, 02:01 AM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم