Hello,

Here i used VB6.0 write one calculator program.

Here is the program what i did..

Option Explicit
Dim pv As Single
Dim a As Integer
Dim op As String
Dim m As Integer
Dim button As String
Private Sub cmdope_Click(Index As Integer)
pv = Val(Text1.Text)
Select Case Index
       Case 0
          op = "+"
       Case 1
          op = "-"
       Case 2
          op = "*"
       Case 3
          op = "/"

End Select
Text1.Text = " "

End Sub
Private Sub cmdnum_Click(Index As Integer)
Text1.Text = Text1.Text + cmdnum(Index).Caption

End Sub
Private Sub cmdequal_Click()
Select Case op
       Case "+"
          Text1.Text = pv + Text1.Text
       Case "-"
          Text1.Text = pv - Text1.Text
       Case "*"
          Text1.Text = pv * Text1.Text
       Case "/"
          Text1.Text = pv / Text1.Text

End Select
Text1.Text = Round(Text1.Text, 2)
End Sub
Private Sub cmdcancel_Click()
Text1.Text = " "
End Sub
Private Sub cmdmem_Click()
m = Val(Text1.Text)
Text1.Text = " "

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




Its working,but i couldn't get minus value
1) that is -22+2=-20 i can't get this...
what should i do??
2)I can't add any no with memory variable..




kalai

Hi

Check if value given is smaller than 0.

Thus 1:
If its first value use beginning operator of "-" to indicate it's smaller than null

else, it its not first number punched, check for - operator preceding previous operator
Thus user will type 20 + -10 now you know you've got to operators a + and a - and now you know that it should be <0 value

Helga Anagnostopoulos

Add a +/- (change sign) button, and in its click event:

on error goto errsub
dim val as double
val = text1.text
text1.text=-val
exit syb
errsub:
msgbox err.description

and click the buttons in this sequence:

2
2
+/-
+
2
=

This is how a traditional calculator works.
Marco

wait a minute: I already answered to the same post in another group:

http://p2p.wrox.com/topic.asp?TOPIC_ID=27741

this is why it sounded familiar...
dear Kalai,
please do not post the same post in multiple forum of the same group, and give your posts a more clear title. Everyone posts because has a problem...
Marco