Program der tjekker en løkke
Hej. Jeg mangler hjælp :).Hvordan kan jeg lave et program som tjekker indholdet af filen.txt, hele tiden (i en løkke kunne jeg forstille mig).
Hvis filen.txt er "2" skal den sende strøm til en pin på parralelporten (i følge den her: http://hwb.sunsite.dk/co_ParallelPC.html kan det blive fra pin 2 til pin 9 (?)).
www2.frsund-gym.dk/tk/robot/projekt.doc se der (under QBasic kan i læse hvordan).
<snip fra den>
Parallelporten har som oftest hex-decimal adressen 378, hvilket giver adressen en decimal værdi på 888. Parallelporten består af 25 pins, hvoraf vi har valgt at bruge de 8 udgange, hhv. pin 2,3,4,5,6,7,8,9, også kaldet DataOUT 1-8. Stel/minus findes på portens pin 23.
Når man skal skrive til parallelporten fra Qbasic, gøres det via følgende kommandoer:
OUT 888, 0 får alle pins til at gå ”lav”.
OUT 888, 2 får pin 2 (DataOUT 1) til at gå høj.
Nedenfor vil vi give et eksempel, på et program som får robotarmen til at dreje 100 step i urets retning.
pause = 50000 ‘en variable - pause imellem hvert step.
DO UNTIL I% = 100 ’start på en løkke
OUT 888, 0 ’alle pins går ”lav”
I% = I% + 1 ’selve løkken
PRINT "STEP" ’viser teksten ”Step” på skærmen
FOR a = 1 TO pause: NEXT a ’pause
OUT 888, 128 ’en puls, et step på pin 9
PRINT I% ’hvor langt er vi nået?
LOOP ’Loop indtil i% variablen er = 100.
</snip>
Kan nogen hjælpe mig?
