机械课程结业报告.docx
- 文档编号:4856509
- 上传时间:2022-12-10
- 格式:DOCX
- 页数:12
- 大小:541.08KB
机械课程结业报告.docx
《机械课程结业报告.docx》由会员分享,可在线阅读,更多相关《机械课程结业报告.docx(12页珍藏版)》请在冰豆网上搜索。
机械课程结业报告
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 MicrosoftVisualBasic. Builtinganewproject. Changingeachframe Putontheprogram Programcodes: PrivateSubForm_Load() ("20 ("50 ("125 ("20 ("40 ("80 ("6") ("7") ("8") ("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= bl2= bl3= 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 =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!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 机械 课程 结业 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)