بوابة الثانوية العامة المصرية - كيف تصمم برنامج Make me laught " اجعلنى اضحك" شرح حصرى فيديو وبالصور،مع مدرس بالاجر..

اليكم الصورة المبدئية "الواجهه التفاعلية للمستخدم"
والتى اعمل على تصميمها الان
http://www9.0zz0.com/2012/05/13/18/302636846.png

...................................
نقوم بادراج نافذة "فورم جديد" اخر الى المشروع
هكذاااااا
http://www9.0zz0.com/2012/05/13/19/557879843.png

...................
الشكل العام والنهائى للبرنامج

http://www9.0zz0.com/2012/05/13/19/529748994.png
.........................................
سوف اضع لكم الشرح كامل للبرنامج وكيفية تسطيبة
لو انكم تهتمون بذلك -- لو لم تكونو تريدون معرفة كيف قمت بذلك
فلا تتركوا تعليقا وانصرفوا بسلام امنين -- فانتم فى مصر - وهذا حالكم !!
وجعلة نسخة محمولة " بورتابل" كالتى سرت على طريقها
تابعونا
........................
http://www9.0zz0.com/2012/05/13/21/727776791.png
برمجة الكود المستخدم فى الفورم الثانى الخاص بالنتائج

اقتباس:

ublic Class click_me

Private Sub click_me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = Form1.TextBox12.Text
Label2.Text = Form1.TextBox5.Text
Label3.Text = Form1.TextBox1.Text
Label4.Text = Form1.TextBox13.Text
Label5.Text = Form1.TextBox7.Text
Label6.Text = Form1.TextBox3.Text
Label7.Text = Form1.TextBox10.Text
Label8.Text = Form1.TextBox16.Text
Label9.Text = Form1.TextBox8.Text
Label10.Text = Form1.TextBox15.Text
Label11.Text = Form1.TextBox9.Text
Label12.Text = Form1.TextBox3.Text
Label13.Text = Form1.TextBox13.Text
Label14.Text = Form1.TextBox4.Text
Label15.Text = Form1.TextBox6.Text
Label16.Text = Form1.TextBox14.Text
Label17.Text = Form1.TextBox4.Text
Label18.Text = Form1.TextBox11.Text

End Sub
End Class

وايضا بالنسبة لزر الاغلاق واعادة المحاولة

اقتباس:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' برمجة زر اغلاق الفورم الاول والثانى
Form1.Close()
Me.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' اغلاق الفورم الثانى فقط وهو نافذة النتائج
Me.Close()

End Sub

يمكننا اضافة الاكواد الاتية لتفريغ محتويات التكست بوكس حال الضغط على زر
Make me laugh

اقتباس:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
click_me.Show()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()

End Sub

لا ننسى استخدام الخصائص باقصى حد مع الفورم الاول والثانى
وهذا يطول ذكره --- فانا لم اشرح شيئا بعد حتى الان
.........................
هل تريدون المزيد
؟**!!

تعودت على سلبيتكم فى العطاء وعدم مشاركتكم الفعالة معى
لذا اثرت على عدم شرح الموضوع ولكننى رفعت الملف الذى به المشروع
الخاص بالفجيوال بيسك 2010
على 12 سيرفر تحميل : حجم الملف 150كيلو بايت
http://ymirror.com/files/TEBE4G8X/Ma...Laugh.rar.html
:bosyht9::angry::028ja7: