机械CADCAM课程结业报告

1、-. z.Report of Processing for Line Graph or TableName:曾小贤 NO.:123456 E*pected Score:85Introduction of Line Graph or Table:Helical gear heli* tolerance valuesU：umReference Diameter d/mm 20d=50 50d=125 125d=280Tooth Breadth b/mm204040808016020404080801602040408080160AccuracyClass6111316121417131517716

2、192317202418212582327322428332529359323846343947364149Microsoft Visual Basic 6.0.Builting a new project.Changing each framePut on the programProgram codes:Private Sub Form_Load() bo1.AddItem (20d=50)bo1.AddItem (50d=125)bo1.AddItem (125d=280)bo2.AddItem (20b=40)bo2.AddItem (40b=80)bo2.AddItem (80b=1

3、60)bo3.AddItem (6)bo3.AddItem (7)bo3.AddItem (8)bo3.AddItem (9)End SubPrivate Sub mand1_Click()Dim a As DoubleDim *iala1(0 To 2) As String Dim *iala2(0 To 2) As StringDim *iala3(0 To 3) As StringDim indata(9, 4) As Double*iala1(0) = 20d=50 *iala1(1) = 50d=125*iala1(2) = 125d=280*iala2(0) = 20b=40 *i

4、ala2(1) = 50b=125*iala2(2) = 80b=160*iala3(0) = 6 *iala3(1) = 7*iala3(2) = 8*iala3(3) = 9Dim FileNo As IntegerFileNo = FreeFile() Dim str As String Open C:Documents and SettingsAdministrator桌面螺旋线公差值.t*t For Input As #FileNoFor i = 0 To 4For j = 0 To 9Input #FileNo, indata(i, j)Ne*t jNe*t iClose #Fil

5、eNoDim bl1 As String Dim bl2 As StringDim bl3 As Stringbl1 = bo1.Te*tbl2 = bo2.Te*tbl3 = bo3.Te*tIf (bl1 = *iala1(0) Then 20d=50If (bl2 = *iala2(0) ThenIf (bl3 = *iala3(0) Thena = indata(0, 0)End IfIf (bl3 = *iala3(1) Thena = indata(0, 1)End IfIf (bl3 = *iala3(2) Thena = indata(0, 2)End IfIf (bl3 =

6、*iala3(3) Thena = indata(0, 3)End IfEnd IfIf (bl2 = *iala2(1) ThenIf (bl3 = *iala3(0) Thena = indata(1, 0)End IfIf (bl3 = *iala3(1) Thena = indata(1, 1)End IfIf (bl3 = *iala3(2) Thena = indata(1, 2)End IfIf (bl3 = *iala3(3) Thena = indata(1, 3)End IfEnd IfIf (bl2 = *iala2(2) ThenIf (bl3 = *iala3(0)

7、Thena = indata(2, 0)End IfIf (bl3 = *iala3(1) Thena = indata(2, 1)End IfIf (bl3 = *iala3(2) Thena = indata(2, 2)End IfIf (bl3 = *iala3(3) Thena = indata(2, 3)End IfEnd IfIf (bl2 = *iala2(3) ThenIf (bl3 = *iala3(0) Thena = indata(3, 0)End IfIf (bl3 = *iala3(1) Thena = indata(3, 1)End IfIf (bl3 = *ial

8、a3(2) Thena = indata(3, 2)End IfIf (bl3 = *iala3(3) Thena = indata(3, 3)End IfEnd IfEnd IfIf (bl1 = *iala1(1) Then 50d=125If (bl2 = *iala2(0) ThenIf (bl3 = *iala3(0) Thena = indata(4, 0)End IfIf (bl3 = *iala3(1) Thena = indata(4, 1)End IfIf (bl3 = *iala3(2) Thena = indata(4, 2)End IfIf (bl3 = *iala3

9、(3) Thena = indata(4, 3)End IfEnd IfIf (bl2 = *iala2(1) ThenIf (bl3 = *iala3(0) Thena = indata(5, 0)End IfIf (bl3 = *iala3(1) Thena = indata(5, 1)End IfIf (bl3 = *iala3(2) Thena = indata(5, 2)End IfIf (bl3 = *iala3(3) Thena = indata(5, 3)End IfEnd IfIf (bl2 = *iala2(2) ThenIf (bl3 = *iala3(0) Thena

10、= indata(6, 0)End IfIf (bl3 = *iala3(1) Thena = indata(6, 1)End IfIf (bl3 = *iala3(2) Thena = indata(6, 2)End IfIf (bl3 = *iala3(3) Thena = indata(6, 3)End IfEnd IfIf (bl2 = *iala2(3) ThenIf (bl3 = *iala3(0) Thena = indata(7, 0)End IfIf (bl3 = *iala3(1) Thena = indata(7, 1)End IfIf (bl3 = *iala3(2)

11、Thena = indata(7, 2)End IfIf (bl3 = *iala3(3) Thena = indata(7, 3)End IfEnd IfEnd IfIf (bl1 = *iala1(2) Then 125d=280If (bl2 = *iala2(0) ThenIf (bl3 = *iala3(0) Thena = indata(8, 0)End IfIf (bl3 = *iala3(1) Thena = indata(8, 1)End IfIf (bl3 = *iala3(2) Thena = indata(8, 2)End IfIf (bl3 = *iala3(3) T

12、hena = indata(8, 3)End IfEnd IfTe*t1.Te*t = aEnd SubPrivate Sub mand2_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. 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 othe