Kolizja obiektów

Dzisiaj zajmiemy się kolizją obiektów, będziemy bazować zna sterowaniu i projektu gry którą zaczęliśmy we wcześniejszym tutorialu: tutaj

Dorobimy sobie kulki które nasz statek będzie mógł złapać i zdobywać tym samym punkty.Trochę zmienimy sobie naszą formę. Wcześniej nasz pictureBox miał ustawione „Doc: fill” należy to zmienić na „none”. Dodajemy dodatkowy Panel który będzie przechowywał wyniki itp:

Gdy panel jest dodany dodajemy kilka labeli i ustawiamy wszystkie elementy jak w tabeli:

Po ułożeniu tych elementów nasza forma będzie wyglądała tak:

Teraz zajmiemy się teorią. Kiedy mówimy o kolizji obiektów, otóż w momencie nałożenia się dwóch obiektów w odniesieniu do obiektu matki. Jak to wygląda:

Czas stworzyć sobie nasz nowy obiekt. Nasz nowy obiekt będzie pojawiał się w losowym miejscu na planszy. Najpierw określimy sobie wymiary naszego obiektu. W moim przypadku będzie to 10×10 a kolor dam zielony. Następnie ograniczymy możliwość pojawienia się obiektu do strefy kropkowanej równej długości planszy – długość naszego obiektu i szerokości planszy minus szerokość naszego obiektu, na obrazku obszar kropkowany:

Nie chcemy aby nasz obiekt pojawił się poza planszą gdyż nie będziemy mogli go wtedy złapać. Do stworzenia obiektu możemy użyć gotowych obiektów jak panel, picturebox lub stworzyć za pomocą bibliotek drawing. Właśnie za pomocą tej metody stworzymy sobie nasze gemy. Problem z tą metodą jest taki, że nasze gemy będą musiały być cały czas monitorowane przez nas aby ich lokalizacja była stale zapisywana i porównywana z lokalizacją statku. Najpierw pobieramy sobie bublioteki:

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports System.Drawing.Text

Public Class Form1
(...)

Bez nich nic nie namalujemy.  Dodajemy sobie lokalne zmienne które będą odpowiedzialne, za niektóre elementy gry:

    Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Green) 'Dodaje kolorek pod zmienną myBrush posłuży za wypełnienie
    Dim startposGemL As Integer 'położenie gem'a lewo
    Dim startposGemT As Integer 'położenie gem'a top
    Dim wynik As Integer = 0 'Początkowy wynik

Do suba odpowiedzialnego za rozpoczęcie gry dodajemy linijki:

    Public Sub start()
        startposGemL = Int(Rnd() * (PictureBox1.Width - 2 * 10) + 10) 'ustawia początkową wartość left dla gemu
        startposGemT = Int(Rnd() * (PictureBox1.Height - 2 * 10) + 10) 'ustawia początkową wartość top dla gemu
(...)

Zajmiemy się teraz funkcją która będzie odpowiedzialna za sprawdzanie kolizji naszego statku. Jak taka funkcja powinna wyglądać. Wróćmy na chwilę do obrazków które przedstawiałem powyżej. Aby określić czy nasze obiekty uległy kolizji ich położenie w stosunku to Picturebox musi się w jakimś stopniu się nakładać. Pogram sam sprawdza podczas ticku jaką wartość zwraca funkcja kolizji, będzie to „True” lub „False” czyli wartość typu boolean:

    Private Function Collision(ByVal object1 As Object) As Boolean
        Dim Collided As Boolean = False
        If object1.top + object1.height >= startposGemT And _
        startposGemT + 10 >= object1.top And _
                   object1.left + object1.width >= startposGemL And _
                     startposGemL + 10 >= object1.left Then
            Collided = True
        End If
        Return Collided
    End Function

Teraz wracamy do Timer1_Tick i wpisujemy kod:

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

       (...)

        Gemtop.Text = startposGemT.ToString 'służy do pokazania położenia top gemu
        Gemleft.Text = startposGemL.ToString 'służy do pokazania położenia left gemu

        Statekleft.Text = statek.Left.ToString 'służy do pokazania położenia left statku
        Statektop.Text = statek.Top.ToString 'służy do pokazania położenia top statku

        If Collision(statek) = True Then 'uruchamia funkcje która zwraca 1 lub 0 dla kolizji obiektów
            'jeśli kolizja miała miejsce
            startposGemL = Int(Rnd() * (PictureBox1.Width - 2 * 10) + 10) 'nowe położenie gemu left
            startposGemT = Int(Rnd() * (PictureBox1.Height - 2 * 10) + 10) 'nowe położenie gemu top
            PictureBox1.Refresh()
            wynik = wynik + 1
            Wynik_wartosc.Text = wynik ' dodaje 1 do wyniku
        End If

    End Sub

Po dodaniu wszystkich elementów i kodów nasza gra powinna wyglądać tak:

Na dzisiaj tyle.

Projekt do pobrania: Sterowanie_obiektem_kolizja_obiektów

Film prezentujący program: