机械CADCAM课程结业报告.docx
《机械CADCAM课程结业报告.docx》由会员分享,可在线阅读,更多相关《机械CADCAM课程结业报告.docx(13页珍藏版)》请在冰豆网上搜索。
机械CADCAM课程结业报告
ReportofProcessingforLineGraphorTable
Name:
曾小贤NO.:
123456ExpectedScore:
85
IntroductionofLineGraphorTable:
“Helicalgearhelixtolerancevalues(U:
um)”
ReferenceDiameterd/mm
2050125ToothBreadthb/mm
20~40
40~
80
80~
160
20~40
40~
80
80~
160
20~40
40~
80
80~
160
Accuracy
Class
6
11
13
16
12
14
17
13
15
17
7
16
19
23
17
20
24
18
21
25
8
23
27
32
24
28
33
25
29
35
9
32
38
46
34
39
47
36
41
49
MicrosoftVisualBasic6.0.
Builtinganewproject.
Changingeachframe
Putontheprogram
Programcodes:
PrivateSubForm_Load()
Combo1.AddItem("20Combo1.AddItem("50Combo1.AddItem("125Combo2.AddItem("20
Combo2.AddItem("40
Combo2.AddItem("80
Combo3.AddItem("6")
Combo3.AddItem("7")
Combo3.AddItem("8")
Combo3.AddItem("9")
EndSub
PrivateSubCommand1_Click()
DimaAsDouble
Dimxiala1(0To2)AsString
Dimxiala2(0To2)AsString
Dimxiala3(0To3)AsString
Dimindata(9,4)AsDouble
xiala1(0)="20xiala1
(1)="50xiala1
(2)="125xiala2(0)="20
xiala2
(1)="50
xiala2
(2)="80
xiala3(0)="6"
xiala3
(1)="7"
xiala3
(2)="8"
xiala3(3)="9"
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=Combo1.Text
bl2=Combo2.Text
bl3=Combo3.Text
If(bl1=xiala1(0))Then'20If(bl2=xiala2(0))Then
If(bl3=xiala3(0))Then
a=indata(0,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(0,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(0,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(0,3)
EndIf
EndIf
If(bl2=xiala2
(1))Then
If(bl3=xiala3(0))Then
a=indata(1,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(1,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(1,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(1,3)
EndIf
EndIf
If(bl2=xiala2
(2))Then
If(bl3=xiala3(0))Then
a=indata(2,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(2,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(2,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(2,3)
EndIf
EndIf
If(bl2=xiala2(3))Then
If(bl3=xiala3(0))Then
a=indata(3,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(3,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(3,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(3,3)
EndIf
EndIf
EndIf
If(bl1=xiala1
(1))Then'50If(bl2=xiala2(0))Then
If(bl3=xiala3(0))Then
a=indata(4,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(4,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(4,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(4,3)
EndIf
EndIf
If(bl2=xiala2
(1))Then
If(bl3=xiala3(0))Then
a=indata(5,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(5,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(5,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(5,3)
EndIf
EndIf
If(bl2=xiala2
(2))Then
If(bl3=xiala3(0))Then
a=indata(6,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(6,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(6,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(6,3)
EndIf
EndIf
If(bl2=xiala2(3))Then
If(bl3=xiala3(0))Then
a=indata(7,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(7,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(7,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(7,3)
EndIf
EndIf
EndIf
If(bl1=xiala1
(2))Then'125If(bl2=xiala2(0))Then
If(bl3=xiala3(0))Then
a=indata(8,0)
EndIf
If(bl3=xiala3
(1))Then
a=indata(8,1)
EndIf
If(bl3=xiala3
(2))Then
a=indata(8,2)
EndIf
If(bl3=xiala3(3))Then
a=indata(8,3)
EndIf
EndIf
Text1.Text=a
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
Runningresults:
Openupthefile“螺旋线公差值”
Chosetherangeandtheclass
Pressthebutton“确定’
Thoughtandsuggestion(optional):
ThisisthefinalreportforCAD/CAM.Fortheforthwork,Idon’tknowhowtosay,butitmakesmefeelsomeconfuse.IhavelearnedVBfiveyearsago,butthisIdon’tknowhowtostart.Finally,Iwritethereportwiththehelpofothers,Igetthat:
Wemustsummarytheknowledgewhatwehavelearnedmorethannowandthan,thuswewillfindweareonthewaytosuccess!
Overhere,thanksforyourteaching.Thebestwishtoyou!