机械CADCAM课程结业报告
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
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)”
Microsoft Visual Basic 6.0.
Builting a new project.
Changing each frame
Put on the program
Program codes:
Private Sub Form_Load()
Combo1.AddItem ("20 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) = "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" 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 '20 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)) Then If (bl3 = xiala3(0)) Then a = indata(1, 0) End If If (bl3 = xiala3(1)) Then a = indata(1, 1) End If If (bl3 = xiala3(2)) Then a = indata(1, 2) End If If (bl3 = xiala3(3)) Then a = indata(1, 3) End If End If If (bl2 = xiala2(2)) Then If (bl3 = xiala3(0)) Then a = indata(2, 0) End If If (bl3 = xiala3(1)) Then a = indata(2, 1) End If If (bl3 = xiala3(2)) Then a = indata(2, 2) End If If (bl3 = xiala3(3)) Then a = indata(2, 3) End If End If If (bl2 = xiala2(3)) Then If (bl3 = xiala3(0)) Then a = indata(3, 0) End If If (bl3 = xiala3(1)) Then a = indata(3, 1) End If If (bl3 = xiala3(2)) Then a = indata(3, 2) End If If (bl3 = xiala3(3)) Then a = indata(3, 3)