منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

 كيف حالكم جميعا

اخواني انا اريد ان انفذ شرط على قيمتين داخل البرنامج القيمة الاولا في تكست واحد والاخرى في تكست 2

والقيمة تحتوي على ارقام عشرية ولاكن عند تنفيذ الكود على الدالة الشريطية if

If Val(Text1.Text) = Val(Text2) Or Val(Text1.Text) = Val(Text2) + Val(Combo1.Text) Or Val(Text1.Text) = Val(Text2) - Val(Combo1.Text) Then

MsgBox "GGGG"
End If

كما تشاهدون هاذا الكود لا ينفذ الشرط حتى ولو كان صحيح 

حاولت استبدل القيم ووضعها في متغير Double وا Variant
ايضا لا يقبلو الشرط اي لا ينفذ الشرط القيمة حتى ولو كانت مطابقة

وهاذا ملف المشروع في المرفقات ارجاء من كان قادر على المساعدة لا يبخل علي وشكرا

[attachment=17655]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إستخدم المتغيرات من نوع Currency بدل المتغيرات من Double أو قم بتحويل قيم التكستات والكومبو إلى عمله بواسطة الدالة CCur وذلك بوضع هذه الدالة بدل الدالة Val , ليصبح كود الشرط هكذا :


وتأكد أن تكون هناك قيم موجودة في التكستات والكومبو وتكون قيم رقمية قبل تنفيذ الكود .

مشكور اخي احمد وجزاك الله خير

السلام عليكم كيف يمكنني ان استخدم الداله ccur في vb.net 2019