% 20/02/06
%
% Test per la porta parallela, solo output.
%
% Plinio Gatto - pli@autistici.org

daqhwinfo('parallel')   % Informazioni

DIO1 = digitalio('parallel','LPT1')     % Per utilizzare la porta parallela
out_lines = addline(DIO1, 0:7, 0, 'out')  % Aggiunge delle linee al dispositivo di IO per l'uscita

%------------------------ Scrittura ------------------------

data=[0 0 0 0 0 0 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[1 0 0 0 0 0 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 1 0 0 0 0 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 1 0 0 0 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 0 1 0 0 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 0 0 1 0 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 0 0 0 1 0 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 0 0 0 0 1 0]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 0 0 0 0 0 1]
putvalue(DIO1,data)  % Scrive il dato
pause(1);   % pausa di 1 secondo
data=[0 0 0 0 0 0 0 0]
putvalue(DIO1,data)  % Scrive il dato

delete(DIO1) % Chiude il dispositivo