كيف يمكن إضافة رسالة تنبيه؟

أخي العزيز هناك دالة في فيجوال بيسك دوت نت تقوم بهذا العمل ولكن تبعاً للأرقام فقط

الدالة هي IsNumeric وهي تأخذ وسيطة واحدة فقط واللي هي المتغير أو الكائن اللي تريد تتفحصه.

يعني عندنا متغير x نصي ونريد نعرف اذا قيمته أرقام فقط أم لا ، نكتب الآتي.

dim x as string
x="ffff"
if isnumeric(x) = false then
msgbox ("The value u have entered is not numbers")
End If

'طبعاً هنا هيظهر الرسالة لأن قيمة المتغير مش أرقام فقط.

أما لو أسندت للمتغير قيمة رقمية فقط مش هيتحقق الشرط.

يعني برنامجك ممكن تعمله كده

PrivateSub CalculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateButton.Click

Dim x, y, z As Integer

x = Integer.Parse(TextBox1.Text)

y = 850

if IsNumeric (x) = True and isnumeric(y) = True then

z = x * y

TextBox2.Text = z.ToString

else

msgbox "The Entered Values Is Wrong"

end if

وأيضاً لازم تتأكد اذا المتغيرات مش فارغة .

يعني أيضاً تكتب كده

If x="" or y="" then
msgbox "You should enter a values"
end if

واذا في احتمالات خطأ أكثر من كده يبقى اعمل حلقة Try...Catch...End Try وريح راسك.

أو استخدم الكائن err.

أتمنى أكون أفدتك