Hallo,
Ich habe ein Problem mit meinem jetzigen Projekt habe auch für das was ich vor hatte eine gute Lösung erstellt doch laggt diese in meinem Programm ganz schön und wenn ich mir dann vorstelle das ich noch wesentlich mehr überprüfe dann denk ich das wird nichts....
Nun zum Problem ich Überprüfe ob eine Picturebox die andere Berührt dies bewerkstellige ich mit 4 Schleifen.............
2 Jeweils um halt jede Koordinate von der Picturebox rauszufinden aber das ist halt sehr laggi...
Hier der Code vll wisst irh wie ich das gestalten kann das er nicht laggt..
Lg Algaten™
Ich habe ein Problem mit meinem jetzigen Projekt habe auch für das was ich vor hatte eine gute Lösung erstellt doch laggt diese in meinem Programm ganz schön und wenn ich mir dann vorstelle das ich noch wesentlich mehr überprüfe dann denk ich das wird nichts....
Nun zum Problem ich Überprüfe ob eine Picturebox die andere Berührt dies bewerkstellige ich mit 4 Schleifen.............
2 Jeweils um halt jede Koordinate von der Picturebox rauszufinden aber das ist halt sehr laggi...
Hier der Code vll wisst irh wie ich das gestalten kann das er nicht laggt..
Code:
Private Sub kollision()
'---------------------------Kollision Prüfen-----------------------------
Dim ccheckx As Integer 'CCheck = ControlCheck X/Y
Dim cchecky As Integer
For ccheckx = Controlx To Val(Controlx) + Val(controlw)
For cchecky = Controly To Val(Controly) + Val(controlh)
Dim pcheckx As Integer 'PCheck = PlayerCheck X/Y
Dim pchecky As Integer
For pcheckx = playerx To Val(playerx) + Val(playerw)
For pchecky = playery To Val(playery) + Val(playerh)
If pcheckx = ccheckx Then
If pchecky = cchecky Then
kollidiert = 1
MsgBox("Verloren!" + vbNewLine + "Sie haben das schwarze Viereck berührt")
GoTo exitloop
End If
ElseIf pchecky = cchecky Then
If pcheckx = ccheckx Then
kollidiert = 1
MsgBox("Verloren!" + vbNewLine + "Sie haben das schwarze Viereck berührt")
GoTo exitloop
End If
End If
Next
Next
Next
Next
'---------------------------Kollision Prüfen Ende---------------------
exitloop:
End Sub
'Code © by Algaten
