[Pascal] Porta parallela

[SiNaPsE]

Ciao ragazzi.Avrei un problema:ho scritto un programma in Pascal che mi invia dati alla porta parallela:

Program parallela;
uses wincrt;
var
i,j,lav,lav1,lav2:integer;
Begin
lav:=$01;
for i:=1 to 8 do
begin
port [$378]:=lav;{Vengono trasmessi i dati alla porta [378]}
lav:=lav*2;
{In lav2 vorrei avere il valore in uscita dalla porta, come posso fare}
end;
end.

Vorrei fare in modo che di volta in volta, nella variabile lav2, venga immesso il valore presente sulla porta parallela. Come posso fare???Premetto che l'istruzione lav2:=port[378] mi dà come risultato sempre 1 e non il valore presente sulla porta...

[cso]

dovrebbe essere questo! :master:

Program parallela;
uses wincrt;
var
  i,j,lav,lav1,lav2:integer;
Begin
   lav:=$01;
     for i:=1 to 8 do
     begin
        port [$378]:=lav;{Vengono trasmessi i dati alla porta [378]}
        lav2:=port [$378];
        {In lav2 vorrei avere il valore in uscita dalla porta, come posso fare}
     end;
  end.

e ti da sempre uno perchè lo inizializzi a 01!! (lav:=$01
aspettiamo leleFT

[SiNaPsE]

Lo so che inizializzo ad uno però nell'iterazione faccio sempre il prodotto per due infatti i valori che arrivano alla porta parallela sono 1 2 4 8 16 32 64 128 e questo è sicuro perchè lo ho provato sperimentalmente con dei led. Quindi il problema è un altro anche perchè se metto lav2:=port[37A] mi da sempre 255 tanto per fare un esempio

[MMarzia]

il linguaggio va specificato anche nel titolo delle discussioni

[SiNaPsE]

Come???

[cso]

http://forum.html.it/forum/showthrea...hreadid=588640
punto 5

[SiNaPsE]

Chiedo scusa per l'errore

[cso]

No, non ti perdoniamo...
Il pascal è un linguaggio molto logico (come tutti ma provate a fare un programmino in java per vedere la differenza ) e mi lascia un po' perplesso che non funzioni come ti ho detto io.
...
Domandalo al prof e poi posta quello che ti ha risposto

[SiNaPsE]

Il mio professore nn lo sa!!!