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

[tomjerry741]

بسم الله الرحمن الرحيم
رأيت برنامجا بسيطا وصغيرا فى قسم البرماج بعنوان
Make Me Laught
بمعنى اجعلنى اضحك
......................
وهذى صورة البرنامج

بعد كتاباتى للبيانات بشكل صحيح
كانت النتيجة كالاتى


.......
واليكم رابط تحميل البرنامج حيث رفعته لكم على 10سيرفرات مختلفة
حجم البرنامج ربع ميجا تقريبا يعنى 300كيلو

ثم
قلت فى نفسى ان هذا يعتبر تحدى شخصى بينى وبين الفجيوال بايسك
وصممت الان على ان اصنع واحدا مثلة
واقوم الان بتنصيب الفجيوال بايسك 2010على جهازى
:::::::::::::
.......................
هل من مشارك
..؟؟!!

[tomjerry741]

اليكم الصورة المبدئية "الواجهه التفاعلية للمستخدم"
والتى اعمل على تصميمها الان



...................................
نقوم بادراج نافذة "فورم جديد" اخر الى المشروع
هكذاااااا




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


.........................................
سوف اضع لكم الشرح كامل للبرنامج وكيفية تسطيبة
لو انكم تهتمون بذلك -- لو لم تكونو تريدون معرفة كيف قمت بذلك
فلا تتركوا تعليقا وانصرفوا بسلام امنين -- فانتم فى مصر - وهذا حالكم !!
وجعلة نسخة محمولة " بورتابل" كالتى سرت على طريقها
تابعونا
........................

برمجة الكود المستخدم فى الفورم الثانى الخاص بالنتائج

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

[tomjerry741]

........................................

[abdoelged12]

جزاكم الله خيرا

[emantanta]

جزاكم الله خيرا

[lamia_gana]

شكراااااا بجد شكرااا

[أحمد هاشم الزيدي]

جــزاك اللــــه خـيـــــــراً