Array
(
)

Enviar Bite Porta Serial DB25

Marrecotk
   - 21 jan 2006

Fala Pessoal, blz?

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

Valew


Kroki
   - 21 jan 2006

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


Marrecotk
   - 21 jan 2006

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


Kroki
   - 21 jan 2006

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;


Marrecotk
   - 22 jan 2006

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!


Kroki
   - 22 jan 2006

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.


Marrecotk
   - 23 jan 2006

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


Kroki
   - 26 jan 2006

Nao,em assembler nao existe essas coisas...