ٱٱلجنرٱل صدٱٱم ٱلشرعبيے
السٌّمعَة : 47
تاريخ التسجيل : 19/11/2012
العمر : 34
الموقع : https://m.facebook.com/profile.php?id=465134066889659
 |  موضوع: تصميــم آلـة حاسبه  الجمعة مايو 02, 2014 2:14 pm | |
| في هذا الموضـوع سنقوم بإنشـاء آلة حاسبه ، تتكون من 3 خانات ، خانتين لكتابة الأرقام و خانة لإظهار نتيجة و أيضا نحتاج إلى 5 أزرار +، -، / و x و زر للخروج من البرنامج نتيجة الدرس .. [CENTER]  خصائص :
سنقوم بتغير إسم الأزرار من Caption و تغيير حجم، لون و نوع الخط من Font  الكودات المستعملة :
زر + : الزائد
[INDENT] - الكود:
-
Text3 = Val(Text1) + Val(Text2) [/INDENT] زر - :الناقص
[INDENT] - الكود:
-
Text3 = Val(Text1) - Val(Text2) [/INDENT] زر / : القسمة
[INDENT] - الكود:
-
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 [/INDENT] زر x : الضرب
[INDENT] - الكود:
-
Text3 = Val(Text1) * Val(Text2) [/INDENT] [/right] [INDENT] - الكود:
-
T$ = "Message "
M$ = "Exit Le Programme ?"
rep = MsgBox(M$, 4 + 32, T$)
If rep = 6 Then End [/INDENT] [RIGHT]
* ملاحظة بخصوص القسمة :
من المعروف أنه لا يمكن القسمة عدد على 0، لدى قمنا بوضع دلك الأمر لإظهار رسالة | |
|
