طريقة عمل الالة حاسبة بسيطة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

Private Sub Command1_Click()
Dim a As Double

Dim b As Double
Dim c As Double
a = Text1.Text
b = Text2.Text
c = a + b
Label1.Caption = c
End Sub

Private Sub Command2_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c = a - b
Label1.Caption = c
End Sub

Private Sub Command3_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c = a \ b
Label1.Caption = c

End Sub

Private Sub Command4_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c = a * b
Label1.Caption = c

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
End Sub

[img][img][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][/img][/img]

نموذج الالة الحاسبة[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

شكرا لكـ