Andre_san, добавьте строчку для следующего порта
Код:
|
Config Portb.5 = Output |
и измените 0 на 1 (выделено подчеркиванием) в коде
Код:
|
If W › 900 Then 'караул!
Portb = &B00111110
End If |
теперь на выводе 19 PB5/SCK будет 1 при загорании красного светодиода
Для анализа напряжения батареи нужно будет после
Код:
|
Dim W As Integer 'для хранения значения полученного с АЦП |
добавить строку
Код:
|
Dim BAT As Integer 'для хранения значения напряжения батареи, полученного с АЦП |
После строки
Код:
|
W = Getadc(0) 'датчик подключён к PortC.0 |
добавить строки
Код:
|
BAT = Getadc(1) 'делитель от батареи подключён к PortC.1
If BAT ‹ 99999 Then 'пора менять батарею
Portb = &B00110000
Wait 1
Portb = &B00000000
Wait 1
Portb = &B00110000
Wait 1
Portb = &B00000000
Wait 1
End If |
и после команды
Код:
|
Print W 'отсылаем показания в UART |
добавить команду
Код:
|
Print BAT 'отсылаем показания в UART |
Между плюсом батареи и 24 поставить сопротивление 1MΩ и от 24 еще 1MΩ на общий провод (величина сопротивления условная, можно и больше)
На выводы 2 и 3 подключить адаптер UART и посмотреть в терминале измеренное напряжение, по нему поправить константу порога для нижнего порога напряжения батареи.
Где найти компилятор bascom - уточните на том сайте
И напоследок - команды print после отладки в железе можно удалить, точнее поставить перед ними апостроф…