睡眠质量测试系统

function varargout = berlin(varargin)
% TIXING MATLAB code for tixing.fig
% TIXING, by itself, creates a new TIXING or raises the existing
% singleton*.
%
% H = TIXING returns the handle to a new TIXING or the handle to
% the existing singleton*.
%
% TIXING(‘CALLBACK’,hObject,eventData,handles,…) calls the local
% function named CALLBACK in TIXING.M with the given input arguments.
%
% TIXING(‘Property’,’Value’,…) creates a new TIXING or raises the
% existing singleton*. Starting from the left, property value pairs are
% applied to the GUI before berlin_OpeningFcn gets called. An
% unrecognized property name or invalid value makes property application
% stop. All inputs are passed to berlin_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 tixing

% Last Modified by GUIDE v2.5 06-Apr-2017 19:39:21

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct(‘gui_Name’, mfilename, …
‘gui_Singleton’, gui_Singleton, …
‘gui_OpeningFcn’, @berlin_OpeningFcn, …
‘gui_OutputFcn’, @berlin_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 tixing is made visible.
function berlin_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 tixing (see VARARGIN)

% Choose default command line output for tixing
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes tixing wait for user response (see UIRESUME)
% uiwait(handles.figure1);

% — Outputs from this function are returned to the command line.
function varargout = berlin_OutputFcn(hObject, eventdata, handles)
% 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 on selection change in listbox1.
function listbox1_Callback(hObject, eventdata, handles)
% hObject handle to listbox1 (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 listbox1 contents as cell array
% contents{get(hObject,’Value’)} returns selected item from listbox1
value=get(hObject,’value’);
handles.value=value;
guidata(hObject,handles);
set(handles.edit1,’string’,handles.txt(value,2));

I=[];N=[];
for i=3:2:9
y=handles.txt(value,i);
I=[I,y];
end
for j=4:2:10
x=handles.txt(value,j);
N=[N,x];
end
set(handles.listbox2,’string’,I);
handles.I=I;
handles.N=N;
guidata(hObject,handles);

% — Executes during object creation, after setting all properties.
function listbox1_CreateFcn(hObject, eventdata, handles)
% hObject handle to listbox1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called

% Hint: listbox 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

function edit1_Callback(hObject, eventdata, handles)
% hObject handle to edit1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% Hints: get(hObject,’String’) returns contents of edit1 as text
% str2double(get(hObject,’String’)) returns contents of edit1 as a double

% — Executes during object creation, after setting all properties.
function edit1_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called

% Hint: edit 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

function edit2_Callback(hObject, eventdata, handles)
% hObject handle to edit2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% Hints: get(hObject,’String’) returns contents of edit2 as text
% str2double(get(hObject,’String’)) returns contents of edit2 as a double

% — Executes during object creation, after setting all properties.
function edit2_CreateFcn(hObject, eventdata, handles)
% hObject handle to edit2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called

% Hint: edit 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

% ——————————————————————–
function tixing_Callback(hObject, eventdata, handles)
% hObject handle to tixing (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% ——————————————————————–
function berlin_Callback(hObject, eventdata, handles)
% hObject handle to berlin (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
[num tex txt]=xlsread(‘berlin.xlsx’);
B=1;
handles.B=B;
set(handles.listbox1,’string’,txt(:,1));
handles.txt=txt;
guidata(hObject,handles);

% C=handles.txt;
% C1={}; C2={};

% — Executes on selection change in listbox2.
function listbox2_Callback(hObject, eventdata, handles)
% hObject handle to listbox2 (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 listbox2 contents as cell array
% contents{get(hObject,’Value’)} returns selected item from listbox2
value1=get(hObject,’value’);
str=cell2mat(handles.I(1,value1));
value=get(handles.listbox1,’value’);
num=cell2mat(handles.N(1,value1));%这个函数可以将cell转换成数值型,不然cell里面还有cell，为了让cell里面只有数据或字符串，就要用到cell2mat
% num=2;
% set(handles.txt(value,9),’string’,str);
% xlswrite(‘berlin.xlsx’,str,1,’M2’);
% fin=fopen(‘txt.txt’,’w+’);%打开一个文件读取
% fprintf(handles.txt(value,9),’string’,str);
%在某个地方点确定
handles.txt{value,13}=str;
handles.txt{value,14}=num;
txt=handles.txt; %开始在这里老是不行，每次执行到上条指令后，本想着它会记录下去，结果等到下一题点答案时，上一题的答案却没有，原因是你写进去，当你点下一题时，它读取是
%原来的txt，也就是说没更新，读取出来依然是上次的。在这里我就让它更新，一开始是写guidata(hObject,handles);，不行，应为这个是指当前的句柄，我还以为是
%上面读取txt时的句柄，也写过guidata(handles.txt,handles);结果不行，报错没有txt，未定义。后来尝试txt=handles.txt; guidata(hObject,handles);
%就可以了，原来当前句柄是可以是上条指令定义的句柄。
guidata(hObject,handles);

% — Executes during object creation, after setting all properties.
function listbox2_CreateFcn(hObject, eventdata, handles)
% hObject handle to listbox2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles empty - handles not created until after all CreateFcns called

% Hint: listbox 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

% — Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton1 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

%%%%%%%%%%%%算berlin的统计分%%%%%%%%%%%%%%%%%%%%%%
if(handles.B==1)
a=cell2mat(handles.txt(2,14))+cell2mat(handles.txt(3,14))+cell2mat(handles.txt(4,14))+cell2mat(handles.txt(5,14))+cell2mat(handles.txt(6,14));
b=cell2mat(handles.txt(7,14))+cell2mat(handles.txt(8,14))+cell2mat(handles.txt(9,14))+cell2mat(handles.txt(10,14));
c=cell2mat(handles.txt(11,14));
if(a>=2)
a1=1;
end
if(b>=2)
b1=1;
end
if(c>=1)
c1=1;
end
if(a1+b1+c1>=2)
str1=’结论：您有可能患上睡眠呼吸暂停综合症’
handles.txt{16,14}=str1;
else
str2=’结论：睡眠呼吸暂停综合症不明显’
handles.txt{16,14}=str2;
end
xlswrite(‘berlin.xlsx’,handles.txt,2);
%%%%%%%%%%%%算Epworth的统计分%%%%%%%%%%%%%%%%%%%%%%
else if(handles.B==2)
a=cell2mat(handles.txt(2,14))+cell2mat(handles.txt(3,14))+cell2mat(handles.txt(4,14))+cell2mat(handles.txt(5,14))+cell2mat(handles.txt(6,14))+cell2mat(handles.txt(7,14))+cell2mat(handles.txt(8,14))+cell2mat(handles.txt(9,14));
if(a>=9)
str1=’结论：您有可能过度嗜睡症’
handles.txt{10,10}=str1;
else
str2=’结论：过度嗜睡症不明显’
handles.txt{10,10}=str2;
end
xlswrite(‘Epworth.xlsx’,handles.txt,2);
end
end

% — Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton2 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
value=get(handles.listbox1,’value’);
v=value+1; %要加全局变量
set(handles.listbox1,’value’,v);
set(handles.edit1,’string’,handles.txt(v,2));
I=[];
for i=3:2:9
y=handles.txt(v,i);
I=[I,y];
end
set(handles.listbox2,’string’,I);

% — Executes on button press in pushbutton3.
function pushbutton3_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton3 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
value=get(handles.listbox1,’value’);
v=value-1; %要加全局变量
set(handles.listbox1,’value’,v);
set(handles.edit1,’string’,handles.txt(v,2));
I=[];
for i=3:2:9
y=handles.txt(v,i);
I=[I,y];
end
set(handles.listbox2,’string’,I);

% — Executes on button press in pushbutton4.
function pushbutton4_Callback(hObject, eventdata, handles)
% hObject handle to pushbutton4 (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)

% ——————————————————————–
function Epworth_Callback(hObject, eventdata, handles)
% hObject handle to Epworth (see GCBO)
% eventdata reserved - to be defined in a future version of MATLAB
% handles structure with handles and user data (see GUIDATA)
[num tex txt]=xlsread(‘Epworth.xlsx’);
B=2;
handles.B=B;
set(handles.listbox1,’string’,txt(:,1));
handles.txt=txt;
guidata(hObject,handles);