Meine Aufgabe ist es bis nächsten Donnerstag ein Spiel in Informatik (11. Klasse) abzugeben. Meine Idee lautet wie folgt: Es gibt ein 8x8 Feld aus Labelboxen (größe 50x50) und man muss innerhalb von einer bestimmten Zeit so viele Label anklicken wie nur möglich. Es ist allerdings immer nur ein Label sichtbar und aktiviert. Sobald man das hervorgehobene Label anklickt erhält man einen Punkt. Das geklickte Label wird wieder unsichtbar und ein anderes (per Zufall) gewähltes Label erscheint. Dies wiederholt sich bis die Zeit abgelaufen ist.
Mein Problem ist nun das ich nicht weiß wie ich per Zufall die Label aktiviere oder verschwinden lasse...
Ich bitte um Verständniss, denn ich bin ein kompletter Anfänger was Visual Basic angeht. Falls ihr Lösungsvorschläge hättet bitte ich deshalb um simple Vorschläge .
Hier ist noch einmal was ich bisher aus eigener Erfahrung geschaffen habe.
Entwurf gyazo.com/e656e7be49c49ef656b679070affd7c7 (s. Anhang)
Code
Mein Problem ist nun das ich nicht weiß wie ich per Zufall die Label aktiviere oder verschwinden lasse...
Ich bitte um Verständniss, denn ich bin ein kompletter Anfänger was Visual Basic angeht. Falls ihr Lösungsvorschläge hättet bitte ich deshalb um simple Vorschläge .
Hier ist noch einmal was ich bisher aus eigener Erfahrung geschaffen habe.
Entwurf gyazo.com/e656e7be49c49ef656b679070affd7c7 (s. Anhang)
Code
VB.NET-Quellcode
- Public Class Spiel
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ms.Text = ms.Text + 1
- If ms.Text = 100 Then
- sek.Text += 1
- ms.Text = 0
- End If
- If sek.Text = 1 Then
- Timer1.Stop()
- Dim ergebnis As DialogResult = MessageBox.Show("Zeit abgelaufen." & vbCrLf & "Noch einmal?", "Auswahl", MessageBoxButtons.YesNo)
- If ergebnis = Windows.Forms.DialogResult.Yes Then
- Start.ranking.Items.Add("Punkte --> " & lbl_punkte.Text & " Zeit " & sek.Text & " : " & ms.Text)
- Neustart()
- End If
- If ergebnis = Windows.Forms.DialogResult.No Then
- Start.ranking.Items.Add("Punkte --> " & lbl_punkte.Text & " Zeit " & sek.Text & " : " & ms.Text)
- Start.Show()
- Me.Close()
- End If
- End If
- End Sub
- Private Sub Neustart()
- sek.Text = "0"
- lbl_punkte.Text = "0"
- End Sub
- Private Sub cmd_spielen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_spielen.Click
- Timer1.Start()
- End Sub
- Private Sub punkt(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click, Label8.Click, Label7.Click, Label64.Click, Label63.Click, Label62.Click, Label61.Click, Label60.Click, Label6.Click, Label59.Click, Label58.Click, Label57.Click, Label56.Click, Label55.Click, Label54.Click, Label53.Click, Label52.Click, Label51.Click, Label50.Click, Label5.Click, Label49.Click, Label48.Click, Label47.Click, Label46.Click, Label45.Click, Label44.Click, Label43.Click, Label42.Click, Label41.Click, Label40.Click, Label4.Click, Label39.Click, Label38.Click, Label37.Click, Label36.Click, Label35.Click, Label34.Click, Label33.Click, Label32.Click, Label31.Click, Label30.Click, Label3.Click, Label29.Click, Label28.Click, Label27.Click, Label26.Click, Label25.Click, Label24.Click, Label23.Click, Label22.Click, Label21.Click, Label20.Click, Label2.Click, Label19.Click, Label18.Click, Label17.Click, Label16.Click, Label15.Click, Label14.Click, Label13.Click, Label12.Click, Label11.Click, Label10.Click, Label1.Click
- lbl_punkte.Text += 1
- End Sub
- Private Sub beenden(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
- If e.KeyCode = Keys.Escape Then
- Start.Show()
- Me.Close()
- End If
- End Sub
- End Class