كيفية عمل آلة حاسبة بسيط بالفيجوال بيسيك دوت نت 2005

[MOHAMED]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته
درسنا الثانى عبارة عن شرح كيفية عمل آلة حاسبة بسيط بالفيجوال بيسيك دوت نت 2005
ـــــــــــــــــــــــــــــــــــــــ
ولو لاحظنا كلمة دوت نت 2005 ستعرفون أن الدرس يصلح عمله على Visual Basic 2005 و Visual Basic.Net
أرجو أن تكونوا لاحظتم ذلك ....
ــــــــــــــــــــــــــــــــــــــ
أولاً ندرج المشروع الخاص بنا الجديد ..
ـــــــــــــــــــــــــــــــــــــ
ثانياً الأدوات
TextBox1
TextBox2
TextBox3
ـــــــــــــــــــــــــــــــ
Button1
Button2
Button3
Button4
ـــــــــــــــــــــــــــــــــ
ثالثاً نرتب الأدوات بطريقتكم للعلم TextBox1 للرقم الأول - TextBox2 للرقم الثانى و TextBox3 للناتج ..
Button1 نضع النص داخله Text عنى حيكون جمع
Button2 النص بتاعه طرح
Button3 النص بتاعه ضرب
Button4 النص بتاعه قسمه
ـــــــــــــــــــــــــــــــــــــــــــــــــ
نعلن عن المتغيرات التالية ... تحت سطر
Private Sub Form1
وحتكون المتغيرات هى
Dim RG1 As String = Val(TextBox1.Text+TextBox2.Text)
Dim RG2 As String = Val(TextBox1.Text-TextBox2.Text)
Dim RG3 As String = Val(TextBox1.Text*TextBox2.Text)
Dim RG4 As String = Val(TextBox1.Text/TextBox2.Text)
لاحظوا القوسين ...
ميه ميه المتغيرات دلوقت أظن ..
بقية الأكواد
Button1
TextBox3.Text=RG1
Button2
TextBox3.Text=RG2
Button3
TextBox3.Text=RG3
Button4
TextBox3.Text=RG4

ومبروك عليكم الآلة الحاسبة خلى فى علمك لو فكرت تبيعها دلوقت تعمل 50 جنيه علشان هيا CASIO عنى مش أى كلام
بس أنا عن نفسي مبشتريش ... :36_1_1[1]:

:36_1_39[1]::36_1_39[1]::36_1_39[1]:
أى خدمة أى طلب أنا جاهز على Mohamed.Abdo200@gmail.com
أو www.Ghost-team.tk
والسلام عليكم ورحمة الله وبركاته

[الباشا الكبير]

جزاكم الله كل خير