源程序清单-汽车动力性计算图表软件V1.0

最新推荐文章于 2023-08-23 14:40:45 发布

xxlcar

最新推荐文章于 2023-08-23 14:40:45 发布

阅读量956

点赞数 2

分类专栏：汽车动力性文章标签：性能优化经验分享制造

本文链接：https://blog.csdn.net/xxlcar/article/details/122708701

版权

Dim Umax As Double, Nmax As Double, V10 As Double, Vminrear As Double

'Umax以最高当速比时最高转速时设定为最高车速度

'V10 为最小稳定车速, Vminrear 为最小倒车速度

Dim Tqudongqiao As Double, Tqufa As Double '驱动桥最大输出扭矩，最大滑动阻力矩

Dim Vmax As Double, Nvmax As Double, Fmxqu As Double, Amxjia As Double, POmx As Double 'POmx最大爬坡度

'Vmax 最高车速 Nvmax 最高车速时对应转速

Dim T60 As Double '60公里加速时间

Dim kai As Integer '用于记录是否为第一次使用。

Dim REV() As Double '对应转速

Dim Torque() As Double '对应扭矩，发动机

Dim Power() As Double '对应功率

Dim Tormax As Double, ntormax As Double '最大扭矩，最大扭矩时对应转速

Dim Pemax As Double, npemax As Double '最大功率，最大功率时对应转速

''**************以上定义类变量********************

Public Function Getnum(strall As String) As String '分解参数字符串，“：”后面的参数是数字返回值

Dim txtA As String

txtA = Trim(strall)

mytxt = Split(txtA, "：")

Getnum = Trim(mytxt(1))

End Function

Public Function T(Ni As Double)

' Pemax = Text2.Text '额定功率 283

' Np = Text3.Text '额定功率时转速 1900

' Te = 9550 * Text2.Text / Text3.Text '额定功率时扭矩 1422.44

' Ntq = Text5.Text '最大扭矩时转速 1200

' Ttqmax = Text4.Text '最大扭矩 1800

' ''以上初始化变量值

' T = (Te - Ttqmax) * (Ni - Ntq) * (Ni - Ntq) / ((Np - Ntq) * (Np - Ntq)) + Ttqmax

' '扭矩函数，二次抛物线拟合得到

Dim Cout

Dim i As Integer, j As Integer

Cout = List1.ListCount - 1

If Ni = REV(Cout) Then

i = Cout

Else

For i = 0 To Cout

If REV(i) > Ni Then Exit For

End If

If i > Cout Then

MsgBox "输入参数有误，请重新输入。"

Else

'根据线性关系来求转速与扭矩有关系，

' Y=(Y2-Y1)(X-X1)/(X2-X1)+Y1 已知（x1,y1）,(x2,y2)两个点时，求中间线性点公式

T = (Torque(i) - Torque(i - 1)) * (Ni - REV(i - 1)) / (REV(i) - REV(i - 1)) + Torque(i - 1)

End If

End Function

Public Function P(n)

' Dim a, Np, Pmax, Pt, Nt As Double

' Pt = Text5.Text * Text4.Text / 9550 '最大扭矩时的功率

' Pmax = Text2.Text '额定功率 283

' Np = Text3.Text '额定功率时转速 1900

' Nt = Text5.Text '最大扭矩时转速

' a = (Pt - Pmax) / ((Nt - Np) * (Nt - Np))

' ''以上初始化变量值

' P = a * (n - Np) * (n - Np) + Pmax

'功率函数，二次抛物线顶点法拟合得到，低速时值相对偏大

End Function

Public Function UtoN(U As Double, igi As Double) '已知速度求发动机转速

'2013.9.11 增加

'公式N=2.65258*Un*ig*i0/r

Dim Unow As Double, I0 As Double, r As Double

I0 = Text21.Text: r = Text19.Text

UtoN = 2.65258 * U * igi * I0 / r

End Function

Public Function Fe(Ni As Double, igi As Double) '汽车驱动力函数

'公式 F=Ttq*ig*i0*Nt/r

'Ttq为发动机扭矩 ig变速器传动比 i0主减速比 Nt传动效率 r车轮滚动半径

'text10.text 辅件消耗

Dim Nt As Double

Dim I0 As Double, r As Double

I0 = Text21.Text: r = Text19.Text

If igi = 1 Then

Nt = Text9.Text

Else

Nt = Text8.Text

End If

'单位为KN

Fe = (1 - 0.01 * Text10.Text) * 0.001 * T(Ni) * igi * I0 * Nt / r

End Function

Public Function Fw(ByVal Ua As Double) '汽车行驶风阻

'公式 Fw=Cd*A*Ua*Ua/21.15 其中A为迎风面积

Fw = (Text20.Text * Text18.Text * Ua * Ua / 21.15) / 1000

'单位KN

End Function

Public Function Fz(Ua As Double) '汽车行驶阻力滚动+风阻

'滚动阻力=Wf

Dim Wg As Double

Wg = Text22.Text * 9.8

f = 0.0076 + 0.000056 * Ua

Fz = (Wg * f + Text20.Text * Text18.Text * Ua * Ua / 21.15) / 1000

'单位KN

End Function

Public Function Un(Ni2, igi) As Double '汽车速度

'Ni2 为转速 igi为对应档位速比

Un = (0.377 * Text19.Text * Ni2) / (Text21.Text * igi)

End Function

Private Sub IniData() '初始化转速，扭矩及功率放到数组中

'扭矩公式Ttq=9550*Pe/n

'转速数组REV() 扭矩数组Torque() 功率Power() 每组对应

Dim MyS() As String

Pemax = 0

Tormax = 0

npemax = 0

ntormax = 0

Dim Cout As Integer, i As Integer

Dim ZB As Integer

Cout = List1.ListCount

If List1.ListCount > 0 Then

ReDim REV(Cout)

ReDim Torque(Cout)

ReDim Power(Cout)

For i = 0 To Cout - 1

' ZB = InStr(List1.List(i), "-")

MyS = Split(List1.List(i), ",")

REV(i) = MyS(0): Power(i) = MyS(1): Torque(i) = MyS(2)

' REV(i) = Left(List1.List(i), ZB - 1)

' Power(i) = Right(List1.List(i), Len(List1.List(i)) - ZB)

' Torque(i) = 9550 * Power(i) / REV(i)

If Power(i) > Pemax Then

Pemax = Power(i)

npemax = REV(i)

End If

If Torque(i) > Tormax Then

Tormax = Torque(i)

ntormax = REV(i)

End If

'Debug.Print "P=" & Power(i) & " T=" & Torque(i) & " n=" & REV(i) & " i=" & i

Next i

Nmax = REV(Cout - 1) + 200

End If

'Debug.Print Pemax & " tmax=" & Tormax

End Sub

Private Sub Command_backword_Click()

frmAbout.Show

' Form1.Hide

form3.Hide

End Sub

Private Sub Command清空_Click()

List1.Clear

End Sub

Private Sub List1_Click() '在列表框中单击一行，可以自动读取到文本框text2中

If List1.ListIndex <> -1 Then

Text2.Text = List1.List(List1.ListIndex)

End If

End Sub

'**************************************************************************

' 以上为公共程序部分 -----------------

'**************************************************************************

Private Sub Text6_Change()

If Text6.Text <> "" Then

If Text6.Text < 16 Then

For i = 1 To Text6.Text - 1

Label7(i).Visible = True

Text7(i).Visible = True

For i = Text6.Text To 14

Label7(i).Visible = False

Text7(i).Visible = False

ElseIf Text6.Text > "15" Then

MsgBox "变速器档位数只支持1-15，其他不支持。"

End If

End Sub

Private Sub CommandExample_Click()

Dim aa As String

Dim bb() As String

Text1.Text = "DCiII385"

Text4.Text = 26000

Text6.Text = 6

Text3.Text = 6.4

Text7(0).Text = 7.04

Text7(1).Text = 4.1

Text7(2).Text = 2.48

Text7(3).Text = 1.56

Text7(4).Text = 1

Text7(5).Text = 0.74

Text8.Text = 0.84

Text9.Text = 0.95

Text18.Text = 6.34

Text19.Text = 0.526

Text20.Text = 0.62

Text21.Text = 4.875

Text22.Text = 32000

aa = "700,95,1250 |800,110,1300|900,130,1360|1000,155,1500|1100,190,1650|1200,212,1700|1300,230,1700|1400,250,1700|1500,268,1680|1600,270,1630|1700,274,1550|1800,273,1510|1900,275,1400|2000,265,1275|2100,250,1150"

bb = Split(aa, "|")

cc = UBound(bb)

List1.Clear

For i = 0 To cc

List1.AddItem bb(i)

Picture1.Cls

End Sub

Private Sub Command_End_Click()

End

End Sub

Private Sub CommandCal_Click()

'' 计算并预览的方法，先把每次计算的结果保存到文件 App.Path & "\" & Text1.Text & "计算结果.txt" 中，

'' 全部计算完成之后，再把文件中的内容逐行读取保存到字符串变量St_b中，输入参数部分按这个方法来做，

'' 计算部分采用计算一次先保存到Form2.Text1.Text 中，然后再分别追加到文件与St_b变量中，最后显示到Form2.Text2.Text

'' TXT文件内容要显示到文件窗口中，需要先读取到字符变量中，再一次性传给文本窗口

Dim AutoSaveExact As String

Dim Str_a As String, St_B As String

AutoSaveExact = App.Path & "\Autoexact.txt" '用于存放每次计算之后的数据输入

' MsgBox AutoSaveExact

form3.Caption = "汽车动力性计算绘图结果"

Dim IGmax As Double, n1 As Double

Dim Cout As Integer

Dim Fpowe As Double, Fallzu As Double

If Text6.Text = "" Or List1.ListCount < 2 Then

MsgBox "参数不完整，请重新输入！"

Exit Sub

End If

Call IniData '初始化数据转速功率扭矩

IGmax = Text6.Text - 1 '以0为起始,最高档位车速

Cout = List1.ListCount - 1

'以下求最高车速================从扭矩最大时的转速开始递增计算=================================

'Debug.Print "最高转速ntormax=" & ntormax

Nvmax = 0

For i = ntormax To REV(Cout)

n1 = i

Fpowe = Fe(n1, Text7(IGmax).Text)

Fallzu = Fz(Un(n1, Text7(IGmax).Text))

'Debug.Print "i=" & i & " Fe=" & Fpowe & " Fz=" & Fallzu

Vmax = Un(n1, Text7(IGmax).Text)

Nvmax = n1

If Fpowe < Fallzu Then

Vmax = Un(n1 - 1, Text7(IGmax).Text)

Nvmax = n1 - 1

'Debug.Print "i=" & i & " Fe=" & Fe(n1, Text7(IGmax).Text) & " Fz=" & Fz(Un(n1, Text7(IGmax).Text))

Exit For

End If

'Debug.Print "最高转速max=" & Nvmax & " 最高车速=" & Vmax

'=====================================================================================

If Text1.Text = "" Then

Paths = App.Path & "\计算结果.txt"

Else

Paths = App.Path & "\" & Text1.Text & "计算结果.txt"

End If

'MsgBox paths

Call Option5_Click

Picture1.Cls

'''''''''''''''''''''''''以上计算一次''''''''''''''''''''''''''''''''

' If Amxjia = 0 Then Call Option5_Click

' If P0mx = 0 Then Call Option6_Click

' If Fmxqu = 0 Then Call Option3_Click

Open Paths For Output As #1

Print #1, "┌──────────────────┐"

Print #1, "│ *** 以下是计算输入参数内容 *** │"

Print #1, "├─────────┬────────┤"

Print #1, "│发动机或车辆型号：│" & Text1.Text & Space(16 - Len(Text1.Text)) & "│"