Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Do While Problem
Autor: SimonZ
Datum: 28.10.03 19:04
Hallo Leute. Ich möchte bei einem Programm berechnen wie lange man für einen bestimmten Betrag spart. Allerdings stürzt jedesmal mein Programm ab. Schuld daran ist meine do while schleife. Wo liegt mein Fehler? Quellcode: Private Sub cmd_berechnen_Click() Dim int_summe As Long Dim int_Temp As Long Dim int_monat As Single Dim int_jahr As Long If txt_summe.Text = "" Then MsgBox "Sie müssen erst einen Zielbetrag eingeben.", vbExclamation, "Fehler" Exit Sub End If int_summe = txt_summe.Text int_Temp = 0 int_monat = 0 int_jahr = 0 Do While int_Temp < int_summe int_Temp = int_Temp + int_Gehalt int_monat = int_monat + 1 If int_monat = 13 Then int_monat = 0 int_jahr = int_jahr + 1 End If Loop MsgBox "Sie brauchen für sie die Summe von " + int_summe + " genau " + int_jahre + " Jahre und " + int_monatE + "Monate.", vbInformation, "Ergebniss" End Sub Private Sub cmd_zurueck_Click() Unload Me End Sub Private Sub Form_Load() Dim int_Gehalt As Long int_Gehalt = Form1.txt_Gehalt.Text End Sub Jo, das hier ist also meine Signatur.

Do While Problem	476	SimonZ	28.10.03 19:04
Re: Do While Problem	342	Dieter	28.10.03 19:10
Re: Do While Problem	311	SimonZ	28.10.03 19:31
Re: Do While Problem	338	SimonZ	28.10.03 19:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen