[samprg11]

السلام عليكم

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

اخواني انا اريد ان انفذ شرط على قيمتين داخل البرنامج القيمة الاولا في تكست واحد والاخرى في تكست 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
ايضا لا يقبلو الشرط اي لا ينفذ الشرط القيمة حتى ولو كانت مطابقة

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


  if.zip (الحجم : 1.17 ك ب / التحميلات : 33)

[Ahmed_Mansoor]

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

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

PHP كود :

If CCur(Text1.Text) = CCur(Text2.Text) Or CCur(Text1.Text) = CCur(Text2.Text) + CCur(Combo1.Text) Or CCur(Text1.Text) = CCur(Text2.Text) - CCur(Combo1.Text) Then
   MsgBox "GGGG"
End If 


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

[samprg11]

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

[Asraa]

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