آموزشگاه کامپیوتر شریف سیستم

فرم ماشین حساب

 برای طراحی فرم ماشین حساب کافیست یک ماشین حساب ساده را در نظر بگیرید و هر کدام از دکمه های آن را با Command Button ها طراحی نمایید

 کد برنامه

Option Explicit
Dim m As Double
Dim CH, S As String
Dim temp As Double

Private Sub c_Click()
Text1.Text = ""
CH = ""
End Sub

Private Sub Command1_Click()
 temp = 0
  If Text1.Text = "" Then
     Call MsgBox("Not found number for sqrt ", vbOKOnly, "Error")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "+"
  Command19.Enabled = True
 
End Sub

Private Sub Command10_Click()
CH = Text1.Text
  Text1.Text = CH & "8"
End Sub

Private Sub Command11_Click()
CH = Text1.Text
  Text1.Text = CH & "7"
End Sub

Private Sub Command12_Click()
CH = Text1.Text
  Text1.Text = CH & "6"
End Sub

Private Sub Command13_Click()
CH = Text1.Text
  Text1.Text = CH & "5"
End Sub

Private Sub Command14_Click()
CH = Text1.Text
  Text1.Text = CH & "4"
End Sub

Private Sub Command15_Click()
CH = Text1.Text
  Text1.Text = CH & "3"
End Sub

Private Sub Command16_Click()
CH = Text1.Text
  Text1.Text = CH & "2"
End Sub

Private Sub Command17_Click()
CH = Text1.Text
  Text1.Text = CH & "1"
End Sub

Private Sub Command19_Click()
 Select Case S
   Case "+"
      temp = temp + Text1.Text
      Text1.Text = temp
   Case "-"
      temp = temp - Text1.Text
      Text1.Text = temp
   Case "*"
      temp = temp * Text1.Text
      Text1.Text = temp
   Case "/"
      temp = temp / Text1.Text
      Text1.Text = temp
  End Select
End Sub

Private Sub Command2_Click()

temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "-"
  Command19.Enabled = True

End Sub

Private Sub Command20_Click()
 CH = Text1.Text
  Text1.Text = CH & "0"
End Sub

Private Sub Command3_Click()
temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "*"
  Command1.Enabled = True
End Sub

Private Sub Command4_Click()
temp = 0
  If Text1.Text = "" Then
     MsgBox ("Not found number for sqrt ")
     Else
     temp = Text1.Text
     Text1.Text = ""
  End If
  S = "/"
  Command19.Enabled = True

End Sub

Private Sub Command5_Click()
m = Text1.Text
End Sub

Private Sub Command7_Click()
m = ""
End Sub

Private Sub Command8_Click()
Text1.Text = m
End Sub

Private Sub Command9_Click()
CH = Text1.Text
  Text1.Text = CH & "9"
End Sub

Private Sub Form_Load()
Command19.Enabled = False
End Sub