آلة حاسبة بسيطة بصندوقين نص

سوف نقوم بتصميم آلة حاسبة بسيطة باستخدام صندوقين نص 

نبدأ بادراج الأدوات وترتيبها كما في الصورة

الان سوف نقوم بالبرمجة 

نبدأ بتعريف المتغيرات اللازمة في العام على النحو التالي

Dim n1, n2 , sum as double

هو الرقم الاول n1

 هو الرقم الثاني n2

 هو الناتج sum

  حدث الضغط على زر ×

Private Sub command1_click()

n1 = Val(Text1.Text)
n2 = Val(Text2.Text)
sum = n1 * n2

End Sub

÷  حدث الضغط على زر 

Private Sub command2_click()

n1 = Val(Text1.Text)
n2 = Val(Text2.Text)
sum = n1 / n2

End Sub

+  حدث الضغط على زر

Private Sub command3_click()

n1 = Val(Text1.Text)
n2 = Val(Text2.Text)
sum = n1 + n2

End Sub

  حدث الضغط على زر -

Private Sub command4_click()

n1 = Val(Text1.Text)
n2 = Val(Text2.Text)
sum = n1 - n2

End Sub

  حدث الضغط على زر =

Private Sub command5_click()

text3.text=Str$(sum)

End Sub

للتحميل اضغط هنا