programeri upomoc

[Login Killer]

Ovo mi je bilo najbolje, ali i ostala su pomogla

Drago mi je.
Pozdrav,
Login Killer

 

[Pjotr Raspucin Rhsnikov]

Auh, sad imam drugo pitanje. Hocu da napravim igricu u VB (nesto kao one sto misem pomeras polugu i skupljas nesto sto pada) samo ne znam da definisem tu polugu. Da li treba da se ucita u neki picture box, ili da bude komandno dugme ili nesto sasvim trece? Ko zna neka odgovori...
Unapred hvala

 

[Login Killer]

Kao Picture box.
E sad, definises npr krug ako se nalazi ispod jedne ose onda se pitas jel da li je tu podloga, ako jeste onda npr. dodaj poene i tako dalje

 

[Pjotr Raspucin Rhsnikov]

Budimo precizniji. Trebaju mi kodovi.

 

[bojan p]

Kodovi? Kakvi sada kodovi?

 

[Pjotr Raspucin Rhsnikov]

Ne znam nista o tome, ali mislim da ima neki kod koji definise kretanje palice i sinhronizuje sa misem...

 

[bojan p]

Za početak zaboravi joystick i miša. Koristi tastere za pomeranje objekata koje igrač kontroliše.

 

[Pjotr Raspucin Rhsnikov]

Znam sad (i hteo sam da se ubijem koliko je prosto bilo:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
poluga.Move (X - Shape1.Width / 2)
End Sub)
A sad kako da napravim objekte koji padaju?

 

[Login Killer]

Private sub Form1_Load()
Randomize()
PadajuciObjekat.Left = Round(Rnd*1000,0)
Timer1.Enabled = True
end sub

Private Sub Timer1_Timer()
PadajuciObjekat.Top = PadajuciObjekat.Top + 100 ' Ako hoces da pada objekat + ako hoces da lete -
end sub

 

[Pjotr Raspucin Rhsnikov]

Hvala