VB 4 mal Falschen text in Textfeld eingegeben

C

Cracker

0
Hallo

Also wie mach ich das wenn man 4 mal den Falschen Text in ein textfeld eingibt (Bestätigt man mit COMMAND1) dass er dann eine andere Form beginnt??

Kapiert??

so ähnlich

Code: 
If Command1 = 4 Clicked then
Form1.show
end if

Ich hoffe ihr habt es kapiert! thx im Voraus

mfg Cracker
 
Hehe, keine ahnung, ob dir das weiter hilft, aber mit meinem minimalen VB-Wissen hab ich das hier auf die Beine gestellt ... :)

Code: 
Option Explicit
Dim antwort As String
Dim right As String
Dim wrong As String
Dim versuch As Integer


Private Sub Form_Load()
versuch = 0
End Sub

Private Sub try_Click()
right = "jopp"
antwort = Text1
If antwort = right Then
    MsgBox "HEEELAS"
    Else
    versuch = versuch + 1
End If
If versuch = 4 Then
    Form2.Show
End If
End Sub
 
Cannabis Code ist zwar auch "richtig",
aber hab nochmal kurz ne bessere Version geschrieben:
Code: 
Option Explicit
Dim Versuche As Byte

Private Sub Command1_Click()
    If Text1.Text = "pass" Then
        MsgBox "Richtig"
    Else
        MsgBox "Falsch"
        Versuche = Versuche + 1
        If Versuche = 4 Then End
    End If
End Sub
Ganz einfach; wenn das falsche eingegeben wird wird Versuche um 1 erhöht.
Ist Versuche gleich 4 dann wird die Anwendung beendet.
 
Wieso steht bei mir immer so ein scheiß???
hab das richtig reincopiert gehen müsste es ja auch.

Compile error:

Block if without end if
 
versuchs mal so.. aber eigentlich müsste auch der andere code problemlos funzen.. ich schätze der fehler kommt von nem anderen teil.

Code: 
Private Sub Command1_Click()
    If Text1.Text = "pass" Then
        MsgBox "Richtig"
    Else:
        MsgBox "Falsch"
        Versuche = Versuche + 1
    End If
    
     If Versuche = 4 Then End
End Sub
 
Original von HOFER.Aldi
Wieso steht bei mir immer so ein scheiß???
hab das richtig reincopiert gehen müsste es ja auch.

Compile error:

Block if without end if
Zum Vergrößern anklicken....
Hm. Am Doppelpunkt liegts sicher nicht.
Versuchs mal so:
Code: 
Option Explicit
Dim Versuche As Byte

Private Sub Command1_Click()
    If Text1.Text = "pass" Then
        MsgBox "Richtig"
    Else
        MsgBox "Falsch"
        Versuche = Versuche + 1
        If Versuche = 4 Then
            End
        End If
    End If
End Sub
 
Original von .tails
Cannabis Code ist zwar auch "richtig",
aber hab nochmal kurz ne bessere Version geschrieben:
Zum Vergrößern anklicken....

Hehe, wenn ich das so sehe, frage ich mich, warum ich das net auch so gemacht habe. :D

Aber ich muss da immer um mehrere Ecken denken ... :P
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben