طالب_العلم
02-09-2008, 05:49 PM
السلام عليكم و رحمة الله ة و بركاته
هذا درس سأشرح فيه ان شاء الله لعبة الأفلام هي كالآتي
شرح اللعبة :1-يقوم المستخم بادخال اسم الفيلم باسخدام Inputbox
2-يظهر للمستخدم الفورم و به Labels تحوي علامة "?" و يكون عدد الLabels بنفس عدد حروف الفيلم
3-يقوم البرنامج بوضع علامة "-" بدلا من علامة "?" عند وجود مسافة
4-يقوم المستخدم بالضغط على أحد الحروف اذا كان الحرف فعلاً أحد حروف الفيلم يقوم البرنامج باستبدال العلامة "?" بالحرف الصحيح الذي ضغط عله المستخدم
5-يوجد للمستخدم 3 محاولات اذا انتهت ينتهي البرنامج و ت ظهر رسال باسم الفيلم
6-اذا نجح يظهر للمستخدم رسالة تهنئه بنجاحه و تخبره باسم الفيلم
لنبدأ:
بسم الله الرحمن الرحيم
قم بفتح البرنامج و اختر مشروع جديد Standard EXE
قم بضبط خصائص الفورم كالآتي
Caption:لعبة الأفلام
Backcolor:&H0080C0FF&
Borderstyle:Fixed Single
يجب أن يكون شكله كالآتي
http://img165.imageshack.us/img165/2249/formxe8.jpg
قم بوضع Label جديد
قم بضبط الخصائص الآتية
Name:lblName
Caption : ?
Visible : False
Back Color:&H80000006&
قم بعمل نسخة منها
سيخبرك البرنامج بوجود أداة بتفس الاسم و انه يريد عمل مصفوفة
قم بالضغط Yes
قم بعمل 18 نسخة أخرى ليصبح عندك 20 Label
يجب أن يكون شكل الفورم كالآتي
http://img149.imageshack.us/img149/129/47546876pc9.jpg
قم بعمل Label جديدة
و اضبط الخصائص التالية
Caption : عدد المحاولات المتبقية
Right to Left:True
Alignment :Right
قم بعمل Label أخرى
و اضبط الخصائص التالية
Name:lblTrys
Caption : 3
Right to Left:True
Alignment :Center
Borderstyle :Fixed Single
و هذا هو شكل الفورم النهائي
http://img165.imageshack.us/img165/7357/56019258xi4.jpg
و الآن انتهينا من مرحاة تصميم الفورم و سنبدأ في مرحلة الكود و هو طبعاً اساس العبة
1-قم بفتح نافذة الأكود و قم بتعريف هذا المتغير في قسم لتصريحات General Decleration
Dim Inputval
Dim Trys As Integer
Dim Truea
Dim Sp
Dim M
ثم اكتب الكود التالي في الكائن Form حدث Load
'To Return Again
start:
'Entering Movie Name
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
'Case No Name
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
'Case Long Name
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
Inputval = Trim(Inputval)
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
و هذا شرح لأجزاء الكود
ملحوظة الجمل التي تبدأ بالعلامة ' هي فقط تعليقات و لا يوجد أي وظيقة لهل
الجزء الأول:
start:
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
الجملة start: سنقوم بشرحها في الجزء القادم ان شاء الله
الجملة التالية: نقوم باستخدام الدالة Inputbox التي تسخدم لاظهار رسالة تطلب من المستخدم ادخال اسم الفيلم بعنوان اسم الفيلم
الجزء الثاني:
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
نقوم باستخدام الجملة الشرطية If لنعرف ما اذا كان عدد القيمة المدخلة باستخدام الدالة Len التي تقيس أحرف التعبير فاذا وجد البرنامج عدد أحرف البرنامج 0 أي لم يقم المستخدم بادخال اي نص تظهر رسالة خطأ باستخدام الدالة Msgbox لعدم وجود نص
في السطر الذي يليه يقوم البرنامج بالعودة الى القسم start الذي تحدثنا عنه في الجزء السابق العادة بدأ البرناج
الجزء الثالث:
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
نقوم باستخدام الجملة الشرطية If لنعرف ما اذا كان عدد القيمة المدخلة باستخدام الدالة Len فاذا وجد البرنامج عدد أحرف البرنامج 20 تظهر رسالة خطأ باستخدام الدالة Msgbox لتجاوز عدد الحروف 20 حرفا الذي لن يمكنا من عرض الفيلم في الLabels
في السطر الذي يليه يقوم البرنامج بالعودة الى القسم مرة أخرى العادة بدأ البرناج من جديد
اما السطر الذي يليه
Inputval = Trim(Inputval)
هو فقط لحذف المسافات في أول و أخر اسم الفيم
هكذا نكون انتهينا من أول قسم
الآن أضف الكود التالي اسفل الكود السابف في نفس الحدث
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
و هنا النستخدم الحلقة التكرارية loop بعدد أحرف النص المدخل و قد قمنا بطرح رقم 1 من حجم النص المدخل لان الحلقة تبدأ بصفر بين حجم النص يبدأ بـ1
باستخدام الحلقة التكرارية ن قوم باظهار عددا من الLabel يساوي عدد حروف النص المدخل
الآن نحن نريد استبدال علامة الاستفهام ب العلامة "-" عند وجود مسافة لفصل كلمات الفيلم
لذا سنضيف الكود التالي
'Exchanging Spaces with -
For l = 0 To Len(Inputval) - 1
If Mid(Inputval, l + 1, 1) = Chr(32) Then lblName(l).Caption = "-"
Sp = Sp + 1
Next l
و قد استخدمنا الحلقة التكرارية مرة أخرى لاختبار كل حرف في النص فاذا كان مسافة يقوم باستبدال قيمة الlblName الذي يوازيه ب "-"
و الوظيقة Mid تقوم بقص جزء من النص ثم نقوم باختبار ما اذا كان مسافة و رمز المسافة هو 32 و نستخدم الدالة chr للدلالة على انه حرف
اما الجزء الخاث بالمتغير Sp فنستفاد منه لاحقاً
و الآن قم بكتاابة الكود التالي في الكئن فورم لكن هذه المرو حذث Keypress
If KeyAscii = 32 Then Exit Sub
M = 0
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
End If
Next x
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
End Sub
شرح الكود
أولاً يجب أن تعرف أننا سنستخد الصطلح Keyascii لتحديد الزر الذي ضغط عليه المستخد
و في أول سطر
If KeyAscii = 32 Then Exit Sub
يقوم البرنامج بالخروج من الكود اذا كان رمز الحرف هو 32 أي رمز المسافة لاننا لا نريد اللعبة ان تحتسب المسافة
أما السطر M=0 فهو خاص بحذف قيمة المتغير لاننا سنحتاجه لاحقاً
الان و بعد ان تأكدنا أن المستخدم لم يضغط على أي مسافات سنقوم بتمرير البرنامج على كل حرف من حروف اسم الفيلم فا كان احدها الحرف الذي ضغطه المستخدم فا البرنامج يقوم باستبدال الlblName التي توازيه بالحرف الصحيح
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
End If
Next x
و قد استخدمنا الحلقة التكرارية مرة أخرى لاختبار الحرف المدخل مع كل حروف الفيلم فانكان يطابقه يقوم بوضعه في lblName ثم يضيف 1 للمتغير Truea كما يقوم باسناد القيمة 1 للمتغير M للدلالة على أن الحرف صحيح و ستعرف لماذا
اما الجزء الأخير من الكود
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
قينقسم لثلاث أجزاء
الجزء الأول عند ادخال رقم خاطئ و هذا ما نستنتجه من المتغير فانه يقوم بزيادة عدد المتغير Trys أي زيادة عدد المحاولات الفاشلة
ثم يقوم بطرح قيمة 1 من الـlblTrys
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
الجزء الثاني
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
يقوم البرنامج باختبار عدد المحاولات الفاشلة فان وصلت الى ثلات محاولات تظهر رسالة للمستخدم تفيد بنفاذ المحاولات ثم ينتهي البرنامج
الجزء الثالث
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
يقوم البرنامج باختبار عدد الحروف الصحيحة المخزن في المتغير Truea مع عدد حوف الفيلم بعد طرح المسافات التي عرفنا عددها عن طريق المتغير Sp فان تساوو فهذا يدل على نجاحه في معرفة اسم الفيلم فتظهر رسالة تهنئة ثم ينتهي البرنامج
وهذا هو كود البرنامج كاملاً بعد كل التعديلات
Dim Inputval
Dim Trys As Integer
Dim Truea
Dim Sp
Dim M
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Exit Sub
M = 0
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
End If
Next x
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
End Sub
Private Sub Form_Load()
'To Return Again
start:
'Entering Movie Name
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
'Case No Name
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
'Case Long Name
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
Inputval = Trim(Inputval)
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
'Exchanging Spaces with -
For l = 0 To Len(Inputval) - 1
If Mid(Inputval, l + 1, 1) = Chr(32) Then
lblName(l).Caption = "-"
Sp = Sp + 1
End If
Next l
End Sub
الآن يوجد مشكلة في الكود الأول
و يجب تعديل الكود الى الشكل التالي
Dim Inputval
Dim Trys As Integer
Dim Truea
Dim Sp
Dim M
Dim C()
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Exit Sub
For i = 0 To Len(Inputval) - 1
If C(i) = KeyAscii Then Exit Sub
Next i
M = 0
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
C(x) = KeyAscii
End If
Next x
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
End If
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
End Sub
Private Sub Form_Load()
'To Return Again
start:
'Entering Movie Name
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
'Case No Name
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
'Case Long Name
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
Inputval = Trim(Inputval)
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
'Exchanging Spaces with -
For l = 0 To Len(Inputval) - 1
If Mid(Inputval, l + 1, 1) = Chr(32) Then
lblName(l).Caption = "-"
Sp = Sp + 1
End If
Next l
ReDim C(Len(Inputval))
End Sub
:smailes58: المشلكة في الكود الأول هو أنه عندما يضغط المستخدم على حرف صحيح عدة مرات فانه يحتسبه مرة أخرى في عدد المحاولات لذا فعلنا الآتي
1-قمنا باعلان عن مصفوفة جديد باسم C بلا Index
Dim C()
ثم قمنا باعادة الاعلان عنها بعد أن أدخل المستخدم اسم الفيلم ليصبح الIndex الخاص بالمصفوفة يساوى عدد حروف الفيلم
Redim C(Len(Inputval))
ثم في الحدث Keypress أضفنا شيئان
الأول : عند الضغط على مفتاح صحيح يقوم البرنامج بوضع الرمز الخاص به في المصفوفة
C(x) = KeyAscii
الثاني: يقوم البرنامج باختبار رمز المفتاح الذي تم الضغط عليه مع جميع عناصر المصفوفة فاذا تطابق مع أحد العناصر فانه يخرج من الكود
For i = 0 To Len(Inputval) - 1
If C(i) = KeyAscii Then Exit Sub
Next i
اتمنى ان يكون الشرح واضح و انا جاهز لاي استفسارات
لتحميل المشروع بعد التعديلا اضغط على السيرفر الذي تريده و انا انصح ب9q9q فهو اسهلهم
Download Project from Rapidshare (http://rapidshare.com/files/90610789/Words_Game.rar.html)
Download Project From Megaupload (http://www.megaupload.com/?d=0GXYTTK0)
Download Project From Bluehost.to (http://bluehost.to/dl=9CG0bZmLP)
Download Project From 9q9q (http://file5.9q9q.net/Download/79289162/Words-Game.rar.html)
و هذه قائم بالأزرار ورموزها في الفيجوال بيسك 6.0 و دوت نت لمن يحتاجها
Download From Rapidshare (http://rapidshare.com/files/90451567/KeyCodes.htm.html)
Download From Megaupload (http://www.megaupload.com/?d=GPMI9TEA)
Download From Bluehost.to (http://bluehost.to/dl=p36wS7Wy8)
Download From 9q9 (http://file5.9q9q.net/Download/83879371/KeyCodes.htm.html)
مشاركة مهمة جداً شكر خاص للعضو اسيهي على هذه المشاركة
اخي طالب _ العلم بعد اذنك اني قمت باضافة كود للهذه اللعبة اي انها عندما يتم انهاء المحاولات يسألك البرنامج اذا تريد ان تلعب مرة اخرى ام لا واذا نجحت في كتابة الاسم بصورة صحيحة
فارجو ان ترى الكود و تقول رأيك فيه
اللعية هنـــــــــــــــــــــــــــــا (http://file5.9q9q.net/Download/55427623/Words-Game.rar.html)
:smailes104: :smailes104: :smailes104: :smailes104:
هذا درس سأشرح فيه ان شاء الله لعبة الأفلام هي كالآتي
شرح اللعبة :1-يقوم المستخم بادخال اسم الفيلم باسخدام Inputbox
2-يظهر للمستخدم الفورم و به Labels تحوي علامة "?" و يكون عدد الLabels بنفس عدد حروف الفيلم
3-يقوم البرنامج بوضع علامة "-" بدلا من علامة "?" عند وجود مسافة
4-يقوم المستخدم بالضغط على أحد الحروف اذا كان الحرف فعلاً أحد حروف الفيلم يقوم البرنامج باستبدال العلامة "?" بالحرف الصحيح الذي ضغط عله المستخدم
5-يوجد للمستخدم 3 محاولات اذا انتهت ينتهي البرنامج و ت ظهر رسال باسم الفيلم
6-اذا نجح يظهر للمستخدم رسالة تهنئه بنجاحه و تخبره باسم الفيلم
لنبدأ:
بسم الله الرحمن الرحيم
قم بفتح البرنامج و اختر مشروع جديد Standard EXE
قم بضبط خصائص الفورم كالآتي
Caption:لعبة الأفلام
Backcolor:&H0080C0FF&
Borderstyle:Fixed Single
يجب أن يكون شكله كالآتي
http://img165.imageshack.us/img165/2249/formxe8.jpg
قم بوضع Label جديد
قم بضبط الخصائص الآتية
Name:lblName
Caption : ?
Visible : False
Back Color:&H80000006&
قم بعمل نسخة منها
سيخبرك البرنامج بوجود أداة بتفس الاسم و انه يريد عمل مصفوفة
قم بالضغط Yes
قم بعمل 18 نسخة أخرى ليصبح عندك 20 Label
يجب أن يكون شكل الفورم كالآتي
http://img149.imageshack.us/img149/129/47546876pc9.jpg
قم بعمل Label جديدة
و اضبط الخصائص التالية
Caption : عدد المحاولات المتبقية
Right to Left:True
Alignment :Right
قم بعمل Label أخرى
و اضبط الخصائص التالية
Name:lblTrys
Caption : 3
Right to Left:True
Alignment :Center
Borderstyle :Fixed Single
و هذا هو شكل الفورم النهائي
http://img165.imageshack.us/img165/7357/56019258xi4.jpg
و الآن انتهينا من مرحاة تصميم الفورم و سنبدأ في مرحلة الكود و هو طبعاً اساس العبة
1-قم بفتح نافذة الأكود و قم بتعريف هذا المتغير في قسم لتصريحات General Decleration
Dim Inputval
Dim Trys As Integer
Dim Truea
Dim Sp
Dim M
ثم اكتب الكود التالي في الكائن Form حدث Load
'To Return Again
start:
'Entering Movie Name
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
'Case No Name
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
'Case Long Name
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
Inputval = Trim(Inputval)
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
و هذا شرح لأجزاء الكود
ملحوظة الجمل التي تبدأ بالعلامة ' هي فقط تعليقات و لا يوجد أي وظيقة لهل
الجزء الأول:
start:
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
الجملة start: سنقوم بشرحها في الجزء القادم ان شاء الله
الجملة التالية: نقوم باستخدام الدالة Inputbox التي تسخدم لاظهار رسالة تطلب من المستخدم ادخال اسم الفيلم بعنوان اسم الفيلم
الجزء الثاني:
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
نقوم باستخدام الجملة الشرطية If لنعرف ما اذا كان عدد القيمة المدخلة باستخدام الدالة Len التي تقيس أحرف التعبير فاذا وجد البرنامج عدد أحرف البرنامج 0 أي لم يقم المستخدم بادخال اي نص تظهر رسالة خطأ باستخدام الدالة Msgbox لعدم وجود نص
في السطر الذي يليه يقوم البرنامج بالعودة الى القسم start الذي تحدثنا عنه في الجزء السابق العادة بدأ البرناج
الجزء الثالث:
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
نقوم باستخدام الجملة الشرطية If لنعرف ما اذا كان عدد القيمة المدخلة باستخدام الدالة Len فاذا وجد البرنامج عدد أحرف البرنامج 20 تظهر رسالة خطأ باستخدام الدالة Msgbox لتجاوز عدد الحروف 20 حرفا الذي لن يمكنا من عرض الفيلم في الLabels
في السطر الذي يليه يقوم البرنامج بالعودة الى القسم مرة أخرى العادة بدأ البرناج من جديد
اما السطر الذي يليه
Inputval = Trim(Inputval)
هو فقط لحذف المسافات في أول و أخر اسم الفيم
هكذا نكون انتهينا من أول قسم
الآن أضف الكود التالي اسفل الكود السابف في نفس الحدث
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
و هنا النستخدم الحلقة التكرارية loop بعدد أحرف النص المدخل و قد قمنا بطرح رقم 1 من حجم النص المدخل لان الحلقة تبدأ بصفر بين حجم النص يبدأ بـ1
باستخدام الحلقة التكرارية ن قوم باظهار عددا من الLabel يساوي عدد حروف النص المدخل
الآن نحن نريد استبدال علامة الاستفهام ب العلامة "-" عند وجود مسافة لفصل كلمات الفيلم
لذا سنضيف الكود التالي
'Exchanging Spaces with -
For l = 0 To Len(Inputval) - 1
If Mid(Inputval, l + 1, 1) = Chr(32) Then lblName(l).Caption = "-"
Sp = Sp + 1
Next l
و قد استخدمنا الحلقة التكرارية مرة أخرى لاختبار كل حرف في النص فاذا كان مسافة يقوم باستبدال قيمة الlblName الذي يوازيه ب "-"
و الوظيقة Mid تقوم بقص جزء من النص ثم نقوم باختبار ما اذا كان مسافة و رمز المسافة هو 32 و نستخدم الدالة chr للدلالة على انه حرف
اما الجزء الخاث بالمتغير Sp فنستفاد منه لاحقاً
و الآن قم بكتاابة الكود التالي في الكئن فورم لكن هذه المرو حذث Keypress
If KeyAscii = 32 Then Exit Sub
M = 0
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
End If
Next x
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
End Sub
شرح الكود
أولاً يجب أن تعرف أننا سنستخد الصطلح Keyascii لتحديد الزر الذي ضغط عليه المستخد
و في أول سطر
If KeyAscii = 32 Then Exit Sub
يقوم البرنامج بالخروج من الكود اذا كان رمز الحرف هو 32 أي رمز المسافة لاننا لا نريد اللعبة ان تحتسب المسافة
أما السطر M=0 فهو خاص بحذف قيمة المتغير لاننا سنحتاجه لاحقاً
الان و بعد ان تأكدنا أن المستخدم لم يضغط على أي مسافات سنقوم بتمرير البرنامج على كل حرف من حروف اسم الفيلم فا كان احدها الحرف الذي ضغطه المستخدم فا البرنامج يقوم باستبدال الlblName التي توازيه بالحرف الصحيح
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
End If
Next x
و قد استخدمنا الحلقة التكرارية مرة أخرى لاختبار الحرف المدخل مع كل حروف الفيلم فانكان يطابقه يقوم بوضعه في lblName ثم يضيف 1 للمتغير Truea كما يقوم باسناد القيمة 1 للمتغير M للدلالة على أن الحرف صحيح و ستعرف لماذا
اما الجزء الأخير من الكود
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
قينقسم لثلاث أجزاء
الجزء الأول عند ادخال رقم خاطئ و هذا ما نستنتجه من المتغير فانه يقوم بزيادة عدد المتغير Trys أي زيادة عدد المحاولات الفاشلة
ثم يقوم بطرح قيمة 1 من الـlblTrys
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
الجزء الثاني
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
يقوم البرنامج باختبار عدد المحاولات الفاشلة فان وصلت الى ثلات محاولات تظهر رسالة للمستخدم تفيد بنفاذ المحاولات ثم ينتهي البرنامج
الجزء الثالث
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
يقوم البرنامج باختبار عدد الحروف الصحيحة المخزن في المتغير Truea مع عدد حوف الفيلم بعد طرح المسافات التي عرفنا عددها عن طريق المتغير Sp فان تساوو فهذا يدل على نجاحه في معرفة اسم الفيلم فتظهر رسالة تهنئة ثم ينتهي البرنامج
وهذا هو كود البرنامج كاملاً بعد كل التعديلات
Dim Inputval
Dim Trys As Integer
Dim Truea
Dim Sp
Dim M
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Exit Sub
M = 0
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
End If
Next x
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
End Sub
Private Sub Form_Load()
'To Return Again
start:
'Entering Movie Name
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
'Case No Name
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
'Case Long Name
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
Inputval = Trim(Inputval)
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
'Exchanging Spaces with -
For l = 0 To Len(Inputval) - 1
If Mid(Inputval, l + 1, 1) = Chr(32) Then
lblName(l).Caption = "-"
Sp = Sp + 1
End If
Next l
End Sub
الآن يوجد مشكلة في الكود الأول
و يجب تعديل الكود الى الشكل التالي
Dim Inputval
Dim Trys As Integer
Dim Truea
Dim Sp
Dim M
Dim C()
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then Exit Sub
For i = 0 To Len(Inputval) - 1
If C(i) = KeyAscii Then Exit Sub
Next i
M = 0
For x = 0 To Len(Inputval) - 1
If Asc(Mid(Inputval, x + 1, 1)) = KeyAscii Then
lblName(x).Caption = Mid(Inputval, x + 1, 1)
Truea = Truea + 1
M = 1
C(x) = KeyAscii
End If
Next x
If Not M = 1 Then
Trys = Trys + 1
lblTrys.Caption = Val(lblTrys.Caption) - 1
End If
If Trys = 3 Then
MsgBox "للأسف لمم تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "لقد خسرت"
End
End If
If Truea = Len(Inputval) - Sp Then
MsgBox "أحسنت لقد تمكن من معرفة اسم الفيلم" & Chr(13) & "اسم الفيلم هو " & Inputval, , "مبروك"
End
End If
End Sub
Private Sub Form_Load()
'To Return Again
start:
'Entering Movie Name
Inputval = InputBox("أدخل اسم الفيم", "اسم الفيلم")
'Case No Name
If Len(Inputval) = 0 Then
MsgBox "يجب أن تدخل اسم الفيلم", vbCritical, "خطأ"
GoTo start
End If
'Case Long Name
If Len(Inputval) > 20 Then
MsgBox "يجب ألا يتعدى اسم الفيلم عشرون حرفا", vbCritical, "خطأ"
GoTo start
End If
Inputval = Trim(Inputval)
'Label Showing
For i = 0 To Len(Inputval) - 1
lblName(i).Visible = True
Next i
'Exchanging Spaces with -
For l = 0 To Len(Inputval) - 1
If Mid(Inputval, l + 1, 1) = Chr(32) Then
lblName(l).Caption = "-"
Sp = Sp + 1
End If
Next l
ReDim C(Len(Inputval))
End Sub
:smailes58: المشلكة في الكود الأول هو أنه عندما يضغط المستخدم على حرف صحيح عدة مرات فانه يحتسبه مرة أخرى في عدد المحاولات لذا فعلنا الآتي
1-قمنا باعلان عن مصفوفة جديد باسم C بلا Index
Dim C()
ثم قمنا باعادة الاعلان عنها بعد أن أدخل المستخدم اسم الفيلم ليصبح الIndex الخاص بالمصفوفة يساوى عدد حروف الفيلم
Redim C(Len(Inputval))
ثم في الحدث Keypress أضفنا شيئان
الأول : عند الضغط على مفتاح صحيح يقوم البرنامج بوضع الرمز الخاص به في المصفوفة
C(x) = KeyAscii
الثاني: يقوم البرنامج باختبار رمز المفتاح الذي تم الضغط عليه مع جميع عناصر المصفوفة فاذا تطابق مع أحد العناصر فانه يخرج من الكود
For i = 0 To Len(Inputval) - 1
If C(i) = KeyAscii Then Exit Sub
Next i
اتمنى ان يكون الشرح واضح و انا جاهز لاي استفسارات
لتحميل المشروع بعد التعديلا اضغط على السيرفر الذي تريده و انا انصح ب9q9q فهو اسهلهم
Download Project from Rapidshare (http://rapidshare.com/files/90610789/Words_Game.rar.html)
Download Project From Megaupload (http://www.megaupload.com/?d=0GXYTTK0)
Download Project From Bluehost.to (http://bluehost.to/dl=9CG0bZmLP)
Download Project From 9q9q (http://file5.9q9q.net/Download/79289162/Words-Game.rar.html)
و هذه قائم بالأزرار ورموزها في الفيجوال بيسك 6.0 و دوت نت لمن يحتاجها
Download From Rapidshare (http://rapidshare.com/files/90451567/KeyCodes.htm.html)
Download From Megaupload (http://www.megaupload.com/?d=GPMI9TEA)
Download From Bluehost.to (http://bluehost.to/dl=p36wS7Wy8)
Download From 9q9 (http://file5.9q9q.net/Download/83879371/KeyCodes.htm.html)
مشاركة مهمة جداً شكر خاص للعضو اسيهي على هذه المشاركة
اخي طالب _ العلم بعد اذنك اني قمت باضافة كود للهذه اللعبة اي انها عندما يتم انهاء المحاولات يسألك البرنامج اذا تريد ان تلعب مرة اخرى ام لا واذا نجحت في كتابة الاسم بصورة صحيحة
فارجو ان ترى الكود و تقول رأيك فيه
اللعية هنـــــــــــــــــــــــــــــا (http://file5.9q9q.net/Download/55427623/Words-Game.rar.html)
:smailes104: :smailes104: :smailes104: :smailes104: