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

شاطر | 
 

 كيفيه صناعة اله حاسبه عن طريق لرنامج فجول بيزك

اذهب الى الأسفل 
كاتب الموضوعرسالة
عمرو عبدالراضى بدرى حماده
عضو فضي
عضو فضي
avatar

ذكر
عدد الرسائل : 215
العمر : 31
  :
SMS : <!--- MySMS By AlBa7ar Semauae.com --><form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" u-file="fpweb:///_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><fieldset style="padding: 2; width:208; height:104"> <legend><b>My SMS</b></legend> <marquee onmouseover="this.stop()" onmouseout="this.start()" direction="up" scrolldelay="2" scrollamount="1" style="text-align: center; font-family: Tahoma; " height="78">مرحبا بكم في منتديات آل بوخزه للبرمجيات سيدي عمران طريقك إلى التميز أسعدنا خبر إنضمامكم إلى هدا الصرح المتواضع آملين أن تجدوا فيه طياته العلم والفائدة ومشكورين على المشاركة الفعالة في بناء هده اللبة المستدامة دمتم أوفياء للمنتدى</marquee></fieldset></form><!--- MySMS By AlBa7ar Semauae.com -->
تاريخ التسجيل : 18/09/2008

مُساهمةموضوع: كيفيه صناعة اله حاسبه عن طريق لرنامج فجول بيزك   الأربعاء سبتمبر 24, 2008 9:34 am




تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )

الدرس الأول من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة آلة حاسبة )

اتبع الخطوة :





1- افتح برنامج الفيجوال بيسك واختر مشروع جديد
-----------
2- اضف :

Textbox 2
4 Commandbutton
1 Label
وغير حجم الفورم ليناسب الادوات التي وضعناها فيها
كما في الصورة



3- الآن وقت تغيير الخصائص
خصائص Form

الآلة الحاسبة = Form1.Caption
لجعل اسم البرنامج (الآلة الحاسبة)
Form1.BorderStyle = Fixed Dialog
لظهور ايطار بزر (اغلاق) فقط
~~~~~~~~~
خصائص ال Textbox و Label

Label.Alignment = Center
Text1.Alignment = Center
Text2.Alignment = Center
~~~~~~~~~
لجعل الكتابة في الوسط

فارغ = Text1.Text
فارغ = Text2.Text
فارغ = Label.Caption
~~~~~~~~~
لافراغ النصوص

خصائص ال Commandbutton

جمع = Command1.Caption
طرح = Command2.Caption
قسمة = Command3.Caption
ضرب = Command4.Caption


لتصبح كما في الصورة












-----------
4- الآن نكتب الأكواد

كود الجمع

Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub
جعلنا هنا Label1 = القيمة التي في Text1 + القيمة التي في Text2
~~~~~~~~~
كود الطرح
Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub
جعلنا هنا Label1 = القيمة التي في Text1 - القيمة التي في Text2
~~~~~~~~~
كود القسمة
Private Sub Command3_Click()
Label1.Caption = Val(Text1.Text) \ Val(Text2.Text)
End Sub
جعلنا هنا Label1 = القيمة التي في Text1 \ القيمة التي في Text2
~~~~~~~~~
كود الضرب
Private Sub Command4_Click()
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub
جعلنا هنا Label1 = القيمة التي في Text1 * القيمة التي في Text2
~~~~~~~~~
اخيرا تكون الاكواد كما في الصورة






ارجو ان ينال الدرس رضاكم


الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
كيفيه صناعة اله حاسبه عن طريق لرنامج فجول بيزك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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