إحتراف البرمجة

في هذا الدرس سنقوم ببرمجة آلة حاسبه ، تتكون من 3 خانات ، خانتين لكتابة الأرقام و خانة لإظهار نتيجة
و أيضا نحتاج إلى 5 أزرار +، -، / و x و زر للخروج من البرنامج


نتيجة الدرس :



خصائص :
سنقوم بتغير إسم الأزرار من Caption و تغيير حجم، لون و نوع الخط من Font


الكودات المستعملة :

زر + : الزائد

Text3 = Val(Text1) + Val(Text2)

زر - :الناقص

Text3 = Val(Text1) - Val(Text2)

زر / : القسمة

If Text2 = 0 Then
T$ = "Error"
M$ = "Impossible de diviser par 0"
rep = MsgBox(M$, 0 + 16, T$)
Else
Text3 = Val(Text1) / Val(Text2)
End If

زر x : الضرب

Text3 = Val(Text1) * Val(Text2)

T$ = "Message "
M$ = "Exit Le Programme ?"
rep = MsgBox(M$, 4 + 32, T$)
If rep = 6 Then End

ملاحظة بخصوص القسمة :
من المعروف أنه لا يمكن القسمة عدد على 0، لدى قمنا بوضع دلك الأمر لإظهار رسالة


و إلى هنـا نكون قد إنتهينـا من درسنـا .. أتمنى أن يكون بسيط و سهل على المبتدئين ..