汽车百公里油耗图—VB程序代码

汽车百公里油耗图—VB程序代码 沈阳理工大学程序设计 轻型货车功率平衡程序设计 1. 程序运行的程序代码如下: Private Sub Form_click() “单击窗体即可运算此程序” Picture1.Scale (-3, 70)-(150, -3) Picture1.Cls Picture1.Line (-3, 0)-(150, 0), vbBlue Picture1.Line (145, 0.5)-(150, 0), vbBlue Picture1.Line -(145, -0.5), vbBlue Picture1.CurrentX = 135: Picture1.CurrentY = -1 Picture1.Print "U/km/h"; “以上运算画x轴” For b = 20 To 140 Step 20 Picture1.Line (b, 0)-(b, 0.75), vbBlue Next b For d = 20 To 120 Step 20 Picture1.CurrentX = d - 3: Picture1.CurrentY = 0 “此过程是画x坐标刻度” Picture1.Print d Next d Picture1.Line (0, -3)-(0, 70), vbBlue “以下画y轴坐标” Picture1.Line (-1, 68)-(0, 70), vbBlue Picture1.Line -(1, 68), vbBlue Picture1.Print "Pe/kw", For c = 5 To 65 Step 5 Picture1.Line (0, c)-(2, c), vbBlue Picture1.Print c Next c Picture1.CurrentX = 0: Picture1.CurrentY = 0 Picture1.Print "0"; End Sub Private Sub Command1_Click() “单击命令按钮command1” Dim i(4) As Double “运行以下程序” i(1) = 6.09: i(2) = 3.09: i(3) = 1.71: i(4) = 1 For a = 1 To 4 Step 1 For n = 400 To 4500 Step 0.05 u = 0.377 * 0.367 * n / (5.83 * i(a)) Tq = -19.313 + 295.27 * n / 1000 - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4 Pe = Tq * 5.83 * i(a) * u / (3600 * 0.367) Picture1.PSet (u, Pe), vbGreen Next n Next a End Sub Private Sub Command2_Click() Dim u As Double 1 第 页 沈阳理工大学程序设计 For u = 0 To 130 Step 0.001 Picture1.PSet (u, (2.77 * u ^ 3 / 76140 + 26 * u / 3600) / 0.85), vbRed Next u End Sub 2.程序运行的运行方法: (1)在空白处单击窗体，就会生成一个坐标轴; (2)然后单击两个command按钮就会生成汽车功率平衡图。 3.程序运行的最终结果如下所示: 2 第 页 沈阳理工大学程序设计 轻型货车百公里油耗图程序设计 1.程序运行的程序代码如下: Private Sub Form_Click() “单击窗体即可运算此程序” Picture1.Scale (-1, 24)-(120, -1) “以下都是为了设计坐标” Picture1.Cls Picture1.Line (-1, 0)-(120, 0), vbBlue “画x轴轴线” Picture1.Line (115, 0.15)-(120, 0), vbBlue Picture1.Line -(115, -0.15), vbBlue Picture1.CurrentX = 108: Picture1.CurrentY = 0 Picture1.Print "U/km/h"; For b = 20 To 120 Step 20 “画x轴的刻度” Picture1.Line (b, 0)-(b, 0.25), vbBlue Next b For d = 20 To 110 Step 20 Picture1.CurrentX = d - 3: Picture1.CurrentY = 0 Picture1.Print d Next d Picture1.Line (0, -1)-(0, 24), vbBlue “画y轴的坐标” Picture1.Line (-0.5, 23.5)-(0, 24), vbBlue Picture1.Line -(1, 23.5), vbBlue Picture1.Print "Q/L", For c = 2 To 22 Step 2 Picture1.Line (0, c)-(2, c), vbBlue Picture1.Print c Next c Picture1.CurrentX = 0: Picture1.CurrentY = 0 Picture1.Print "0"; End Sub Private Sub Command1_Click() Dim a(8, 5), h(8), P As Double “定义一维h和二维数组a” a(1, 1) = 1326.8: a(1, 2) = -416.46: a(1, 3) = 72.379: a(1, 4) = -5.8629: a(1, 5) = 0.17768: a(2, 1) = 1354.7 a(2, 2) = -303.98: a(2, 3) = 36.657: a(2, 4) = -2.0553: a(2, 5) = 0.043027: a(3, 1) = 1284.4: a(3, 2) = -189.75 a(3, 3) = 14.524: a(3, 4) = -0.51184: a(3, 5) = 0.0068164: a(4, 1) = 1122.9: a(4, 2) = -121.59: a(4, 3) = 7.0035 a(4, 4) = -0.18517: a(4, 5) = 0.0018555: a(5, 1) = 1141#: a(5, 2) = -98.893: a(5, 3) = 4.4763: a(5, 4) = -0.091077 a(5, 5) = 0.00068906: a(6, 1) = 1051.2: a(6, 2) = -73.714: a(6, 3) = 2.8593: a(6, 4) = -0.05138: a(6, 5) = 0.00035032 a(7, 1) = 1233.9: a(7, 2) = -84.478: a(7, 3) = 2.9788: a(7, 4) = -0.047449: a(7, 5) = 0.0002823: a(8, 1) = 1129.7 3 第 页 沈阳理工大学程序设计 a(8, 2) = -45.291: a(8, 3) = 0.71113: a(8, 4) = -0.00075215: a(8, 5) = -0.000038568 h(1) = 815: h(2) = 1207: h(3) = 1614: h(4) = 2012: h(5) = 2603: h(6) = 3006: h(7) = 3403: h(8) = 3804 For k = 1 To 7 Step 1 “利用插值法画未知点” For m = 0 To 1000 Step 1 n = h(k) + m * (h(k + 1) - h(k)) / 1000 B0 = a(k, 1) + m * (a(k + 1, 1) - a(k, 1)) / 1000 B1 = a(k, 2) + m * (a(k + 1, 2) - a(k, 2)) / 1000 B2 = a(k, 3) + m * (a(k + 1, 3) - a(k, 3)) / 1000 B3 = a(k, 4) + m * (a(k + 1, 4) - a(k, 4)) / 1000 B4 = a(k, 5) + m * (a(k + 1, 5) - a(k, 5)) / 1000 U = (0.377 * 0.367 * n) / 5.83 8000 * 0.013 * U / 3600 + 2.77 * U ^ 3 / 76140) / 0.85 P = (3 b = B0 + B1 * P + B2 * P ^ 2 + B3 * P ^ 3 + B4 * P ^ 4 Picture1.PSet ((0.377 * 0.367 * n) / 5.83, P * b / (1.02 * 7.15 * U)), vbGreen Next m Next k End Sub 2.程序运行的运行方法: (1)在空白处单击窗体，就会生成一个坐标轴; (ommand按钮就会生成轻型货车百公里油耗图。 2)然后单击c 3.程序运行的最终结果如下所示: 4 第 页