منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود تنبيه لمنع الحساب بالسالب - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كود تنبيه لمنع الحساب بالسالب (/showthread.php?tid=28572)



كود تنبيه لمنع الحساب بالسالب - عاشق الرسول - 11-02-19

اريد أن يمنع البرنامج من الحساب إذا كان الناتج بين TEXTBOX1 , TEXTBOX2 بالسالب
وجزاكم الله خيراً

أرجو المساعدة


RE: كود تنبيه لمنع الحساب بالسالب - princelovelorn - 11-02-19

السلام عليكم ورحمة الله وبركاته
ما رأيك في التحقق أولا من قيمة الحقلين
بمعنى إن كان قيمة 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

تمنياتي لك بالتوفيق والنجاح