Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Probleme mit logischen Ablauf
Autor: xmex
Datum: 26.01.03 14:28
Hi Leute, ich programmiere noch nicht sehr lange was ihr gleich an meinen QuellCode sehen wird. Mein Project besteht aus einer Form, einen Command Button und einen Textfeld. Die Namen der Steuerelemente sind Die Standardnamen. Was noch wichtig ist. Der Text von Text1.Text lautet = "deinen vollen namen in kleinschreibung" ------ Unter beschreibe ich was mein Problem ist. Ab hier beginnt der Quellcode: ------------ Private Sub Command1_Click() If Text1.Text = "Beispiel1" Then 4 password = InputBox("Bitte gib das richtige Passwort ein", "Passwortabfrage", "", StartUpPosition = 2) If password <> "eggert" Then MsgBox "Und noch das falsche Passwort eingeben !!!" MsgBox "Wie kommt man nur auf " + "[ " + password + " ]" + " na ja neuer Versuch“ GoTo 4 End If ElseIf Text1.Text = "sonja lorenz" Then MsBox „Hallo sonja lorenz“ 5 password = InputBox("Bitte gib das richtige Passwort ein", "Passwortabfrage", "", StartUpPosition = 2) If password <> "eggert" Then MsgBox "Und noch das falsche Passwort eingeben !!!" MsgBox "Wie kommt man nur auf " + "[ " + password + " ]" + " so dumm muss man erst mal sein !!" GoTo 5 If password = "eggert" Then GoTo 8 End If ElseIf Text1.Text = "" Then MsgBox "Du solltest schon deinen Namen eingeben !" MsgBox "Zu dumm um deinen Namen zu schreiben" MsgBox " Vielleicht hast du ja keinen Namen" MsgBox "Na gut dann nenne ich dich halt Adbulalallalalalh !" GoTo 13 ElseIf Text1.Text = "kreller" Then GoTo 17 ElseIf Text1.Text = "peter hopf" Then GoTo 16 ElseIf Text1.Text = "Adbulalallalalalh" Then MsgBox " Hier kriegst du kein Asyl !!!" MsgBox "Idiot" GoTo 11 ElseIf Text1.Text = "Fauler Sack" Then MsgBox "Dir ist echt nicht mehr zu helfen" GoTo 11 ElseIf Text1.Text = "deinen vollen namen in kleinschreibung" Then GoTo 120 Else MsgBox "Hallo " + Text1.Text + " ,wünsche dir einen schönen Tag !" GoTo 11 End If 8 MsgBox "Gut du darfst jetzt Heim" 9 abschied = InputBox("Deine Name ?", "Bitte gib deinen Namen ein", "", StartUpPosition = 2) 10 MsgBox abschied + " du bist ein n000000b !" 11 End 12 17 krels = InputBox("hmmm kreller habe ich schon mal gehört, bist du nicht dieser Komische ?", "Krellus Idiotos", "ja oder nein", StartUpPosition = 2) 18 If krels = "ja" Then MsgBox " Habe ich es doch gewusst!" ElseIf krels = "nein" Then MsgBox " hör auf zu lügen " Goto 17 ElseIf krels = "ja oder nein" Then MsgBox " ja oder nein, nur eins von beiden du idiot" GoTo 17 End If End 16 MsgBox "Ich begrüße den König der Welt, herrscher Über Leben und Tod ..." GoTo 11 120 MsgBox "Hey du fauler Sack, nimm dein eigenes Beispiel!" 122 Text1.Text = "Fauler Sack" 13 Form1.Refresh 14 Text1.Text = "Adbulalallalalalh" End Sub ------------ Also der Fehler ist das wenn man Das Projekt startet und den Standard Text nimmt der schon drinen steht "deinen vollen namen in kleinschreibung" und dann auf Ok klickt, sollte man zur Zeile 120 springen. Was ja auch passiert. Aber es wird noch die Zeile 14 drangehängt was gar nicht sein soll. So sollte es sein. Wenn man das Standardbeispiel nimmt "deinen vollen namen in kleinschreibung". Dann sollte die Zeile 120 kommen bis 122. Dann sollte Im Text1.Text "fauler Sack" stehen. Und wenn mann jetzt klickt sollte ja dieser Prozess kommen: -------- ElseIf Text1.Text = "Fauler Sack" Then MsgBox "Dir ist echt nicht mehr zu helfen" GoTo 11 -------- Bitte helft mir das Problem zu lösen. Habt ihr Tipps an meiner CodeStruktur ? Ich glaube die sieht nicht gerade sehr übersichtlich aus. Schickt mir bitte Denn Richtigen Strukturierten Code mit gelösten Problem an: darkhagbard@web.de oder kontaktiert mich über meine ICQ Nummer [ 135121909 ]. Cya

Probleme mit logischen Ablauf	497	xmex	26.01.03 14:28
Re: Probleme mit logischen Ablauf	43	Knulli	26.01.03 15:17
Re: Probleme mit logischen Ablauf	42	Marodi	26.01.03 15:21
Re: Probleme mit logischen Ablauf	249	xmex	26.01.03 15:24
Re: Probleme mit logischen Ablauf	246	Elwood	27.01.03 08:08
Re: Probleme mit logischen Ablauf	256	xmex	27.01.03 15:02

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