$regfile = "m8adef.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 64

'========================настраиваем таймер в режим захвата================
Config Timer1 = Timer , Prescale = 64 , Capture Edge = Falling
On Capture1 Захват
'--------------------------------------------------------------
Config Timer0 = Timer , Prescale = 64                       ' конфигурируем таймер (~250 Гц)
On Timer0 Refresh
'==============Переменные=======================================
Dim W As Bit : W = 0
Dim Y As Byte
Dim Pisec As Byte                                           ' счетчик для перебора разрядов
Dim Длительность As Word
Dim Ind_str As String * 1
Dim Скорость_sing As Single
Dim V As Word
Dim V_str As String * 4
Dim Строка_str As String * 10
Const T = 0.000004
Const L = 0.1
Dim Точка As Bit
Dim Энергия As Long
Dim E_str As String * 4
Dim M As Word
Dim M_str As String * 4
Dim Mee As Eram Word
Dim Счет As Word
Dim Flag As Bit
'==============Порта , и переменные индикации=======================================
Config Portc.3 = Output : Config Portb.2 = Output : Config Portd.1 = Output : Config Portc.0 = Output : Config Portc.1 = Output
Config Portd.7 = Output : Config Portb.4 = Output : Config Portc.5 = Output
A Alias Portc.3 : B Alias Portb.2 : C Alias Portd.1 : D Alias Portc.0 : E Alias Portc.1 : F Alias Portd.7 : G Alias Portb.4
H Alias Portc.5

Config Portd.2 = Output : Config Portd.0 = Output : Config Portc.4 = Output : Config Portc.2 = Output
Config Portb.5 = Output : Config Portb.3 = Output : Config Portb.1 = Output : Config Portd.6 = Output
Dig1 Alias Portd.2 : Dig2 Alias Portd.0 : Dig3 Alias Portc.4 : Dig4 Alias Portc.2
Dig5 Alias Portb.5 : Dig6 Alias Portb.3 : Dig7 Alias Portb.1 : Dig8 Alias Portd.6
'__________________________________________________________________________
Config Pind.5 = Input : Portd.5 = 1
Сброс Alias Pind.5
'__________________________________________________________________________
Config Pind.4 = Input : Portd.4 = 1
Минус Alias Pind.4
'__________________________________________________________________________
Config Pind.3 = Input : Portd.3 = 1
Плюс Alias Pind.3
'------------------------------------------------------------------------------
If Mee > 350 Then Mee = 200
M = Mee

Enable Interrupts
Enable Timer0 : Start Timer0
Enable Capture1

  For Pisec = 1 To 5
     Строка_str = "        "
     Waitms 300
     Строка_str = "--------"
     Waitms 300
  Next Pisec
'*******************************************************************************
Главный_цикл:

     Incr Счет
     If Счет > 40 Then Счет = 0

   If Сброс = 0 Then Длительность = 0
   If Сброс = 0 And Flag = 1 Then
     Flag = 0
     Mee = M
   End If
   If Минус = 0 Then
      Waitms 100
      Decr M : Flag = 1
   End If
   If Плюс = 0 Then
      Waitms 100
      Incr M : Flag = 1
   End If
   M_str = Str(m) : M_str = Format(m_str , "000")

      Скорость_sing = Длительность * T
      Скорость_sing = L / Скорость_sing
      V = Abs(скорость_sing)
      V_str = Str(v) : V_str = Format(v_str , "000")

      Энергия = V * V
      Энергия = Энергия * M
      Энергия = Энергия / 20000                             'E = 1 / 200000 * M * V ^ 2
      E_str = Str(энергия) : E_str = Format(e_str , "000")


     If Flag = 0 Then
      Строка_str = V_str + "n" + E_str + "j"
     End If
     If Flag = 1 Then
      Строка_str = V_str + "n" + M_str + "g"
     End If
    Waitms 100

Goto Главный_цикл
'*******************************************************************************

'***********************************[Процедуры обработки подпрограмм и прерываний]*******************************
Refresh:

  Set Dig1 : Set Dig2 : Set Dig3 : Set Dig4 : Set Dig5 : Set Dig6 : Set Dig7 : Set Dig8 : H = 0       ' гасим индикатор

 Incr Y : If Y > 8 Then Y = 1                               ' выбираем какой разряд сейчас включать

    Ind_str = Mid(строка_str , Y , 1)
  Select Case Ind_str
    Case "0" : A = 1 : B = 1 : C = 1 : D = 1 : E = 1 : F = 1 : G = 0
    Case "1" : A = 0 : B = 1 : C = 1 : D = 0 : E = 0 : F = 0 : G = 0
    Case "2" : A = 1 : B = 1 : C = 0 : D = 1 : E = 1 : F = 0 : G = 1
    Case "3" : A = 1 : B = 1 : C = 1 : D = 1 : E = 0 : F = 0 : G = 1
    Case "4" : A = 0 : B = 1 : C = 1 : D = 0 : E = 0 : F = 1 : G = 1
    Case "5" : A = 1 : B = 0 : C = 1 : D = 1 : E = 0 : F = 1 : G = 1
    Case "6" : A = 1 : B = 0 : C = 1 : D = 1 : E = 1 : F = 1 : G = 1
    Case "7" : A = 1 : B = 1 : C = 1 : D = 0 : E = 0 : F = 0 : G = 0
    Case "8" : A = 1 : B = 1 : C = 1 : D = 1 : E = 1 : F = 1 : G = 1
    Case "9" : A = 1 : B = 1 : C = 1 : D = 1 : E = 0 : F = 1 : G = 1
    Case " " : A = 0 : B = 0 : C = 0 : D = 0 : E = 0 : F = 0 : G = 0
    Case "-" : A = 0 : B = 0 : C = 0 : D = 0 : E = 0 : F = 0 : G = 1
    Case "n" : A = 0 : B = 0 : C = 1 : D = 0 : E = 1 : F = 0 : G = 1
    Case "j" : A = 0 : B = 1 : C = 1 : D = 1 : E = 1 : F = 0 : G = 0
    Case "g" : A = 0 : B = 0 : C = 0 : D = 0 : E = 1 : F = 0 : G = 1
  End Select

  If Flag = 0 And Y = 6 Then H = 1
  If Flag = 1 And Y = 5 Then H = 1

  Select Case Y                                             ' и включаем соответствующий разряд индикатора
    Case 1 : Reset Dig1
    Case 2 : Reset Dig2
    Case 3 : Reset Dig3
    Case 4 : Reset Dig4
    Case 5 : Reset Dig5
    Case 6 : Reset Dig6
    Case 7 : Reset Dig7
    Case 8 : Reset Dig8
  End Select

 Return
'----------------------------------------------------------------------------------------------------------------
Захват:
  Длительность = Capture1
  Timer1 = 0
  W = 1
Return