Keskustelu: Ohjelmointikysymykset: VB6: Seinä

aloitteleva [04.07.2005 18:49:32]

Oon ajatellu miten saan tehtyä seiniä peliini esim kun se mun palikka liikku aina pois kuvasta =(
Kiitos etukäteen
Visual basicille.

Blaze [04.07.2005 18:55:23]

http://pp.kpnet.fi/blaze/codefaq/#collisiondetection
Myös esim. https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=qbmgpo1

tgunner [04.07.2005 23:38:47]

:O Blazelta löytyy näitä ohjeita.

hunajavohveli [05.07.2005 09:26:25]

Blazen ohjetta voisi kyllä muokata niin, että jokaisessa Casessa laskettaisiin vain uudet koordinaatit ja tarkistus tehtäisiin vasta lopuksi. Sitä ei minun mielestäni nimittäin kannata kirjoittaa neljään kertaan.

Kirjoitin joskus ennenkin tuon korjauksen:

Select Case KeyCode
  Case vbKeyUp
    uusix = Picukko.Left
    uusiy = Picukko.Top - NOPEUS
  Case vbKeyRight
    uusix = Picukko.Left + NOPEUS
    uusiy = Picukko.Top
  Case vbKeyDown
    uusix = Picukko.Left
    uusiy = Picukko.Top + NOPEUS
  Case vbKeyLeft
    uusix = Picukko.Left - NOPEUS
    uusiy = Picukko.Top
End Select

For i = 0 To 1
  If uusiy < (Piceste(i).Top + Piceste(i).Height) And _
    (uusiy + Picukko.Height) > Piceste(i).Top And _
    uusix < (Piceste(i).Left + Piceste(i).Width) And _
    (uusix + Picukko.Width) > Piceste(i).Left Then Exit Sub
Next i

Picukko.Left = uusix
Picukko.Top = uusiy

Tuossa on otettu huomioon myös PictureBoxien indeksoiminen.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen