机械课程结业报告Word文档格式.docx
- 文档编号:17807896
- 上传时间:2022-12-10
- 格式:DOCX
- 页数:12
- 大小:541.08KB
机械课程结业报告Word文档格式.docx
《机械课程结业报告Word文档格式.docx》由会员分享,可在线阅读,更多相关《机械课程结业报告Word文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
ToothBreadthb/mm
20~40
40~
80
80~
160
Accuracy
Class
6
11
13
16
12
14
17
15
7
19
23
20
24
18
21
25
8
27
32
28
33
29
35
9
38
46
34
39
47
36
41
49
MicrosoftVisualBasic.
Builtinganewproject.
Changingeachframe
Putontheprogram
Programcodes:
PrivateSubForm_Load()
("
20<
=50"
)
50<
=125"
125<
=280"
b<
=40"
40<
=80"
80<
=160"
6"
7"
8"
9"
EndSub
PrivateSubCommand1_Click()
DimaAsDouble
Dimxiala1(0To2)AsString
Dimxiala2(0To2)AsString
Dimxiala3(0To3)AsString
Dimindata(9,4)AsDouble
xiala1(0)="
xiala1
(1)="
xiala1
(2)="
xiala2(0)="
xiala2
(1)="
xiala2
(2)="
xiala3(0)="
xiala3
(1)="
xiala3
(2)="
xiala3(3)="
DimFileNoAsInteger
FileNo=FreeFile()
DimstrAsString
Open"
C:
\DocumentsandSettings\Administrator\桌面\螺旋线公差值.txt"
ForInputAs#FileNo
Fori=0To4
Forj=0To9
Input#FileNo,indata(i,j)
Nextj
Nexti
Close#FileNo
Dimbl1AsString
Dimbl2AsString
Dimbl3AsString
bl1=
bl2=
bl3=
If(bl1=xiala1(0))Then'
=50
If(bl2=xiala2(0))Then
If(bl3=xiala3(0))Then
a=indata(0,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(0,1)
If(bl3=xiala3
(2))Then
a=indata(0,2)
If(bl3=xiala3(3))Then
a=indata(0,3)
If(bl2=xiala2
(1))Then
a=indata(1,0)
a=indata(1,1)
a=indata(1,2)
a=indata(1,3)
If(bl2=xiala2
(2))Then
a=indata(2,0)
a=indata(2,1)
a=indata(2,2)
a=indata(2,3)
If(bl2=xiala2(3))Then
a=indata(3,0)
a=indata(3,1)
a=indata(3,2)
a=indata(3,3)
If(bl1=xiala1
(1))Then'
=125
a=indata(4,0)
a=indata(4,1)
a=indata(4,2)
a=indata(4,3)
a=indata(5,0)
a=indata(5,1)
a=indata(5,2)
a=indata(5,3)
a=indata(6,0)
a=indata(6,1)
a=indata(6,2)
a=indata(6,3)
a=indata(7,0)
a=indata(7,1)
a=indata(7,2)
a=indata(7,3)
If(bl1=xiala1
(2))Then'
a=indata(8,0)
a=indata(8,1)
a=indata(8,2)
a=indata(8,3)
=a
PrivateSubCommand2_Click()
UnloadMe
Runningresults:
Openupthefile“螺旋线公差值”
Chosetherangeandtheclass
Pressthebutton“确定’
Thoughtandsuggestion(optional):
ThisisthefinalreportforCAD/CAM.Fortheforthwork,Idon’tknowhowtosay,butitmakesmefeelsomeconfuse.IhavelearnedVBfiveyearsago,butthisIdon’tknowhowtostart.Finally,Iwritethereportwiththehelpofothers,Igetthat:
Wemustsummarytheknowledgewhatwehavelearnedmorethannowandthan,thuswewillfindweareonthewaytosuccess!
Overhere,thanksforyourteaching.Thebestwishtoyou!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 机械 课程 结业 报告