脉搏波采集分析软件功能实现

function varargout = PulseInstrument(varargin) % PULSEINSTRUMENT MATLAB code for PulseInstrument.fig % PULSEINSTRUMENT, by itself, creates a new PULSEINSTRUMENT or raises the existing % singleton*. % % H = PULSEINSTRUMENT returns the handle to a new PULSEINSTRUMENT or the handle to % the existing singleton*. % % PULSEINSTRUMENT('CALLBACK',hObject,eventData,handles,...) calls the local % function named CALLBACK in PULSEINSTRUMENT.M with the given input arguments. % % PULSEINSTRUMENT('Property','Value',...) creates a new PULSEINSTRUMENT or raises the % existing singleton*. Starting from the left, property value pairs are % applied to the GUI before PulseInstrument_OpeningFcn gets called. An % unrecognized property name or invalid value makes property application % stop. All inputs are passed to PulseInstrument_OpeningFcn via varargin. % % *See GUI Options on GUIDE's Tools menu. Choose "GUI allows only one % instance to run (singleton)". % % See also: GUIDE, GUIDATA, GUIHANDLES % Edit the above text to modify the response to help PulseInstrument % Last Modified by GUIDE v2.5 18-Sep-2018 23:03:15 % Begin initialization code - DO NOT EDIT gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @PulseInstrument_OpeningFcn, ... 'gui_OutputFcn', @PulseInstrument_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []); if nargin && ischar(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end % End initialization code - DO NOT EDIT % --- Executes just before PulseInstrument is made visible. function PulseInstrument_OpeningFcn(hObject, eventdata, handles, varargin) % This function has no output args, see OutputFcn. % hObject handle to figure % eventdata reserved - to be defined in a future version of MATLAB % handles structure with handles and user data (see GUIDATA) % varargin command line arguments to PulseInstrument (see VARARGIN) % Choose default command line output for PulseInstrument handles.output = hObject; % Search for serial available serialAvailable = instrhwinfo('serial'); searchSerialTimer = timer; searchSerialTimer.StartFcn = {@searchSerialTimerStartFcn,handles}; searchSerialTimer.TimerFcn = {@searchSerialTimerFcn,handles}; searchSerialTimer.Name = 'searchSerialTimer'; searchSerialTimer.Period = 1; searchSerialTimer.UserData = serialAvailable; searchSerialTimer.ExecutionMode = 'fixedSpacing'; handles.searchSerialTimer = searchSerialTimer; start(searchSerialTimer); % Set file handles.fid = -1; folderName = pwd; folderName = strcat(folderName,'\Dat'); currentTimeStr = datestr(now,'yyyy-mm-dd-HH-MM-SS'); fileName = [currentTimeStr,'.dat']; fileroad = [folderName,'\',fileName]; if ~exist(folderName,'dir') mkdir(folderName); end try /* 开发不易，整理也不易，如需要详细的说明文档和程序，以及完整的数据集，训练好的模型，或者进一步开发， 可加作者新联系方式咨询，WX：Q3101759565，QQ：3101759565 */ % varargout cell array for returning output args (see VARARGOUT); % hObject handle to figure % eventdata reserved - to be defined in a future version of MATLAB % handles structure with handles and user data (see GUIDATA) % Get default command line output from handles structure varargout{1} = handles.output; % --- Executes serial search timer start function searchSerialTimerStartFcn(hObject, eventdata, handles) availableSerialPorts = get(hObject,'UserData'); set(handles.InstrCom,'String',availableSerialPorts.AvailableSerialPorts); % --- Executes serial search timer fcn function searchSerialTimerFcn(hObject, eventdata, handles) serialAvailable = instrhwinfo('serial'); hObject.UserData = serialAvailable; set(handles.InstrCom,'String',serialAvailable.AvailableSerialPorts); % --- Executes on selection change in InstrCom. function InstrCom_Callback(hObject, eventdata, handles) % hObject handle to InstrCom (see GCBO) % eventdata reserved - to be defined in a future version of MATLAB % handles structure with handles and user data (see GUIDATA) % Hints: contents = cellstr(get(hObject,'String')) returns InstrCom contents as cell array % contents{get(hObject,'Value')} returns selected item from InstrCom % --- Executes during object creation, after setting all properties. function InstrCom_CreateFcn(hObject, eventdata, handles) % hObject handle to InstrCom (see GCBO) % eventdata reserved - to be defined in a future version of MATLAB % handles empty - handles not created until after all CreateFcns called % Hint: popupmenu controls usually have a white background on Windows. % See ISPC and COMPUTER. if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor')) set(hObject,'BackgroundColor','white'); end % --- Create a serial function s = on_SerialCreate(handles) instr = instrfind('Name','PulseInstrument'); if ~isempty(instr) fclose(instr); delete(instr); end stop(handles.searchSerialTimer); comList = get(handles.InstrCom,'String'); comValue = get(handles.InstrCom,'Value'); com = comList{comValue}; s = serial(com); s.Name = 'PulseInstrument'; s.BaudRate = 1382400; s.DataBits = 8; s.Parity = 'none'; s.StopBits = 1; s.BytesAvailableFcnMode = 'byte'; s.BytesAvailableFcn = {@SerialAvailableFcn,handles}; s.TimerFcn = {@SerialTimerFcn,handles}; s.TimerPeriod = 0.05; s.InputBufferSize = 10000; s.BytesAvailableFcnCount = 100; isRead = 0; bytesReceived = 0; s.UserData = [isRead,bytesReceived]; % --- Delete a serial function ret = on_SerialDelete(s) if ~isa(s,'char') return; end intrName = s; instr = instrfind('Name',intrName); if ~isempty(instr) fclose(instr); delete(instr); end function SerialAvailableFcn(hObject, eventdata, handles) UserData = get(hObject,'UserData'); isRead = UserData(1); bytesReceived = UserData(2); if isRead return; end availableNum = get(hObject,'BytesAvailable'); if availableNum > 0 isRead = 1; bits = fread(hObject,availableNum,'uint8'); if handles.fid >0 %fprintf('received:%s\n',bits); fwrite(handles.fid,bits,'uint8'); end bytesReceived = bytesReceived + availableNum; UserData = [isRead,bytesReceived]; set(hObject,'UserData',UserData); end function SerialTimerFcn(hObject, eventdata, handles) UserData = get(hObject,'UserData'); isRead = UserData(1); bytesReceived = UserData(2); AvailableNum = get(hObject,'BytesAvailable'); isOpen = get(handles.PlotBt,'UserData'); if AvailableNum > 0 isRead = 1; bits = fread(hObject,AvailableNum,'uint8'); if handles.fid > 0 && (isOpen == 1) %fprintf('received:%s\n',bits); fwrite(handles.fid,bits,'uint8'); end bytesReceived = bytesReceived + AvailableNum; UserData = [isRead,bytesReceived]; set(hObject,'UserData',UserData); end % --- Send by serial function on_SerialSend(sName,s) instr = instrfind('Name',sName); if ~isempty(instr) fwrite(instr,s,'uint8'); end % --- Executes on button press in InstrConnect. function InstrConnect_Callback(hObject, eventdata, handles) % hObject handle to InstrConnect (see GCBO) % eventdata reserved - to be defined in a future version of MATLAB % handles structure with handles and user data (see GUIDATA) % Hint: get(hObject,'Value') returns toggle state of InstrConnect % Search for instr % Get button value btValue = get(hObject,'Value'); if btValue==1 %Create a serial serial = on_SerialCreate(handles); try fopen(serial); set(handles.InstrConnectStatus,'BackgroundColor',[0,1,0]); set(hObject,'String','关闭串口'); catch fprintf('Serial is not available\n'); set(handles.InstrConnectStatus,'BackgroundColor',[0.502 0.502 0.502]); end else