如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
PAGE此资料由网络收集而来,如有侵权请告知上传者立即删除。资料共分享,我们负责传递知识。实验报告篇一:实验报告综合程序设计(一)《评分系统》实验报告教学班号230001-1学号14182030姓名李翔宇专业粮食工程指导教师刘立群实验报告提交时间2020年5月27日(周三班号:230001-1,周四班号:230001-2)一、实验要求:本程序要求设计一个简单的竞赛评分系统,该评分系统可以输入10个评委的分数,并经过计算后显示出选手的最得分。具体要求:程序可找出并显示出最高分和最低分;最后得分应为去掉最高分和最低分后的平均分;最后得分要在第二个窗体中以醒目的方式显示再来。程序运行界面可运行“评分系统”程序,此程序仅供大家作为参考,请不要雷同。在基本功能具备的前提下,大家可自行完善程序功能,界面设计要尽可能做到美观大方,可试着添加背景图片等。二、系统分析与设计三、程序代码各个模块的源程序代码。(宋体五号字)PrivateSubCommand1_Click()EndEndSubPrivateSubcommand2_click()Label11.Visible=TrueLabel12.Visible=TrueLabel13.Visible=TrueLabel14.Visible=TrueLabel15.Visible=TrueLabel16.Visible=TrueMax=Val(Text1(0))Min=Val(Text1(0))Fori=1To9IfVal(Text1(i))>MaxThenMax=Val(Text1(i))IfVal(Text1(i))Fori=0To9IfText1(i)=““Thenx=MsgBox(“裁判没有打分”,0+48+0,“注意”)ExitSubEndIfNextiFori=0To9IfVal(Text1(i))10Thenx=MsgBox(“分数不符”,0+48+0,“注意”)Text1(i)=““ExitSubEndIfNextiSum=0Fori=0To9Sum=Sum+Val(Text1(i))NextLabel12.Caption=Format(Max,“0.00”)Label14.Caption=Format(Min,“0.00”)Label16.Caption=Format((Sum-Max-Min)/8,“0.00”)EndSubPrivateSubCommand3_Click()x=MsgBox(“是否确认清除”,1+32+0,“清除”)Ifx=1ThenFori=0To9Text1(i)=““Label12.Caption=““Label14.Caption=““Label16.Caption=““NextiText1(0).SetFocusEndIfEndSubPrivateSubForm_Load()EndSub四、运行结果系统程序运行的实际窗口图片。提示:抓取程序窗口图片的方法,运行VB程序,当出现窗体时按键盘上的Alt键+PrintScreen键,后,再到Word文档中“粘贴”就可以了。PrintScreen键在键盘最上方最右的一组键位中。各模块的源程序代码,可直接在代码窗口中选定程序段,按Ctrl+C,再到文档中按“粘贴”或Ctrl+V即可。篇二:检测技术实验报告《检测技术实验》实验名称:院(系):姓名:实验室:同组人员:评定成绩:实验报告第一次实验(一、三、五)自动化专业:自动化XXXXXX学号:XXXXXXXX实验组别:实验时间:年月日审阅教师:实验一金属箔式应变片――单臂电桥性能实验一、实验目的:了解金属箔式应变片的应变效应,单臂电桥工作原理和性能。二、实验仪器:应变传感器实验模块、托盘、砝码、数显电压表、±15V、±4V电源、万用表、导线等。三、实验原理:电阻丝在外力作用下发生机械变形时,其电阻值发生变化,这就是电阻应变效应,描述电阻应变效应的关系式为:ΔR/R=Kε,式中ΔR/R为电阻丝电阻相对变化,K为应变灵敏系数,ε=Δl/l为电阻丝长度相对变化。金属箔式应变片就是通过光刻、腐蚀等工艺制成的应变敏感组件,如图1-1所示,四个金属箔应变片分别贴在弹性体的上下两侧,弹性体受到压力发生形变,上面的应变片随弹性体形变被拉伸,对应为模块面板上的R1、R3,下面的应变片随弹性体形变被压缩,对应为模块面板上的R2、R4。图2-1应变式传感器安装示意图图2-2应变传感器实验模板、接线示意图图2-3单臂电桥工作原理通过这些应变片转换被测部位受力状态变化、电桥的作用完成电阻到电压的比例变化,如图1-2所示R5、R6、R7为固定电阻,与应变片一起构成一个单臂电桥,其输