VB6.0 a 24C16

[Pavel Hudecek]

Tohle je ovsem o uplne jinem casovaci...

Pavel Hudecek
----------------------------------------------------
http://www.diametral.cz

Od: "ing.Jaroslav Kotlaba" <kotlaba@zpa-pecky.cz>
> > Mne skor islo o to, poradit ako spolahlivo (nezavisle od vykonu PC, ako
> > by to bolo pri sluckach) ziskat minimalny cas a co najjednoduchsie.
> 
> Kdysi jsem si zkousel hrat se systemovym casovacem.
> Napsal jsem si k tomu programek, abych videl, zda to funguje.
> 
> 10 N = &H43
> 15 CLS
> 20 SCREEN 9
> 30 WINDOW (-2, -5)-(257, 257)
> 35 LINE (-1, -1)-(256, 256), 3, B
> 36 OUT N, 0: a = INP(&H40): b = INP(&H40): IF b <> 0 THEN 36
> 40 FOR X = 0 TO 255
> 90 PSET (X, b)
> 50 OUT N, 0
> 60 a = INP(&H40): b = INP(&H40)
> 80 rem b = b * 256: C = b + a
> 100 NEXT X
> cekej:
> 105 a$ = INKEY$: IF a$ = "" THEN goto cekej
> 107 IF a$ = " " THEN STOP
> 110 LINE (0, 0)-(255, 255), 0, BF
> 120 GOTO 36
> 
> Rozumy jsem bral z elektronickeho manualu SYSMAN.
> 
> Tehdy jsem se spokojil s tim, ze by to fungovat mohlo a dal s tim nic
> nedelal.