السلام عليكم ورحمة الله وبركاته
أنا سويت آلة حاسبة باستخدام الفيجول بيسك بس في مشكلة ضغيرة عندي حاولت أحلها بس ما قدرتز المشكلة +/- ما تشتغل عندي و اريد منكم المسااااعدة ضروووووري اليوم أو باجر الصبحز
و هذا الكود:
"Dim i As Integer
"Dim count1 As Integer
"Dim b As Double "For first value
"Dim c As Double "For Second Value
"Dim f As String
Dim exp1 As Double
Dim exp2 As Double
Dim Result As Double
Dim op As String
Dim a As String "For getting string Value
Dim temp As Double "For storing temporary values
Private Sub cmd_Click(Index As Integer)
a = cmd(Index).Caption
Select Case a
Case "CE"
Txt1.Text = "0"
Case "C"
Txt1.Text = "0"
Case "1"
If Txt1.Text = "0" Then
Txt1.Text = "1"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "2"
If Txt1.Text = "0" Then
Txt1.Text = "2"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "3"
If Txt1.Text = "0" Then
Txt1.Text = "3"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "4"
If Txt1.Text = "0" Then
Txt1.Text = "4"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "5"
If Txt1.Text = "0" Then
Txt1.Text = "5"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "6"
If Txt1.Text = "0" Then
Txt1.Text = "6"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "7"
If Txt1.Text = "0" Then
Txt1.Text = "7"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "8"
If Txt1.Text = "0" Then
Txt1.Text = "8"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "9"
If Txt1.Text = "0" Then
Txt1.Text = "9"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "0"
If Txt1.Text = "0" Then
Txt1.Text = "0"
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "."
If Txt1.Text = "0" Then
Txt1.Text = "0."
Else
Txt1.Text = Txt1.Text + cmd(Index).Caption
End If
Case "CE"
Txt1.Text = "0"
Case "C"
Txt1.Text = "0"
Case "sqrt"
Txt1.Text = Math.Sqr(Val(Txt1.Text))
exp1 = 0
Case "1/x"
Txt1.Text = (1 / Txt1.Text)
Case "Backspace"
If Val(Txt1.Text) <> 0 Then
Txt1.Text = Left(Txt1.Text, Len(Txt1.Text) - 1)
End If
If Txt1.Text = "" Or Txt1.Text = "0." Then
Txt1.Text = "0"
End If
Case "M+"
temp = Txt1.Text
txtblank.Text = "M"
a = "+"
Case "MC"
txtblank.Text = ""
Case "MS"
temp = Txt1.Text
txtblank.Text = "M"
a = "-"
Case "MR"
Txt1.Text = temp
Case "+/-"
Txt1.Text = -Val(Txt1.Text)
End Select
End Sub
Private Sub cmd2_Click(Index As Integer)
exp1 = Txt1.Text
Txt1.Text = -Val(Txt1.Text)
End Sub
Private Sub cmd4_Click(Index As Integer)
Result = (exp1 / 100) * exp2
Txt1.Text = Result
exp1 = 0
End Sub
Private Sub cmd3_Click(Index As Integer)
If exp1 > 0 Then
exp2 = Val(Txt1.Text)
Select Case (op)
Case "+"
Txt1.Text = exp1 + exp2
exp1 = 0
Case "-"
Txt1.Text = exp1 - exp2
exp1 = 0
Case "*"
Txt1.Text = exp1 * exp2
exp1 = 0
Case "/"
If exp2 = 0 Then
Txt1.Text = ("cannot divide by zero")
Else
Txt1.Text = exp1 / exp2
exp1 = 0
End If
End Select
End If
End Sub
Private Sub cmd5_Click(Index As Integer)
Result = exp1
exp1 = Result + Val(Txt1.Text)
Txt1.Text = " "
op = cmd5(Index).Caption
End Sub
Private Sub Form_Load()
End Sub
و شكرا
و
أريد مسااااعدة ضروري اليوم
