Fórum Porta Paralela #174291
11/08/2003
0
é o seguinte.. acho que não me expressei direito... eu to fazendo um hardware que vai funcionar como um interruptor que ligado a paralela quero controlar ele atravez de um software, eu queria saber como que eu faço para ter esse controle da paralela em delphi. Sei que tenho 8 saidas pela paralela.. como faço para ativar e desativar elas..... tem algum componente para delphi....
obrigado...
obrigado...
Cangacero
Curtir tópico
+ 0
Responder
Posts
11/08/2003
Emilio
Eu também estou tentando controlar a porta paralela. Achei um pequenocodigo que pode lhe ser bastante util. Ele usa o assembler. Vê se serve para o que você precisa:
Por exemplo para acender um LED.
Procedure acende;
asm // começo de instrução assemler
mov dx, $378 // indica o endereço da porta paralela
mov al, $FF // aqui vc coloca qual saida vc quer acionar
out dx, al
end;
no exmplo acima aciona todas as saidas. Vc deve saber também que quando vc encerra o programa a saida paralela continua com o ultimo comando recebido, portanto vc deve ´apagar´ o Led e para isso basta substituir o comando mov al, $FF por mov al, $0.
Qualquer duvida pode me mandar um e-mail, pois eu tenho mais materiais.
Emílio
emilio.g@bol.com.br
Por exemplo para acender um LED.
Procedure acende;
asm // começo de instrução assemler
mov dx, $378 // indica o endereço da porta paralela
mov al, $FF // aqui vc coloca qual saida vc quer acionar
out dx, al
end;
no exmplo acima aciona todas as saidas. Vc deve saber também que quando vc encerra o programa a saida paralela continua com o ultimo comando recebido, portanto vc deve ´apagar´ o Led e para isso basta substituir o comando mov al, $FF por mov al, $0.
Qualquer duvida pode me mandar um e-mail, pois eu tenho mais materiais.
Emílio
emilio.g@bol.com.br
Responder
Gostei + 0
11/08/2003
Cangacero
Valeiu....
Jah ajudou legal...
Jah ajudou legal...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)