Hallo,
Und zwar fange ich gerade mit Visual Basic an und programmiere ein kleines Spiel. Dabei habe ich jedoch das Problem, dass ich nicht weiß, wie ich eine Kollisionsabfrage zwischen einer Zeichnung und der anderen zu machen. Alles, was ich weiß ist, dass ich es irgendwie mit Funktionen lösen kann, hab aber keine Lösung gefunden. Kann mir jemand dabei helfen? (am besten mit Beispiel)
Hier sind beide Zeichnungen, die sich auch bewegen können, ich brauche nur die Kollisionsabfrage zwischen den beiden.
Danke im Vorraus
Und zwar fange ich gerade mit Visual Basic an und programmiere ein kleines Spiel. Dabei habe ich jedoch das Problem, dass ich nicht weiß, wie ich eine Kollisionsabfrage zwischen einer Zeichnung und der anderen zu machen. Alles, was ich weiß ist, dass ich es irgendwie mit Funktionen lösen kann, hab aber keine Lösung gefunden. Kann mir jemand dabei helfen? (am besten mit Beispiel)
Hier sind beide Zeichnungen, die sich auch bewegen können, ich brauche nur die Kollisionsabfrage zwischen den beiden.
Danke im Vorraus
VB.NET-Quellcode
- Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
- 'PLAYER'
- '------'
- Dim player As Graphics = e.Graphics ' p = pinsel & s = stift
- Dim sred As New Pen(Color.Red, 2)
- Dim pred As New SolidBrush(Color.Red)
- Dim pblack As New SolidBrush(Color.Black)
- Dim pgrau As New SolidBrush(Color.Red)
- 'KÖRPER'
- player.FillEllipse(pred, player1.X, player1.Y, 100, 100)
- 'MUND'
- player.FillEllipse(pblack, player1.X, player1.Y, 100, 50)
- player.FillEllipse(pgrau, player2.X, player2.Y, 50, 25)
- 'AUGE'
- Dim sblack As New Pen(Color.Black, 2)
- player.DrawLine(sblack, player3.X, player3.Y, player5.X, player5.Y) 'Y-Achse um -23p verschoben
- player.FillEllipse(pblack, player4.X, player4.Y, 10, 10)
- 'FRUIT'
- '-----'
- Dim Obst As Graphics = e.Graphics
- Obst.FillEllipse(pred, Fruit1.X, Fruit1.Y, 60, 60)
- Obst.DrawLine(sblack, Fruit2.X, Fruit2.Y, Fruit3.X, Fruit3.Y)
- End Sub
