Термометр с двумя датчиками, памятью и записью лога в PC
В сети много материалов по термометрам и логгерам температуры. Такие устройства продаются и стоят не очень дорого. Но захотелось сделать устройство "для себя". Чтобы утром перед глазами было время и температура дома и на улице. Основное - индикация на достаточно крупные и яркие семисегментные LED от Kingbright. Динамическая индикация с использованием сдвиговых регистров не требует много ножек от контроллера. Запись идёт во внешнюю EEPROM объёмом 128 кб. Есть 3 режима индикации, три режима записи лога - раз в минуту, раз в час, раз в сутки в установленное время. RTC на DS1302 (была под руками). Простенькая программка на PureBasic для снятия дампа лога и управления устройством. Автоматическое включение-выключение индикаторов при включении света(устройство предполагается установить в прихожей). Контроллер был под руками Pic16f690. Макет в Proteus и платы разведены двухсторонние там же в Ares. Все файлы - в ветке форума http://www.picbasic.ru/forum/5-922-1 Без корпуса выглядит это так:
'-------------------------------------Объяление переменных---------------------------------- 'DS18s20------------------------- Symbol DQ1 = PORTC.0 ' Подключить DS18S20_1 к выводу PORTC.0 Symbol DQ2 = PORTC.1 ' Подключить DS18S20_2 к выводу PORTC.0
Dim tempID[9] As Byte ' Temp Array storage variable for DS18S20_1 RAM Dim temperature As Byte Dim halfdegre_bit As Bit Dim Sign As Byte ' +/- sign for temp display Dim Sign_char As Byte Dim Less_9 As Bit Dim Error_0 As Bit
Dim tempID_1[9] As Byte ' Temp Array storage variable for DS18S20_2 RAM Dim temperature_1 As Byte Dim halfdegre_bit_1 As Bit Dim Sign_1 As Byte ' +/- sign for temp display Dim Sign_char_1 As Byte Dim Less_9_1 As Bit Dim Error_1 As Bit Dim Ds_num As Byte ' Номер датчика
Dim TIMEDATA[7] As Byte 'DS1302------------------------- Dim SECONDS As timedata#0 Dim MINUTES As timedata#1 Dim HOURS As timedata#2 Dim DATE As timedata#3 Dim MONTH As timedata#4 Dim YEAR As timedata#5 Dim DAY As timedata#6 Dim HOURS_PRE As Byte Dim MINUTES_PRE As Byte Dim LOG_DAY As Byte
Symbol CLK_RTC = PORTC.2 'DS1302 Symbol DTA_RTC = PORTC.3 'DS1302 Symbol RST_RTC = PORTC.4 'DS1302
'DS1302-------------------------
Dim fBIT_CNT As Byte 'Var for ASM Dim SAVE_W As Byte 'Var for ASM Dim fTEMP As Byte 'Var for ASM Dim CRC As Byte 'Var for ASM Dim CRC_1 As Byte 'Var for ASM Dim i As Byte 'Counter Dim k As Byte 'Counter Dim l As Word 'Counter Dim m As Byte 'Counter Dim n As Word 'Counter Dim o As Byte 'Counter Dim p As Byte 'Counter Dim C As Byte 'Counter Dim C1 As Byte 'Counter Dim Mem_Read As Word 'Counter Dim _Cycle As Word 'Counter
Dim binTEMP1 As Byte ' Для преобразования BCD в BIN и обратно см. подпрограмму Dim decTEMP1 As Byte Dim binTEMP2 As Byte Dim decTEMP2 As Byte Dim binval As Byte Dim decval As Byte ' Для преобразования BCD в BIN и обратно см. подпрограмму ' For Led Display------------------------- Dim char_to_display[8] As Byte Dim ukazatel As Byte Dim Segments As Byte Dim znmesto_tmp As Byte Dim znmesto As Byte Dim Mode As Byte ' Режим отображения 0 - температура, 1 - часы, ошибка, итд.
Symbol CLK_LED = PORTA.0 'DS1302 Symbol DTA_LED = PORTA.1 'DS1302 Symbol RST_LED = PORTA.2 'DS1302 '---------------------------------------------------- Кнопки ------------------------- Symbol BUT_1 = PORTA.4 ' Кнопка1 Symbol BUT_2 = PORTA.5 ' Кнопка2 Symbol BUT_3 = PORTA.3 ' Кнопка3 Symbol JMP = PORTC.7 ' JAMPER О общий анод (0) или общий катод (1)
Dim _BUTTON As Byte Dim Ser_Input As Byte '--------------------------------------------------- Запись и чтение в 24С128 -------- Dim Address As Word ' 16-bit address required Dim Address_1 As Word Symbol Control = %10100000 ' Target an eeprom Symbol SDA = PORTB.4 ' Alias the SDA (Data) line Symbol SCL = PORTB.6 ' Alias the SSL (Clock) line Dim Wr_to_mem[8] As Byte Dim Rd_from_mem[9] As Byte Dim Rd_from_mem_0 As Byte Dim Light As Byte ' Light
Dim Log_time As Byte Dim display_time As Word display_time = 300 Dim MOD As Byte
Main: '------------------------------- Чтение из памяти установок --------------------------------- MOD = ERead $00 Log_time = ERead $01 LOG_DAY = ERead $02
'--------------------------- Initiate display on -------------------------------------------- Low PORTC.5 '--------------------------------------- Проверка памяти и установка адреса записи ---------- Mem_check: Rd_from_mem_0 = 0 l=0 Mode = 3 char_to_display[7] = 25 ' C char_to_display[6] = 21 ' char_to_display[5] = 21 ' char_to_display[4] = 21 ' char_to_display[3] = 22 ' H char_to_display[2] = 21 ' char_to_display[1] = 21 ' char_to_display[0] = 21 '
Address = 0 While Rd_from_mem_0 <>$FD And Address < 32767 BStart BusIn Control, Address, [Rd_from_mem_0] BStop Address = Address+1 l = l+1 If l >10 Then l =0 If l = 10 Then GoSub display EndIf Wend Address = Address-1 If Address > 32758 Then GoSub Format EndIf
'------------------------------ Mem_count_display ------------------------------------------------------ Mem_count_display: Mode = 3 char_to_display[7] = 27 ' L char_to_display[6] = 0 ' O char_to_display[5] = 37 ' G char_to_display[4] = 21 ' For i = 0 To 3 char_to_display[i] = Dig (Address/9-1), i Next i For n = 0 To 200 GoSub display Next n
'------------------------------- Чтение DS 1302 и DS 18S20 --------------------------------- GoSub DS1302_READ GoSub Convert GoSub Temp_Read '-------------------------------------------------------------------------------------------- '-------------------------- Метка начала основной программы --------------------------------- '--------------------------------------------------------------------------------------------
Startconv:
Select Case MOD '-------------------------------------------------------------------------------------------- Case 1 ' Температура и время попеременно '-------------------------------------------------------------------------------------------- GoSub _Temperature Temp_disp: Mode = 0 For l = 0 To display_time + 50 If _BUTTON = 1 Or _BUTTON = 2 Then Menu GoSub display Next l GoSub _Time Time_disp: Mode = 1 For o = 0 To display_time - 50 If _BUTTON = 1 Or _BUTTON = 2 Then Menu GoSub display Next o GoTo Startconv '-------------------------------------------------------------------------------------------- Case 2 ' Только температура '-------------------------------------------------------------------------------------------- GoSub _Temperature GoSub DS1302_READ GoSub Convert GoSub Log_Write Mode = 0 For l = 0 To 250 If _BUTTON = 1 Or _BUTTON = 2 Then Menu GoSub display Next l GoTo Startconv '-------------------------------------------------------------------------------------------- Case 3 ' Время и температура одновременно '-------------------------------------------------------------------------------------------- GoSub Temp_Read GoSub Temp_mask1 GoSub DS1302_READ GoSub Convert GoSub Log_Write GoSub Time_mask1
Mode =4 For l = 0 To 250 If _BUTTON = 1 Or _BUTTON = 2 Then Menu GoSub display Next l GoTo Startconv
'------------------------- Чтение и индикация температуры ------------------------------------ Temp_Read: '------------------------------- Подготовка DS18S20 к измерениям ----------------------------- GoSub display High DQ1 High DQ2 OWrite DQ1, 1, [$CC, $44] ' Послать датчику1 DS18S20 команду старта измерения температуры GoSub display OWrite DQ2, 1, [$CC, $44] ' Послать датчику2 DS18S20 команду старта измерения температуры Repeat ' Начать служебный цикл For l = 1 To 10 GoSub display Next l ' Ждать полного преобразования ORead DQ1, 4, [C] GoSub display ' Читать данные в цикле без сброса ORead DQ2, 4, [C1] Until C & C1 <> 0 ' Выйти из цикла если DS18S20 закончили преобразование. GoSub display OWrite DQ1, 1, [$CC, $BE] ' Послать датчику1 DS18S20 команду начала чтения из ОЗУ датчика значения температуры GoSub display ORead DQ1, 2,[ Str tempID\9 ] ' Читать значение температуры 1 датчика GoSub display OWrite DQ2, 1, [$CC, $BE] ' Послать датчику2 DS18S20 команду начала чтения из ОЗУ датчика значения температуры GoSub display ORead DQ2, 2,[ Str tempID_1\9 ] ' Читать значение температуры 2 датчика GoSub display '----------------------- Проверка контрольной суммы ------------------------------------------- p=7 GoSub check_crc If CRC <> tempID[8] Then Error_0 = 1 Else Error_0 = 0 EndIf
p=7 GoSub check_crc_1 If CRC_1 <> tempID_1[8] Then Error_1 = 1 Else Error_1 = 0 EndIf
'----------------------- Расчет температуры 1 датчик ----------------------------------------- If Error_0 = 0 Then temperature = tempID[0] ' Считывем 1-й байт DS halfdegre_bit = temperature.0 ' Бит половинок градуса Less_9 = 0
Sign = tempID [1] If Sign.0 = 1 Then temperature = (~temperature + 1) EndIf temperature = temperature >> 1 Else temperature =88 Sign = $FF EndIf '--------------------------- Второй датчик ------------------- If Error_1 = 0 Then temperature_1 = tempID_1[0] ' Считывем 1-й байт DS halfdegre_bit_1 = temperature_1.0 ' Бит половинок градуса Less_9_1 = 0
' binval=SECONDS 'здесь производим преобразование полученного ' GoSub BCD_TO_BIN 'двоично-десятичного значения минут ' SECONDS=binval ' в двоичную систему счисления
binval=MINUTES 'здесь производим преобразование полученного GoSub BCD_TO_BIN 'двоично-десятичного значения минут MINUTES=binval ' в двоичную систему счисления
binval=HOURS 'здесь производим преобразование полученного GoSub BCD_TO_BIN 'двоично-десятичного значения часов HOURS=binval 'в двоичную систему счисления
binval=DATE 'здесь производим преобразование полученного GoSub BCD_TO_BIN 'двоично-десятичного значения даты DATE=binval 'в двоичную систему счисления
binval=MONTH 'здесь производим преобразование полученного GoSub BCD_TO_BIN 'двоично-десятичного значения месяца MONTH=binval 'в двоичную систему счисления
binval=YEAR 'здесь производим преобразование полученного GoSub BCD_TO_BIN 'двоично-десятичного значения года YEAR=binval 'в двоичную систему счисления Return
Log_Write: Select Case Log_time Case 1 If MINUTES <> MINUTES_PRE Then GoSub Mem_Write MINUTES_PRE = MINUTES Case 2 If HOURS <> HOURS_PRE Then GoSub Mem_Write HOURS_PRE = HOURS Case 3 If HOURS <> HOURS_PRE And HOURS = LOG_DAY Then GoSub Mem_Write HOURS_PRE = HOURS End Select Return
'------------------------------------------------------------------------------------ BCD_TO_BIN: binTEMP1 = binval & $F ' Convert the values from BCD to BIN binTEMP2 = binval & $F0 ' Mast off either side binTEMP2 = binTEMP2 >>4 ' divide by 16 binTEMP2 = binTEMP2 * 10 ' X by 10 binval = binTEMP1 + binTEMP2 ' Now add the original number Return
'------------------------------------------------------------------------------------ BIN_TO_BCD: decTEMP2 = decval // 10 'get lsb,same for Bin and BCD decTEMP1 = decval / 10 'get msb decval = decTEMP1 * 16 'covert msb to BCD decval = decval + decTEMP2 'add BCD msb and lsb together Return
'----------------------------- MENU ------------------------------------------------------- Menu: Select Case _BUTTON Case 1 GoTo Menu1 Case 2 GoTo Menu2 EndSelect
'----------------------------- MENU1 ------------------------------------------------------- '----------------------------- Mode ------ Menu1: _BUTTON = 0 MOD=MOD + 1 If MOD > 3 Then MOD =1 High PORTC.5 EWrite $00, [MOD] DelayMS 500 Low PORTC.5 GoTo Startconv
'----------------------------- MENU2 ------------------------------------------------------- Menu2: ' Clock Set GoSub DS1302_READ GoSub Convert YEAR = ERead $03 '----------------------------- Set Month ------------------------------------------------------- Mode = 3 char_to_display[7] = 35 ' M char_to_display[6] = 15 ' n char_to_display[5] = 18 ' t char_to_display[4] = 36 ' h char_to_display[3] = 21 ' char_to_display[2] = 21 ' char_to_display[1] = Dig MONTH, 1 char_to_display[0] = Dig MONTH, 0 GoSub Display_20 _BUTTON = 0 While _BUTTON <> 3 If _BUTTON =1 Then GoSub Display_20 MONTH=MONTH + 1 If MONTH> 12 Then MONTH= 1 EndIf char_to_display[1] = Dig MONTH, 1 char_to_display[0] = Dig MONTH, 0 _BUTTON = 0 GoSub display Wend '----------------------------- Set Date ------------------------------------------------------- char_to_display[7] = 14 ' d char_to_display[6] = 19 ' A char_to_display[5] = 18 ' t char_to_display[4] = 12 ' E char_to_display[3] = 21 ' char_to_display[2] = 21 ' char_to_display[1] = Dig DATE, 1 char_to_display[0] = Dig DATE, 0 GoSub Display_20 _BUTTON = 0 While _BUTTON <> 3 If _BUTTON =1 Then GoSub Display_20 DATE=DATE + 1 If DATE> 31 Then DATE= 1 EndIf char_to_display[1] = Dig DATE, 1 char_to_display[0] = Dig DATE, 0 _BUTTON = 0 GoSub display Wend '----------------------------- Set Hours ------------------------------------------------------- char_to_display[7] = 22 ' H char_to_display[6] = 23 ' o char_to_display[5] = 17 ' u char_to_display[4] = 13 ' r char_to_display[3] = 21 ' char_to_display[2] = 21 ' char_to_display[1] = Dig HOURS, 1 char_to_display[0] = Dig HOURS, 0 GoSub Display_20 _BUTTON = 0 While _BUTTON <> 3 If _BUTTON =1 Then GoSub Display_20 HOURS=HOURS + 1 If HOURS> 23 Then HOURS= 0 EndIf char_to_display[1] = Dig HOURS, 1 char_to_display[0] = Dig HOURS, 0 _BUTTON = 0 GoSub display Wend '----------------------------- Set Minutes -------------------------------------------------------
char_to_display[7] = 35 ' M char_to_display[6] = 28 ' I char_to_display[5] = 30 ' i char_to_display[4] = 15 ' n char_to_display[3] = 21 ' char_to_display[2] = 21 ' char_to_display[1] = Dig MINUTES, 1 char_to_display[0] = Dig MINUTES, 0 GoSub Display_20 _BUTTON = 0 While _BUTTON <> 3 If _BUTTON =1 Then GoSub Display_20 MINUTES=MINUTES + 1 If MINUTES> 59 Then MINUTES= 0 EndIf char_to_display[1] = Dig MINUTES, 1 char_to_display[0] = Dig MINUTES, 0 _BUTTON = 0 GoSub display Wend '----------------------------- Log interval ------ char_to_display[7] = 27 ' L char_to_display[6] = 0 ' 0 char_to_display[5] = 37 ' G char_to_display[4] = 21 ' GoSub Select_Log_disp GoSub Display_20 _BUTTON = 0 While _BUTTON <> 3 If _BUTTON =1 Then GoSub Log_time_Set GoSub Display_20 EndIf GoSub Select_Log_disp _BUTTON = 0 GoSub display Wend
If Log_time = 3 Then '----------------------------- LOG_DAY ------ char_to_display[7] = 22 ' H char_to_display[6] = 23 ' o char_to_display[5] = 17 ' u char_to_display[4] = 13 ' r char_to_display[3] = 21 ' char_to_display[2] = 21 ' char_to_display[1] = Dig LOG_DAY, 1 char_to_display[0] = Dig LOG_DAY, 0 GoSub Display_20 _BUTTON = 0 While _BUTTON <> 3 If _BUTTON =1 Then GoSub Display_20 LOG_DAY=LOG_DAY + 1 If LOG_DAY> 23 Then LOG_DAY= 0 EndIf char_to_display[1] = Dig LOG_DAY, 1 char_to_display[0] = Dig LOG_DAY, 0 _BUTTON = 0 GoSub display Wend EndIf EWrite $01, [Log_time] EWrite $02, [LOG_DAY] '----------------------------- Set BCD -------------------------------------------------------
Prepare: 'преобразуем перед тем как записать в DS1302 'в двоично-десятичное значение
High RST_RTC ' импульс сброса для ds1302 SHOut DTA_RTC, CLK_RTC, LsbFirst, [$8e ,0] 'Разрешаем запись в ds1302 Low RST_RTC High RST_RTC SHOut DTA_RTC,CLK_RTC,LsbFirst,[$be,SECONDS,MINUTES,HOURS,DATE,MONTH,DAY,YEAR] SHOut DTA_RTC, CLK_RTC, LsbFirst, [$8e ,%10000000] 'Запрещаем запись в ds1302 Low RST_RTC For i = 1 To 20 GoSub display Next i GoTo Startconv
'-------------------------------------------------------------------------------------- '----------------------------Индикация на 8 LED дисплее-------------------------------- display: For znmesto = 0 To 7 ' Знакоместо справа налево If JMP =1 Then znmesto_tmp = ~Dcd znmesto If JMP =0 Then znmesto_tmp = Dcd znmesto ukazatel = char_to_display[znmesto] ' Номер символа для вывода
'----- Знакогенератор ----- ' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ' 0 1 2 3 4 5 6 7 8 9 - o E r d n F u t A U H o b C c L | p | _ _ _ y M h g Segments = LookUpL ukazatel, [$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$67,$40,$63,$79,$50,$5E,$54,$71,$1C,$78,$77,$3E,$00,$76,$5C,$7C,$39,$58,$38,$30,$73,$10,$08,$48,$49,$6E,$15,$74,$3D]
Select Case Mode ' Действия в зависимости от режима Case 0 ' Режим температуры If Error_0 = 0 Then If znmesto = 2 And temperature < 100 And Less_9 = 0 Then Segments = Segments | $80 ' Точка во втором разряде If znmesto = 1 And Less_9 = 1 Then Segments = Segments | $80 EndIf If Error_1 = 0 Then If znmesto = 4 And temperature_1 < 100 And Less_9_1 = 0 Then Segments = Segments | $80 ' Точка во втором разряде старшего дисплея If znmesto = 5 And Less_9_1 = 1 Then Segments = Segments | $80 EndIf Case 1 ' Режим часов If znmesto = 2 Then Segments = Segments | $80 'If znmesto = 6 Then Segments = Segments | $80 If znmesto = 4 Then Segments = Segments | $80 If znmesto = 5 Then Segments = Segments | $80 Case 3 ' Режим настроек Segments = Segments
Case 4 ' Режим смешанный 'If znmesto = 6 Then Segments = Segments | $80 If znmesto = 4 Then Segments = Segments | $80 If znmesto = 5 Then Segments = Segments | $80 If Error_0 = 0 Then If znmesto = 2 And temperature < 100 And Less_9 = 0 Then Segments = Segments | $80 ' Точка во втором разряде If znmesto = 1 And Less_9 = 1 Then Segments = Segments | $80 EndIf
End Select If JMP = 0 Then Segments = ~Segments
'----- Запись в регистр ----- High RST_LED SHOut DTA_LED,CLK_LED,MsbFirst_H,[Segments\8,znmesto_tmp\8 ] Low RST_LED
'----------------------------- Опрос кнопок ----- If BUT_1 = 0 Then _BUTTON = 1 If BUT_2 = 0 Then _BUTTON = 2 If BUT_3 = 0 Then _BUTTON = 3
HSerIn 1,Cont,[Ser_Input] If Ser_Input = $44 Or Ser_Input = $64 Then GoSub Mem_dump 'D,d Дамп лога If Ser_Input = $4D Or Ser_Input = $6D Then HSerOut [Dec4 (Address/9-1),0] 'M,m Сколько ячеек занято If Ser_Input = $54 Or Ser_Input = $74 Then 'T,t Выдать текущую температуру High PORTB.7 Sign_char = $2B Sign_char_1 = $2B If Sign.0 = 1 Then Sign_char = $2D If Sign_1.0 = 1 Then Sign_char_1 = $2D HSerOut ["OUT ", Sign_char, Dec2 temperature," IN ",Sign_char_1,Dec2 temperature_1] GoSub Com_End EndIf If Ser_Input = $57 Or Ser_Input = $77 Then GoSub Mem_Write 'W,w Записать температуру в память If Ser_Input = $46 Or Ser_Input = $66 Then GoSub Format: HSerOut ["OK",0] 'F,f "Форматировать" память If Ser_Input = $4C Or Ser_Input = $6C Then GoSub Log_Out 'L,l Прочитать режим лога If Ser_Input = $2B Then GoSub Log_time_Set :GoSub Log_Out '+ - сменить режим лога
Cont: Next znmesto Light = ADIn 8 If Light > 10 Then Low PORTC.5 If Light < 5 Then High PORTC.5 Return
'---------------------------- Индикация на 8 LED дисплее 20 ms --------------------- Display_20: For i = 1 To 25 GoSub display Next i Return
'----------------------- Запись лога во внешнюю память --------------------------------- Mem_Write: If Address > 32757 Then Address =9 BStart For m = 0 To 8 Wr_to_mem[m] = LookUpL m, [$FA,MONTH,DATE,HOURS,MINUTES,Sign,temperature,Sign_1,temperature_1] DelayMS 10 BusOut Control, Address, [Wr_to_mem[m]] ' Send the byte to the eeprom Address = Address+1 Next m DelayMS 10 BusOut Control, Address, [$FD] BStop
Return
'----------------------- "быстрое форматирование" внешней памяти --------------------------------- Format: Address = 9 BStart BusOut Control, Address, [$FD] ' Запись $FD во внешнюю память BStop Return
'----------------------- Вывод в COM порт --------------------------------- Com_out: Sign_char = $2B Sign_char_1 = $2B If Sign.0 = 1 Then Sign_char = $2D If Sign_1.0 = 1 Then Sign_char_1 = $2D HSerOut [ Dec2 DATE,$2E,Dec2 MONTH,$2E,Dec2 YEAR,$20,Dec2 HOURS,$3A,Dec2 MINUTES,$20,"OUT ",Sign_char,Dec2 temperature,$20,"IN ",Sign_char_1,Dec2 temperature_1] Return
Com_End: HSerOut [0] Return '----------------------- Выбор вывода на дисплей --------------------------------- Select_Log_disp: Select Case Log_time Case 1 char_to_display[3] = 35 'm char_to_display[2] = 28 'I char_to_display[1] = 30 'i char_to_display[0] = 15 'n
Case 2 char_to_display[3] = 21 ' char_to_display[2] = 21 ' char_to_display[1] = 22 'H char_to_display[0] = 13 'r Case 3 char_to_display[3] = 21 ' char_to_display[2] = 14 'd char_to_display[1] = 19 'A char_to_display[0] = 34 'y End Select Return
Address_1 = 0 Rd_from_mem_0 = 0 High PORTC.5 While Rd_from_mem_0 <> $FD Or Address_1>32758 BusIn Control, Address_1, [Rd_from_mem_0] If Rd_from_mem_0 = $FA Then
For m = 0 To 7 Address_1 = Address_1+1 BStart BusIn Control, Address_1, [Rd_from_mem_0] BStop Rd_from_mem[m] = Rd_from_mem_0 Next m MONTH = Rd_from_mem[0] DATE = Rd_from_mem[1] HOURS = Rd_from_mem[2] MINUTES = Rd_from_mem[3] Sign = Rd_from_mem[4] temperature = Rd_from_mem[5] Sign_1 = Rd_from_mem[6] temperature_1 = Rd_from_mem[7]
Wend GoSub Com_End Low PORTC.5 Return '----------------------------- Вывод в COM режима лога ------------------------------------------------------- Log_Out: HSerOut [Dec Log_time,0] Return
'----------------------------- Установка режима лога ------------------------------------------------------- Log_time_Set: Log_time = Log_time+1 If Log_time >3 Then Log_time=1 EWrite $01, [Log_time] Return
