机械CADCAM课程结业报告Word文件下载.docx

机械CADCAM课程结业报告Word文件下载.docx

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

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

MicrosoftVisualBasic6.0.

Builtinganewproject.

Changingeachframe

Putontheprogram

Programcodes:

PrivateSubForm_Load（）

Combo1.AddItem（"

20<

=50"

）

50<

=125"

125<

=280"

Combo2.AddItem（"

b<

=40"

40<

=80"

80<

=160"

Combo3.AddItem（"

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=Combo1.Text

bl2=Combo2.Text

bl3=Combo3.Text

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）

Text1.Text=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!