$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Config Portb.4 = Output
Config Portb.3 = Output

Config Pinb.0 = Input
Config Timer1 = Timer , Prescale = 1 , Capture Edge = Rising
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Const Number_arr_min = 2                                    'количество-элементов массива
Const Tick = 0.00000025                                     'время одного тика с учетом делителя таймера
Const P = 9                                                 'число пар полюсов
Const I = 1.825                                             ' передаточное число
Const Lcd_bar_style = 3
Const Max_scale = 4                                         'максимум шкалы оборотов/1000
Const Adc_dig = 0.004887585

Dim Timecounter As Word
Dim Arr_min(number_arr_min) As Word
Dim N As Byte
Dim Mean_oborot As Word                                     'среднее арифметическое
Dim Mean_oborot_one As Word                                 'значение оборотов (десятки)
Dim Mean_oborot_no_one As Word                              'значение оборотов- десятки оборотов
Dim Mean_oborot_one_new As Word                             'подмена десяток оборота
Dim Mean_oborot_out As Word                                 'вывод оборотов с шагом 50 оборотов
Dim Period As Single
Dim Ss As String * 4
Dim Ss_volt As String * 4
Dim Freq As Single
Dim Freq_wr As Byte
Dim Oborot As Single
Dim Oborot_wr As Word
Dim Oborot_min_out As Word
Dim Oborot_scale_wr As Word
Dim Oborot_scale_by As Byte
Dim Voltage_adc As Word
Dim Voltage As Single
Dim Volt_scale As Single
Dim Volt_scale_by As Byte

$include "lcd_bar.bas"

 Cursor Off
 Cls
 Locate 1 , 7
 Lcd "VOLVO"
 Locate 2 , 5
 Lcd "244 GL D6"
 Waitms 2000
       Cls
       Enable Interrupts
       Enable Capture1
       On Capture1 Antdr



Do

      If Timecounter > 60000 Then                           '14000                    'ограничиваем начальные обороты
      Oborot_wr = 0
      Else

      Period = Timecounter * Tick                           'расчет периода пришедшего импульса

      Timecounter = 0                                       'сбрасываем счетчик на всякий слуай
      Freq = 1 / Period                                     'расчет частоты пришедшего импульса
      Freq = Freq / I                                       'учитываем передаточное число
      Freq = Freq / P                                       'учитываем число пар полюсов генератора
      Oborot = Freq * 60                                    'вычисляем обороты в минуту word
      Oborot_wr = Oborot                                    'переводим обороты в byte
      End If



      Incr N                                                'наращиваем счетчик массива
      Arr_min(n) = Oborot_wr / 10                           'наполняем массив значениями/10
      If N = Number_arr_min Then                            'определяем размер массива, если пришли в максимум массива выводим минимальное значение массива
      Oborot_min_out = Min(arr_min(1))




Rem * * * * * * * * * * * * * * * * * * * * * * * * *

      Oborot_scale_wr = Oborot_min_out / Max_scale          'расчитываем максимум шкалы индикатора
      If Oborot_scale_wr > 100 Then Oborot_scale_wr = 101   'проверка на перегрузку числа 101 (необходимо для библиотеки барграфа)
      Oborot_scale_by = Oborot_scale_wr                     'переводим word в  byte
      N = 0                                                 ' сбрасываем счетчик массива в 0
      End If



Rem * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *




Rem ***************округление отображения оборотов по 50****************************

      Mean_oborot_one = Oborot_min_out Mod 10               'находим еденицы от оборотов для округления отображения по 50 оборотов
      If Mean_oborot_one < 5 Then                           ' если еденицы оборотов меньше 5 тогда
      Mean_oborot_one_new = 0
      Else
      Mean_oborot_one_new = 5
      End If
      Mean_oborot_no_one = Oborot_min_out - Mean_oborot_one ' находим изменение оборотов без первого разряда (без едениц)
      Mean_oborot_out = Mean_oborot_no_one + Mean_oborot_one_new

Rem * * * * * * * * * * * * * * * / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

      If Mean_oborot_out > 0 Then                           'проверяем условие если обороты есть тогда выводим их
      Ss = Str(mean_oborot_out)
      Ss = Format(ss , "    ")
      Locate 1 , 4                                          '    на дисплей
      Lcd Ss ; "0 RPM"                                      '
      Locate 2 , 1                                          '
      Lcd_bar Oborot_scale_by , 16                          '

      Else                                                  ' в противном случае включаем режим вольтметра


     Voltage_adc = Getadc(7)                                'считываем значение АЦП
     Voltage = Voltage_adc * Adc_dig                        'преобразуем в вольты через константу
     Voltage = Voltage * 3                                  'делитель напряжения на 3
     Volt_scale = Voltage - 11.9                            '
     If Volt_scale < 0 Then Volt_scale = 0                  'расчет длинны шкалы для вывода напряжения
     Volt_scale = Volt_scale * 45                           '
     Volt_scale_by = Volt_scale                             '
     If Volt_scale_by > 99 Then Volt_scale_by = 99          '
     Ss_volt = Fusing(voltage , "##.#")                     ' округляем до десятых
     Ss_volt = Format(ss_volt , "    ")                     'форматируем строку
                                               ' задержка перед выводом на дисплей
     Locate 1 , 4                                           '
     Lcd Ss_volt ; " VOLT"                                  '   вывод на дисплей напряжения и шкалы
     Locate 2 , 1                                           '
     Lcd_bar Volt_scale_by , 16                             '


      End If

      Loop

        End


      Antdr:
      Timecounter = Timer1
      Timer1 = 0
                Return