Rechner mit VB6

[Merkur]

Moin!
Ich hoffe hier hilfe auf meine Frage zu finden!!
Ich versuche einen Taschenrechner mit VB zu schreiben aber er funktioniert nicht so wie ich das gerne hätte:

If cmdadd.Value = True Then
        txt1.Text = ZahlX + ZahlY
End If

Warum funktioniert der Code so nicht? die beiden Variabelen (zahlx und zahly) funktionieren und speichern die Zahl richtig ab.

Wenn man den Code allerdings umschreibt mit "GoTo" dann geht das auch mit dem Code:

If cndadd.Value = True Then
GoTo add
End If

add:
txt1.Text = ZahlX + ZahlY

Kann mir einer erklären wo hier der Fehler liegt oder wie man das besser machen kann?


Gruß


Merkur

[supersonic]

text1.text

statt

txt1.text

[Merkur]

Das ist egal! Das ist nur meine bennenung. Daran wird eher nich liegen.

[supersonic]

Ok damit habe ich nicht gerechnet . Standartmäßig heißen die Textfelder ja immer

text1.text
text2.text

usw...

Was genau funktioniert denn nciht ? Kommt wenigstens ne Fehlermeldung ?

[Merkur]

Es kommt eben keine Fehlermeldung das ist ja das dumme.
Ich habe die beiden Zahlen mit denen gerechnet werden soll in Variabelen definiert.
Sie werden auch richtig gespeichert aber mit dem Code

If cmdadd.Value = True Then
        txt1.Text = ZahlX + ZahlY
End If

kann der Rechner nicht rechnen.

dann bleibt der Inhalt im Textfeld = der zuletzt eingegebenen Zahl.
Aber mit GoTo geht es eben auch mit dem gleichen Code.
Aber ich finde GoTo relativ umständlich und hab mir gedacht, das man das auch anders schreiben können müsste. Nur die Frage lautet: WIE?

Merkur

[ARCUS_L]

cmdadd.Value = True
cndadd.Value = True

mfg ARCUS_L

[Merkur]

Das ist nur ein Tippfehler hier!!!
Aber hat denn keiner (abgesehen von irgendwelchen Schreibfehlern) eine Idee woran das nu liegen kann?

[ARCUS_L]

Hi !!

Also im ersten Teil befindet sich
txt1.Text = ZahlX + ZahlY
innerhalb der IF- Bedingung also ist cmdadd.Value nicht true (Was auch immer cmdadd.Value ist ?)

Im zweiten Teil mit GoTo
wenn der Code so da steht wie du ihn aufgeschrieben hast ist klar das er funktioniert denn hier wird
txt1.Text = ZahlX + ZahlY
auch ausgeführt wenn cmdadd.Value nicht true ist


mfg ARCUS_L

[Merkur]

cmdadd ist der Button für addition.
Kann das denn überhaupt so gehen das der Befehl innerhalb der If-Abfrage steht?
cmdadd.value kenne ich so, dass wenn cmdadd geklickt wurde diese Operation ausgeführt wird.

[ARCUS_L]

Zitat von Merkur

Kann das denn überhaupt so gehen das der Befehl innerhalb der If-Abfrage steht?

Die Frage ist eher was bringt hier die IF-Bedingung ?

Zitat von Merkur

cmdadd.value kenne ich so, dass wenn cmdadd geklickt wurde diese Operation ausgeführt wird.

Ich würd`s eher so machen :

Private Sub cmdadd_Click()

'Hier dein Code
txt1.Text = ZahlX + ZahlY 

End Sub

mfg ARCUS_L

[Merkur]

Aber ich denke das das so nicht geht da durch das klicken von cmdadd erst eine Zahl der Variabelen ZahlX zugewiesen wird.
Der Rechner soll so laufen das man die erste Zahl eingibt, dann die Rechenoperation betätigt, diese definiert dann die Variabele, danach gibt man die 2. Zahl ein und klickt au "="!
und somit würde das dann nicht gehen wenn man das direkt in den Code vom cmdadd setzen würde!

[ARCUS_L]

Hi !!

Das ist wohl wahr.

Wie wär`s mit SELECT ??

Indem du einen string Variable deklarierst !

Private stOp as string

und dieser je nach Rechenoperation einen string zuweist !!

zb:

Private Sub cmdadd_Click() 

stOp = "+"

End Sub

und dann wenn du den = Button drückst erst die Rechenoperation ausführst die du über select abfragst

zb:

Private Sub cmdErgebnis_Click()

Select Case stOp

Case Is = "+"
txt1.Text = ZahlX + ZahlY

Case Is = "-"

txt1.Text = ZahlX - ZahlY

.
.
.
.
usw

End Select

End Sub

mfg ARCUS_L

[Merkur]

Hmm. . .
Ich hab noch nie die Select Case aufforderung genutzt
wofür ist 1. stOp
2. bei dem Case Is = "?" Was muss in die "" rein? müssen da die Buttons rein?

edit: Ich habs probiert und es geht so aber kannst du mir das trotzdem nochmal erklären.

[ARCUS_L]

Hi !!

zu 1:
stOp ist einfach eine Stringvariable(könnte auch Merkur oder was auch immer heissen) die in diesem Fall die Rechenoperation aufnimmt. zb: "+", "-", "x", "/" oder "addieren,subtrahieren .......usw


zu 2:
mit Case Is = wird der wert der Variable stOp verglichen.und bei übereinstimmung der Code ausgeführt.

zb:
in stOp steht "addieren"
dan wird der code unter Case Is = "addieren" ausgeführt.

hoffe das war verständlich !!

mfg ARCUS_L

[Merkur]

Soweit ist das wohl verständlich danke!
aber was das ganze Select Case bewirkt weiß ich leider auch nicht

Und daraus ergibt sich dann leider schon das nächste Problem:

Ich brauch dann einen Fehlerabfang bei der Division durch 0 weiß nun aber nicht wie ich die 2. Variable in der Select Case abfrage ansteuern kann