Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Schleifen
Autor: Arno
Datum: 18.06.03 11:53
Hallo NG, ich bräuchte eure Hilfe. Ich habe eine Übungsaufgabe mit zwei Textboxen und einer Ausgabentextbox für das Ergebniss anzeigen zu lassen. In der ersten Textbox gebe ich eine Zahl von 1 bis 100 an. In der zweiten Textbox soll die Zahl erraten werden die in der ersten Textbox enthalten ist. Das Ergebniss soll dann in der dritten Textbox als Text angezeigt werden z. B. wenn 50 die Vorgabe ist und ich 30 in Textbox zwei schreibe habe ich eine Differenz von 20 hier soll nun in der Ausgabe stehen Sie haben zu niedrig geraten usw. Leider komme ich mit meinen Quellcode und der Schleifenbildung nicht weiter und bräuchte hierzu etwas hilfe. Über jede hilfe bin ich dankbar. Gruß Arno code][ Private Sub cmdFertig_Click() ' Deklaration Dim intEingabe As Integer Dim intVorgabe As Integer Dim strAusgabe As String Dim intWert As Integer 'Zahl auslesen falls Text eingegeben wird. intVorgabe = Val(Me.txtVorgabe.Value) intEingabe = Val(Me.txtEingabe.Value) intWert = intVorgabe - intEingabe Me.txtAusgabe.Value = strAusgabe 'Fehler Abfangen falls Buchstaben eingegeben. If intVorgabe <= 0 Then MsgBox "Sie haben keine Zahl eingegeben!" Me.txtVorgabe.Text = "" ElseIf intEingabe <= 0 Then MsgBox "Sie haben keine Zahl eingegeben!" Me.txtVorgabe.SetFocus End If 'Abfrage der Bedingung wenn Vorgabezahl übertroffen wird Meldung anzeigen. If intVorgabe > 100 Then MsgBox "Sie mogeln! Die Zahl soll kleiner als 100 sein!" Me.txtAusgabe.Text = " Sie mogeln! Die Zahl soll kleiner als 100 sein!" ElseIf intEingabe > 100 Then MsgBox "Sie mogeln! Die Zahl soll kleiner als 100 sein!" Me.txtAusgabe.Text = " Sie mogeln! Die Zahl soll kleiner als 100 sein!" End If 'Abfrage der beiden TxtBoxen wenn Übereinstimmung dann Meldung If intWert >= 20 Then strAusgabe = "Das ist schon ziemlich gut" ElseIf intWert <= 20 Then strAusgabe = "Sie müssen in größeren Dimensionen denken." ElseIf intWert > 10 Then strAusgabe = "Sie werden übermütig" ElseIf intWert < 10 Then strAusgabe = "Strengen Sie sich etwas mehr an!" ElseIf intEingabe <> 0 Then strAusgabe = "Gratulation. Sie haben es geschaft." End If Me.txtAusgabe.Text = strAusgabe End Sub /code]

Schleifen	152	Arno	18.06.03 11:53
Re: Schleifen	309	Ralf Schoen	18.06.03 12:21
Re: Schleifen	60	Arno	18.06.03 13:02
Re: Schleifen	317	Ralf Schoen	18.06.03 14:25
Re: Schleifen	70	Arno	18.06.03 15:28
Re: Schleifen	291	Ralf Schoen	18.06.03 15:47
Re: Schleifen	52	Arno	18.06.03 17:51

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