$regfile = "m32def.dat"
$crystal = 8000000
$lib "lcd4.lbx"                                             'используем 4-х битное подключение дисплея с помощью альтернативной библиотеки

Config Portd.6 = Output                                     ' конфигурируем вывод 6 порта D  на выход - подключаем к нему светодиод
Config Porta = Output

Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7       ' конфигурируем дисплей
Config Lcd = 20 * 4                                         'используем дисплей на 4 строчки по 20 знакомест в каждой
Cursor Off                                                  ' выключаем курсор, чтоб не моргал
Cls                                                         ' очищаем дисплей, если на него во время включения случайно попал какойто цифровой мусор


Config Adc = Single , Prescaler = Auto , Reference = Avcc   'конфигурация АЦП
Start Adc

Dim D(12)as Integer , T(12) As Single , I As Byte , X As Single , Y As Integer , Z As Integer       ' назначаем переменные D(13) - показания АЦП T(14) - Пересчитанная температура
const k = 0.1234 ' умножив значение АDC на эту константу получим температуру
Do
                                                         ' начало цикла программы
For I = 1 To 4                                              ' поочередно включаем и отключаем транзисторы посаженные на порт А и при этом запоминаем значения АЦП в масив D(i)
Set Porta.i                                                 ' включили нужную ножку, транзистор открыт, можно мерять напряжение на i-том термодатчике 
Delay                                                       ' краткая задержка
D(i) = Getadc(0)                                            ' заносим в масив знацение АЦП взятого с итого датчика
Reset Porta.i                                               ' садим ножку на массу (-) и транзистор закрывается
Delay
Next                                                        ' идем к началу цикла пока не обработаем семь термодатчиков

Locate 1 , 1
Lcd "Teјѕepaїypa,`C   MAX"
' дальше вывод информации на дисплей, каждое значение в свое место
Locate 2 , 1
Lcd "                    "
Locate 2 , 18
Lcd Y                                                       ' не люблю команду CLS, поэтому перед выводом информации в строку - очищаю ее пробелами
Locate 2 , 1
Lcd D(1)
Locate 2 , 5
Lcd D(2)
Locate 2 , 9
Lcd D(3)
Locate 2 , 13
Lcd D(4)



Waitms 150                                                  ' небольшая задержка, чтоб гллаз нормально воспринимал цифры и чтоб они очень быстро не скакали

Loop
 End