Device 18F4550 Xtal 20
LCD_Type = 0 ' Задать режим работы с алфавитно-цифровым ЖКИ
LCD_DTPin = PORTD.4 ' Задать вывод порта к которому будет подключен вход DB4 ЖКИ
LCD_RSPin = PORTD.2 ' Задать вывод порта с которого будет выдаваться сигнал RS на ЖКИ
LCD_ENPin = PORTD.3 ' Задать вывод порта с которого будет выдаваться сигнал E на ЖКИ
LCD_Interface = 4 ' Задать 4-битный режим обмена информацией для ЖКИ
LCD_Lines = 2 ' Задать ЖКИ 4-строчный режим работы (для 2-строчных ЖКИ LCD_LINES = 2 , для 1-строчных LCD_LINES = 1)
LCD_CommandUs = 2000 ' Задать паузу между передачей команд на ЖКИ
LCD_DataUs = 50 ' Задать паузу между передачей данных на ЖКИ
Dim g As Word
Dim c As Float
TRISB = %00000001
TRISC = %11111010
Output PORTC
PORTC = 0
c = 0
INTCON.4 = 1 ' включить вход rb.0 int0
INTCON2.6 = 1 ' срабатывание от спада или нарастания
INTCON.7 = 1 ' разрешить все прерывания
On_Interrupt GoTo Flash ' Включить обработку аппаратных прерываний и при их возникновении перейти к метке Flash:
GoTo main
'---------------------------------------- Подпрограмма обработки прерываний ----------------------------------------
Flash: ' Метка начала подпрограммы обработки прерываний
INTCON = 0
c = c + 0.3
INTCON = %10010000
Context Restore
'------------------------------------------- Основная программа -------------------------------------------
main:
DelayMS 50
Print At 1,1,Dec3 с
DelayMS 50
GoTo main
End ' Конец программы
на жк вылазит куча нулей