مثال بسيط ليس الغرض كيفية صياغة اكواد العمليات الحسابية و انما كيفية ايجاد حل لاي مشكلة بسيطة لهكذا فكرة
مثلا متى نسند قيمة لمربع النص الاول ومتى للاخر
تعديل بسيط
اضافة الدالة التالية وظيفتها التحقق هل يتطلب مسح محتوى الشاشة ام لا اذا كانت الشاشة تحتوي علامة يساوي
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
الفكرة انه بعد اظهار النتيجة يتم التصفير وذلك بمناداة حدث النقر لزر المسح
وصباح الخير على الجميع
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
