Измерение_adxl345:
'-------------------------------------------------------------------------------
   I2cstart         ' Подготовка к работе шины I2c
    I2cwbyte Запись_adxl345       ' Адресное обращение к используемому чипу i2c, для записи
    I2cwbyte &H32   ' Регистр с которого будем считывать данные
    I2crepstart     ' Повторная подготовка к работе шины I2c
    I2cwbyte Чтение_adxl345       ' Адресное обращение к используемому чипу i2c, для чтения
    I2crbyte X_byte(1) , Ack       ' Читаем значение из регистра чипа i2c
    I2crbyte X_byte(2) , Ack       ' Читаем значение из регистра чипа i2c
    I2crbyte Y_byte(1) , Ack       ' Читаем значение из регистра чипа i2c
    I2crbyte Y_byte(2) , Ack       ' Читаем значение из регистра чипа i2c
    I2crbyte Z_byte(1) , Ack       ' Читаем значение из регистра чипа i2c
    I2crbyte Z_byte(2) , Nack       ' Читаем значение из регистра чипа i2c
    I2cstop         ' Освобождаем шину I2c
'-------------------------------------------------------------------------------
  Return
Gosub Измерение_adxl345

      Сумма_x_integer = Сумма_x_integer + X_integer
      Сумма_y_integer = Сумма_y_integer + Y_integer
      Сумма_z_integer = Сумма_z_integer + Z_integer

     'Набираем сумму из 64 измерений
      Incr Количество_измерений

     'Усредняем полученные данные
      If Количество_измерений > 64 Then
         X_single = Сумма_x_integer
          Shift X_single , Right , 6 , Signed       ' Аналог X_single = Сумма_x_single / 64

          Y_single = Сумма_y_integer
          Shift Y_single , Right , 6 , Signed       ' Аналог Y_single = Сумма_y_single / 64

          Z_single = Сумма_z_integer
          Shift Z_single , Right , 6 , Signed       ' Аналог Z_single = Сумма_z_single / 64

          Количество_измерений = 0
          Флаг_есть_данные = 1
      End If





     'Переводим в угловые градусы, минуты, секунды
      If Флаг_есть_данные <> 0 Then

           If X_integer <> X_integer_нов Then
           X_integer_разница = X_integer - X_integer_нов
           X_integer_нов = X_integer
           If X_integer_разница < 0 Then
           X_integer_разница = X_integer_разница * -1
           End If
           End If

           If Y_integer <> Y_integer_нов Then
           Y_integer_разница = Y_integer - Y_integer_нов
           Y_integer_нов = Y_integer
           If Y_integer_разница < 0 Then
           Y_integer_разница = Y_integer_разница * -1
           End If
           End If

           If Z_integer <> Z_integer_нов Then
           Z_integer_разница = Z_integer - Z_integer_нов
           Z_integer_нов = Z_integer
           If Z_integer_разница < 0 Then
           Z_integer_разница = Z_integer_разница * -1
           End If
           End If

            Сумма_x_y_z = X_integer_разница + Y_integer_разница
            Сумма_x_y_z = Сумма_x_y_z + Z_integer_разница

            Сумма = Сумма + Сумма_x_y_z

            К = К + 1
            If К > 2 Then
            Сумма_x_y_z = Сумма / 3
            Сумма_x_y_z_новое = Сумма_x_y_z
            Сумма = 0
            К = 0
            Флаг_обновить_lcd = 1
            End If


         
          Флаг_есть_данные = 0
      End If


     'Выводим на LCD
      If Флаг_обновить_lcd <> 0 Then

        If Инженерное_меню = 0 And Pusk_1 = 0 Then       'Если зашли в инженерное меню

         'Форматируем, чтобы не прыгали показания
         'X_str = Str(сумма_x_y_z)       'выводим на ЛСД данные от акселерометра:
         X_str = Format(x_str , "0000")
        Setfont Font_6x8
         Lcdat 1 , 1 , X_str , 0


      End If
       Флаг_обновить_lcd = 0

      End If