مكونات البرنامج::
زر خيار option عدد 4
مربع نص عدد 2
منطقه label للإجابه
زر مكتوب عليه الحاسبه يحتوي على اكود البرمجه ،،
Private Sub Command1_Click()
Dim first, second As Integer
first = Val(Text1.Text)
second = Val(Text1.Text)
If Option1.Value = True Then
Label4.Caption = first + second
End If
If Option2.Value = True Then
Label4.Caption = first - second
End If
If Option3.Value = True Then
Label4.Caption = first * second
End If
If Option4.Value = True Then
Label4.Caption = first \ second
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text
End Sub
البرنامج في الملف المرافق ،،
معليش خاصيه الملفات المرافقه ماتشتغل معي ،، ياليت ا حد المشرفين يساعدني احمل له البرنامج لك ،،
تحياتي اختك الوانه