汽车理论曲线绘制VB编程代码.doc

西华大学实验报告 PAGE  第 页 西华大学实验报告 3.2 实验记录（核心代码及调试过程） 1.核心代码： 驱动力与行驶阻力平衡图 Private Sub Command1_Click() Picture1.DrawWidth = 1 Picture1.Cls Dim i, j, n As Integer Dim Ft, Ff, Fw, Umax, Uumax As Single Picture1.Scale (-20, 18000)-(150, -2000) Picture1.Line (0, 0)-(125, 0): Picture1.Line (0, 0)-(0, 16000) Picture1.CurrentX = 125: Picture1.CurrentY = -300: Picture1.Print Ua(km/h) Picture1.CurrentX = 125: Picture1.CurrentY = 192: Picture1.Print → Picture1.CurrentX = 5: Picture1.CurrentY = 16000: Picture1.Print F/N Picture1.CurrentX = -2: Picture1.CurrentY = 16000: Picture1.Print ↑ Picture1.CurrentX = -5: Picture1.CurrentY = -1: Picture1.Print 0 For i = 20 To 120 Step 20 Picture1.Line (i, 0)-(i, 200) Picture1.CurrentX = i - 5: Picture1.CurrentY = -10: Picture1.Print i Next i For i = 1000 To 15000 Step 1000 Picture1.Line (0, i)-(1.5, i) Picture1.CurrentX = -15: Picture1.CurrentY = i + 50: Picture1.Print i Next i Picture1.DrawWidth = 2 For n = 600 To 4000 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4 For j = 1 To 5 Ft = Tq * i0 * ηt * x(j) / r Ff = f * 9.8 * m Ua = 0.377 * r * n / (i0 * x(j)) Fw = 0.5 * 1.2258 * ca * (Ua / 3.6) ^ 2 Picture1.Circle (Ua, Ft), 0.1, vbBlue Picture1.Circle (Ua, (Ff + Fw)), 0.1, vbRed Umax = Umax If Ua Umax Then Umax = Ua Else Umax = Umax End If Next j Next n Uumax = CInt(Umax * 100) / 100 Picture1.CurrentX = 40: Picture1.CurrentY = 16000: Picture1.Print 最高车速为：; Uumax; km/h End Sub 爬坡度图 Private Sub Command2_Click() Picture1.Cls Picture1.DrawWidth = 1 Dim i, j, n As Integer Dim xx, Ff, Fw,