Hallo liebe VB-Gemeinde,
ich probiere mich gerade an einem Quiz, weil ich erst begonnen habe zu programmieren. Das klappt nach meinen Vorstellungen auch soweit alles gut, doch an einer Stelle hapert es:
Public Class Form1
Dim Richtig As String
Dim Falsch As String
Dim Berlin As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn2.Visible = False
btn3.Visible = False
btn4.Visible = False
btn5.Visible = False
btn6.Visible = False
btn7.Visible = False
btn8.Visible = False
btn9.Visible = False
btn10.Visible = False
btn11.Visible = False
btn12.Visible = False
btn13.Visible = False
btn14.Visible = False
btn15.Visible = False
btn16.Visible = False
btn17.Visible = False
btn18.Visible = False
btn19.Visible = False
btn20.Visible = False
btn21.Visible = False
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
btn2.Visible = True
btn3.Visible = False
btn4.Visible = False
btn5.Visible = False
btn6.Visible = False
btn7.Visible = False
btn8.Visible = False
btn9.Visible = False
btn10.Visible = False
btn11.Visible = False
btn12.Visible = False
btn13.Visible = False
btn14.Visible = False
btn15.Visible = False
btn16.Visible = False
btn17.Visible = False
btn18.Visible = False
btn19.Visible = False
btn20.Visible = False
btn21.Visible = False
MsgBox("Was ist Deutschlands Hauptstadt?")
End Sub
Private Sub btn22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn22.Click
If txtbox1.Text = Berlin Then
MsgBox("Richtig!")
Else : MsgBox("Falsch!")
End If
End Sub
End Class
Hier könnt ihr meinen Entwurf sehen, das ist gerade der Anfang. Recht simpel, wenn ich den Knopf 1 drücke wird Knopf zwei sichtbar, insgesamt sind es 21 + einen "Lösung-Button". Nun soll beim Erscheinen der Frage die Antwort in eine Textbox eingegeben werden und wenn ich dann auf den Lösen Knopf drücke, soll entweder die Aussage "Richtig!" oder bei einer falschen Antwort die Aussage "Falsch!" erscheinen. Allerdings, kommt egal was dort reingeschrieben wird nur die Aussage "Falsch!".
Was habe ich mir der If-Clause falsch gemacht? Hier nochmal gesagt, ich bin ein blutiger Anfänger
Danke schon mal in Vorraus
Jan
ich probiere mich gerade an einem Quiz, weil ich erst begonnen habe zu programmieren. Das klappt nach meinen Vorstellungen auch soweit alles gut, doch an einer Stelle hapert es:
Public Class Form1
Dim Richtig As String
Dim Falsch As String
Dim Berlin As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn2.Visible = False
btn3.Visible = False
btn4.Visible = False
btn5.Visible = False
btn6.Visible = False
btn7.Visible = False
btn8.Visible = False
btn9.Visible = False
btn10.Visible = False
btn11.Visible = False
btn12.Visible = False
btn13.Visible = False
btn14.Visible = False
btn15.Visible = False
btn16.Visible = False
btn17.Visible = False
btn18.Visible = False
btn19.Visible = False
btn20.Visible = False
btn21.Visible = False
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
btn2.Visible = True
btn3.Visible = False
btn4.Visible = False
btn5.Visible = False
btn6.Visible = False
btn7.Visible = False
btn8.Visible = False
btn9.Visible = False
btn10.Visible = False
btn11.Visible = False
btn12.Visible = False
btn13.Visible = False
btn14.Visible = False
btn15.Visible = False
btn16.Visible = False
btn17.Visible = False
btn18.Visible = False
btn19.Visible = False
btn20.Visible = False
btn21.Visible = False
MsgBox("Was ist Deutschlands Hauptstadt?")
End Sub
Private Sub btn22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn22.Click
If txtbox1.Text = Berlin Then
MsgBox("Richtig!")
Else : MsgBox("Falsch!")
End If
End Sub
End Class
Hier könnt ihr meinen Entwurf sehen, das ist gerade der Anfang. Recht simpel, wenn ich den Knopf 1 drücke wird Knopf zwei sichtbar, insgesamt sind es 21 + einen "Lösung-Button". Nun soll beim Erscheinen der Frage die Antwort in eine Textbox eingegeben werden und wenn ich dann auf den Lösen Knopf drücke, soll entweder die Aussage "Richtig!" oder bei einer falschen Antwort die Aussage "Falsch!" erscheinen. Allerdings, kommt egal was dort reingeschrieben wird nur die Aussage "Falsch!".
Was habe ich mir der If-Clause falsch gemacht? Hier nochmal gesagt, ich bin ein blutiger Anfänger
Danke schon mal in Vorraus
Jan