Vb Eurorechner Problem

[redriver]

Hi,

ich bin heute erst mit Vb 6 angefangen und schon der erste Fehler.
Ich habe ein Eurorechner angefangen, nur habe ich jetzt das Problem, das mir kein Wert ausgegen wird.
Ich vermute ich habe irgendwo einen bezeichnungsfehler eingebaut (oder schlimmeres) nur kann ich den Fehler nicht finden.

Deshalb meine Bitte, kann sich jemand das Projekt ansehen und den Fehler vielelicht finden


mfg

 

[Rackberg]

Hallo redriver,

ich glaube ich habe deinen Fehler gefunden.

Du hast in deinem Quellentext folgendes unter cmdBerechne stehen:

If optDMINEURO.Value = True Then
curAusgabe = curEingabe * 0.51129
Else
curAusgabe = curEingabe * 1.95583
End If


txtAusgabe.Text = Round(curAusgabe, 2)

Der Fehler ist der,
curAusgabe = curEingabe * 0.51129 musst du ändern in:

txtAusgabe.Text = txtEingabe / 1.95583

und

curAusgabe = curEingabe * 1.95583 solltest du besser auch in:

txtAusgabe.Text = txtEingabe.Text * 1.95583
ändern.

Außerdem in der Zeile, in der steht:
txtAusgabe.Text = Round(curAusgabe, 2)

würde ich hier auch das Round(curAusgabe, 2) in Round(txtAusgabe.Text, 2) ändern!

Ich hoffe ich konnte dir helfen.

P.S: Und dann arbeite noch mal ein bisschen an der Ordnung der
Steuerelemente auf deinem Formular

 

[DrSoong]

Weißt du wo der Fehler liegt? In der Zeile

curEingabe = Val(txtAusgabe.Text)

liegt der Fehler, sie gehört so geschrieben:

curEingabe = Val(txtEingabe.Text)

Würde aber den Code etwas verkürzen:

Private Sub cmdBerechnen_Click()

 curEingabe = Abs(Val(txtEingabe.Text))

 If optDMINEURO.Value = True Then
  curAusgabe = curEingabe * 0.51129
 Else
 curAusgabe = curEingabe * 1.95583
 End If

 txtAusgabe.Text = Round(curAusgabe, 2)

End Sub

Der Doc!

 

[redriver]

Danke, ich probier das gleichmal aus.

Das Feintuning kommt noch sobald ich alles am laufen habe, dann werden auch die Steuerelemnte ordentlich sortiert.
Ist halt mein erster Versuch

mfg

 

[redriver]

Eine Frage hätte ich noch, es ist bestimmt eine dumme Frage, aber nicht schlagen :-(


Wie kann ich die länge der Eingabe bei dem Eurorechner festlegen.
Denn wenn ich bei dem Rechner zulange Zahlen angebe bekomme ich eine Fehlermeldung "Überlauf", wie kann ich das also verhindern

mfg

 

[Rackberg]

Also,

du klickst auf das Textfeld und guckst dann in den Eigenschaften nach

MaxLength dort kannst du dann angeben, wie viele Ziffern man hineinschreiben kann.

Ich hoffe ich konnte nochmal helfen!

 

[redriver]

Ja danke konntst mir wieder helfen

mfg