Auf denselben Button 2 Mal klicken

Hallo,
ich lerne gerade Visual Basic 2005 Express und wollte zur Übung ein Quiz machen.

Ich habe das ganze so gestaltet, das die Frage mit einem Label dargestellt wird und die Antworten mit Hilfe von Radio Buttons auswählbar sind.
Dann soll der Benutzer auf Auswerten klicken und es soll via MessageBox angezeigt werden ob die ausgewählte Antwort richtig oder falsch war.
Danach soll das Programm zu Frage 2 übergehen.
Das funktioniert auch alles aber wenn ich einmal auf den Button klicke, dann wertet das Programm die Frage und Antwort auch richtig aus, geht aber sofort zu Frage 2 und wertet diese auch aus. Die Antwort von Frage 2 wurden aber noch nicht vom Benutzer ausgewählt.

Ich stell einfach mal den Code rein.

Public Class NormalQuiz
Dim AmountQuestions As Integer = 1
Dim AnswereRight As Integer = 0
Dim AnswereFalse As Integer = 0
Dim Counter As Integer = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Counter = 0 Then
If RadioButton1.Checked Then
MessageBox.Show(„RICHTIG“)
AmountQuestions += 1

AnswereRight += 1
Else
MessageBox.Show(„FALSCH“)
AmountQuestions += 1

AnswereFalse += 1
End If
Counter += 1
End If

If Counter = 2 Then
End If

If Counter = 1 Then
Label2.Text = AmountQuestions

Question.Text = „Auf welcher Taste der Tastatur befinden sich zwei Pfeile?“

RadioButton1.Text = „Auf der Eingabe- (Enter-) Taste“
RadioButton2.Text = „Auf der Tabulator-Taste“
RadioButton3.Text = „Auf der mittleren Pfeiltaste“

If RadioButton2.Checked Then
MessageBox.Show(„RICHTIG“)
AmountQuestions += 1

AnswereRight += 1
Else
MessageBox.Show(„FALSCH“)
AmountQuestions += 1

AnswereFalse += 1
End If
Counter += 1
End If

If Counter = 2 Then
Label2.Text = AmountQuestions

Question.Text = „Was bewirkt der MS-DOS Befehl ‚DIR‘?“

RadioButton1.Text = „Durch ihn werden alle Ordner / Verzeichnisse aktualisiert“
RadioButton2.Text = „Alle Dateien und Verzeichnisse werden aufgelistet“
RadioButton3.Text = „Alle Ordner / Verzeichnisse werden auf Fehler überprüft“
End If
End Sub

Nicht wundern das Programm ist noch nicht fertig.

Wie kann ich eine exe Datei hochladen?
Sonst schicke ich sie einfach per E-Mail zu.

Ich hoffe ihr könnt mir helfen.

mfg

Da man die Artikel nicht bearbeiten kann schreib ich hier einfach mal den Link zum gesamten Projekt:
http://www.megaupload.com/de/?d=B9WNUTA0

mfg

Auch hallo an das neue Mitglied

Hallo,
ich lerne gerade Visual Basic 2005 Express und wollte :zur
Übung ein Quiz machen.

VB 2005 basiert auf .NET 2.0. Von daher ist das Brett ‚.NET & C#‘ hier -trotz des Namens- besser geeignet.
Unter XP+SP2 sieht die Installation des vollen Programmpakets übrigens so aus: http://mitglied.lycos.de/schachspielen/software.PNG
Trotzdem ein Versuch:

Ich stell einfach mal den Code rein.

Sollte man übrigens mit pre und /pre in machen :wink:
(Code gekürzt)
Rein naiv gesehen wurde eine ODER-Bedingung programmiert: wenn eine der Möglichkeiten geklickt wurde
geht es direkt zur Auswertung. Idee: entweder wird zuerst eine Prüfung ob beide R-Buttons gedrückt wurden implementiert (AND-Bedingung) oder je eine Klick Aktion wird einem R-Button zugeordnet.

Wie kann ich eine exe Datei hochladen?

Kein Webspace zur Verfügung ?

Sonst schicke ich sie einfach per E-Mail zu.

Wenn, dann das Projekt als zip :wink:

HTH
mfg M.L.

VB 2005 basiert auf .NET 2.0. Von daher ist das Brett ‚.NET &
C#‘ hier -trotz des Namens- besser geeignet.

Soll ich es jetzt dort nochmal posten oder einfach fürs nächste mal merken?

Unter XP+SP2 sieht die Installation des vollen Programmpakets
übrigens so aus:
http://mitglied.lycos.de/schachspielen/software.PNG

Bei mir siehts so aus:
http://img126.imageshack.us/img126/9844/installierte…

Trotzdem ein Versuch:

Ich stell einfach mal den Code rein.

Sollte man übrigens mit pre und /pre in machen :wink:
(Code gekürzt)

Werd ich in Zukunft machen.

Rein naiv gesehen wurde eine ODER-Bedingung programmiert: wenn
eine der Möglichkeiten geklickt wurde
geht es direkt zur Auswertung. Idee: entweder wird zuerst eine
Prüfung ob beide R-Buttons gedrückt wurden implementiert
(AND-Bedingung) oder je eine Klick Aktion wird einem R-Button
zugeordnet.

Ich weiß nicht wie ich das umsetzen soll, weil wenn ich auf den Button klicke dann läuft er den ganzen Code durch. Und wenn ich dann nochmal auf den Button klicke dann passiert überhaupt nichts.

Wie kann ich das ganze umsetzen?

mfg

Hallo nochmal.

VB 2005 basiert auf .NET 2.0. Von daher ist das Brett ‚.NET &
C#‘ hier -trotz des Namens- besser geeignet.

(1)Soll ich es jetzt dort nochmal posten oder einfach fürs
(2)nächste mal merken?

(1) [] (2) [x]

Unter XP+SP2 sieht die Installation des vollen Programmpakets
übrigens so aus:
http://mitglied.lycos.de/schachspielen/software.PNG

Bei mir siehts so aus:
http://img126.imageshack.us/img126/9844/installierte…

Hübsch :smile:

Trotzdem ein Versuch:

Ich stell einfach mal den Code rein.

Sollte man übrigens mit pre und /pre in machen :wink:
(Code gekürzt)

Werd ich in Zukunft machen.

Aber dann sollte er vollständig sein. So dass der Nutzer einfach ein passendes Projekt anlegt und den Code via copy’n’paste herüberholen kann.

Ich weiß nicht wie ich das umsetzen soll, weil wenn ich auf
den Button klicke dann läuft er den ganzen Code durch. Und
wenn ich dann nochmal auf den Button klicke dann passiert
überhaupt nichts.

Wie kann ich das ganze umsetzen?

Schick das gezippte Projekt mal an die oben genannte email-Adresse :wink:

Dann: schau’n mer mal

HTH
mfg M.L.

Hallo,

Unter XP+SP2 sieht die Installation des vollen Programmpakets
übrigens so aus:
http://mitglied.lycos.de/schachspielen/software.PNG

Bei mir siehts so aus:
http://img126.imageshack.us/img126/9844/installierte…

Hübsch :smile:

Danke deins aber auch ^^

Schick das gezippte Projekt mal an die oben genannte
email-Adresse :wink:

Ich habs geschickt

mfg,
Patrick

Hallo Patrick.

Normalerweise brauchst Du doch nur mit der Anweisung „Exit Sub“ die Prozedur verlassen, wenn eine Frage ausgewertet wurde.
Wenn ich Deinen Code richtig interpretiere, dann machst Du ja folgendes:

If Counter =…
If Richtig…
End If
If Falsch…
End If
Counter +=1
End If

If Counter =…
If Richtig…
End If
If Falsch…
End If
Counter +=1
End If

Versuche es mal bitte so:

If Counter =…
If Richtig…
End If
If Falsch…
End If
Counter +=1
Exit Sub 'An dieser Stelle die Prozedur verlassen
End If

If Counter =…
If Richtig…
End If
If Falsch…
End If
Counter +=1
Exit Sub 'An dieser Stelle die Prozedur verlassen
End If

Sollte dann eingentlich schon funktionieren.

Ich hoffe, dass Dir das schon weiterhilft.

Viele Grüße
Carsten Mehnert

Normalerweise brauchst Du doch nur mit der Anweisung „Exit
Sub“ die Prozedur verlassen, wenn eine Frage ausgewertet
wurde.

Hallo,
vielen Dank für deine Antwort, das hat mir wirklich weitergeholfen, jetzt funktioniert es endlich.

THX

mfg