Enviar Bite Porta Serial DB25

21/01/2006

Fala Pessoal, blz?

Seguinte, preciso de um comando que envie um bite para a porta LPT1.. Alguém tem ai??

Valew


Marrecotk

Respostas

21/01/2006

Kroki

var
porta:word;
DADO:BYTE;
Begin
porta:=$378(LPT1)
ASM
MOV DX,PORTA
MOV AL,DADO
OUT DX,AL
END;
END;


Responder Citar

21/01/2006

Marrecotk

e se eu kiser enviar um bit para o pino 3?? como faço? desculpe a falta de conhecimento.. :D


Responder Citar

21/01/2006

Kroki

var
porta:word;
DADO:BYTE;
Begin
DADO:=$4(Binario=00001000)
porta:=$378(LPT1)
ASM
MOV DX,PORTA
MOV AL,DADO
OUT DX,AL
END;
END;


Responder Citar

22/01/2006

Marrecotk

preciso fazer o sistema para controlar o seguinte:

[img:c752480733]http://www.rogercom.com/pparalela/Projeto4.gif[/img:c752480733]

ELe tem que ligar e desligar os leds..

Valew!


Responder Citar

22/01/2006

Kroki

Cada Bit é um Led,$FF=11111111,todos acesos.
$00000000=Todos apagados,vc poe esses valores em ´DADO´ e envia.
Use a clculadora do Windows em modo científico e use modo Binario,aí vc vai ter uma noçao.


Responder Citar

23/01/2006

Marrecotk

Eu preciso abrir a porta lpt1 ou não precisa?


Responder Citar

26/01/2006

Kroki

Nao,em assembler nao existe essas coisas...


Responder Citar