Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomagajte ljudi ko boga vas molim!

[es] :: Visual Basic 6 :: Pomagajte ljudi ko boga vas molim!

[ Pregleda: 5759 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

b3|2A

Član broj: 28083
Poruke: 84
*.max.sa-vo.bih.net.ba.



Profil

icon Pomagajte ljudi ko boga vas molim!11.06.2004. u 15:42 - pre 247 meseci
treba mi pomoc u vezi jedne igre koju sam poceo da pravim!
Napravio sam osnovu igre!
'ovo je kretanje
Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = vbKeyRight Then slika.Move slika.Left + 200
If keycode = vbKeyLeft Then slika.Move slika.Left - 200
If keycode = vbKeyDown Then slika.Move slika.Left, slika.Top + 200
If keycode = vbKeyUp Then slika.Move slika.Left, slika.Top - 200
End Sub


Private Sub Form_Load()
Form1.BackColor = RGB(0, 0, 0)
igra = InputBox("Upisite vase ime!", "igra")
MsgBox ("Hvala sto korisitite ovu igricu") + igra, vbInformation, "igra"
End Sub

sada kad postavljam neprijatelja npr. slika2
Koji cod trebam ukucati da se slika2 vjecno krece i kad je dotaknem npr. da mi da poruku izgubio si?
MOLIM VAS POMOZITE!!!!!!
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Pomagajte ljudi ko boga vas molim!16.06.2004. u 14:46 - pre 247 meseci
Imas Timer kontrolu. Podesi joj interval na zeljenu vrednost, npr 500 i onda na timer eventu stavi kod koji pomera sliku. Onda ce ti se taj kod izvrsavati svakih pola sekunde (za Interval=500). Znaci treba da osmislis algoritam za slucajno kretanje slike. Sto se tice "doticanja slike" kosristi MouseOver ili Click event za sliku (PictureBox ili Image kontrolu).
 
Odgovor na temu

fLuXx
Luka Borkovic
Student
Pančevo

Član broj: 21183
Poruke: 363
*.3dnet.co.yu

Jabber: fluxx@elitesecurity.org


+2 Profil

icon Re: Pomagajte ljudi ko boga vas molim!22.06.2004. u 13:13 - pre 247 meseci
Code:
 
If (Ped.Top + Ped.Height >= Lopta.Top And Ped.Top < Lopta.Top + Lopta.Height) And _
(Ped.Left + Ped.Width >= Lopta.Left And Ped.Left < Lopta.Left + Lopta.Width) Then 'Detekcija sudara sa predmetom
...'ovde tvoj kod
...'ovde tvoj kod
End If


Ovde je ped objekat, a kod proverava da li se on sudarijo sa loptom. Ako jeste izvrsava neki kod. Ti mozes da promenis ime objekta, umesto 'ped' stavi nesto svoje, umesto 'lopta' takodje. Ovaj kod smestis u tajmer sa intervalom 50 ili koliko ti vec treba. Nadam se da sam pomogao.
 
Odgovor na temu

b3|2A

Član broj: 28083
Poruke: 84
*.as36.sa-vo.bih.net.ba.



Profil

icon Re: Pomagajte ljudi ko boga vas molim!23.06.2004. u 17:47 - pre 247 meseci
Hvala ti!
Ti si bog!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Pomagajte ljudi ko boga vas molim!

[ Pregleda: 5759 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.