سلام من يه مشكلي دارم اونم در ارتباط با برنامه ماشين حساب هست ميخوام ببينم كجاي برنامه من ايراد داره ممنون ميشم كمكم كنيد
Dim op As String * 1, b As String, blnpoint As Boolean
Dim a As Double
Private Function calc(a As Double, b As Double, op As String) As Double
Select Case op
Case "*"
calc = a * b
Case "-"
calc = a - b
Case "+"
calc = a + b
Case "/"
calc = a / b
Case " "
calc = b
End Select
End Function
Private Sub cmd1_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "1"
Else
lbloutput = lbloutput + "1"
End If
End Sub
Private Sub Cmd2_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "2"
Else
lbloutput = lbloutput + "2"
End If
End Sub
Private Sub Cmd3_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "3"
Else
lbloutput = lbloutput + "3"
End If
End Sub
Private Sub Cmd4_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "4"
Else
lbloutput = lbloutput + "4"
End If
End Sub
Private Sub Cmd5_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "5"
Else
lbloutput = lbloutput + "5"
End If
End Sub
Private Sub Cmd6_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "6"
Else
lbloutput = lbloutput + "6"
End If
End Sub
Private Sub Cmd7_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "7"
Else
lbloutput = lbloutput + "7"
End If
End Sub
Private Sub Cmd8_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "8"
Else
lbloutput = lbloutput + "8"
End If
End Sub
Private Sub Cmd9_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "9"
Else
lbloutput = lbloutput + "9"
End If
End Sub
Private Sub Cmd10_Click()
If lbloutput = "0." And blnpoint = False Then
lbloutput = "0"
Else
lbloutput = lbloutput + "0"
End If
End Sub
Private Sub cmdpoint_Click()
lbnpoint = True
If InStr(lbloutput, ".") = 0 Then
lbloutput = lbloutput + "."
End If
End Sub
Private Sub Form_Load()
a = 1
op = " "
b = ""
End Sub
Private Sub cmdmul_click()
If b = "nums" Then
a = calc(a, Val(lbloutput), op)
lbloutput = a
End If
a = Val(lbloutput)
op = "*"
b = "op"
blnpoint = False
End Sub
Private Sub cmddiv_click()
If b = "nums" Then
a = calc(a, Val(lbloutput), op)
lbloutput = a
End If
a = Val(lbloutput)
op = "/"
b = "op"
blnpoint = False
End Sub
Private Sub cmdminus_click()
If b = "nums" Then
a = calc(a, Val(lbloutput), op)
lbloutput = a
End If
a = Val(lbloutput)
op = "-"
b = "op"
blnpoint = False
End Sub
Private Sub cmdplus_click()
If b = "nums" Then
a = calc(a, Val(lbloutput), op)
lbloutput = a
End If
a = Val(lbloutput)
op = "+"
b = "op"
blnpoint = False
End Sub
Private Sub cmdsign_click()
If lbloutput = "0." And lbnpoint = False Then
Exit Sub
End If
If lbloutput = "0." Then
lbloutput = "-0."
Else
lbloutput = -Val(lbloutput)
End If
End Sub
Private Sub cmdequal_click()
a = calc(a, Val(lbloutput), op)
If a = 0 Then
lbloutput = "0."
Else
lbloutput = a
End If
op = " "
b = "op"
blnpoint = False
End Sub
جواب بصورت نقل قول
نوشته شده توسط smka1111
