+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] تنفيذ شرط على الأرقام العشرية (/showthread.php?tid=24499)
تنفيذ شرط على الأرقام العشرية - samprg11 - 11-04-18
السلام عليكم
كيف حالكم جميعا
اخواني انا اريد ان انفذ شرط على قيمتين داخل البرنامج القيمة الاولا في تكست واحد والاخرى في تكست 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]
RE: تنفيذ شرط على الأرقام العشرية - Ahmed_Mansoor - 13-04-18
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إستخدم المتغيرات من نوع 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
وتأكد أن تكون هناك قيم موجودة في التكستات والكومبو وتكون قيم رقمية قبل تنفيذ الكود .
RE: تنفيذ شرط على الأرقام العشرية - samprg11 - 13-04-18
مشكور اخي احمد وجزاك الله خير
RE: تنفيذ شرط على الأرقام العشرية - Asraa - 10-06-20
السلام عليكم كيف يمكنني ان استخدم الداله ccur في vb.net 2019