% 20/02/06
%
% Test per la porta parallela, solo output: Contatore binario
%
% 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


data=[0 0 0 0 0 0 0 0] % Azzera le uscite
putvalue(DIO1,data)

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

for n=0:255
    
    str = dec2base(n,2);    % Converte n da numero a stringa base 2
    
    for k=1:length(str)
        data(9-k)=str(length(str)-k+1)-48   % Scrive il numero in base 2 in data
    end

    putvalue(DIO1,data) % Scrive sul dispositivo
    pause(0.08);
end

%----------------------------------------------------------

pause(1);
data=[0 0 0 0 0 0 0 0] % Azzera le uscite
putvalue(DIO1,data)

delete(DIO1) % Chiude il dispositivo