
%   
%   Messen mit der OnBoard-Soundkarte
% 
%   Dipl.-Ing. Armin Rohnen LbA
%   Labor für Maschinendynamik
%   Hochschule für angewandte Wissenschaften München
%   University of applied sciences Munich
%
%   09. November 2016
%
%%

%
% 1. einfache Messung
%
%%

audio = audiodevinfo;   % mit audiodevinfo die Informationen über das 
                        % AUDIO-Device auslesen
fs = 48000;             % Abtastrate in Messwerte/Sekunde
nBits = 24;             % Auflösung des Messwerts = 24 Bit
nChannels = 2;          % Stereo
messzeit = 20;          % Messzeit in Sekunden
kalibrierwert = 25.4/1000;
                        % der Kalibrierwert des Mikrofons muss aus dem 
                        % Datenblatt des übertragen werden
                        % Die Angabe erfolgt in mV/Pa
ID = 1;                 % ID des für die Aufzeichnung verwendeten Soundkarten-Eingangs

messgeraet = audiorecorder(fs,nBits,nChannels, ID);
                        % legt das Messgerät an
messgeraet.StartFcn = 'disp(''Messung startet'')';
messgeraet.StopFcn = 'disp(''Messung beendet'')';
                        % gibt eine Bildschirmanzeige für Beginn und Ende der Messung
                        
record(messgeraet, messzeit); % führt eine Aufzeichnung in der Länge Messzeit in Sekunden durch
messdaten = getaudiodata(messgeraet);
