VB查表 英文版.doc

Mechanical CAD / CAM ReportSingle V-belts of ordinary Z-rated powerTable Program DesignAcademy：Mechanical and Electrical AcademyMajor: Mechanical design and manufacture of brakeClass：072093Name: 聶俊杰Student ID：20091003886Expect score: 97June 2012Contents一.VB Introduction1二. The raw data table2三. Look-up table procedure design process3四. Run the demo11五source program13一.VB IntroductionVisual Basic is event-driven programming language developed by Microsoft to include assist in the development environment. By any standards, the VB is the worlds largest number of languages - not only praised or VB developers complain about the number of VB developers. It is derived from the BASIC programming language. VB has a graphical user interface (GUI) and rapid application development (RAD) system, you can easily use DAO, RDO, ADO, connect to the database, or to easily create ActiveX controls. Programmers can easily use VB components to quickly create an application.二. The raw data tableThe table data come from 機(jī)械設(shè)計(jì)（第八版），濮良貴等，高等教育出版社P152表8-4a。單根普通Z型V帶的基本額定功率P0/kw小齒輪的基準(zhǔn)直徑d/mm小齒輪轉(zhuǎn)速n/(r/min)400700800950120014501600200024002800500.060.090.100.120.140.160.170.200.220.26560.060.110.120.140.170.190.200.250.300.33630.080.130.150.180.220.250.270.320.370.41710.090.170.200.230.270.300.330.390.460.50800.140.200.220.260.300.350.390.440.500.56900.140.220.240.280.330.360.400.480.540.60三. Look-up table procedure design process1. Open the Microsoft Visual Basic 6.0, the newly created exe projects, such as figure3-1.figure3-12. After establishing engineering, shown in figure3-2.figure3-23. Rename the object window, as shown in figure3-3.figure3-34. Interface design, such as figure3-4 as shown in.figure3-45. Double-click the OK button to program design, such as figure3-5,3-6 and 3-7.figure3-5figure3-6figure3-76. Carry out a phased program to check, such as shown in figure3-8 and 3-9.figure3-8figure3-97. Step 6 After the success to continue the program design, as shown in figure3-10.figure3-108. Step 7 is completed, press Ctrl + Tab, the interface switching, double-click the exit button to program design, such as figure3-11 and 3-12.figure3-11figure3-129. After completion of the program design, run, debug, such as figure3-13,3-14,3-15 as shown in.figure3-13figure3-14figure3-15By comparison with the original form of data, it is reasonable program design;10. Exit the program, such as shown in figure3-16.figure3-1610. Save and generate the nie.exe applications, such as figure3-17 figure3-18 as shown.figure3-17figure3-18四. Run the demoOpen the as figure4-1，beause so more data，so only choice some of them .figure4-1Choose the input parameters, and click OK to generate the query results, and the two in the originalTable to verify that the correct procedure is as follows figure4-2 and 4-3. figure4-2figure4-3五source programPrivate Sub Command1_Click()Dim a As DoubleDim xz1(0 To 5) As String 定義數(shù)組Dim xz2(0 To 9) As Stringxz1(0) = 50 下拉索引xz1(1) = 56xz1(2) = 63xz1(3) = 71xz1(4) = 80xz1(5) = 90xz2(0) = 400xz2(1) = 700xz2(2) = 800xz2(3) = 950xz2(4) = 1200xz2(5) = 1450xz2(6) = 1600xz2(7) = 2000xz2(8) = 2400xz2(9) = 2800Dim indata(6, 10) As DoubleDim zj1 As String 定義中間變量Dim zj2 As String獲取文件Dim FileNo As Integer FileNo = FreeFile() 獲取一個(gè)未使用的文件號(hào) Dim str As String 用來記錄最終的值 Open C:UsersAdministratorDocumentsnienie.txt For Input As #FileNo For i = 0 To 5 For j = 0 To 9 Input #FileNo, indata(i, j) Next j Next i Close #FileNo zj1 = Combo1.Text zj2 = Combo2.Text If (zj1 = xz1(0) Then If (zj2 = xz2(0) Then a = indata(0, 0) End If If (zj2 = xz2(1) Then a = indata(0, 1) End If If (zj2 = xz2(2) Then a = indata(0, 2) End If If (zj2 = xz2(3) Then a = indata(0, 3) End If If (zj2 = xz2(4) Then a = indata(0, 4) End If If (zj2 = xz2(5) Then a = indata(0, 5) End If If (zj2 = xz2(6) Then a = indata(0, 6) End If If (zj2 = xz2(7) Then a = indata(0, 7) End If If (zj2 = xz2(8) Then a = indata(0, 8) End If If (zj2 = xz2(9) Then a = indata(0, 9) End If End If If (zj1 = xz1(1) Then If (zj2 = xz2(0) Then a = indata(1, 0) End If If (zj2 = xz2(1) Then a = indata(1, 1) End If If (zj2 = xz2(2) Then a = indata(1, 2) End If If (zj2 = xz2(3) Then a = indata(1, 3) End If If (zj2 = xz2(4) Then a = indata(1, 4) End If If (zj2 = xz2(5) Then a = indata(1, 5) End If If (zj2 = xz2(6) Then a = indata(1, 6) End If If (zj2 = xz2(7) Then a = indata(1, 7) End If If (zj2 = xz2(8) Then a = indata(1, 8) End If If (zj2 = xz2(9) Then a = indata(1, 9) End If End If If (zj1 = xz1(2) Then If (zj2 = xz2(0) Then a = indata(2, 0) End If If (zj2 = xz2(1) Then a = indata(2, 1) End If If (zj2 = xz2(2) Then a = indata(2, 2) End If If (zj2 = xz2(3) Then a = indata(2, 3) End If If (zj2 = xz2(4) Then a = indata(2, 4) End If If (zj2 = xz2(5) Then a = indata(2, 5) End If If (zj2 = xz2(6) Then a = indata(2, 6) End If If (zj2 = xz2(7) Then a = indata(2, 7) End If If (zj2 = xz2(8) Then a = indata(2, 8) End If If (zj2 = xz2(9) Then a = indata(2, 9) End If End If If (zj1 = xz1(3) Then If (zj2 = xz2(0) Then a = indata(3, 0) End If If (zj2 = xz2(1) Then a = indata(3, 1) End If If (zj2 = xz2(2) Then a = indata(3, 2) End If If (zj2 = xz2(3) Then a = indata(3, 3) End If If (zj2 = xz2(4) Then a = indata(3, 4) End If If (zj2 = xz2(5) Then a = indata(3, 5) End If If (zj2 = xz2(6) Then a = indata(3, 6) End If If (zj2 = xz2(7) Then a = indata(3, 7) End If If (zj2 = xz2(8) Then a = indata(3, 8) End If If (zj2 = xz2(9) Then a = indata(3, 9) End If End If If (zj1 = xz1(4) Then If (zj2 = xz2(0) Then a = indata(4, 0) End If If (zj2 = xz2(1) Then a = indata(4, 1) End If If (zj2 = xz2(2) Then a = indata(4, 2) End If If (zj2 = xz2(3) Then a = indata(4, 3) End If If (zj2 = xz2(4) Then a = indata(4, 4) End If If (zj2 = xz2(5) Then a = indata(4, 5) End If If (zj2 = xz2(6) Then a = indata(4, 6) End If If (zj2 = xz2(7) Then a = indata(4, 7) End If If (zj2 = xz2(8) Then a = indata(4, 8) End If If (zj2 = xz2(9) Then a = indata(4, 9) End If End If If (zj1 = xz1(5) Then If (zj2 = xz2(0) Then a = indata(5, 0) End If If (zj2 = xz2(1) Then a = indata(5, 1) End If If (zj2 = xz2(2) Then a = indata(5, 2) End If If (zj2 = xz2(3) Then a = indata(5, 3) End If If (zj2 = xz2(4) Then a = indata(5, 4) E