1 简介
信息技术正在逐步深入,广泛的应用到教育管理中,在技术上管理信息系统的实施已逐步成熟.要发展学校信息系统,要高效率地有机地组织内部信息,尤其是进行深化,细致的分析成绩信息,就必须根据自身特点建立相适应的学生成绩管理统计,分析系统.本系统采用"自上而下地总体规划,自下而上地应用开发"的策略,介绍了在matlab境下开发一个管理信息系统的过程.创建了一套行之有效的计算机管理学生成绩的方案.
2 部分代码
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
3 仿真结果
4 参考文献
[1]张颖. 学生成绩统计,分析软件的设计与实现[D]. 内蒙古师范大学, 2011.
博主简介:擅长智能优化算法、神经网络预测、信号处理、元胞自动机、图像处理、路径规划、无人机等多种领域的Matlab仿真,相关matlab代码问题可私信交流。
部分理论引用网络文献,若有侵权联系博主删除。