منتديات إم زييييييد-Mzeid
مرحبا بك في منتديات mzeid ندعوك للتسجيل في منتدانا للإستمتاع بكل مميزات المنتدي والمشاركة بالردود والدردشة الجماعية أو التعريف بنفسك والدخول إلي المنتدي إذا كنت مسجل مسبقاً شــكـــراً.

 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  556225968







منتديات إم زييييييد-Mzeid

Welcome in Mzeid
 
الرئيسيةالمجلة الرئيسيةس .و .جبحـثالتسجيلدخول
المواضيع الأخيرة
» حصريا وقبل جميع المنتديات العربية بأكملها Unity 3 .0.0@ CRACK محرك اليونيتي 3 مع الكراك والنسخة البرو [جديد* تم تجديد الرابط ومجرب كمان وعلي ميديا فاير]
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty19/7/2016, 8:50 am من طرف I am Programer

» بانفراد تام كراك اليونتي كامل3.4 -Unity 3.4 crack full علي9 سيرفرات حصريا علي إم زييييد-mzeid
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty19/7/2016, 8:45 am من طرف I am Programer

» محرك اليوديكيه3 كامل UDK 3Full -Unreal Development Kit3full محرك الانريل3 كامل حصريا علي ام زييييد-mzeid علي اكثر من سيرفر
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty18/7/2016, 10:18 pm من طرف I am Programer

» تحميل محرك الفيرتوولز 4 +الكراك والسيريال من فور شيرد فقط وحصريا علي منتديات Mzeid
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty12/5/2015, 6:08 am من طرف djamel10

» حصريا محرك الفيرتولز 5 كامل Virtools v5 Full- برابط مجرب 2011اصنع لعبة بدون برمجة فقط علي mzeid
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty1/3/2015, 6:22 am من طرف djamel10

» كيف تذاكر وتراجع شاطرالمزيد!
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty12/9/2014, 3:48 am من طرف mzeid

» الدعــــــــــــاء قبل المذاكرة وبعدها وعند الامتحان وبعده شاطرالمزيد!
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty12/9/2014, 3:46 am من طرف mzeid

»  حصريا كود مجلة عرب ليجند 3arablegend مقدمة من شبكة mzeid
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty7/9/2014, 3:25 am من طرف crash101094

»  حصريا مجله شباب فوكس الاصدار الجديد فقط عmzeid بس
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty7/9/2014, 3:18 am من طرف crash101094

»  حصريا مجلة موقع fonekat فونيكات الجديده وبمميزات خطيره مقدمة من شبكةmzeid
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty9/6/2014, 8:47 pm من طرف زمزم2

» {حصري جدا}Game maker 8.1 pro full with crack الجيم ميكر 8.1 كامل مع الكراك علي Mzeid! ميديافاير!!mediafire
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty20/3/2014, 5:46 pm من طرف بو تعتع

» تجميعة من أجمل خلفيات سطح المكتب الررائعة للويندوز والماك واي نظام اخر -Desktop Wallpapers Mix pack 7
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty24/2/2014, 4:17 am من طرف mzeid

»  كلمات اغنية فضل شاكر - بنسا العالم
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty24/2/2014, 4:11 am من طرف mzeid

»  كلمات اغنية احبك موت
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty24/2/2014, 4:10 am من طرف mzeid

» حصريااا ولدي mzeid فقط 3D Game maker full ثري دي جيم ميكر كامل بروابط شغاله 100 % ومجربة مرفوعة حديثا 2011
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty6/2/2014, 3:03 am من طرف ma games

» حصريا تحميل لعبة Toy story 2 للفيلم المشهور جدا علي ميديا فاير بحجم 43 ميجا فقط -mzeid
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty7/1/2014, 6:11 am من طرف mzeid

» صور متنوعة
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty6/1/2014, 1:25 pm من طرف mzeid

» اسطوانة صيانة النظام العملاقة Ultimate Boot CD 5.2.6 Final لاصلاح جميع مشاكل الهارد و تقسيمه و عمل باك اب بحجم 552 ميجا على اكثر من سيرفر
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty30/12/2013, 6:59 am من طرف mzeid

» افضل حزمة كوديك على الاطلاق XP Codec Pack 2.6.0 Final لتشغيل جميع صيغ الميديا على اكس بي بحجم 22 ميجا على اكثر من سيرفر
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty30/12/2013, 6:56 am من طرف mzeid

» جميع نسخ ويندوز سيفن بتحديثات شهر ديسمبر بلغات انجليزي و عربى و فرنسى Windows 7 SP1 AIO ( En,Ar,Fr ) December 2013 للنواتين 32 , 64 بت تحميل مباشر وعلى اكثر من سيرفر
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty30/12/2013, 6:53 am من طرف mzeid


شاطر
 

  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك

اذهب الى الأسفل 
كاتب الموضوعرسالة
mzeid
Admin
Admin
mzeid

ذكر
مزاجي :  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Pi-ca-26

بلدي :  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Egypt10
الهواية :  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Painti10

 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Studen10
المشاركات المشاركات : 1167
نقاط : 2147487185
السٌّمعَة : 0
الإنتساب : 15/08/2009 الموقع الموقع : www.mzeid.hooxs.com


 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty
مُساهمةموضوع: أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك     أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Empty30/12/2010, 10:36 pm

سلام عليكم و رحمة الله ة و بركاته
هذا درس سأشرح فيه ان شاء الله لعبة الأفلام هي كالآتي
شرح اللعبة :1-يقوم المستخم بادخال اسم الفيلم باسخدام Inputbox
2-يظهر للمستخدم الفورم و به Labels تحوي علامة "?" و يكون عدد الLabels بنفس عدد حروف الفيلم
3-يقوم البرنامج بوضع علامة "-" بدلا من علامة "?" عند وجود مسافة
4-يقوم المستخدم بالضغط على أحد الحروف اذا كان الحرف فعلاً أحد حروف
الفيلم يقوم البرنامج باستبدال العلامة "?" بالحرف الصحيح الذي ضغط عله
المستخدم
5-يوجد للمستخدم 3 محاولات اذا انتهت ينتهي البرنامج و ت ظهر رسال باسم الفيلم
6-اذا نجح يظهر للمستخدم رسالة تهنئه بنجاحه و تخبره باسم الفيلم


لنبدأ:

بسم الله الرحمن الرحيم


قم بفتح البرنامج و اختر مشروع جديد Standard EXE

قم بضبط خصائص الفورم كالآتي
Caption:لعبة الأفلام
Backcolor:&H0080C0FF&
Borderstyle:Fixed Single

يجب أن يكون شكله كالآتي

 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Formxe8

قم بوضع Label جديد
قم بضبط الخصائص الآتية
Name:lblName
Caption : ?
Visible : False
Back Color:&H80000006&

قم بعمل نسخة منها
سيخبرك البرنامج بوجود أداة بتفس الاسم و انه يريد عمل مصفوفة
قم بالضغط Yes
قم بعمل 18 نسخة أخرى ليصبح عندك 20 Label

يجب أن يكون شكل الفورم كالآتي
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  47546876pc9

قم بعمل Label جديدة
و اضبط الخصائص التالية
Caption : عدد المحاولات المتبقية
Right to Left:True
Alignment :Right

قم بعمل Label أخرى
و اضبط الخصائص التالية
Name:lblTrys
Caption : 3
Right to Left:True
Alignment :Center
Borderstyle :Fixed Single

و هذا هو شكل الفورم النهائي
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  56019258xi4

و الآن انتهينا من مرحاة تصميم الفورم و سنبدأ في مرحلة الكود و هو طبعاً اساس العبة
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

Download Project From Megaupload

Download Project From Bluehost.to

Download Project From 9q9q

و هذه قائم بالأزرار ورموزها في الفيجوال بيسك 6.0 و دوت نت لمن يحتاجها


Download From Rapidshare

Download From Megaupload

Download From Bluehost.to

Download From 9q9

مشاركة مهمة جداً شكر خاص للعضو اسيهي على هذه المشاركة


اقتباس:



المشاركة الأصلية كتبت بواسطة آسيهي
 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Viewpost


اخي طالب _ العلم بعد اذنك اني قمت
باضافة كود للهذه اللعبة اي انها عندما يتم انهاء المحاولات يسألك البرنامج
اذا تريد ان تلعب مرة اخرى ام لا واذا نجحت في كتابة الاسم بصورة صحيحة
فارجو ان ترى الكود و تقول رأيك فيه
اللعية هنـــــــــــــــــــــــــــــا






 أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Smailes104  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Smailes104  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Smailes104  أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك  Smailes104


لتحميل الالعاب والبرامج المجانية
mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com mzeid.hooxs.com
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mzeid.hooxs.com
 
أفضل شرح كامل لكيفية عمل لعبة صغيرة بالفيجوال بيسك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات إم زييييييد-Mzeid :: المنتديات الادارية :: الشروحات ومساعدة الاعضاء-
انتقل الى: