Data cez LPT

[Slavomir Skopalik]

Pokud mate prekladac pascalu 7.0  po ruce, tak zkuste tohle:

Je to psano z hlavy, tak snad...

program aaa;
uses crt;
var i:byte;
begin
 repeat
 for i:=0 to 255 do begin    { pila, pokud si prejete jinou funkci, musite si ji doprogramovat }
  asm
   mov al,i
   mov dx,$378  { adresa LPT portu }
   out  dx,al
  end;
  Delay(1);            { 1 ms pauza mezi outy, funguje jen na pomalejsich strojich }
 until keypressed; { nekonecna smycka }
end.

	Slavek


-----P?vodn? zpr?va-----
Od:	Vladislav Stulak [SMTP:stulak@intrak.tuke.sk]
Odesl?no:	16. ?nora 2000 10:43
Komu:	Multiple recipients of list
P?edm?t:	Data cez LPT

Zdravim

Prosim vas nemate niekto program, ktory by vysielal data na paralelny port
PC?

Ide o to, ze potrebujem rychlo nejaky jednoduchy program na vysielanie dat
na LPT port,
aby som vyskusal DA prevodnik MDAC08.
Takze ide o hodnoty 0 - 255 bud priamo cislo z klavesnice alebo postupne
zvysovanie (znizovanie).

Viem, ze je to uplne primitivny program, ale bohuzial sa v programovani
velmi nevyznam.
Dakujem za kazdy ohlas.
                                                        Vladislav


-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/ms-tnef
Size: 2960 bytes
Desc: not available
Url : http://nethouse.cz/pipermail/hw-list/attachments/20000218/069f6144/attachment.bin