[Vb] Kann man das efektiver machen?

[Algaten™]

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..

 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

Lg Algaten™

[WhiteCollar]

Ehm da giebt es einen extra code denn haben ich mal gesehen als ich mir ein Tut reingezogen ahbe in dem es um E-mail spammer ging^^ ich aknn ancher mal gucken aba muss ejtzt erstmal weg^^ guck einfach mal bei youtube^^

[Algaten™]

Originally Posted by TerrorTom

Ehm da giebt es einen extra code denn haben ich mal gesehen als ich mir ein Tut reingezogen ahbe in dem es um E-mail spammer ging^^ ich aknn ancher mal gucken aba muss ejtzt erstmal weg^^ guck einfach mal bei youtube^^

Ich hab zeit

Ich habe auch schonwas gesehn mit Gdi+ jedoch komm ich damit nicht wirklich zurecht deswegen habe ich halt diesen code genommen...
Hab auch schon selbst rübergeschaut aber noch nichts zum verbessern gefunden

[WhiteCollar]

Okay hab garde nochmal 10 min gesucht konnte nix finden^^ ehm ich kann morgen nochmal gucken wenn du bis dahin nix gefunden hast^^

[MoepMeep]

Startposition+größe auslesen. Dann kannste dir die ganzen schleifen sparen.

[NoObKiLLyOu]

Hmm Ich wüsste auch nicht was man da nehmen kann.... Wie laggi is es den überhaupt ein kleines Beispiel vielleicht...

[Algaten™]

Originally Posted by MoepMeep

Startposition+größe auslesen. Dann kannste dir die ganzen schleifen sparen.

hmm immoment mache ich das:

Controlx = PictureBox2.Location.X
Controly = PictureBox2.Location.Y
controlw = PictureBox2.Width
controlh = PictureBox2.Height

Startposition und größe ist des ja und verarbeiten tu ich das dann mit den schleifen..

Originally Posted by NoObKiLLyOu

Hmm Ich wüsste auch nicht was man da nehmen kann.... Wie laggi is es den überhaupt ein kleines Beispiel vielleicht...

Wenn ich nun die erste Picturebox bewege indem ich PfeilTaste Oben drücke dann dauert es länger und halt desto größer die picturebox ist desto mehr laggt es da ja dementsprechend mehr zum überprüfen gibt

[MoepMeep]

Dann schaust du, welche Picturebox weiter links anfängt und schaust, ob deren endpunkte in der anderen liegen bzw sogar über diese hinausgehen.

Und btw, ich hoffe, dass du nicht denkst ich hätte deinen 'code' auch nur ansatzweise gelesen.

[Algaten™]

Originally Posted by MoepMeep

Dann schaust du, welche Picturebox weiter links anfängt und schaust, ob deren endpunkte in der anderen liegen bzw sogar über diese hinausgehen.

Und btw, ich hoffe, dass du nicht denkst ich hätte deinen 'code' auch nur ansatzweise gelesen.

Hmmm dann muss ich wieder koordinaten bestimmem mit schleifen oda?

doch denk ich

[MoepMeep]

Originally Posted by Algaten™

Hmmm dann muss ich wieder koordinaten bestimmem mit schleifen oda?

doch denk ich

startpunkt+größe = endpunkt

Wozu schleifen?