+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=30)
+---- الموضوع : [مشروع] [لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة (/showthread.php?tid=31309)
[لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة - سعود - 13-09-19
مثال بسيط ليس الغرض كيفية صياغة اكواد العمليات الحسابية و انما كيفية ايجاد حل لاي مشكلة بسيطة لهكذا فكرة
مثلا متى نسند قيمة لمربع النص الاول ومتى للاخر
تعديل بسيط
اضافة الدالة التالية وظيفتها التحقق هل يتطلب مسح محتوى الشاشة ام لا اذا كانت الشاشة تحتوي علامة يساوي
PHP كود :
Private Function IsNew() As Boolean
If InStr(calc.Caption, "=") > 0 Then IsNew = True Else IsNew = False
End Function
قبل الاسناد التالي
PHP كود :
t1.Text = t1.Text & n
t2.Text = t2.Text & n
نتحقق من الدالة
PHP كود :
If IsNew = True Then
Call cmdc_Click
End If
الفكرة انه بعد اظهار النتيجة يتم التصفير وذلك بمناداة حدث النقر لزر المسح
وصباح الخير على الجميع
RE: [لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة - مصمم هاوي - 13-09-19
دائماً تتحفنا بافكارك الجميلة وأمثلتك الرائعة
RE: [لا جديد] كيفية ايجاد حل لاي مشكلة بسيطة - ابو روضة - 25-02-20
يُعجبنى كثيراً أفكارك بالبرمجة أخى سعود , فدائما تبحث عن الجديد ..