Forum Sveta kompjutera

Nazad   Forum Sveta kompjutera > Test Run > Programiranje > Pravljenje igara

Pravljenje igara Programski jezici, tehnike, alatke u službi pravljenja igara...

Odgovor
 
Alatke vezane za temu Vrste prikaza
Stara 25.5.2008, 18:42   #1
SK fan
Član
 
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
Određen forumom VB, hitna pomoć

Znam da ne volite da vam početnici postavlju glupa pitanja ali meni je
potrebna pomoć hitno

na dno interfejsa Form 1 imam jedan image koji pomeram pomoću tastera
image mogu da promenim u command button
sa vrha padaju command buttoni i želim da kada dodirnu taj objekat koji pomeram
da se vrate na početak i da igrač mora da počene iz početka
ovo je nešto kao space invaders samo bez pucanja znači nešto jednostavno
ali mi je hitno potrebno

Hvala u napred
SK fan je offline   Odgovor sa citatom ove poruke
Stara 25.5.2008, 19:11   #2
Marko_L
Mythbuster
 
Član od: 2.11.2005.
Lokacija: Beograd
Poruke: 2.205
Zahvalnice: 38
Zahvaljeno 370 puta na 147 poruka
Slanje poruke preko ICQ-a korisniku Marko_L Slanje poruke preko MSN-a korisniku Marko_L Slanje poruke preko Yahooa korisniku Marko_L Slanje poruke preko Skypea korisniku Marko_L
Određen forumom Re: VB hitna pomoći

Koliko sam te razumeo, tebi treba neki jednostavan collision detection. U tvom slučaju to možeš uraditi uz malo proste matematike...
Recimo ako se image zove Image1 a command button Command1, možeš da proveriš ovako
Kod:
If Command1.Top + Command1.Height >= Image1.Top Then
     If Command1.Left + Command1.Width > Image1.Left And Image1.Left + Image1.Width < Command1.Left Then
          'imamo koliziju, uradi nesto
     End If
End If
Marko_L je offline   Odgovor sa citatom ove poruke
Stara 25.5.2008, 19:27   #3
SK fan
Član
 
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
Određen forumom Re: VB hitna pomoći

Upisao sam:
Private Sub Image1_Click()
If Command1.Top + Command1.Height >= Image1.Top Then
If Command1.Left + Command1.Width > Image1.Left And Image1.Left + Image1.Width < Command1.Left Then
End
End If
End If
End Sub

ali ne dešava se to što ja želim
Upisao sam isti kod i za Command button1 i ništa
SK fan je offline   Odgovor sa citatom ove poruke
Stara 26.5.2008, 0:04   #4
Marko_L
Mythbuster
 
Član od: 2.11.2005.
Lokacija: Beograd
Poruke: 2.205
Zahvalnice: 38
Zahvaljeno 370 puta na 147 poruka
Slanje poruke preko ICQ-a korisniku Marko_L Slanje poruke preko MSN-a korisniku Marko_L Slanje poruke preko Yahooa korisniku Marko_L Slanje poruke preko Skypea korisniku Marko_L
Određen forumom Re: VB hitna pomoći

Pa normalno da se ništa ne dešava kada si stavio kod u click event. Stavi kod u neki tajmer ili petlju.
Marko_L je offline   Odgovor sa citatom ove poruke
Stara 26.5.2008, 16:21   #5
SK fan
Član
 
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
Određen forumom Re: VB, hitna pomoć

OK uradio sam ono što mi treba ali malo drugačije
u timer1 sam napisao:
Private Sub Timer1_Timer()
Static BrTim As Integer
Command2.Top = Command2.Top + 40
Command3.Top = Command3.Top + 40
Command4.Top = Command4.Top + 40
Command5.Top = Command5.Top + 40
Command6.Top = Command6.Top + 40
Command7.Top = Command7.Top + 40
If Command2.Top > 12000 Then
Command2.Top = 0
End If
If Command3.Top > 12000 Then
Command3.Top = 0
End If
If Command4.Top > 12000 Then
Command4.Top = 0
End If
If Command5.Top > 12000 Then
Command5.Top = 0
End If
If Command1.Left = Command2.Left And Command1.Top = Command2.Top Then
End
End If
If Command1.Left = Command3.Left And Command1.Top = Command3.Top Then
End
End If
If Command1.Left = Command4.Left And Command1.Top = Command4.Top Then
End
End If
If Command1.Left = Command5.Left And Command1.Top = Command5.Top Then
End
End If


End Sub

Ali često se desi da ne bude kraj već da se promaše za vrlo malo može li to da se ispravi da ili da nastavim da podešavam brzine kretanja?
SK fan je offline   Odgovor sa citatom ove poruke
Stara 26.5.2008, 20:04   #6
KarloBasic
Član
 
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
Određen forumom Re: VB, hitna pomoć

Probaj ovako:

Rastojanje=10 ' Ili neka druga vrednost u zavinosti od potrebne blizine dodira
If Abs(Command1.Left - Command2.Left)<Rastojanje And Abs(Command1.Top - Command2.Top)<Rastojanje Then
End
End If

i tako za preostala 3 slucaja.
KarloBasic je offline   Odgovor sa citatom ove poruke
Stara 27.5.2008, 18:48   #7
SK fan
Član
 
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
Određen forumom Re: VB, hitna pomoć

Hvala svima na pomoći
reći ću vam kako je prošlo
SK fan je offline   Odgovor sa citatom ove poruke
Stara 27.5.2008, 19:40   #8
SK fan
Član
 
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
Određen forumom Re: VB, hitna pomoć

Citat:
KarloBasic kaže: Pregled poruke
Probaj ovako:

Rastojanje=10 ' Ili neka druga vrednost u zavinosti od potrebne blizine dodira
If Abs(Command1.Left - Command2.Left)<Rastojanje And Abs(Command1.Top - Command2.Top)<Rastojanje Then
End
End If

i tako za preostala 3 slucaja.
Može tačno objašnjenje šta radi ovaj kod? jer mi nismo radili sa naredbom Abs
moram li ja da raspoređujem command buttone ili ih ovaj kod sam pomera?
Rekao bih da je ovo drugo ali morao sam da pitam
SK fan je offline   Odgovor sa citatom ove poruke
Stara 28.5.2008, 3:23   #9
KarloBasic
Član
 
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
Određen forumom Re: VB, hitna pomoć

Abs nije naredba nego funkcija (absolutna vrednost).

Kod proverava da li je razlika izmedju Command1 i Command2 po X(Left) i Y(Top) osi manja od Rastojanja ( u ovom slucaju 10 ) . Naravno da moras da pomeras Command buttone ne mogu se oni pomerati sami od sebe.
KarloBasic je offline   Odgovor sa citatom ove poruke
Stara 28.5.2008, 8:34   #10
SK fan
Član
 
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
Određen forumom Re: VB, hitna pomoć

OK OK hvala na pomoći
kao što sam rekao ja sam početnik ali ovo moram da završim
SK fan je offline   Odgovor sa citatom ove poruke
Odgovor

Bookmarks sajtovi

Alatke vezane za temu
Vrste prikaza

Vaš status
Ne možete postavljati teme
Ne možete odgovarati na poruke
Ne možete slati priloge uz poruke
Ne možete prepravljati svoje poruke

BB kod: uključeno
Smajliji: uključeno
[IMG] kod: uključeno
HTML kod: isključeno


Slične teme
tema temu započeo forum Odgovora Poslednja poruka
Pomoć! Virus koji kuca nulu! 00000 Zaštita 8 19.4.2008 13:03
Hitna Pomoć Quercusmaster Kvarovi 4 31.12.2007 1:21
[Legend of Zelda - The Minish Cap] -> pomoć Geomaster Konzole 30 10.9.2007 14:05
VB vs C# vs C++ Damjan Programiranje 8 4.8.2007 17:55
Control array u VB 2005 Expressu? Mrmot Programiranje 5 2.8.2007 0:08


Sva vremena su po Griniču +2 h. Sada je 13:57.


Powered by vBulletin® verzija 3.8.7
Copyright ©2000–2024, vBulletin Solutions, Inc.
Hosted by Beograd.com