المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : المدخل إلى فيجوال بيسيك 2005 مثال ( 4)



كبريـ انثى ـاء
26 Sep 2009, 04:23 AM
المثال الرابع الالة الحاسبة البسيطة

-مشروع جديد
سنقوم الان بالبداء بتخصيص الفورم قبل الشروع بالعمل والغرض من تخصيصة هو تغيير إتجاهة من اليمين إلى اليسار حتى يصبح الفورم بالصورة العربية
إذهب إلى خصائص الفورم Form1 وقم بتغيير الخصائص التالية
Reighte To Left من NO إلى Yes
Reighte To Left layot من Falseإلى True
Text من Form1 إلى ألآلة الحاسبة البسيطة
أصبح الفورم الان قابلا للتعامل معة من اليمين لليسار بكافة مكوناتة التى سنضعها بعد قليل


http://img529.imageshack.us/img529/4043/11689695of0.jpg


- من شريط الأدوات نقوم بإدراج التالى
TextBox عدد 3
Label عدد 3
Button عدد 2
GroupBox عدد 1
Radio Button عدد 4
ثم نقوم بترتيبها بإدراج الأربعة Radio Buttons داخل مربع المجموعة Group Box وتنظيم باقى المكونات بشكل مناسب وأرجوا منكم أن تقومون بتنظيم العمل بشكل مناسب من ناحية الأشكال والخطوط والألوان.....الخ


http://img529.imageshack.us/img529/8233/48353315xt9.jpg


نقوم بتسمية المكونات كالتالى
GroupBox1 -عمليات
Radio Button1 -جمع (+)
Radio Button2 -طرح (-)
Radio Button3 -ضرب (*)
Radio Button4 -قسمة (/)
TextBox1 -الرقم الأول
TextBox2 -الرقم الثانى
TextBox3 -الناتج


http://img529.imageshack.us/img529/2531/85747395yp9.jpg
الان الكود
سأقوم بوضع جزء من الكود وعلى الجميع توقع الكود الذى يلية
-دبل كليك على الفورم ثم فى أسفل السطر التالى Public Class Form1
كود:

Dim FirstNum, SecondNum As Double

-دبل كليك على الزر تنفيذ ثم
كود:

FirstNum = TextBox1.TextSecondNum = TextBox2.Text

مطلوب الان أن نقوم بوضع أكواد 4 عمليات بعد الكود السابق مباشرة وهى الأكود التى تصف عمليات الجمع والطرح والقسمة والضرب وسأقوم أنا بوضع كود لعملية واحدة وعليكم توقع الأكواد الثلاثة الباقية
كود عملية الجمع
كود:
If RadioButton1.Checked = True ThenTextBox3.Text = FirstNum + SecondNumEnd If

http://img507.imageshack.us/img507/6759/captureyq5.jpg