Timer kontrola razlicita brzina na razlicitim racunarima

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Izvinjavam se unapred ako ova tema postoji. pretrazio sam sve zive forume i nisam mogao da nadjem odgovor. Zapravo o cemu se radi:
napravio sam prostu igricu gde se dva shape-a krecu po formi klikom na odredjene dugmice (predstavljaju 2 tenka). Njihovo kretanje sam resio Timer kontrolom, medjutim, na mom racunaru se oni sporije krecu nego kod komsije, sto me cudi jer on ima slabiji racunar (ako je do toga?).
To ovako izgleda:

Private Sub gore_Timer()
Shape1.Top = Val(Shape1.Top) - 50
End Sub

Private Sub dole_Timer()
Shape1.Top = Val(Shape1.Top) + 50
End Sub

Private Sub levo_Timer()
Shape1.Left = Val(Shape1.Left) - 50
End Sub

Private Sub desno_Timer()
Shape1.Left = Val(Shape1.Left) + 50
End Sub

Interval svih Timera je 20 (nije 20s). Molim Vas pomozite mi kako da resim tu razliku u brzini.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Timer komponenta nije precizna.
Pride toga, moze postojati problem i sa FOR..NEXT petljama. Dok se petlja izvrsava moze doci do totalnog zauzeca threada, pa tajmer za to vreme bude blokiran.

Za vecinu programskih jezika postoje posebne komponente tipa sa preciznijim tajmerima. Vidi da li postoji neka takva i za VB.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nista te ne sprecava da napravis time based kretanje. Kad god aplikacija nema nista drugo da radi (obrada ulaznih podataka, logika igre, crtanje...) ti izracunas koliko je vremena proslo od poslednjeg "besposlenog" stanja i pomeris objekte u manje ili vise u zavisnosti od proteklog vremena.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li moze neko pojasnjenje za to time based kretanje. Meni je bitno da se ta dva objekta (shape1 & shape2) krecu uvek istom brzinom, tj. da njihovo kretanje ne zavisi od racunara vec da se na svakom racunaru krecu istom brzinom.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Mislim da ti ne treba toliko Timer-a.
Evo primer kako mozes resiti, slicno kao sto je rakao Srki. Bez obzira na interval Timer1 kretace se uvek istom brzinom, samo ce se menjati ucestalost iscrtavanja. Ako intervala i Timer-u na 20 ms imaces 50 iscrtavanja u sekundi.

0. Dim Levo1 As Boolean
1. Dim Desno1 As Boolean
2. Dim Gore1 As Boolean
3. Dim Dole1 As Boolean
4. Dim Levo2 As Boolean
5. Dim Desno2 As Boolean
6. Dim Gore2 As Boolean
7. Dim Dole2 As Boolean
8. Dim x1 As Integer
9. Dim x2 As Integer
10. Dim y1 As Integer
11. Dim y2 As Integer
12. Dim Vreme As Double
13. Dim Razlika As Integer
14. Dim Brzina As Integer
15.  
16. Private Sub Form_Load()
17.     Desno1 = True
18.     Dole2 = True
19.     Vreme = Timer
20.     x1 = 1000
21.     x2 = 2000
22.     y1 = 200
23.     y2 = 300
24.     Brzina = 100
25. End Sub
26.  
27. Private Sub Timer1_Timer()
28.     Razlika = (Timer - Vreme) * Brzina
29.     If Levo1 = True Then x1 = x1 - Razlika
30.     If Levo2 = True Then x2 = x2 - Razlika
31.     If Desno1 = True Then x1 = x1 + Razlika
32.     If Desno2 = True Then x2 = x2 + Razlika
33.     If Gore1 = True Then y1 = y1 - Razlika
34.     If Gore2 = True Then y2 = y2 - Razlika
35.     If Dole1 = True Then y1 = y1 + Razlika
36.     If Dole2 = True Then y2 = y2 + Razlika
37.     Shape1.Top = y1
38.     Shape2.Top = y2
39.     Shape1.Left = x1
40.     Shape2.Left = x2
41.     Vreme = Timer
42. End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Karlose hvala ti puno na ovoj pomoci. Mislim da je ovo reseno. Proveravao sam sa komsijom i mislim da u istom trenutku dolaze do cilja(kako na njegovom tako i na mom racunaru).Jos jednom hvala puno na pomoci.