الرمز هو كما يلي:
انسخ رمز الكود كما يلي:
/**
*المؤلف: قلب الطائر الأسود
*الإصدار: 1.0
*/
Dim IntX As Double 'متغير عام يستخدم لتخزين القيم المحسوبة
Dim IntOperation كنوع عملية وضع علامة مزدوجة
Dim isBegin As Boolean 'ما إذا كان قد تم تعيين قيمة للعلامة إلى IntX
Public Sub Clear() 'وظيفة أمر واضحة
الشاشة. التسمية التوضيحية = ""
نهاية الفرعية
العامة الفرعية SavaToIntX ()
حدد عملية تشغيل الحالة
الحالة 1 "إضافة
إذا كان isBegin = خطأ إذن
IntX = فال (screen.Caption)
isBegin = True
آخر
IntX = IntX + Val(screen.Caption)
نهاية إذا
الحالة 2 "الطرح".
إذا كان isBegin = خطأ إذن
IntX = فال (screen.Caption)
isBegin = True
آخر
IntX = IntX - Val(screen.Caption)
نهاية إذا
الحالة 3 "الضرب
إذا كان isBegin = خطأ إذن
IntX = فال (screen.Caption)
isBegin = True
آخر
IntX = IntX * Val(screen.Caption)
'screen.Caption = IntX
نهاية إذا
الحالة 4 "القسم
إذا كان isBegin = خطأ إذن
IntX = فال (screen.Caption)
isBegin = True
آخر
IntX = IntX / Val(screen.Caption)
نهاية إذا
إنهاء التحديد
نهاية الفرعية
أمر فرعي خاص0_Click()
Screen.Caption = screen.Caption & 0
نهاية الفرعية
أمر فرعي خاص1_Click()
Screen.Caption = screen.Caption & 1
نهاية الفرعية
أمر فرعي خاص2_Click()
Screen.Caption = screen.Caption & 2
نهاية الفرعية
أمر فرعي خاص3_Click()
screen.Caption = screen.Caption & 3
نهاية الفرعية
أمر فرعي خاص4_Click()
screen.Caption = screen.Caption & 4
نهاية الفرعية
أمر فرعي خاص5_Click()
screen.Caption = screen.Caption & 5
نهاية الفرعية
أمر فرعي خاص6_Click()
screen.Caption = screen.Caption & 6
نهاية الفرعية
أمر فرعي خاص7_Click()
screen.Caption = screen.Caption & 7
نهاية الفرعية
الأمر الفرعي الخاص8_Click()
screen.Caption = screen.Caption & 8
نهاية الفرعية
الأمر الفرعي الخاص9_Click()
screen.Caption = screen.Caption & 9
نهاية الفرعية
أمر فرعي خاصClear_Click() 'أمر واضح
isBegin = خطأ
التشغيل الداخلي = 0
إنتكس = 0
الشاشة. التسمية التوضيحية = ""
نهاية الفرعية
أمر فرعي خاصEqual_Click() 'عملية علامة المساواة
إذا كان IntOperation <> 0 ثم "عندما تكون هناك علامة عملية".
CallSavaToIntX
التشغيل الداخلي = 0
isBegin = خطأ
Screen.Caption = IntX
نهاية إذا
نهاية الفرعية
أمر فرعي خاصMinus_Click() 'عملية الطرح
إذا كان IntOperation <> 0 ثم "عندما تكون هناك علامة عملية".
CallSavaToIntX
التشغيل الداخلي = 2
اتصل بـ Clear
آخر
التشغيل الداخلي = 2
CallSavaToIntX
اتصل بـ Clear
نهاية إذا
نهاية الفرعية
أمر فرعي خاصMultiple_Click() 'عملية الضرب
إذا كان IntOperation <> 0 ثم "عندما تكون هناك علامة عملية".
CallSavaToIntX
التشغيل الداخلي = 3
اتصل بـ Clear
آخر
التشغيل الداخلي = 3
CallSavaToIntX
اتصل بـ Clear
نهاية إذا
نهاية الفرعية
Private Sub CommandPlus_Click() 'عملية الإضافة
إذا كان IntOperation <> 0 ثم "عندما تكون هناك علامة عملية".
CallSavaToIntX
التشغيل الداخلي = 1
اتصل بـ Clear
آخر
التشغيل الداخلي = 1
CallSavaToIntX
اتصل بـ Clear
نهاية إذا
نهاية الفرعية
أمر فرعي خاصSlash_Click() 'عملية القسمة
إذا كان IntOperation <> 0 ثم "عندما تكون هناك علامة عملية".
CallSavaToIntX
التشغيل الداخلي = 4
اتصل بـ Clear
آخر
التشغيل الداخلي = 4
CallSavaToIntX
اتصل بـ Clear
نهاية إذا
نهاية الفرعية