منتدى رياض الجنة - Riad Al-Ganah - كيفية عمل آلة حاسبة بسيط بالفيجوال بيسيك دوت نت 2005

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

السلام عليكم ورحمة الله وبركاته
درسنا الثانى عبارة عن شرح كيفية عمل آلة حاسبة بسيط بالفيجوال بيسيك دوت نت 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
والسلام عليكم ورحمة الله وبركاته