Keskustelu: Koodit: QB: Tarkka tick-odotus

Tällä voi odottaa aika tarkasti jonkun tietyn ajan, ei tarvitse mitään tyhmiä "for dt=1 to 10000:next dt 'muuta oman koneesi kanssa sopivaksi" systeemejä. Tosi kätevä.
Tickit% on montako kellotickiä odotetaan. Sekunnissa on jotain 18.2 tickiä.

DEFINT A-Z
SUB pause (tickit)
    'hypätään alimuistiin(vai mikä se nyt on toi 0)
    DEF SEG = 0
    'loopataan kunnes on venattu tarpeeksi
    DO UNTIL TestiTikki > tickit
        'IF LEN(INKEY$) THEN EXIT SUB 'unremmaa jos napin painalluksella häivytään
        VikaTikki = Tikki
        'haetaan nykyinen ticki
        Tikki = PEEK(&H46C)
        'PRINT Tikki 'unremmaa niin näät kuin tää toimii
        'jos yks ticki mennyt niin setataan vähän
        IF VikaTikki <> Tikki THEN testiTikki = TestiTikki + 1
    LOOP
END SUB

Tässä vielä aliohjelma, jossa odotettavan ajan voi määritellä sekunteina (desimaaleja voi olla).

SUB OdotaS (sek!)
   a! = TIMER
   DO WHILE a! + sek! > TIMER
   LOOP
END SUB

Päivittyykö TIMER yhden kellotickin/-impulssin välein vai kuinka usein?

..kukahan kelloimpulssinkin on keksiny :D (hetken) mielijohteesta vaa yhtäkkiä päättäny et "okei sekunnis on 18.2 tikkiä"

Ei kai se silleen oo, se on kai joku sen ajastin jutun tai joku semmonen tietokoneessa se pienin määrä kuinka monta tikkiä sekunnis voi olla.. mut en sit tiiä mistä se tulee.
(Ymmärsiköhän kukaan tosta mitään? ;)

ja katelkaa SOUNDin helppiä... siinäki käytetään tota tick jutskaa jotenkin... joku tarkka laskuri koneessa se kai.

Tällä saa tarkasti ajan sekuntteina ku pistää

SUB pause (tickit)

rivin tilalle

SUB pause (sek!)
tickit = 18.2 * sek!