Const Lm75rd = &B10011111                                   'Sensor read (последняя 1 - режим чтение)

I2cstart
I2cwbyte Lm75rd
Waitms 25

'init the LM75 
I2cstart 
I2cwbyte &H90 
I2cwbyte &H01 
I2cstop 

I2cstart
I2cwbyte &H90
I2cwbyte &H18
I2cstop

$map       ' Получаем карту распределения памяти компилятором Bascom
  $regfile = "m328pdef.dat"       'Документация Atmel - http://www.atmel.com/images/Atmel-8271- … mplete.pdf
  $crystal = 4000000
  $framesize = 32       ' Размер области используемой и необходимой для преобразований
  $hwstack = 40       ' Размер аппаратного стека
  $swstack = 16       ' Размер программного стека

'  $baud = 38400       ' : Ucsr0a.1 = 1       ' Двойная скорость работы USART, скорость трансляции = $baud * 2

' Print "Тест USART"


Dim Location As Byte                                        ' всё что касается DIM это декларация переменных
Dim Digit_temp As Byte
Dim Digit As Byte
Dim One As Byte
Dim Ten As Byte
Dim Ss As Single
Dim Hundred As Byte
Dim Decimalpoint As Bit

  Dim Целые_high_byte As Byte
  Dim Десятые_low_byte As Byte
  Dim Десятые_single As Single
  Dim Температура_single As Single

Config Portb = Output                                       ' Portd полностью выход , все 8 бит
Seven_seg_catode Alias Portb                                ' Переименуем его , чтоб работать с именем ,а не с какимто портом

Ddrc.0 = 1                                                  ' здесь займёмся катодами , поочерёдно вслючим направление на выход
Ddrc.1 = 1
Ddrc.2 = 1

An1 Alias Portc.0                                           ' Обзавём выходы катодов нужным номером катода
An2 Alias Portc.1
An3 Alias Portc.2

Config Timer0 = Timer , Prescale = 256                      ' сконфигурируем таймер - таймер , делитель на 256
On Timer0 Indication                                        '  Когда таймер переполнится произойдёт прерывание , он должен перейти в подпрограмму с именем  Indication

Const Timerpreload_0 = 182                                  ' назначим константу , сделлано так -таймер считает до 256 , пото переполняется и вызывает прирывания , тоесть по идее 4 мегагерца / 256 = 15625 килогерц, через 15625/256 = 61 герц таймер переполнится, это нам много , поэтому мы таймер заполним уже какимто число , в данном случае 182 , получается таймер считает не от нуля , а от 182 и черз 74 импулса переполнится , что соответствует частоте 205 герц , примерно 50 герц на индикатор при 4 индикаторах.
Enable Timer0                                               ' включим таймер
Enable Interrupts                                           ' включим прерывания



  Config Sda = Portc.4
  Config Scl = Portc.5
  I2cinit

  Const Запись_lm75 = &B10011110
  Const Чтение_lm75 = &B10011111


  Главный_цикл:



   Gosub Чтение_температуры
   'Print Температура_single ; "°C"

   Digit_temp = Температура_single                          ' разделение измеренного значения на составные части
   One = Digit_temp Mod 10                                  ' единицы

   Digit_temp = Digit_temp - One
   Digit_temp = Digit_temp / 10
   Ten = Digit_temp Mod 10                                  ' десятки

   Digit_temp = Digit_temp - Ten
   Digit_temp = Digit_temp / 10
   Hundred = Digit_temp Mod 10                              ' сотни
     Температура_single = 0

     Waitms 750






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






End


Indication:

                                                 ' *-*Подпрограмма прерываний таймера, впринципе динамическая индикация
   Timer0 = Timerpreload_0                                  ' вничале подгружаем в таймер число 182 , чтоб частота индикации была 200 герц ( писал в начале )

   If Location < 3 Then                                     ' если  переменная указывающая на положене индикатора меньше 4 то
      Incr Location                                         ' увеличиваем переменную на единицу
    Else                                                    ' иначе
      Location = 1                                          ' переменная равна единице
   End If


                                            '  выключаем все аноды , иначе мы видели бы только восьмёрки
   An1 = 0
   An2 = 0
   An3 = 0

   If Location = 1 Then Digit = One                         ' здесь проверяем что к чему относится - единицы относятся ко второму рязряду
   If Location = 2 Then Digit = Ten : Decimalpoint = 1      ' дясятки и точка к третьему
   If Location = 3 Then Digit = Hundred                     ' сотни к четвёртому

   Select Case Digit
                                           ' здесь выбираем  нужные сегменты
      Case 0 : Seven_seg_catode = &B11000000                ' цифра ноль
      Case 1 : Seven_seg_catode = &B11111001
      Case 2 : Seven_seg_catode = &B10100100
      Case 3 : Seven_seg_catode = &B10110000
      Case 4 : Seven_seg_catode = &B10011001
      Case 5 : Seven_seg_catode = &B10010010
      Case 6 : Seven_seg_catode = &B10000010
      Case 7 : Seven_seg_catode = &B11111000
      Case 8 : Seven_seg_catode = &B10000000
      Case 9 : Seven_seg_catode = &B10010000                ' цифра девять

   End Select

   If Decimalpoint = 1 And Location = 2 Then Seven_seg_catode = Seven_seg_catode Or &B10000000       '  здесь включаем децимальную точку в нужном месте

   Select Case Location                                     ' включаем нужный нам катод , который выбрала программа в начале цикл
    Case 1 : An3 = 1
    Case 2 : An2 = 1
    Case 3 : An1 = 1
   End Select

Return



'===============================================================================
  Чтение_температуры:
'-------------------------------------------------------------------------------
    I2cstart
    I2cwbyte Запись_lm75
    I2cwbyte &H00
    I2cstart
    I2cwbyte Чтение_lm75
    I2crbyte Целые_high_byte , Ack
    I2crbyte Десятые_low_byte , Nack
    I2cstop

    If Целые_high_byte > 128 Then
        Температура_single = 256 - Целые_high_byte
        Температура_single = Температура_single * -1
      Else
        Температура_single = Целые_high_byte
    End If

    If Десятые_low_byte = 128 Then
        Десятые_single = 0.5
      Else
        Десятые_single = 0
    End If

    Температура_single = Температура_single + Десятые_single
'-------------------------------------------------------------------------------
  Return
'==========================================================