هذا الدرس الثاني من العضو الجديد vbdوأرجو الأستفادة منها
كيف تصنع برنامج حاسبه
الطريقة سهله جدا جدا جداٌ
1-أفتح البرنامج فيجول بيسك
2-label وأداة النصCommand Button_أربعة أزرار منTextBoxضع الأدوات الأتية:أداتان من مربع النص
3-أجعل لكل زر أسم الزر الأول سميه:"جمع"الثاني:"طرح"الثالث":"قسمة"الرابع:"ضرب
4-:أضغط على الزر"جمع"واكتب في لوحة البرمجة
label1=(Text1.Text)+0+(Text2.Text)
5-:أضغط على الزر"طرح"واكتب في لوحة البرمجة
label1=(Text1.Text)-(Text2.Text)
6-:أضغط على الزر"قسمة"واكتب في لوح البرمجة
label1=(Text1.Text)\(Text2.Text)
7-:أضغط الزر "ضرب"واكتب في لوحة البرمجة
label1=(Text1.Text)*(Text2.Text)
8-جرب العمل سينجح لكن إذا كتبت أحرف ماذا سيحدث :huh: !!ستظهر لك نافذة خطأ
لكي تتفدا هذا الخطأ غير الكود السابق وجعله هكذا:
if IsNumerisIf IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) Then
(Label1 = (Text1.Text) + 0 + (Text2.Text)
Else
MsgBox "ممنوع كتابة الحروف", , "خطأ"
End If
ملاحضه مهمه:يجب تغيير أكواد الأزرار إلى الكود الذي في الأعلى
جرب العمل هل البرنامج فيه أخطأ أم لأ؟؟؟


