Guten Tag allerseits,
Ich habe ein Problem, nähmlich möchte ich ein Jump an Run spiel erstellen mit Visual Basic 2010.
Dafür habe ich in eine Picturebox eine Person gemacht und in einen Panel einen Stein.
Der Sinn des Spiels ist, dass man immer über den Stein springen muss.
Funktioniert auch alles, bis auf dass, wenn der Stein die Person berührt nichts passiert.
Deshalb würde ich gerne, wenn der Stein die Person berührt 20% von der Progressbar abziehen lassen, und wenn die Progressbar 0% ist eine MsgBox mit dem Inhalt "Game Over" erscheinen lassen. Allerdings klappt das nicht so ganz bei mir :).
Währe echt nett, wenn ihr mir Helfen könntet.
Der Code:
Ich habe ein Problem, nähmlich möchte ich ein Jump an Run spiel erstellen mit Visual Basic 2010.
Dafür habe ich in eine Picturebox eine Person gemacht und in einen Panel einen Stein.
Der Sinn des Spiels ist, dass man immer über den Stein springen muss.
Funktioniert auch alles, bis auf dass, wenn der Stein die Person berührt nichts passiert.
Deshalb würde ich gerne, wenn der Stein die Person berührt 20% von der Progressbar abziehen lassen, und wenn die Progressbar 0% ist eine MsgBox mit dem Inhalt "Game Over" erscheinen lassen. Allerdings klappt das nicht so ganz bei mir :).
Währe echt nett, wenn ihr mir Helfen könntet.
Der Code:
Visual Basic-Quellcode
- Private Sub Timer2_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- stone.Left -= 10
- stone.Enabled = False
- If stone.Left <= 0 Then
- stone.Location = New Point(549, 206)
- If stone.Location = human.Location Then
- ProgressBar1.Value -= 20
- If ProgressBar1.Value = 0 Then
- MsgBox("Game Over")
- Me.Close()
- End If
- End If
- End If
- End Sub
