Добавлено (15.07.2011, 23.13.12)
---------------------------------------------
Device = 16F874A
Declare Xtal=4
Declare Optimiser_Level =0

'-------------------------- Настройки подключения ЖКИ ------------------------
Declare LCD_Type ALPHA ' Тип ЖКИ - буквенно -цифровой
Declare LCD_DTPin PORTD.4 ' Порт данных ЖКИ
Declare LCD_ENPin PORTD.3 ' Управление линией E
Declare LCD_RSPin PORTD.2 ' Управление линией RS
Declare LCD_Interface 4 ' Разрядность шины данных
LCD_CommandUs = 2000 ' Задать паузу между передачей команд на ЖКИ
LCD_DataUs = 50 ' Задать паузу между передачей данных на ЖКИ
Declare LCD_Lines 2 ' Количество строк ЖКИ

'-------------------------- Настройки портов ---------------------------------
Symbol RBIF = INTCON.0 ;RB Port Interrupt Flag
Symbol INTF = INTCON.1 ; RB0 External Interrupt Flag
Symbol T0IF = INTCON.2 ; TMR0 Overflow Interrupt Flag
Symbol RBIE = INTCON.3 ; RB Port Change Interrupt Enable
Symbol INTE = INTCON.4 ;RB0 External Interrupt Enable
Symbol T0IE = INTCON.5 ; TMR0 Overflow Interrupt Enable
Symbol PEIE = INTCON.6 ; Peripheral Interrupt Enable
Symbol GIE = INTCON.7 ; Global Interrupt Enable
Dim BIG As Dword 'переменная для счета секунд
Dim BIG1 As BIG.HighWord
Dim SECONDS As Byte ; переменная для счета секунд
Dim MINUTES As Byte ; для счета минут '
Dim HOUR As Byte ; для счета часов '
Dim TEXT As Word
Symbol VR=PORTB.0 ' Ввод времени или показ времени
Symbol PLUS=PORTB.1 ' Плюс
Symbol MINUS=PORTB.2 ' Минус
Symbol VERH=PORTB.3 ' НИЗ
Symbol NIZ=PORTB.4 ' ВВЕРХ
Symbol payalo = PORTC.7 ' нагрузка

EData 5, 8, 15, 23, 0, 0, 0, 0, 18, 20, 19, 21, 17
Clear
BIG = 1000000 ' Запишем в BIG 1000000 для отсчета секундных интервалов

On_Interrupt GoTo MYINT
GoTo MAIN ; Переход на начало программы

MYINT: ; Обработчик прерывания
big1 = big1 -1 ' отнимаем единицу из старшего байта переменной BIG1
'то же самое, что и вычесть 65536 из BIG , но занимает меньше места
If BIG < 0 Then 'Если BIG < 0 то значит прошла секунда
BIG = BIG + 1000000 'К этому отрицательному числу прибавляем 1108292
Inc SECONDS 'Инкрементируем секунды
EndIf
T0IF = 0 ' сбросить флаг прерываний TOIF регистра TMRO
Context Restore

MAIN:
INTCON = %10100000 ; Enable global interrupts, peripheral interrupts
OPTION_REG = %00000111
TRISB = %1111111
TRISC = %0011111
loop:

If SECONDS =60 Then ; eie?aiaioe?oai a?aiy
SECONDS=0
Inc MINUTES ; +ieioou
If MINUTES=60 Then
MINUTES=0
SECONDS=0
Inc HOUR ; +?ANU
If HOUR=24 Then
HOUR=0
EndIf
EndIf
EndIf
If VR=0 Then VREMYA
Print At 1,1,Dec2 HOUR, ":", Dec2 MINUTES, ":", Dec2 SECONDS
GoTo loop

VREMYA:
If VERH=0 Then
Inc HOUR
If HOUR = 24 Then
HOUR=0
EndIf
ElseIf NIZ=0 Then
Inc MINUTES
If MINUTES =60 Then
MINUTES=0
EndIf
EndIf
Print At 1,1,"установка часов"
Print At 2,1, Dec2 HOUR, ":", Dec2 MINUTES," "
DelayMS 300
Cls
GoTo loop


TEXT1: CData ":", 0
TEXT2: CData ":", 0
Вот теперь есть режим установки часов, то есть кнопкой с фиксацией переключаем режим установки времени (нажали) или показ время (отпустили)
Есть вопрос, как сделать что бы мигало ":" Перечитал команду print, ничего не нашел кроме мигания курсора, у меня с ним ничего не вышло.............

Добавлено (17.07.2011, 18.38.17)
---------------------------------------------
А чаще мигание ":" можно сделать.