【数据分析】学生成绩管理系统含GUI界面

function varargout = chengji(varargin) gui_Singleton = 1 ; gui_State = struct ( ’gui_Name’ , mfilename, ... ’gui_Singleton’ , gui_Singleton, ... ’gui_OpeningFcn’ , @chengji_OpeningFcn, ... ’gui_OutputFcn’ , @chengji_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 chengji is made visible. function chengji_OpeningFcn ( hObject, eventdata, handles, varargin ) handles.output = hObject; Hc_grid=uicontrol(gcf, ’style’ , ’toggle’ , ’string’ , ’Grid’ , ’position’ ,[ 650 165 60 29 ], ’callback’ , ’grid’ );%在图形窗口画网格线 guidata(hObject, handles); function varargout = chengji_OutputFcn(hObject, eventdata, handles) varargout{ 1 } = handles.output; % --- Executes on selection change in listbox1. function listbox1_Callback ( hObject, eventdata, handles ) value = get (hObject, ’value’ ) -1 ; if ( value == 0 ) set (handles.edit1, ’string’ , ’please choose a name’ ); %显示成绩 else set (handles.edit1, ’string’ ,num2str(handles.chengji( value ,:)));%确保edit1中是数字 end % --- Executes during object creation, after setting all properties. function listbox1_CreateFcn ( hObject, eventdata, handles ) if ispc && isequal ( get (hObject, ’BackgroundColor’ ), get ( 0 , ’defaultUicontrolBackgroundColor’ )) set ( hObject, ’BackgroundColor’ , ’white’ ) ; end function edit1_Callback ( hObject, eventdata, handles ) function edit1_CreateFcn ( hObject, eventdata, handles ) if ispc && isequal ( get (hObject, ’BackgroundColor’ ), get ( 0 , ’defaultUicontrolBackgroundColor’ )) set ( hObject, ’BackgroundColor’ , ’white’ ) ; end function edit2_Callback ( hObject, eventdata, handles ) function edit2_CreateFcn ( hObject, eventdata, handles ) 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 ) [FileName PathName] =uigetfile({ ’*.xls’ , ’Excel Files(*.xls)’ ; ’*.txt’ , ’Text Files(*.txt)’ ; ’*.*’ , ’All Files(*.*)’ }, ’Choose a file’ );%uigetfile用来选择读入的文件 L=length(FileName); if (L< 5 ) errordlg( ’请选择正确文件’ , ’File Open Error’ );%建立一个默认参数的错误对话框 return ; end test=FileName( 1 ,end -3 :end);%定义一个变量test用于文件类型的确定 str=[PathName FileName]; set (handles.edit2, ’string’ ,str);%使打来的文件路径和文件名显示在edit2 global len; global ave1; global ave2; global ave3; global d1; global d2; global d3; switch test case ’.txt’ %当文件为记事本时 fin=fopen( ’chengji.txt’ , ’r’ ); str=fgetl(fin);%按行从文件中读取数据，但不读取换行符 [ str1 str2 str3 str4 ]=strread(str, ’%s %s %s %s’ , ’delimiter’ , ’ ’ );%delimiter用于指定分隔符；%s：输出字符串 xingming( 1 )=str1;%就是单词name counter= 2 ; h=waitbar( 0 , ’please wait a moment,reading the file now ............’ ); for i= 1 : 100 , waitbar(i/ 100 , ’h’ ,[num2str(i), ’%’ ])%显示百分比 pause( .1 ) end while feof ( fin ) == 0 %feof判断是否为文件结尾 str=fgetl(fin); [ name chinese math english ]=strread(str, ’%s %d %d %d’ , ’delimiter’ , ’ ’ );% %d用于输出十进制数 xingming(counter)=name;%读取学生姓名 chengji(counter -1 ,:)=[chinese math english];%定义一个成绩的矩阵用于储存成绩 counter=counter+ 1 ; waitbar(counter/(counter+ 1 ),h, ’On working......’ ); end waitbar ( 1 ,h, ’Finished’ ) ; delete(h);%读取数据完成后释放h对象 set (handles.listbox1, ’string’ ,xingming); handles.chengji=chengji; len=length(chengji);%求矩阵的长度 d1=chengji( 1 :len, 1 ); ave1=sum(d1);%求语文的总分 d2=chengji( 1 :len, 2 ); ave2=sum(d2);%求数学的总分 d3=chengji( 1 :len, 3 ); ave3=sum(d3);%求英语的总分 fclose(fin); %当文件格式为表格时 case ’.xls’ %当文件为表格时 h=waitbar( 0 , ’please wait a moment’ );%创建一个进度条 for i= 1 : 100 , waitbar(i/ 100 ,h,[num2str(i), ’%’ ])%显示百分比 pause( .1 ) end waitbar ( 1 ,h, ’Finished’ ) ; delete(h); [ chengji xingming ]=xlsread(str); set (handles.listbox1, ’string’ ,xingming(:, 1 )); handles.chengji=chengji; len=length(chengji);%求矩阵的长度 d1=chengji( 1 :len, 1 ); ave1=sum(d1);%求语文的总分 d2=chengji( 1 :len, 2 ); ave2=sum(d2);%求数学的总分 d3=chengji( 1 :len, 3 ); ave3=sum(d3);%求英语的总分 otherwise errordlg ( ’Wrong File’ , ’File Open Error’ ) ; return end guidata ( hObject,handles ) ; % --- Executes on button press in pushbutton2. function pushbutton2_Callback ( hObject, eventdata, handles ) clc ; clear all; close(gcf); function pushbutton1_CreateFcn ( hObject, eventdata, handles ) function popupmenu1_Callback ( hObject, eventdata, handles ) val = get (hObject, ’Value’ ); str= get (hObject, ’String’ ); global len; global d1; global d2; global d3; global d; global ave1; global ave2; global ave3; global ave; switch str{val} case ’chinese’ d=d1; ave=ave1/len;%求语文的平均分 case ’math’ d=d2; ave=ave2/len;%求数学的平均分 case ’english’ d=d3; ave=ave3/len;%求英语的平均分 end guidata ( hObject,handles ) ; function popupmenu1_CreateFcn ( hObject, eventdata, handles ) if ispc && isequal ( get (hObject, ’BackgroundColor’ ), get ( 0 , ’defaultUicontrolBackgroundColor’ )) set ( hObject, ’BackgroundColor’ , ’white’ ) ; end