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


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



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



الان الكود
سأقوم بوضع جزء من الكود وعلى الجميع توقع الكود الذى يلية
-دبل كليك على الفورم ثم فى أسفل السطر التالى Public Class Form1
كود:
Dim FirstNum, SecondNum As Double
دبل كليك على الزر تنفيذ ثم
كود:
FirstNum = TextBox1.Text
SecondNum = TextBox2.Text
مطلوب الان أن نقوم بوضع أكواد 4 عمليات بعد الكود السابق مباشرة وهى الأكود التى تصف عمليات الجمع والطرح والقسمة والضرب وسأقوم أنا بوضع كود لعملية واحدة وعليكم توقع الأكواد الثلاثة الباقية
كود عملية الجمع
كود:
If RadioButton1.Checked = True Then
TextBox3.Text = FirstNum + SecondNum
End If



ترجمة كود الآلة الحاسبة الى C#


كود:
Dim FirstNum, SecondNum As Double

تصبح

كود:
Double FirstNum,SecondNum;
كود:
FirstNum = TextBox1.Text
SecondNum = TextBox2.Text
تصبح

كود:
FirstNum = TextBox1.Text;
SecondNum = TextBox2.Text;
كود:
If RadioButton1.Checked = True Then
TextBox3.Text = FirstNum + SecondNum
End If
مع باقي العمليات تصبح

كود:
if(RadioButton1.Checked == True)
TextBox3.Text = FirstNum + SecondNum;
else if(RadioButton2.Checked == True)
TextBox3.Text = FirstNum - SecondNum;
else if(RadioButton3.Checked == True)
TextBox3.Text = FirstNum * SecondNum;
else if(RadioButton4.Checked == True)
TextBox3.Text = FirstNum / SecondNum;
زر الانهاء بدل

كود:
End
يجب ان يكون الامر

كود:
Close();
و إذا أرت برنامج الترجمه من VB إلى C# لمن يبحث عن الترجمة
http://www.carlosag.net/Tools/CodeTr...r/Default.aspx

ولا تنسوا الزر End الذى يعنى

إ نتهى


مع أمل التواصل و الفائدة,,,,

__________________



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

كم هي جميلة شبكتنا .. وكم هي كبيره بكم
فشبكة قحطان بكم ولكم
فلننهظ بها
بصدق وأمانه
وبلا تذمر