Beweglichen Button nicht durch Picturebox lassen

TheoTechnic · 10. September 2010, 20:00

Na ja, mach dir einen zweidimensionalen Array vom Typ Boolean (feld) und fülle diesen so auf:

VB.NET-Quellcode

For i As Integer = PicBox1.Location.X To PicBox1.Location.X + PicBox1.Size.Width
For a As Integer = PicBox1.Location.Y To PicBox1.Location.Y + PicBox1.Size.Heigth
feld (i, a) = True
Next
Next

Dann musst du nur noch beim bewegen so prüfen (+ und - je nach Richtung anpassen):

VB.NET-Quellcode

If feld (PicBox1.Location.X + 1, PicBox1.Location.Y ) = False Then
PicBox1.Location += 1
End If

Bitte beachte: Dieser Code ist noch lange nicht vollständig. Du musst noch die von Picoflop erklärte Problematik lösen und verhindern, dass die Position von PicBox1 den Index von Feld nicht überschreitet.
MfG TheoTechnic

Button1_click · 10. September 2010, 20:17

Vielen Dank

Aber Picbox1.Location += 1
Wird als Fehler angezeigt (Geht ja auch garnicht)
Anstatt location hab ich left gemacht

und "feld" ist nicht deklariert
wenn ich es mit
Dim feld versuche kommt ein Fehler (Nullreferenz oder sowas)

TheoTechnic · 10. September 2010, 21:05

Sorry, es muss Pixbox1.Location.X heißen. Feld musst du so deklarieren:

VB.NET-Quellcode

Dim feld (deineFormBreite, deineFormHöhe) As Boolean

MfG TheoTechnic

Button1_click · 11. September 2010, 09:57

Location.X geht auch nicht , habs aber durch left ersetzt.

VB.NET-Quellcode

Dim feld (deineFormBreite, deineFormHöhe) As Boolean

funzt leider auch irgendwie nicht ,als
(deineFormBreite,deineFormHöhe)
hab ich Panel1.bounds genommen, geht
doch auch oder ??
Dann wird aber Panel1 als Fehler angezeigt.

Kannst du mir helfen ??

TheoTechnic · 11. September 2010, 15:23

Sorry, gerade eben ist mir meine Glaskugel zerbrochen (wahrscheinlich Überlastung). Was kommt denn für eine Fehlermeldung? Wahrscheinlich das Rectangele nicht in Integer konvertiert werden kann. Gebe auf jeden Fall Integer Werte an, zum Beispiel so

VB.NET-Quellcode

Dim feld (Panel1.Size.Width, Panel1.Size.Height) As Boolean

Und zur PicBox.Location Sache, das ist mir jetzt echt peinlich :rolleyes:

, muss natürlich so heißen

VB.NET-Quellcode

PicBox1 = New Point (PicBox1.Location.X += 1, PicBox1.Location.Y)

Button1_click · 11. September 2010, 16:45

Jetzt kommt keine Fehlermeldung mehr.
Meine Frage:
Muss man nicht irgendwie noch die Hindernisse abfragen ?
Wenn nicht dann funktionierts bei mir nicht.

TheoTechnic · 11. September 2010, 18:02

In welchem Event prüfst du denn?

Button1_click · 11. September 2010, 18:14

KeyDown

TheoTechnic · 11. September 2010, 18:20

Und wann deklarierst du Feld und weist diesem True für die Pixel Picturebox zu?

Button1_click · 11. September 2010, 18:22

Alles im KeyDown

TheoTechnic · 11. September 2010, 18:50

Und was machst du zuerst? Zuweisen oder Abfragen? Ach ja, wichtig: Bei der Abfrage + und - je Links und Rechts anpassen.

Button1_click · 11. September 2010, 19:27

So sieht mein code aus:

VB.NET-Quellcode

Public Class Form1
Private Const besch As Integer = 2
Private Const stoss As Integer = 18
Private gesch As Integer
Private WithEvents tm As New Windows.Forms.Timer
Dim F As Integer
'-----------------------------------
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim feld(Panel1.Size.Width, Panel1.Size.Height) As Boolean
For i As Integer = Player.Location.X To Player.Location.X + Player.Size.Width
For a As Integer = Player.Location.Y To Player.Location.Y + Player.Size.Height
feld(i, a) = True
Next
Next
If feld(Player.Location.X + 1, Player.Location.Y) = False Then
Player.Location = New Point(Player.Location.X - 1)
End If
'-------------------------------
If Player.Location.X < 185 Then
Player.Location = New Point(775, Player.Location.Y)
ElseIf Player.Location.X > 780 Then
Player.Location = New Point(185, Player.Location.Y)
End If
If e.KeyCode = Keys.Up Then
If Not tm.Enabled Then
tm.Enabled = True
gesch = -25
End If
End If
If e.KeyCode = Keys.Right Then
Timer1.Start()
End If
If e.KeyCode = Keys.Left Then
Timer2.Start()
End If
If e.KeyCode = Keys.X Then
Timer4.Stop()
PictureBox1.Location = New Point(Player.Location)
PictureBox1.Visible = True
Timer3.Start()
End If
If e.KeyCode = Keys.Y Then
Timer3.Stop()
PictureBox1.Location = New Point(Player.Location)
PictureBox1.Visible = True
Timer4.Start()
End If
End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Timer1.Stop()
Timer2.Stop()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tm.Interval = 30
tm.Enabled = True
End Sub
Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
Dim Ziel As Integer = Player.Top
gesch += besch
Ziel += gesch
If Ziel + Player.Height > Panel1.ClientRectangle.Height Then
Ziel = Panel1.ClientRectangle.Height - Player.Height
If Math.Abs(gesch) - stoss < 0 Then
gesch = 0
Else : gesch = 0 - (gesch - stoss)
End If
End If
Player.Top = Ziel
If gesch = 0 AndAlso Player.Top = _
(Panel1.ClientRectangle.Height - Player.Height) Then
tm.Enabled = False
Debug.Print("done")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Player.Left += 1
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Player.Left -= 1
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
PictureBox1.Left += 10
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
PictureBox1.Left -= 10
End Sub
End Class

Kannst du mir sagen was falsch ist oder warum es nicht geht ?

Button1_click · 11. September 2010, 19:27

So sieht mein code aus:

VB.NET-Quellcode

Public Class Form1
Private Const besch As Integer = 2
Private Const stoss As Integer = 18
Private gesch As Integer
Private WithEvents tm As New Windows.Forms.Timer
Dim F As Integer
'-----------------------------------
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim feld(Panel1.Size.Width, Panel1.Size.Height) As Boolean
For i As Integer = Player.Location.X To Player.Location.X + Player.Size.Width
For a As Integer = Player.Location.Y To Player.Location.Y + Player.Size.Height
feld(i, a) = True
Next
Next
If feld(Player.Location.X + 1, Player.Location.Y) = False Then
Player.Location = New Point(Player.Location.X - 1)
End If
'-------------------------------
If Player.Location.X < 185 Then
Player.Location = New Point(775, Player.Location.Y)
ElseIf Player.Location.X > 780 Then
Player.Location = New Point(185, Player.Location.Y)
End If
If e.KeyCode = Keys.Up Then
If Not tm.Enabled Then
tm.Enabled = True
gesch = -25
End If
End If
If e.KeyCode = Keys.Right Then
Timer1.Start()
End If
If e.KeyCode = Keys.Left Then
Timer2.Start()
End If
If e.KeyCode = Keys.X Then
Timer4.Stop()
PictureBox1.Location = New Point(Player.Location)
PictureBox1.Visible = True
Timer3.Start()
End If
If e.KeyCode = Keys.Y Then
Timer3.Stop()
PictureBox1.Location = New Point(Player.Location)
PictureBox1.Visible = True
Timer4.Start()
End If
End Sub
Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Timer1.Stop()
Timer2.Stop()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tm.Interval = 30
tm.Enabled = True
End Sub
Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
Dim Ziel As Integer = Player.Top
gesch += besch
Ziel += gesch
If Ziel + Player.Height > Panel1.ClientRectangle.Height Then
Ziel = Panel1.ClientRectangle.Height - Player.Height
If Math.Abs(gesch) - stoss < 0 Then
gesch = 0
Else : gesch = 0 - (gesch - stoss)
End If
End If
Player.Top = Ziel
If gesch = 0 AndAlso Player.Top = _
(Panel1.ClientRectangle.Height - Player.Height) Then
tm.Enabled = False
Debug.Print("done")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Player.Left += 1
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Player.Left -= 1
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
PictureBox1.Left += 10
End Sub
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
PictureBox1.Left -= 10
End Sub
End Class

Kannst du mir sagen was falsch ist oder warum es nicht geht ?

EDIT: Sorry für den Doppelpost

TheoTechnic · 11. September 2010, 19:41

Autsch

Bitte lerne die Grundlagen!!!! Es muss so aussehen:

VB.NET-Quellcode

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If feld(Player.Location.X + Player.Size.Width + 1, Player.Location.Y) = False Then
Player.Location = New Point (Player.Location.X + 1, Player.Location.Y)
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If feld(Player.Location.X + Player.Size.Width + 1, Player.Location.Y) = False Then
Player.Location = New Point (Player.Location.X - 1, Player.Location.Y)
End If
End Sub

Da sind noch einige andere Fehler drinn, von denen jetzt aber auch noch den Code zu posten, werde ich NICHT tun. Mein Tipp: Pausiere das Project und fange an mit Grundlagen. Denn sowas macht man eigentlich NICHT mit Controls, sondern mit GDI+.

Button1_click · 11. September 2010, 19:46

Ja ich weiss das ist alles nicht so perfekt
aber durch rumprobieren lernt man auch

Also ich habs jetzt mal verbessert wie du gesagt hast
aber jetzt startet das Programm nichtmal (InvalidOperationException)
So wie ichs davor hatte hat das Programm wenigstens gestartet
und alles hat funktioniert (bis auf das Problem dass sich schon über diesen ganzen Thread erstreckt )

TheoTechnic · 11. September 2010, 20:13

Wo tritt den der Fehler auf und was ist die genaue Fehlerbeschreibung?

Beweglichen Button nicht durch Picturebox lassen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben