测平均速度的实验报告范文
一、实验目的
普通车床具有较典型的机械传动系统及操纵机构，应用了较多的机械传动机构如带传动、齿轮传动、链传动、摩擦传动、螺旋机构、凸轮机构、曲柄机构、杠杆机构等等和较多的机械零件如轴承、齿轮、链轮、带轮、键、花键、联轴器、离合器等零件。
本实验的目的一是了解这些机构和零件是怎样组合完成一定的功用的；二是掌握以普通车床为代表的机床各部件的传动系统的传动原理及路线、结构特点和功用。
二、实验内容
1、了解车床的用途、布局、各操纵手柄的作用和操作方法；
2、了解主运动、进给运动的传动路线； 2.了解主运动、进给运动的调整方法；
3、了解和分析机床主要机构的构造及工作原理。
三、实验设备
CA6140一台、CA6140透明模型一台
四、实验步骤
学生在实验指导人员带领下，到CA6140型普通车床现场教学。
1、观察CA6140型普通车床的主轴箱结构，注意调整方法；
2、观察、了解进给互锁机构及丝杠螺母机构的工作原理；
3、根据实物了解车床主要附件的使用。
五、分析讨论题
1、结合实验说明C6140机床主轴正、反转与操纵手柄位置的对应关系，并阐述主轴正、反转、停转的工作原理。
2、丝杠与光杠在结构上有何不同？作用分别是什么？如何操作才能使丝杠起传动作用？光杠传动与丝杠传动的互锁如何实现？
3、根据观察阐述C6140车床组成部件的名称及作用。
4、根据实验观察，说明C6140车床主轴为了提高主轴的传动精度采取了哪些措施。
测平均速度的实验报告范文
实验项目名称：企业信息化
实验目的：了解企业信息化的一般过程。
掌握企业信息化中企业领导的管理工作。
掌握企业信息化中一般员工的工作。
实验情况及实验结果：1、上网查找一个企业信息化的成功案例，思考一下问题：
(1) 该企业为何进行信息化的建设?
答:中国人民财产保险股份有限公司就是一个成功的信息化的企业.
九十年代，随着网络等信息技术的发展，公司的信息技术建设也迈上了新的台阶。由于公司机构众多，各地业务差异较大，信息系统建设多是各自为政，全盘的考虑与规划存在不足。于是于XX年，公司与ibm携手制定了中国人保信息技术发展五年规划，这是公司战略发展的重要组成部分。规划的制定结合了公司当时的经营、管理情况，并与总公司、分公司各层级管理、技术人员充分沟通、交流，吸收了他们很多的建议、想法，同时参考了国际上许多金融企业成功案例。
(2) 该企业的信息化过程是怎样的?
答: 信息技术五年规划制定以后，信息技术部便以此为参照，目标是建设全险种、大集中、共平台、宽网络、同标准的基本体系架构。
信息化整体思路：
1、数据模型标准化，应用平台统一化;
2、业务数据逐步集中存储，业务系统逐步集中处理;
3、分析产生的数据，为业务、管理和决策服务;
4、加强网络和信息安全建设，提供多渠道的客户访问服务。
(3)信息化给企业带来了什么效益?
答: 回顾几年以来公司信息化建设历程，已基本建成全险种、大集中、共平台、宽网络、同标准的基本体系架构，并在数据的分析处理方面作了大量工作，成果斐然。信息化建设的思路是科学合理地制定战略发展规划，并建立了标准化体系，搭建了统一的应用平台，然后将数据和业务处理逐步集中，在此基础上，进行数据的分析处理，为公司业务经营和管理决策服务。与此同时，进行网络和信息安全建设，为信息化之路提供更好的条件和保障。指导思想的科学合理性与信息化建设者们的苦干实干相结合，公司的信息化建设结出了累累硕果，得到广泛好评。公司开发的“新一代综合业务处理系统”于XX年9月提名参加了chp ( computer-world honor program，计算机世界荣誉组织)“计算机世界荣誉奖”的评选，此奖项评选由idg集团组织，全球上百家顶级it公司总裁作为评委，是当今世界信息技术领域最高奖项之一，有“it奥斯卡”之称。XX年4月，该系统已经获得本年度“计算机世界荣誉奖”21世纪贡献大奖提名奖。这是今年全球唯一一家保险企业获奖，也是继招商银行去年获奖后，我国第二家以及本年度唯一一家在该奖项的“金融、保险及地产领域”获此殊荣的国内企业。
(4)结合我们学过的知识，发现mis、crm、mrp、mrpⅱ和erp等在企业信息化过程的应用。
答: mrp、mrpⅱ和erp，是企业管理信息系统发展的不同阶段。mpr主要对制造环节中的物流进行管理，使企业达到"既要保证生产又要控制库存"的目的;而mrpⅱ则集成了物流和资金流，将人、财、物，时间等各种资源进行周密计划，合理利用，以提高企业的竞争力;erp的概念则由garter group率先提出，它将供应链、企业业务流程和信息流程都囊括其中。由于erp的概念流传最广，现在已经成为企业管理信息系统的代名词。
mpr(material requirement planning)物料需求计划
mrpⅱ(manufacturing resource planning)制造企业资源计划
erp(enterprise resource planning)企业资源计划
mis(management information system)管理信息系统
测平均速度的实验报告范文
实验报告
班级：网络Z091
学号：094552
姓名：李丹
一、
1.
2.
二、
1.
2.
三、
1. 实验目的 掌握数据库的基本知识、ODBC程序设计 掌握列表框和组合框控件 实验内容 在VC++6.0中编写程序 数据库应用程序基本设计和购物表设计 编程序 数据库
步骤：设置->控制面板->管理工具->数据源->添加->MicroSoft Access Driver(*mdb) 选择（刚建好的数据库）、数据源名(comp)
定义的变量：CCompanySet m_set;（CCompanySet自己添加的类，基类为CRecordSet）CListCtrl m_list;
CString m_chax;
⑴初始化：
void CCompanyView::OnInitialUpdate
{
m_list.InsertColumn(0,"num");
m_list.InsertColumn(1,"sex");
m_list.InsertColumn(2,"age");
m_list.InsertColumn(3,"wage");
m_list.SetColumnWidth(0,100);
m_list.SetColumnWidth(1,100);
m_list.SetColumnWidth(2,100);
m_list.SetColumnWidth(3,100);
CString sql="select * from comp";
m_set.Open(AFX_DB_USE_DEFAULT_TYPE,sql);//打开记录集
int i=0;
while(!m_set.IsEOF)
{
m_list.InsertItem(i,m_set.m_num);
m_list.SetItemText(i,1,m_set.m_sex);
CString str;
str.Format("%d",m_set.m_age);
m_list.SetItemText(i,2,str);
m_list.SetItemText(i,3,m_set.m_wage);
m_set.MoveNext;
i++;
}
m_set.Close;
}
⑵“添加”调出新对话框(IDD_DIALOG1)
创建一个新类CCompDlg，并添加头文件” #include "CompDlg.h"”
及成员变量（CString m_num; int m_sex; CString m_wage; int m_age;）
void CCompanyView::OnAdd
{
CCompDlg dlg;
if(dlg.DoModal==IDOK)
{
m_set.Open(AFX_DB_USE_DEFAULT_TYPE,NULL); m_set.AddNew;
m_set.m_num=dlg.m_num;
if(dlg.m_sex==0)
m_set.m_sex="男";
else
m_set.m_sex="女";
m_set.m_age=dlg.m_age;
m_set.m_wage =dlg.m_wage;
m_set.Update;
m_set.Close;
}
}
⑶“删除”
void CCompanyView::OnDel
{
int i=m_list.GetSelectionMark;
if(i<0)
this->MessageBox("先选取记录");
else
{
CString xnum1;
char xnum[10];
int x=m_list.GetItemText(i,0,xnum,10);
xnum1.Format("%s",xnum);
CString sql="select * from comp where num='"+xnum1+"'"; m_set.Open(AFX_DB_USE_DEFAULT_TYPE,sql); m_set.Delete;
m_set.Close;
}
}
⑷“浏览”
void CCompanyView::OnScan
{
m_list.DeleteAllItems;
CString sql="select * from
comp";
m_set.Open(AFX_DB_USE_DEFAULT_TYPE,sql);int i=0;
while(!m_set.IsEOF)
m_list.InsertItem(i,m_set.m_num);
m_list.SetItemText(i,1,m_set.m_sex);
CString str;
str.Format("%d",m_set.m_age);
m_list.SetItemText(i,2,str);
m_list.SetItemText(i,3,m_set.m_wage);
m_set.MoveNext;
i++;
}
m_set.Close;
}
⑸“修改”
void CCompanyView::OnEdit
{
CCompDlg dlg;
int i=m_list.GetSelectionMark;
if(i<0)
{
this->MessageBox("先选取记录");
return;
}
CString xnum0,xnum1;
char xnum[10];
int x=m_list.GetItemText(i,0,xnum,10);
xnum1.Format("%s",xnum);
dlg.m_num=xnum1;
xnum0=xnum1;
CString str="select * from comp where num='"+xnum0+"'"; m_set.Open(AFX_DB_USE_DEFAULT_TYPE,str);dlg.m_num=m_set.m_num;
dlg.m_age=m_set.m_age;
dlg.m_wage=m_set.m_wage;
if(m_set.m_sex=="男")
dlg.m_sex=0;
else
dlg.m_sex=1;
dlg.DoModal;
m_set.Edit;
m_set.m_num=dlg.m_num;
m_set.m_age=dlg.m_age;
m_set.m_wage=dlg.m_wage;
if(dlg.m_sex==0)
m_set.m_sex="男";
m_set.m_sex ="女";
m_set.Update;
m_set.Close;
}
⑹“查询”
void CCompanyView::OnQuery
{
this->UpdateData;
CString sql;
sql="select * from comp where num='"+m_chax+"'"; m_set.Open(AFX_DB_USE_DEFAULT_TYPE,sql); m_set.Requery ;
if(m_set.IsEOF)
{
AfxMessageBox("ERROR");
return ;
}
m_list.DeleteAllItems;
int i=0;
while(!m_set.IsEOF)
{
m_list.InsertItem(i,m_set.m_num);
m_list.SetItemText(i,1,m_set.m_sex);
CString str;
str.Format("%d",m_set.m_age);
m_list.SetItemText(i,2,str);
m_list.SetItemText(i,3,m_set.m_wage);
m_set.MoveNext;
i++;
}
m_set.Close;
}
2. 购物表设计
添加了两个结构体
struct GoodsType
{
char * type;
char * name;
int price;
}goods={
"日常用品","牙刷",2,
"日常用品","牙膏",3,
"日常用品","毛巾",5,
测平均速度的实验报告范文
学校班级 实验日期年月日同组人
一、实验名称：测量平均速度
二、实验目的：1.学会用实验的方法测出小车在斜坡各段的平均速度，
验证小车在斜坡滑下是前半程快还是后半程快。2巩固刻度尺和秒表的使用。
三、实验原理：v=s/t
四、实验器材：停表、木板、小车、刻度尺、金属片、木块
五、需要测量的物理量：路程s和时间t
六、实验步骤：
1.将木块的一端用木块垫起，使它保持很小的坡度。
2.将小车放在斜面顶端，金属片放在斜面底端，用刻度尺测出小车通过的路程s1，用停表测量通过这段路程所用的时间t1。
3.根据测得的s1、t1，利用公式v1=s1/t1算出小车通过斜面全程的平均速度v1。
4.将金属片移至斜面中部，重复上述过程，进行第二次测量。
5.利用s1—s2=s3，t1—t2=t3，求出v3。
6.收集数据的表格：
路程S1=S2=S3=S1-S2=运动时间 平均速度t1=t2=t3=t1-t2=V1=V2=V3=
八、结论：小车在半程运动的速度快。（填“前”或“后”）
测平均速度的实验报告范文
一、实验目的和要求
1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件，防止死循环和不循环。
二、实验内容和原理
1、输入半径，计算圆周长和圆面积。
为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。
提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数，按从小到大的顺序显示。
3、计算π的近似值，π的计算公式为：
?2n?224262
π=2…× 2n-1?2n+11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？
②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型 或实数型。
三、主要仪器设备
计算机
四、实验结果与分析
实验界面：
1、输入半径，计算圆周长和圆面积。
程序：
Private Sub Form_Activate
Text1.Text = "输入半径值"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '圆面积，周长
Dim r
r = Text1.Text
Const PI = 3.14159
If KeyAscii = 13 Then
Cls
If IsNumeric(r) Then
Print "当圆的半径为"; r; "时："
Print "圆面积为： "; Format(PI * r ^ 2, "0.00")
Print "圆面积为"; Format(PI * r ^ 2, "0.00")
Else
Text1 = "半径值输入有误"
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
End If
End Sub
运行结果：
输入值
:2
2、随机产生三个整数，按从小到大的顺序显示。
程序：
Private Sub Command1_Click
Cls
Dim x%, y%, z%, a%
Randomize
x = Int(Rnd * 101)
y = Int(Rnd * 101)
z = Int(Rnd * 101)
Print "随机产生三个整数： "; x; Spc(2); y; Spc(2); z; Spc(2)
If x > y Then
a = x: x = y: y = a
End If
If y > z Then
a = y: y = z: z = a
If x > y Then
a = x: x = y: y = a
End If
End If
Print "从小到大排序： "; x; Spc(2); y; Spc(2); z; Spc(2)
End Sub
运行结果：
3、计算π的近似值
①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？
②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。 程序：
Private Sub Command2_Click
Cls
Dim n As Long, PI, i As Long
n = 1
Do
n = n * 10
PI = 2
For i = 1 To n
PI = PI * ((2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1)))
Next i
Print "当n="; n; "时，π="; PI
Loop While n < 1000
End Sub
运行结果：
