13-09-19, 06:56 AM
مثال بسيط ليس الغرض كيفية صياغة اكواد العمليات الحسابية و انما كيفية ايجاد حل لاي مشكلة بسيطة لهكذا فكرة
مثلا متى نسند قيمة لمربع النص الاول ومتى للاخر
تعديل بسيط
اضافة الدالة التالية وظيفتها التحقق هل يتطلب مسح محتوى الشاشة ام لا اذا كانت الشاشة تحتوي علامة يساوي
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
الفكرة انه بعد اظهار النتيجة يتم التصفير وذلك بمناداة حدث النقر لزر المسح
وصباح الخير على الجميع