《机械CADCAM课程结业报告.doc》由会员分享，可在线阅读，更多相关《机械CADCAM课程结业报告.doc（10页珍藏版）》请在三一文库上搜索。
1、Report of Processing for Line Graph or TableName: 曾小贤 NO.: 123456 Expected Score:85Introduction of Line Graph or Table:“Helical gear helix tolerance values（U：um）”Reference Diameter d/mm 20d=50 50d=125 125d=280Tooth Breadth b/mm204040808016020404080801602040408080160AccuracyClass611131612141713151771
2、6192317202418212582327322428332529359323846343947364149Microsoft Visual Basic 6.0.Builting a new project.Changing each framePut on the programProgram codes:Private Sub Form_Load() Combo1.AddItem (20d=50)Combo1.AddItem (50d=125)Combo1.AddItem (125d=280)Combo2.AddItem (20b=40)Combo2.AddItem (40b=80)Co
3、mbo2.AddItem (80b=160)Combo3.AddItem (6)Combo3.AddItem (7)Combo3.AddItem (8)Combo3.AddItem (9)End SubPrivate Sub Command1_Click()Dim a As DoubleDim xiala1(0 To 2) As String Dim xiala2(0 To 2) As StringDim xiala3(0 To 3) As StringDim indata(9, 4) As Doublexiala1(0) = 20d=50 xiala1(1) = 50d=125xiala1(
4、2) = 125d=280xiala2(0) = 20b=40 xiala2(1) = 50b=125xiala2(2) = 80b=160xiala3(0) = 6 xiala3(1) = 7xiala3(2) = 8xiala3(3) = 9 Dim FileNo As IntegerFileNo = FreeFile() Dim str As String Open C:Documents and SettingsAdministrator桌面螺旋线公差值.txt For Input As #FileNoFor i = 0 To 4For j = 0 To 9Input #FileNo,
5、 indata(i, j)Next jNext iClose #FileNoDim bl1 As String Dim bl2 As StringDim bl3 As Stringbl1 = Combo1.Textbl2 = Combo2.Textbl3 = Combo3.TextIf (bl1 = xiala1(0) Then 20d=50If (bl2 = xiala2(0) ThenIf (bl3 = xiala3(0) Thena = indata(0, 0)End IfIf (bl3 = xiala3(1) Thena = indata(0, 1)End IfIf (bl3 = xi
6、ala3(2) Thena = indata(0, 2)End IfIf (bl3 = xiala3(3) Thena = indata(0, 3)End IfEnd IfIf (bl2 = xiala2(1) ThenIf (bl3 = xiala3(0) Thena = indata(1, 0)End IfIf (bl3 = xiala3(1) Thena = indata(1, 1)End IfIf (bl3 = xiala3(2) Thena = indata(1, 2)End IfIf (bl3 = xiala3(3) Thena = indata(1, 3)End IfEnd If
7、If (bl2 = xiala2(2) ThenIf (bl3 = xiala3(0) Thena = indata(2, 0)End IfIf (bl3 = xiala3(1) Thena = indata(2, 1)End IfIf (bl3 = xiala3(2) Thena = indata(2, 2)End IfIf (bl3 = xiala3(3) Thena = indata(2, 3)End IfEnd IfIf (bl2 = xiala2(3) ThenIf (bl3 = xiala3(0) Thena = indata(3, 0)End IfIf (bl3 = xiala3
8、(1) Thena = indata(3, 1)End IfIf (bl3 = xiala3(2) Thena = indata(3, 2)End IfIf (bl3 = xiala3(3) Thena = indata(3, 3)End IfEnd IfEnd IfIf (bl1 = xiala1(1) Then 50d=125If (bl2 = xiala2(0) ThenIf (bl3 = xiala3(0) Thena = indata(4, 0)End IfIf (bl3 = xiala3(1) Thena = indata(4, 1)End IfIf (bl3 = xiala3(2
9、) Thena = indata(4, 2)End IfIf (bl3 = xiala3(3) Thena = indata(4, 3)End IfEnd IfIf (bl2 = xiala2(1) ThenIf (bl3 = xiala3(0) Thena = indata(5, 0)End IfIf (bl3 = xiala3(1) Thena = indata(5, 1)End IfIf (bl3 = xiala3(2) Thena = indata(5, 2)End IfIf (bl3 = xiala3(3) Thena = indata(5, 3)End IfEnd IfIf (bl
10、2 = xiala2(2) ThenIf (bl3 = xiala3(0) Thena = indata(6, 0)End IfIf (bl3 = xiala3(1) Thena = indata(6, 1)End IfIf (bl3 = xiala3(2) Thena = indata(6, 2)End IfIf (bl3 = xiala3(3) Thena = indata(6, 3)End IfEnd IfIf (bl2 = xiala2(3) ThenIf (bl3 = xiala3(0) Thena = indata(7, 0)End IfIf (bl3 = xiala3(1) Th
11、ena = indata(7, 1)End IfIf (bl3 = xiala3(2) Thena = indata(7, 2)End IfIf (bl3 = xiala3(3) Thena = indata(7, 3)End IfEnd IfEnd IfIf (bl1 = xiala1(2) Then 125d=280If (bl2 = xiala2(0) ThenIf (bl3 = xiala3(0) Thena = indata(8, 0)End IfIf (bl3 = xiala3(1) Thena = indata(8, 1)End IfIf (bl3 = xiala3(2) The
12、na = indata(8, 2)End IfIf (bl3 = xiala3(3) Thena = indata(8, 3)End IfEnd IfText1.Text = aEnd SubPrivate Sub Command2_Click() Unload MeEnd SubRunning results:Open up the file “螺旋线公差值”Chose the range and the classPress the button “确定Thought and suggestion(optional):This is the final report for CAD/CAM
13、. For the forth work, I dont know how to say, but it makes me feel some confuse. I have learned VB five years ago, but this I dont know how to start. Finally, I write the report with the help of others, I get that: We must summary the knowledge what we have learned more than now and than, thus we will find we are on the way to success! Over here ,thanks for your teaching. The best wish to you!