Calculation Problem

Hi guys,

I have some problem with the calculation.

When I press "0.01", it came out
0.0(When I press 0.0)
1(When I press 1)

What happen to my calculation?

Code:

---

Private Sub Command0_Click()

If (text1.Text = 0) Then
    If (Shift = True) Then
        text1.Text = "0.0"
        Shift = False
    Else
        text1.Text = "0"
    End If

Else
text1.Text = text1.Text & "0"
End If

End Sub

---

If u guys dont understand, it cannot have 0.01, 0.02....etc..

only 0.0
and then go back to 1.

Help!

What's the code inside your "Command1_Click" event?

Here's my command 1 click

Code:

---

Private Sub Command1_Click()



If (text1.Text = 0) Then
    If (Shift = True) Then
        text1.Text = "0.1"
        Shift = False
    Else
        text1.Text = "1"
    End If
Else
text1.Text = text1.Text & "1"
End If

End Sub

---

and my decimal event

Code:

---

Private Sub cmdDot_Click()

Me.shiftPos

End Sub

---

Hi,

I can't figure out what you are trying to do , so pleaze try to explain so we can help you .

Cordially

Quote:

---

Originally Posted by S!dox

Hi,

I can't figure out what you are trying to do , so pleaze try to explain so we can help you .

Cordially

---

I am trying to output 0.01 to the textbox but it cannot. It goes up to 0.0 and when I press 1 it became 1, not 0.01

so its like
0
0.
0.0
1

You get it now?

In your code for cmdDot_click, what on earth is "Me.shiftPos"? Is it from some library?

It's a way to display the dot.

What am I going to do now? :(

Help!

What is Shift and what is ShiftPos?

They must be functions/subs that you wrote.

Why don't you zip up your project and attach it so we can see the same things that you are seeing?

Try changing

Code:

---

If text1.Text = 0 Then

---

with

Code:

---

If text1.Text = "0" Then

---

and see if it works for you.

Also tell us if you have any code in your text1_Change() or text1_KeyPress() events.

Quote:

---

Originally Posted by lone_REBEL

Try changing

Code:

---

If text1.Text = 0 Then

---

with

Code:

---

If text1.Text = "0" Then

---

and see if it works for you.

Also tell us if you have any code in your text1_Change() or text1_KeyPress() events.

---

You solved my problem. You're genius. + REP! :)