برنامج الآلة الحاسبة

يتم الاعلان عن المتغيرات بصورة عامة فى general كالتالى:

dim 01,02,a as single
dim z as string

الكود الخاص بـ command1:
text1.text= text1.text & "1"

الكود الخاص بـ command2:
text1.text = text1.text & "2"

الكود الخاص بـ command3:
text1.text = text1.text & "3"

الكود الخاص بـ command4:
text1.text = text1.text & "4"

الكود الخاص بـ command5:
text1.text = text1.text & "5"

الكود الخاص بـ command6:
text1.text = text1.text & "6"

الكود الخاص بـ command7:
text1.text = text1.text & "7"

الكود الخاص بـ command8:
text1.text = text1.text & "8"

الكود الخاص بـ command9:
text1.text = text1.text & "9"

الكود الخاص بـ command10:
text1.text = text1.text & "0"

الكود الخاص بـ command11:
text1.text = ""

الكود الخاص بـ command12:
text1.text = text1.text & "."

الكود الخاص بـ command13:
01 = val (text1.text)
text1.text = ""
z= "+"

الكود الخاص بـ command14:
01 = val (text1.text)
text1.text = ""
z = "-"

الكود الخاص بـ command15:
01= val (text1.text)
text1.text = ""
z = "*"

الكود الخاص بـ command16:
01 = val (text1.text)
text1.text = ""
z = "/"

الكود الخاص بـ command17:
01 = val (text1.text)
text1.text = ""
z = "^"

الكود الخاص بـ command18:
02 = val (text1.text)
text1.text = ""
if z = "+" then
a = 01 + 02
text1.text = a
end if
if z = "-" then
a = 01 -02
text1.text = a
end if
if z = "*" then
a = 01*02
text1.text = a
end if
if z = "/" then
a = 01 / 02
text1.text = a
end if
if z = "^" then
a = 01 ^ 02
text1.text = a
end if

انتهى