الرجاء وضع الكود لالة حاسبة

انت أول شيء صمم النافذة

تكست بوكس تمثل الشاشة ( وسميها مثلا TxtShasha )

وعشر كومماند تمثل الأرقام من واحد إلى تسعة

وكم كومماند تمثل العمليالت الحسابية ( زائد ــ ناقص ــ ضرب ــ قسمة ــ ... إلخ )

طبعا تعرف الشاشة TxtShasha على إنها Integer

وكل كومماند يمثل رقم تعطيه هذا الكود :

If TxtShasha = 0 Then
TxtShasha = 1
Else
TxtShasha = TxtShasha & 1
End If

طبعا هذا الكود للكومماند إللي رقمه ( 1 ) ، وكل كومماند تغير فيه الرقم إللي يخصه

أما العمليات الحسابية فنفهم العملية أول شيء

مستخدم الحاسبة يكتب رقم ، وبعدين يضغط على زر العملية ( القسمة مثلا ) وبعدين يكتب الرقم المقسوم عليه ، وبعدين يضغط على ( = ) .

نستخدم هذا الكود للعملية الحسابية ( للقسمة مثلا ) :

S = TxtShasha.Text
TxtShasha.Text = 0
LblٍState.Caption = "/"

طبعا LblٍState هي ليبل يعرض العملية الحسابية المعروضة

في كومماند ( = ) نكتب هذا الكود :

If LblٍState.Caption = "/" Then
TxtShasha.Text = Val(S) / Val(TxtShasha.Text)
LblٍState.Caption = "="
End If

وإن شاء الله هذا هو المطلوب

وآسف إذا صار عندك أي خطأ ، لأني كتبت لك الأكواد على السريع (h)