% Prüfstand 6 Krafstoffwaage
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Das Programm steuert eine Kraftstoffwaage(Typ Mettler Toledo VIPER SW),
% um den Kraftstoffverbrauch des Versuchsmotors zu ermitteln. Das Programm
% nimmt im Abstand einer vorgegebenen Zeitspanne 2 Werte für die Masse in g
% und berechnet daraus den Kraftstoffverbrauch in kg/h.
%
% Erstellt am: von:
% 24.04.2009   Michael Keil
% geändert am: von:
% 27.07.2009   Stephan Liepsch
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

classdef CWaage < CMessdatenmodule
    properties (SetAccess = 'private')
    end
    methods
        function waage = CWaage (daten, cfg, gui)
            % Objekt wird erstellt, das auf COM1 zugreifen kann + Einstellungen
        s = serial ( 'COM4');
        set(s,'BaudRate', 9600,'Parity', 'none','DataBits', 8,'StopBits', 1);
        fopen(s); % Verbindungsherstellung
        waittime= 1; % Zeitspanne zwischen 1. und 2. Messung
        for i = 1:2
            fprintf(s,'SI') % Befehl an Waage zur Rückgabe des Messwerts
            messung = fscanf(s,'%s'); % Rückgegebener Wert wird gespeichert
            k=1;
            for j = 3: (strfind(messung,'g')-1) %Entfernen der Einheit/Rückgabeparameter
                temp(k)= messung(j);
                k=k+1;
            end
            messung=vpa(temp); %Umrechnung von String in rechenbares Format
            temp='';
            if i==1 % nur beim ersten Durchlauf durchzuführende Befehle
                pause(waittime) % Zeitspanne zwischen 1. und 2.Messung abwarten
                messung1 = messung; % zweite Variable einführen für Verbrauchsberechnung
            end
        end
       
          function startMessung(waage)
            end
            function stopMessung(waage)
            end
            fclose(s) % Beenden der Verbindung
            delete(s)
            clear s i j k temp waittime messung
        end
    end
end