Параметры объекта "сила"

Option Explicit
Dim Keyb(255) As Boolean
 
Dim Accel As Single     'Текущее положение педали газа
Dim Break As Single     'Текущее положение педали тормоза
Dim Steer As Single     'Текущее положение руля
Dim KPPstep As Long     'Текущая передача
Const KPPMaxstep = 4    'Число ступеней передач вперед
Dim KPP(-1 To KPPMaxstep) As Single 'Коэффициенты КПП
 
Dim Speed As Single     'Скорость
Dim CarX As Single      'Координата X центра тяжести машины
Dim CarY As Single      'Координата Y центра тяжести машины
Dim Alpha As Single     'Угол поворота корпуса вокруг вертикальной оси Z
Dim SpeedAlpha As Single  'Скорость вращения
Dim SpeedX As Single    'X компонента вектора скорости
Dim SpeedY As Single    'Y компонента вектора скорости
Dim DTime As Single     'Время, прошедшее с предыдущего кадра в сек.
 
  'Следующие семь величин нужны только в 3D
Dim carDiffFB As Single 'Наклон машины вперед-назад
Dim carDiffLR As Single 'Наклон машины вправо-влево
Const kYung = 15        'Жесткость амортизаторов
Const carWidth = 1.85   'Ширина машины в м.
Const carHeight = 2.3   'Длина машины между осями в м.
Const resLR = 3.5       'Поперечная резонансная частота качания в гц.
Const resFB = 2         'Продольная резонансная частота качания в гц.
 
Const kAF = 0.5         'Коэффициент трения о воздух и в подвеске
Const MaxFRCY = 20      'Максимальная продольная сила трения, выше - пробуксовка
Const MaxFRCX = 20      'Максимальная поперечная сила трения, выше - занос
Const MaxRotFRC = 10    'Максимальная сила трения вращения
  'Примерные значения MaxFRCY, MaxFRCX и MaxRotFRC:
                        'для асфальта - 20, 20, 10
                        'для льда - 5, 5, 3
                        'для гравия - 10,15, 5
 
Const Power = 0.12      'Мощность движка в квт, деленная на массу в кг(1 л.с. = 736 ватт)
                        'При мощности 165 л.с. и массе 1 т. Power = 165 * 0.736 / 1000
Const CarSpeed = 90     'Максимальная скорость без учета трения в м/с (1 км/ч = 0.278 м/с)
Const Radius = 4        'Радиус поворота в м.
Const CtrlSens = 1.2    'Чувствительность управления
Const carExBack = 1.25  'Расстояние от задней оси до центра тяжести в м.
 
  'Коэффициенты КПП, на максимальной ступени должно быть = 1.
  KPP(-1) = -0.3
  KPP(0) = 0
  KPP(1) = 0.3
  KPP(2) = 0.566
  KPP(3) = 0.8
  KPP(4) = 1
 
Private Sub Driving()   'Управление
  If Keyb(vbKeyUp) Then         'Газ
    Accel = Accel + DTime * CtrlSens: If Accel > 1 Then Accel = 1
  Else
    Accel = Accel - DTime * CtrlSens: If Accel < 0.1 Then Accel = 0.1   'Холостые обороты
  End If
  
  If Keyb(vbKeyDown) Then       'Тормоз
    Break = Break + DTime * CtrlSens: If Break > 1 Then Break = 1
  Else
    Break = Break - DTime * CtrlSens: If Break < 0 Then Break = 0
  End If
 
  If Keyb(vbKeyLeft) Then       'Влево
    Steer = Steer - DTime * CtrlSens: If Steer < -0.5 Then Steer = -0.5
  ElseIf Keyb(vbKeyRight) Then  'Вправо
    Steer = Steer + DTime * CtrlSens: If Steer > 0.5 Then Steer = 0.5
  Else                          'Выровнять
    If Abs(Steer) < CtrlSens Then
      Steer = 0
    Else
      Steer = Steer - DTime * CtrlSens * Sgn(Steer)
    End If
  End If
 
  If Keyb(vbKeyA) Then          'Передача +
    If KPPstep < KPPMaxstep Then KPPstep = KPPstep + 1
    Keyb(vbKeyA) = False
  ElseIf Keyb(vbKeyZ) Then      'Передача -
    If KPPstep > -1 Then KPPstep = KPPstep - 1
    Keyb(vbKeyZ) = False
  End If
End Sub
 
Private Sub Moving()    'Движение
Dim SpX As Single       'Скорость по локальной оси X
Dim SpY As Single       'Скорость по локальной оси Y
Dim FrcX As Single      'Сила по локальной оси X
Dim FrcY As Single      'Сила по локальной оси Y
Dim ForceX As Single    'Сила по оси X
Dim ForceY As Single    'Сила по оси Y
Dim RotFRC As Single    'Момент силы вращения
Dim tmp As Single
 
  'Перевод величин в локальную систему координат автомобиля
  If SpeedY > 0.0000001 Then
    tmp = Atn(SpeedX / SpeedY)
  ElseIf SpeedY < -0.0000001 Then
    tmp = 3.141593 + Atn(SpeedX / SpeedY)
  Else
    tmp = 1.570796 * Sgn(SpeedX)
  End If
  tmp = tmp - Alpha
  Speed = Sqr(SpeedX * SpeedX + SpeedY * SpeedY)
  SpX = -Speed * Sin(tmp)
  SpY = Speed * Cos(tmp)
 
  'Расчет сил
  If KPPstep = 0 Then
    FrcY = 0
  Else
    FrcY = (KPP(KPPstep) * CarSpeed * Accel - SpY) * Power / (KPP(KPPstep) * KPP(KPPstep))
  End If
 
  FrcY = FrcY - (Break / DTime + kAF) * Sgn(SpY)
  FrcX = (-SpY * Steer * carExBack / Radius - SpX) / DTime
 
  If Abs(FrcX) > MaxFRCX Then FrcX = MaxFRCX * Sgn(FrcX)    'занос
  If Abs(FrcY) > MaxFRCY Then FrcY = MaxFRCY * Sgn(FrcY)    'пробуксовка
 
  If KPPstep = 0 Then tmp = 0 Else tmp = 2 / (Abs(KPP(KPPstep)) * CarSpeed)
  RotFRC = (Steer * SpY / Radius - SpeedAlpha + SpX * Accel * tmp) / DTime
  tmp = MaxRotFRC * (CarSpeed - SpY) / CarSpeed
  If Abs(RotFRC) > tmp Then RotFRC = Sgn(RotFRC) * tmp
 
  'Вычисление наклонов
  tmp = DTime * resFB
  carDiffFB = carDiffFB * (1 - tmp) + FrcY / (MaxFRCY * kYung * carHeight) * tmp
  tmp = DTime * resLR
  carDiffLR = carDiffLR * (1 - tmp) + FrcX / (MaxFRCX * kYung * carWidth) * tmp
 
  'Перевод величин в мировую систему координат
  ForceY = FrcY * Cos(Alpha) + FrcX * Sin(Alpha)
  ForceX = FrcY * Sin(Alpha) - FrcX * Cos(Alpha)
  
  SpeedAlpha = SpeedAlpha + RotFRC * DTime
  SpeedX = SpeedX + ForceX * DTime
  SpeedY = SpeedY + ForceY * DTime
  Alpha = Alpha + SpeedAlpha * DTime
  CarX = CarX + SpeedX * DTime
  CarY = CarY + SpeedY * DTime
End Sub