机械CADCAM课程结业报告.docx

机械CADCAM课程结业报告.docx

《机械CADCAM课程结业报告.docx》由会员分享，可在线阅读，更多相关《机械CADCAM课程结业报告.docx（12页珍藏版）》请在冰豆网上搜索。

机械CADCAM课程结业报告

ReportofProcessingforLineGraphorTable

Name:

曾小贤NO.:

123456ExpectedScore:

85

IntroductionofLineGraphorTable:

“Helicalgearhelixtolerancevalues（U：

um）”

ReferenceDiameterd/mm

20

50

125

ToothBreadthb/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（"20

Combo1.AddItem（"50

Combo1.AddItem（"125

Combo2.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）="20

xiala1

（1）="50

xiala1

（2）="125

xiala2（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'20

If（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'50

If（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'125

If（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!