منتدى متجدد قادم بقوة انشاء الله
 
الرئيسيةاليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

  دورة تعليم فيجوال باسيك

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


عدد المساهمات : 106
تاريخ التسجيل : 01/09/2010

مُساهمةموضوع: دورة تعليم فيجوال باسيك    الخميس سبتمبر 02, 2010 8:12 pm

السلام عليكم ورحمة لله تعالى وبركاته
اولا اقدك لكم نفسي : معكم اخوكم محمد شكري من المغرب مقيم بفرنسا
قررت اليوم بتقديم دورة مكمولة ان شاء الله في الفيجوال باسيك
واعدكم بان كل واحد تتبع معن الدورة الى النهاية سيخرج بفاهدة مهمة بحول الله
سابدأ معكم بدروس بسيطة وفي كل درس نحاول عمل برنامج بسيط الى ان نخرج بعمل برنامج مهم ام شاء الله
ماريد مكنكم عدم التسرع التسرع الى اخذ السورس البرنامج بل حاول تصميم والابداع بانفسكم والسورس اطركوه الا حالة مصادفتكم باي مشكلة فيمكنكم الاستعانة به
اما بخصوص الاكواد ايض حاول عدم التعود على نسخ لصق بل اكتبوها احسن حتى تبفقى في اذهانكم حتتى تستعملوها في برامج في المستقبل....
كانت هذه البداية قبل بدئ الدورة اريد ان اقول لكم ان لدي لوحة مفاتح ليس به حروف العربية لهذا اجد بعض الصعوبات بالكتابة بالعربية لاني بعض الاحيان لاجد الحرف الذي اريده الا بعد بحث طويل المهم من اجلكم ساناضل ....
*********************************************
في حالة وجود اخطاء املائية فهدا يعود الى لوحوة المفاتيح كما قلت لكم فلا تزنزعجو مني *
*********************************************

الان مع اول درس
-------------
في هذا الدرس سنقوم بعمل برنامج الة حاسبة بسيطة باربع عمليات (جمع , ضرب, طرح, قسمة)

اولا نفتح برنامج Microsoft visual basic 6.0
تابع الصور


يفتح لنا المشروع نقوم بانشاء 3 textbox
و
4 option button
و
4 lable
و
2 commandebutton

شرح مصور


الان بعد ما انشئت ما طلبت منكم سنقوم بتسمية الازرار
commande1 نسميه "حساب"
commande2 نسميه "تفريغ"
لتسمية هذه الازرار اضغط نقرة واحدة على الزر الذي تريد تسميته على اليمين البرنامج فيجوال بازيك تجد عدة خيارت اختر
caption
صورة توضيحية

قم بحدف commande1 واستبدله ب حساب
ستجدها مكان مكتوب النموذج الاول
وهكذا بالنسبة ل
commande2
و lable1, lable2, labl3 lable4
الان احذف text1,text2text3
منtext
اضغط على text1 مثلا نفرة واحدة من القائمة على اليمين تجد text امامها text1 احذفها

الصورة للبرنامج بعد التعديل والترتيب



الان كل شيئ نمام بحمد الله لكن البرنامج الى حد الان لن يعمل لان تنقسه اكواد اي اوامر لانه لا يعرف ماذا سيفعل بهذه الازرار الا بعذما سنكلمه بالغته وهي لغة الاكواد
نابعو معي
سنامر البرنامج باجرء عملية الحسابية سنقول له استخدم text1 وtext2n لادخال الاعداد الذي نيد حسابهم ;text3 لاظهار النتيجة
اما في lable1 وlable2 .....
استخدمه لنوع عملية الحسابية الجمع الضرب القسمة ....

لنبدا بادخال هذا الكود

قم بالضغط مرتتين على حساب ثم ادخل الكود التالي



Dim A,B
A=Val(Text1.text)
B=Val(Text2.text)
If Option1.Value=True Then
Text3.Text=A + B
End if
If Option2.Value=True Then
Text3.Text=A - B
End if
If Option3.Value=True Then
Text3.Text=A * B
End if
If Option4.Value=True Then
Text3.Text=A / B
End if

صور توضيحية

بعد ادخال الكود نحصل على

الى هنا نكون فهمنا البرنامج بمهمة هذا المشروع الان هو قادر على عمل عمليات حسابية بالضغط على زر حساب
لكن يبقى لنا زر تفريغ بالنسبة للبنامج الى حد الان لا يعرف مهمته هيا علينا ان نعرفه للبرنامج بادخال هذا الكود كما فعلنا بالزر حساب
اعيد الشرح ام تتذكرن العملية؟؟؟؟؟؟
لباي باما انا هذا درس الاول اعيد الشرح لكن في الدروس القادمة سامركم بادخال الكود فقط دون ذكر كيف لان من المفرض ان تتعلموها في هذا الدرس
حسننا ..........
للعودة للمشروع نضغط مرتين على form1 (form1.frm الموجود اعلى يمين البرنامج
ثم نضغط مرتين على تفريغ ثم ندخل الكود التالي



Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
تمام كل شيئ انتها نجرب البرنامج من لوحة المفاتيح نضغط على F5
يمكنك تجربة البرنامج بكل حرية

تبقى عمليه حفظ البرنامج او استخراج البرنامج

تابع الصورة

انتهى درس اليوم والى درس اخر بحول الله لا تنسى تتبع معنا جميع الدروس ان شاء الله
ولاي استفسار او توضيح حول الدرس اليوم لا تتردد بطرحه في الردود
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://chicavara.yoo7.com
 
دورة تعليم فيجوال باسيك
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى التجديد :: منتدى الكمبيوتر والانترنيت :: لغة البرمجة-
انتقل الى: