Porta Paralela

genetico
(usa Slackware)

Enviado em 25/08/2006 - 19:38h

Ai galera por acaso algem ai saberia como eu leria um sinal enviado para o pc pela porta paralela pelo linux (Kylix) ?

daniel.breda
(usa Slackware)

Enviado em 28/09/2006 - 12:17h

SAÍDA DE INFORMAÇÕES NA IMPRESSORA:

Os comandos que acionam a impressora são os mesmos do vídeo, ou seja, write e writeIn, acrescidos do parâmetro (lst).

Exemplo:

writeIn(lst,'VOLUME = ', LARGURA*COMPRIMENTO*ALTURA,' cm3');

OBS.: O comando de mudança de linha (line feed) é dado após a impressão no exemplo anterior. A saida do comando de impressão (VOLUME = 60 cm3) seria a mesma com os comandos abaixo:

write(lst,'VOLUME = ');

write(lst,LARGURA*COMPRIMENTO*ALTURA);

write(lst,'cm3');

ENTRADA DE DADOS:

read - Não inclui "tine feed" após a operação.

readln - inclui "line feed" após operação

Exemplo:

readIn(QUANTIDADE);

OBS.: Quando for necessário mais de uma entrada read ou readIn, os dados a serem digitados não devem ser separados por vírgulas e sim por espaço.

readln(COMPRIMENTO,LARGURA,ALTURA);

OBS.: É conveniente pedir apenas uma entrada de dado por cada comando read ou readIn, para que não ocorra inconvenientes na entrada de textos.

Exemplo:

Program Prog02;

var

C,L,A : integer;

begin

write('DlGlTE COMPRIMENTO');

readln(C);

write('DIGITE LARGURA');

readln(L);

write('DIGITE ALTURA');

readln(A);

writein('VOLUME = ',c*L*A,' cm3');

end.

OBS.: Quando usado o comando writeIn sem variáveis a serem impressas, causará apenas o envio de um line feed (mudança de linha) para a tela ou impressora.