华南理工大学汽车理论编程作业vb答案

华工汽车理论vb编程

Private Sub Command1_Click() '驱动力行驶阻力平衡图

Picture1.DrawWidth = 1

Picture1.Cls

Dim i, j, n As Integer

Dim Fa, Ft, Ff, Fw, Umax, Uumax, x(1 To 5) As Single

Picture1.Scale (-20, 18000)-(170, -2000)

Picture1.Line (0, 0)-(140, 0) 'x轴

Picture1.Line (0, 0)-(0, 16000) 'y轴

Picture1.CurrentX = 135: Picture1.CurrentY = -300: Picture1.Print "Ua(km/h)"

Picture1.CurrentX = 140: Picture1.CurrentY = 255: Picture1.Print "→"

Picture1.CurrentX = 5: Picture1.CurrentY = 16000: Picture1.Print "F/kN"

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 - 4: Picture1.CurrentY = 0: 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 / 1000

Next i

Picture1.DrawWidth = 2

For j = 1 To 5

x(j) = InputBox("请输入各档传动比")

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

Ft = Tq * 5.83 * 0.85 * x(j) / 0.367

Ff = 0.013 * 9.8 * 3880

Ua = 0.377 * 0.367 * n / (5.83 * x(j))

Fw = 0.5 * 2.77 * 1.2258 * (Ua / 3.6) ^ 2

Picture1.PSet (Ua, Ft), vbGreen

Picture1.PSet (Ua, (Ff + Fw)), vbRed

Fa = Ff + Fw

If Fa < Ft Then

Umax = Ua

Else

Umax = Umax

Word文档免费下载Word文档免费下载:华南理工大学汽车理论编程作业vb答案 (共4页,当前第1页)

你可能喜欢

  • 汽车编程
  • 重庆大学 汽车理论
  • 汽车理论考试试题
  • 汽车理论知识
  • 汽车理论课件
  • 汽车理论复习资料
  • 汽车理论试卷

华南理工大学汽车理论编程作业vb相关文档

最新文档

返回顶部