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

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

Aboud Aboud

12-27-2007, 03:35 PM

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

اتبع الخطوة :

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

-----------
2- اضف :

Textbox 2
4 Commandbutton
1 Label

وغير حجم الفورم ليناسب الادوات التي وضعناها فيها
كما في الصورة

http://i264.photobucket.com/albums/ii196/body-korkis/calc1.jpg

-----------
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

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

http://i264.photobucket.com/albums/ii196/body-korkis/calc2.jpg

-----------
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

~~~~~~~~~

اخيرا تكون الاكواد كما في الصورة

http://i264.photobucket.com/albums/ii196/body-korkis/calc3.jpg

-----------

انتهينا
آما ان تستفادوا منها

________________

الرجاء عدم الرد هنا بل الرد في ( هــــــــــذا الموضوع (http://www.bramjnet.com/vb3/showthread.php?p=5084412) )

عمر الجامعي

12-28-2007, 08:03 AM

شكرا على الكود .....

Aboud Aboud

12-28-2007, 10:47 AM

اخي لقد طلبت عدم الرد هنا
اذا احد عنده سؤال او يريد اضافة رد يكتبه على هذا الرابط (http://www.bramjnet.com/vb3/showthread.php?t=491394)

mhy_final

01-10-2008, 09:58 AM

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

اتبع الخطوة :

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

-----------
2- اضف :

Textbox 2
4 Commandbutton
1 Label

وغير حجم الفورم ليناسب الادوات التي وضعناها فيها
كما في الصورة

http://www.9o9i.com/download/31894773bc757fb88.jpg

-----------
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

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

http://www.9o9i.com/download/43344773bc7585202.jpg

-----------
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

~~~~~~~~~

اخيرا تكون الاكواد كما في الصورة

http://www.9o9i.com/download/9004773bc75907e1.jpg

وهذا هو المشروع ان صعب على احدكم (http://www.4shared.com/file/33137418/ef7f1f68/__online.html)
-----------

انتهينا
آما ان تستفادوا منها

لقراءة الدرس على شكل Pdf (http://www.4shared.com/file/33552811/bcb6192c/lessons_1.html)

________________

الرجاء عدم الرد هنا بل الرد في ( هــــــــــذا الموضوع (http://www.bramjnet.com/vb3/showthread.php?p=5084412) )

thannnnnnnnnnnnnnnks

mochaghib_bacha

03-03-2008, 11:46 PM

merci+++++++++++++++++++++++

Aboud Aboud

03-04-2008, 11:19 AM

شكرا عالمرور

abotaleb_ahmed

04-02-2008, 05:42 PM

السلام عليكم
هل كل هذا هو عن صناعة الألة الحاسبة
ارجو منكم طرح الدرس الثاني والدروس التالية سريعا
وشكرا لجهدكم

Aboud Aboud

04-02-2008, 06:20 PM

السلام عليكم
هل كل هذا هو عن صناعة الألة الحاسبة
ارجو منكم طرح الدرس الثاني والدروس التالية سريعا
وشكرا لجهدكم

شكرا عالمرور
وتم طرح الدروس

milad_korkis

04-12-2008, 10:48 AM

Mercy Beucou

Aboud Aboud

04-12-2008, 12:45 PM

شكرا لك اخي عالرد

milad_korkis

04-30-2008, 02:54 PM

مشكور الماسي برامج نت وفقك الله

فتى الرعد والصاعقه

05-01-2008, 06:41 PM

Thanks for the topic

Aboud Aboud

05-02-2008, 10:44 AM

شكرا عالمرور

amjoode

05-03-2008, 12:00 PM

E4chhhhhhhhhhhhhhhhhhhhhhhhh1

Aboud Aboud

05-03-2008, 12:21 PM

شكرا عالمرور والرد يلي ما فهمت منو شيء

WALEED.BG

05-04-2008, 10:38 AM

أشكرك عزيزي شرح جميل وموضوع منسق ..

Aboud Aboud

05-05-2008, 03:54 PM

شكرا عالمرور

mohamed_el

05-12-2008, 02:46 PM

اخي انا اصمم الان الة حاسبة بالارقم يعني مثل الالة الحاسبة التي بالوندوس
ولاكني لا يمكنني ان اكتب رقمين مرة واحدة يعني لايمكنني ان اكتب 102
بل يمكنني ان اكتب 1 او 2 يني فقط الاعداد الفردية
ارجو المساعدة
ولك جزيل الشكر

bramjnet.haroun

08-04-2008, 02:29 AM

Aboud Aboud

08-04-2008, 09:05 AM

أخي أذا كتب شخص حروف ماذا ستلاحظ لإصلاح هذا المشكل
قم باضافة هذا
If IsNumeric(txet1.Text) = True And IsNumeric(txet2.Text) = True Then
lblProduct.Caption = (txet1.Text) * val(txt2.Text)
و هنالك طرق متطورة لعمل آلة حاسبة

اخي هذه بالطرق السهلة للمبتدثين
اسهللهم
on error resume next

وشكرا على المداخلة الجميلة