Hey Leute,
Ich bin grade dabei, ein Spiel zu Programmieren.
Ich habe eine Picturebox erstellt und chara benannt.
wenn ich die Pfeil nach oben Taste drücke,
springt diese auch mit Hilfe dieses codes:
Nun habe ich noch eine Picturebox, Block1, die in der Luft hängt.
und wenn ich mit dem Chara darauf springe, möchte ich, dass die figur darauf bleibt und wenn ich diese verlasse, soll die figur wieder runter fallen...
Aber ich habe keinen Plan, wie ich das ganze anstellen soll...
Kann mir da vllt. jemand helfen????
Danke im Voraus MfG gtw2o11
Ich bin grade dabei, ein Spiel zu Programmieren.
Ich habe eine Picturebox erstellt und chara benannt.
wenn ich die Pfeil nach oben Taste drücke,
springt diese auch mit Hilfe dieses codes:
VB.NET-Quellcode
- Public Class Form1
- Private Const besch As Integer = 2 ' Beschleunigung
- Private Const stoss As Integer = 3 ' Stossabsorption am Boden
- Private gesch As Integer ' aktuelle Fall/Steiggeschwindigkeit
- Private WithEvents tm As New Windows.Forms.Timer
- Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- If e.KeyCode = Keys.Up Then
- If Not tm.Enabled Then
- tm.Enabled = True
- gesch = -30
- End If
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- tm.Interval = 30
- tm.Enabled = False
- chara.Top = Me.ClientRectangle.Height - chara.Height
- End Sub
- Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
- Dim ziel As Integer = chara.Top
- gesch += besch
- ziel += gesch
- If ziel + chara.Height > Me.ClientRectangle.Height Then
- ziel = Me.ClientRectangle.Height - chara.Height
- If Math.Abs(gesch) - stoss < 0 Then
- tm.Enabled = False
- Else
- tm.Enabled = False
- End If
- End If
- chara.Top = ziel
- If gesch = 0 AndAlso chara.Top = (Me.ClientRectangle.Height - chara.Height) Then
- tm.Enabled = False
- Debug.Print("done")
- End If
- End Sub
- End Class
Nun habe ich noch eine Picturebox, Block1, die in der Luft hängt.
und wenn ich mit dem Chara darauf springe, möchte ich, dass die figur darauf bleibt und wenn ich diese verlasse, soll die figur wieder runter fallen...
Aber ich habe keinen Plan, wie ich das ganze anstellen soll...
Kann mir da vllt. jemand helfen????
Danke im Voraus MfG gtw2o11