机械CADCAM课程结业报告.docVIP

— PAGE PAGE 5 欢迎下载 Report of Processing for Line Graph or Table Name: 曾小贤 NO.: 123456 Expected Score:85 Introduction of Line Graph or Table: “Helical gear helix tolerance values（U：um）” Reference Diameter d/mm 20d=50 50d=125 125d=280 Tooth Breadth b/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 Microsoft Visual Basic 6.0. Builting a new project. Changing each frame Put on the program Program 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) Combo2.AddItem (80b=160) Combo3.AddItem (6) Combo3.AddItem (7) Combo3.AddItem (8) Combo3.AddItem (9) End Sub Private Sub Command1_Click() Dim a As Double Dim xiala1(0 To 2) As String Dim xiala2(0 To 2) As String Dim xiala3(0 To 3) As String Dim indata(9, 4) As Double xiala1(0) = 20d=50 xiala1(1) = 50d=125 xiala1(2) = 125d=280 xiala2(0) = 20b=40 xiala2(1) = 50b=125 xiala2(2) = 80b=160 xiala3(0) = 6 xiala3(1) = 7 xiala3(2) = 8 xiala3(3) = 9 Dim FileNo As Integer FileNo = FreeFile() Dim str As String Open C:\Documents and Settings\Administrator\桌面\螺旋线公差值.txt For Input As #FileNo For i = 0 To 4 For j = 0 To 9 Input #FileNo, indata(i, j) Next j Next i Close #FileNo Dim bl1 As String Dim bl2 As String Dim bl3 As String bl1 = Combo1.Text bl2 = Combo2.Text bl3 = Combo3.Text If (bl1 = xiala1(0)) Then 20d=50 If (bl2 = xiala2(0)) Then If (bl3 = xiala3(0)) Then a = indata(0, 0) End If If (bl3 = xiala3(1)) Then a = indata(0, 1) End If If (bl3 = xiala3(2)) Then a = indata(0, 2) End If If (bl3 = xiala3(3)) Then a = indata(0, 3) End If End If If (bl2 = xiala2(1)