Problem bei Taschenrechnerprogramm

[hoinabauer]

Hallo
Ich wollte gerne einen Taschenrechner programmieren. Doch irgendwie funktioniert er nicht
Wenn zB aus die Taste 7 gedrückt wird habe ich folgenden Code verwendet

Private Sub Command1_Click()
If eingabe1 > 0 Then
eingabe1 = eingabe1 * 10 + 7
End If
If eingabe1 = 0 Then
eingabe1 = 7
End If
Text1.Text = eingabe1
End Sub

Also zunächst eine Fallunterscheidung ob es die erste eingegebene Ziffer ist oder nicht.
Dann wird die Variable eingabe1 (Double) dementsprechend verändert und anschließend im Textfeld ausgegeben.

Was mache ich nur falsch
Mfg Thomas

 

[Alex F.]

hast du eingabe1 deklariert

bei mir klappt es nämlich

-> Option Explicit ist immer ganz günstig für sowas


Gruss bb