Edit by ErfinderDesRades: Ich schiebs mal in den SourceCode-Austausch, weil offensichtlich wird hier Sourcecode ausgetauscht
Hallo leute hier mein erstes programm.
Um genau zu sein ist es ein quiz(für bio)
Hier der code
Ich weiß es gibt bessere lösungen (denke ich mal) aber wie gesagt mein erstes programm
Auf lob und kritik wäre ich dankbar ( und natürlich tipps)
Hallo leute hier mein erstes programm.
Um genau zu sein ist es ein quiz(für bio)
Hier der code
VB.NET-Quellcode
- Public Class Form1
- Private weiter As Integer = 0
- Private richtig As Integer = 0
- Private falsch As Integer = 0
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Select Case weiter.ToString
- Case 0
- ROTFür()
- Case 1
- weiskorp()
- Case 2
- eherz()
- End Select
- End Sub
- Private Function ROTFür() As String
- If Rabtn1.Checked = True Then
- MsgBox("Nicht Richtig", MsgBoxStyle.Critical)
- falsch = falsch + 1
- ElseIf Rabtn3.Checked = True Then
- MsgBox("Nicht Richtig", MsgBoxStyle.Critical)
- falsch = falsch + 1
- ElseIf Rabtn2.Checked = True Then
- MsgBox("Richtige Antwort", MsgBoxStyle.Information)
- Rabtn2.Checked = False
- weiter = weiter + 1
- weiskorp()
- End If
- End Function
- Private Function weiskorp() As String
- Label1.Text = "Bio Quiz Frage 2"
- Label2.Text = "Wozu braucht dein Körper Weiße Blutkörperchen?"
- Rabtn1.Text = "Um Eindringlinge wie Bakterien oder andere krankheitserreger zu erledigen"
- Rabtn2.Text = "Um Sauerstoff zu den Zellen zu Transportieren"
- Rabtn3.Text = "Um Keime und Viren auf der Haut zu zerstören"
- If Rabtn1.Checked = True Then
- MsgBox("Richtige Antwort", MsgBoxStyle.Information)
- Rabtn1.Checked = False
- eherz()
- weiter = weiter + 1
- ElseIf Rabtn3.Checked = True Then
- MsgBox("Nicht Richtig", MsgBoxStyle.Critical)
- falsch = falsch + 1
- ElseIf Rabtn2.Checked = True Then
- MsgBox("Nicht Richtig", MsgBoxStyle.Critical)
- falsch = falsch + 1
- End If
- End Function
- Private Function eherz() As String
- Label1.Text = "Bio Quiz Frage 3"
- Label2.Text = "Wofür brauchst du ein Herz?"
- Rabtn1.Text = "Um zu Atmen"
- Rabtn2.Text = "Um das gehirn durch venen mit sauerstoff zu versorgen"
- Rabtn3.Text = "Um den Stoffaustausch im Körper aufrecht zu erhalten"
- If Rabtn1.Checked = True Then
- MsgBox("Nicht Richtig", MsgBoxStyle.Critical)
- falsch = falsch + 1
- ElseIf Rabtn3.Checked = True Then
- MsgBox("Richtige Antwort", MsgBoxStyle.Information)
- ElseIf Rabtn2.Checked = True Then
- MsgBox("Nicht Richtig", MsgBoxStyle.Critical)
- falsch = falsch + 1
- End If
- End Function
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Label3.Text = richtig
- Label5.Text = falsch
- End Sub
- End Class
Ich weiß es gibt bessere lösungen (denke ich mal) aber wie gesagt mein erstes programm
Auf lob und kritik wäre ich dankbar ( und natürlich tipps)
!! It's not a bug it's a feature !!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()