طريقة تصميم وبرمجة الة حاسبة متطوره في الفيجوال بيسك

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

 الخطوات :  التشغيل ـ  شغل فيجوال بيزك دوت نت ـ اختار new project ـ اكتب الاسم الذي تريده للمشروع

ا لتصميم : اضف الادوات على form اضف الادوات التالية على الفورم :

ـ Button عدد 21 ـ TextBox عدد 1

بعد اضافه الادوات على الفورم قم بالاتي ¯ اعد تسمية الادوات على النحو الاتي

ـ  اكتب الارقام من 0 الى 9 على تسعه ازرار Button بحيث كل Button ياخذ رقم معين اعد تسمية 4 ازرار من button كالتالي :

جمع طرح ضرب قسمه - اعد تسمية 1 من Button للمساوات = - اعد تسميه 1 من Button للمسح © ـ اعد تسمية 1 من Button للفاصله . ـ اعد تسميه 1 من Button للاس ^ - اعد تسمية 1 من Button للجذر التربيعي - اعد تسمية 1 من Button للجذر التكعيبي - اعد تسمية 1 من f. Button

مرحلة برمجه الاكواد في البداية لازم نعرف المتغيرات على اساسها نقدر نبرمج باقي الاكواد ويتم تغريف المتغيرات تحت اسم Public class from1 مباشرة ونعرف المتغيرات كالاتي :

Dim op1 As Double 
Dim op2 As Double 
Dim f As String

شرح الكود : عرفنا 3متغيرات هما Op1 op2 F

واعطينا كل متغير نوع من البيانات راجع الدروس السابقه شرحنا كيف نعرف البيانات واستخدمنا نوعين من انواع البيانات هما Doubie String

انقر نقرتين علئ زر 0 واكتب الكود التالي

TextBox1.Text = TextBox1.Text + "0"

الكود اعلاه يستخدم لجميع الارقام نفس الكود فقط تغير بين علامه التنصيص " 0" عند برمجه زر واحد وباقي الارقام اكتب نفس كود فقط غير "1" وهكذا

# برمجه العمليات الرياضية  * ➕ ➖ /

اضغط على زر جمع واكتب كود تالي  :

op1 = Val(TextBox1.Text) 
TextBox1.Clear() 
f = "+" 

هذا الكود يستخدم لباقي العمليات الرياضيه مثلا عندما تريد برمجه زر طرح اكتب نفس الكود اعلاه وغير فقط علامه الجمع "+" الئ "-" وهكذا في القسه "/" وكذلك الضرب "*"

# برمجه زر مسح انقر نقرتين عليه واكتب كود

TextBox1.Clear()

# برمجه زر المساوات = انقر عليه واكتب كود

op2 = Val(TextBox1.Text) 
TextBox1.Clear() 
If f = "+" Then 
TextBox1.Text = op1 + op2 
End If 
If f = "-" Then 
TextBox1.Text = op1 - op2 
End If 
If f = "/" Then 
TextBox1.Text = op1 / op2 
End If 
If f = "*" Then 
TextBox1.Text = op1 * op2 
End If  

# برمجه زر الفاصلة انقر عليها واكتب كود

TextBox1.Text = TextBox1.Text + "."

# برمجه الجذر التربيعي sqrt اكتب كود

Dim sqr As Double 
sqr = Math.Sqrt(TextBox1.Text) 
TextBox1.Text = sqr

# برمجه الجذر التكعيبي اكتب كود تالي

Dim r As Double 
r = TextBox1.Text ^ (1 / 3) 
TextBox1.Text = r 

# برمجه زر f اكتب كود تالي

Dim i, fac As Integer 
fac = 1 
For i = 1 To TextBox1.Text 
fac = fac * i 
Next 
TextBox1.Text = Str(fac) 

# برمجه زر الاس ^

Dim x As Integer 
x = TextBox1.Text 
Dim a As Integer 
a = InputBox("add") 
Dim y As Single 
y = Math.Pow(a, x) 
TextBox1.Text = y 

لاحظ ترتيب الكود إذا لم تفهم شي

لاحظ بالصور طريقة التصميم 

تعديل المقال