实验报告

篇一：实验报告

综合程序设计（一） 《评分系统》实验报告

教学班号 230001-1 学号 14182030 姓名李翔宇 专业 粮食工程指导教师 刘立群 实验报告提交时间2015年5月27日 （周三班号：230001-1，周四班号：230001-2）

一、实验要求：

本程序要求设计一个简单的竞赛评分系统，该评分系统可以输入10个评委的分数，并经过计算后显示出选手的最得分。

具体要求：

程序可找出并显示出最高分和最低分；

最后得分应为去掉最高分和最低分后的平均分； 最后得分要在第二个窗体中以醒目的方式显示再来。

程序运行界面可运行“评分系统”程序，此程序仅供大家作为参考，请不要雷同。在基本功能具备的前提下，大家可自行完善程序功能，界面设计要尽可能做到美观大方，可试着添加背景图片等。

二、系统分析与设计

三、程序代码

各个模块的源程序代码。（宋体五号字） Private Sub Command1_Click() End End Sub

Private Sub command2_click() Label11.Visible = True Label12.Visible = True Label13.Visible = True Label14.Visible = True Label15.Visible = True Label16.Visible = True Max = Val(Text1(0)) Min = Val(Text1(0)) For i = 1 To 9

If Val(Text1(i)) > Max Then Max = Val(Text1(i)) If Val(Text1(i)) < Min Then Min = Val(Text1(i)) Next i

For i = 0 To 9

If Text1(i) = "" Then

x = MsgBox("裁判没有打分", 0 + 48 + 0, "注意")Exit Sub End If Next i

For i = 0 To 9

If Val(Text1(i)) < 0 Or Val(Text1(i)) > 10 Then x = MsgBox("分数不符", 0 + 48 + 0, "注意") Text1(i) = ""Exit Sub End If Next i Sum = 0

For i = 0 To 9

Sum = Sum + Val(Text1(i)) Next

Label12.Caption = Format(Max, "0.00") Label14.Caption = Format(Min, "0.00")

Label16.Caption = Format((Sum - Max - Min) / 8, "0.00")

End Sub

Private Sub Command3_Click()

x = MsgBox("是否确认清除", 1 + 32 + 0, "清除") If x = 1 Then For i = 0 To 9 Text1(i) = ""

Label12.Caption = "" Label14.Caption = "" Label16.Caption = "" Next i

Text1(0).SetFocus End If End Sub

Private Sub Form_Load()

End Sub

四、运行结果

系统程序运行的实际窗口图片。

提示：

抓取程序窗口图片的方法，运行VB程序，当出现窗体时按键盘上的Alt键 + Print Screen键，后，再到Word文档中“粘贴”就可以了。Print Screen键在键盘最上方最右的一组键位中。

各模块的源程序代码，可直接在代码窗口中选定程序段，按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为固定电阻，与应变片一起构成一个单臂电桥，其输出电压

E为电桥电源电压，式1-1表明单臂电桥输出为非线性，非线性误差为

四、 实验内容与步骤

1、 图1-1应变传感器上的各应变片已分别接到应变传感器模块左上方的R1、R2、R3、

R4上，可用万用表测量判别，R1=R2=R3=R4=350Ω。

2、 从主控台接入±15V电源，检查无误后，合上主控台电源开关，将差动放大器的输入

端Ui短接，输出端Uo2接数显电压表（选择2V档），调节电位器Rw4，使电压表显示为0V。Rw4的位置确定后不能改动。关闭主控台电源。

3、 将应变式传感器的其中一个应变电阻（如R1）接入电桥与R5、R6、R7构成一个单

臂直流电桥，见图1-2，接好电桥调零电位器Rw1，直流电源±4V（从主控台接入），电桥输出接到差动放大器的输入端Ui，检查接线无误后，合上主控台电源开关，调节Rw1,使电压表显示为零。

4、 在应变传感器托盘上放置一只砝码，调节Rw3，改变差动放大器的增益，使数显电

压表显示2mV，读取数显表数值，保持Rw3不变，依次增加砝码和读取相应的数显表值，直到200g砝码加完，计下实验结果，填入下表1-1，关闭电源。 五、实验数据处理：

利用matlab拟合出的曲线如下：

记重量为X(g)，电压为y(mv),根据MATLAB,拟合出的曲线为： y=0.2775X+1.9600 可以求重量为100g时误差最大为0.5055mv 非线性误差δf1=Δm/yF..S ×100％ = 0.5055/57.4*100% = 0.8807%

系统灵敏度S＝ΔU/ΔW=0.2775

利用虚拟仪器进行测量的数据为：

表1-2

利用matlab拟合出的曲线如下：

拟合出的曲线为：