% Digitek DT80000 Multimeter - Auswertung

% Stefan Heindel, 29.01.2009

function [s] = openDT80000(port)
    try
        fclose(s);
        clear s;
    catch
    end

    s = serial(port);
    set(s,'BaudRate',9600);
    set(s,'Terminator','LF');
    s.RequestToSend = 'on';
    fopen(s);
end
    
    while (true);
        fwrite(s,hex2dec('89'));
        try
            [A,count] = fread(s,12,'char');
            disp(strcat('ba',dec2bin(A(2),8),'bb',dec2bin(A(3),8),'bc',dec2bin(A(4),8),'bd',dec2bin(A(5),8),'be',dec2bin(A(11),8)))
            %disp(strcat('ba',dec2hex(A(2)),'bb',dec2hex(A(3)),'bc',dec2hex(A(4)),'bd',dec2hex(A(5)),'be',dec2hex(A(11))))
        catch
            disp('Lesefehler')
        end 
    end
