26/04/07 15:11
Fmasso91
Allora questo piccolo esempio dovrebbe farti capire come scrivere un programma per controllare la porta parallela:
program io;
{variabili per l'indirizzo e il dato da inviare alla porta}
var addr:word;
dato:byte;
begin
{viene assegnato ad addr l'indirizzo della porta parallela primaria}
addr := MemW[Allora questo piccolo esempio dovrebbe farti capire come scrivere un programma per controllare la porta parallela:
program io;
{variabili per l'indirizzo e il dato da inviare alla porta}
var addr:word;
dato:byte;
begin
{viene assegnato ad addr l'indirizzo della porta parallela primaria}
addr := MemW[{parsed_message}00:08];
{ho assegnato a dato un numero che corrisponde alla corrispondente decimale dei bit che voglio sulla porta, 255 accende tutti e 8 i bit, 0 li spegne tutti e ad esempio 3 corrisponde all'accenzione dei primi 2 bit}
dato:=255;
{creo un ciclo che scrive all'infinito i bit bi dato sulla porta con indirizzo addr}
while 1=1 do
port[addr]:= dato;
end.
se non ti funziona probabilmente ci sono dei problemi sulla tua porta. 00:08];
{ho assegnato a dato un numero che corrisponde alla corrispondente decimale dei bit che voglio sulla porta, 255 accende tutti e 8 i bit, 0 li spegne tutti e ad esempio 3 corrisponde all'accenzione dei primi 2 bit}
dato:=255;
{creo un ciclo che scrive all'infinito i bit bi dato sulla porta con indirizzo addr}
while 1=1 do
port[addr]:= dato;
end.
se non ti funziona probabilmente ci sono dei problemi sulla tua porta.
program io;
{variabili per l'indirizzo e il dato da inviare alla porta}
var addr:word;
dato:byte;
begin
{viene assegnato ad addr l'indirizzo della porta parallela primaria}
addr := MemW[Allora questo piccolo esempio dovrebbe farti capire come scrivere un programma per controllare la porta parallela:
program io;
{variabili per l'indirizzo e il dato da inviare alla porta}
var addr:word;
dato:byte;
begin
{viene assegnato ad addr l'indirizzo della porta parallela primaria}
addr := MemW[{parsed_message}00:08];
{ho assegnato a dato un numero che corrisponde alla corrispondente decimale dei bit che voglio sulla porta, 255 accende tutti e 8 i bit, 0 li spegne tutti e ad esempio 3 corrisponde all'accenzione dei primi 2 bit}
dato:=255;
{creo un ciclo che scrive all'infinito i bit bi dato sulla porta con indirizzo addr}
while 1=1 do
port[addr]:= dato;
end.
se non ti funziona probabilmente ci sono dei problemi sulla tua porta. 00:08];
{ho assegnato a dato un numero che corrisponde alla corrispondente decimale dei bit che voglio sulla porta, 255 accende tutti e 8 i bit, 0 li spegne tutti e ad esempio 3 corrisponde all'accenzione dei primi 2 bit}
dato:=255;
{creo un ciclo che scrive all'infinito i bit bi dato sulla porta con indirizzo addr}
while 1=1 do
port[addr]:= dato;
end.
se non ti funziona probabilmente ci sono dei problemi sulla tua porta.
aaa