Средства разработки для PICMICRO - Страница 114

Средства разработки для PICMICRO - Средства разработки для PICMICRO

; Вычислить значение температуры ; в градусах Цельсия

if SP[ 0 ] <= 99 then DispTens ; Не выводить, если темпера-

; тура выше 100С

PORTB = 'V call SendCHAR

DispTens if SP[ 0 ] <= 9 then DispOnes

; Вывести на экран значение десятков

PORTB = ( ( SP[ 0 ] / 10 ) / / 10 ) + 'О'

call SendCHAR ; Послать в ЖКИ число десятков

DispOnes PORTB = ( SP[ 0 ] / / 10 ) + 'О1 call SendCHAR

; Вывести на экран значение единиц

; Теперь определить, следует ли модифицировать значение времени
UPDTime ; Обновить значение времени

if ( FracHi & 0x04 ) == 0 then Loop ; Ничего не посыпать в ЖКИ

if ( PORTA & 1) != О then CheckTime ; Клавиша "Set" нажата?

Go to Top