|
Pravljenje igara Programski jezici, tehnike, alatke u službi pravljenja igara... |
|
Alatke vezane za temu | Vrste prikaza |
25.5.2008, 18:42 | #1 |
Član
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
|
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 |
25.5.2008, 19:11 | #2 |
Mythbuster
|
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 |
25.5.2008, 19:27 | #3 |
Član
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
|
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 |
26.5.2008, 0:04 | #4 |
Mythbuster
|
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.
|
26.5.2008, 16:21 | #5 |
Član
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
|
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? |
26.5.2008, 20:04 | #6 |
Član
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
|
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. |
27.5.2008, 18:48 | #7 |
Član
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
|
Re: VB, hitna pomoć
Hvala svima na pomoći
reći ću vam kako je prošlo |
27.5.2008, 19:40 | #8 | |
Član
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
|
Re: VB, hitna pomoć
Citat:
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 |
|
28.5.2008, 3:23 | #9 |
Član
Član od: 16.10.2007.
Lokacija: NS,SO
Poruke: 80
Zahvalnice: 24
Zahvaljeno 38 puta na 20 poruka
|
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. |
28.5.2008, 8:34 | #10 |
Član
Član od: 13.10.2006.
Lokacija: Dream World
Poruke: 321
Zahvalnice: 0
Zahvaljeno 25 puta na 9 poruka
|
Re: VB, hitna pomoć
OK OK hvala na pomoći
kao što sam rekao ja sam početnik ali ovo moram da završim |
Bookmarks sajtovi |
|
|
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 |