%基于Matlab的随机点名系统randomrollcall
%20221021
%不能实现从键盘或鼠标控制选择哪个同学。
%出勤表为系统中的出勤表1，本程序可以控制三个班级，班级多少请根据自己的需要调整
clear;clc;close all
% nametable=readtable('E:\工作\教学课件\数学实验2022年\新建文件夹\xsktkqb78.xls');%读入相应的班级的出勤表
% table1=nametable(~isnan(nametable.x__),:);
% table1=renamevars(table1,["x___1","x___2"],['学号',"姓名"])
% save class78 table1
% %把相应班级读入的excel表转为mat文件
weeks=input('请输入本次点名的周次:');
con=1;
while con==1 %选择班级或退出
disp('1.周四0304节') %根据上课时间选择
disp('2.周四0708节')
disp('3.周四0910节')
disp('4.退出')
x=input('请选择要点名的班级:');
switch x
case 1
load class34.mat %加载相应班级
filename='class34'; %命名输出表格的文件名
break
case 2
load class78.mat
filename='class78';
break
case 3
load class910.mat
filename='class910';
break
case 4
return
otherwise
disp('请重新输入')
pause(2)
continue
end
end
[m,n]=size(table1); %计算本班总人数
k=1;count=0;hchosed=[];
while con==1
randc=setdiff(randperm(m),hchosed); %在序号集合但不在已统计的同学中
tic
for i=randc
clc;
if k==1
fprintf('本班级共有%2d人\n',m)
pause
end
ti=toc;
if mod(fix(ti),5)==2 %根据时间选择被点名的同学
disp(table1(i,2:3)) %呈现被选同学信息
sometxt=cell2mat(table1{i,3}); %读出被选同学的名字
SV=actxserver('SAPI.Spvoice');
SV.Voice=SV.GetVoices.Item(0);
SV.Rate=0;
SV.volume=100;
invoke(SV,'Speak',sometxt);
disp('出勤情况:') %出勤情况选择
disp('1.出勤')
disp('2.请假')
disp('3.旷课')
x=input('请选择该同学的出勤情况:');
while 1 %出勤情况循环
if x==1
tpos={'出勤'};
break
elseif x==2
tpos={'请假'};
break
elseif x==3
tpos={'旷课'};
break
else
disp('请重新输入');
x=input('请选择该同学的出勤情况:');
continue
end
end
count=count+1 %计算被抽取的人数
ttable(count,:)={table1(i,2),table1(i,3),tpos};%创建新表
hchosed=[hchosed,table2array(table1(i,1))]; %创建被选同学的序号集合
table1(i,4+weeks)=tpos;%把指定周的出勤情况加入到表格
else
disp(table1(i,2:3)) %呈现可能被选同学信息
pause(0.05)
end
k=k+1;
end
con=1;
if count==10 %每次择取点名的人数
break
end
end
clc
disp('今日出勤情况汇总:')
ttable=cell2table(ttable) %把单元数据转为table数据
% file=cat(2,filename,'.xls');
% writetable(table1,file) %把本学期的出勤情况写入xls表格
转载本文请联系原作者获取授权，同时请注明本文来自徐伟科学网博客。
链接地址：https://wap.sciencenet.cn/blog-216525-1360758.html?mobile=1
收藏
