11-02-19, 06:09 PM
11-02-19, 10:23 PM
السلام عليكم ورحمة الله وبركاته
ما رأيك في التحقق أولا من قيمة الحقلين
بمعنى إن كان قيمة TEXTBOX1 أكبر من قيمة TEXTBOX2 البرنامج يكمل العملية
وإن كان قيمة TEXTBOX1 أقل من قيمة TEXTBOX2 البرنامج يوقف العملية
كمثال الكود التالي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Val(TextBox1.Text) < Val(TextBox2.Text) Then
' الناتج سيكون بالسالب
MsgBox(" العملية غير صحيحة ")
Exit Sub
Else
' الناتج سيكون بالموجب
MsgBox(" العملية صحيحة ")
' ضع العلميات الحسابية التي تريدها هنا
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End If
End Subتمنياتي لك بالتوفيق والنجاح