نقوم بتعريف المتغيرات بالبار الرئيسي
Option Explicit On
Public Class Form1
Dim
x As Single
Dim
y As Single
Dim
AnswerNumber As Single
Dim
ArithmeticProcess As String
هذا الكود سوف نقوم باستخدامه لكافة الارقام
1و2و3و4 الخ
Textbox1.Text
= TextBox1.Text & " "
هذا الكود سوف نستعملة لكافة العمليات الحسابية
بتغير الاشارة فقط
وهنا القسمة تعمل بكل الاشكال
x=
Val(TextBox1.Text)
TextBox1.Text = " "
ArithmeticProcess = " "
هذا الكود لعملية ال= وايظا لكل الاحتمالات
y=
Val(Textbox1.Text)
If
ArithmeticProcess = "+" Then
AnswerNumber
= x+ y
End
If
If
ArithmeticProcess = "-" Then
AnswerNumber
= x- y
End
If
If
ArithmeticProcess = "X" Then
AnswerNumber
= x* y
End
If
If
ArithmeticProcess = "/" Then
If
y= "0" Then
MsgBox("لا يمكن القسمة على
صفر", 0, "Warning")
Exit
Sub
End If
AnswerNumber
= x/ y
End
If
Textbox1.Text
= AnswerNumber
كود لعرض
عمل الform2
Form2.Show()
Me.Hide()
End
Sub
كود البدء من جديد
TextBox1.Clear()
اخوكم عبدالله
ادعولي جزاكم الله خيرا
في حال لم تعمل عملية الضرب جرب الكود التالي y= Val(Textbox1.Text)
If
ArithmeticProcess = "+" Then
AnswerNumber = x+ y
End
If
If
ArithmeticProcess = "-" Then
AnswerNumber
= x- y
End
If
If
ArithmeticProcess = "*" Then
AnswerNumber
= x* y
End
If
If
ArithmeticProcess = "/" Then
If
y= "0" Then
MsgBox("لا يمكن القسمة على
صفر", 0, "Warning")
Exit
Sub
End If
AnswerNumber
= x/ y
End
If
Textbox1.Text
= AnswerNumber
ولاحظ ان الخطا كان في
If
ArithmeticProcess = "x" Then
AnswerNumber = x* y
0 التعليقات لــ "اكواد لعمل الة حاسبة"