Device 16F877A Declare Xtal 4 '-------------------------- Настройки подключения ЖКИ ------------------------ Declare LCD_Type ALPHA ' Тип ЖКИ - буквенно -цифровой Declare LCD_DTPin PORTD.4 ' Порт данных ЖКИ Declare LCD_ENPin PORTA.3 ' Управление линией E Declare LCD_RSPin PORTA.5 ' Управление линией RS Declare LCD_Interface 4 ' Разрядность шины данных Declare LCD_CommandUs 200 ' Задержка перед посылкой команды Declare LCD_DataUs 50 ' Задержка перед посылкой данных Declare LCD_Lines 4 ' Количество строк ЖКИ TRISA = %00000000 ' Установка Порт A выходы PORTA.4=0 TRISB = %11111111 ' Порт В входы TRISC = %00000000 ' Порт С выходы TRISD = %00000000 ' Порт D выходы TRISE = %000 ' Порт E выходы ADCON1 = %00000110 ' все входы PORTA- цифровые(D) '------------------------------------------------------------------------------- Include "modedefs.bas" 'Symbol N9600=84+$4000 '------------------------------------------------------------------------------- MAIN: Print At 1,1,"No TX" If PORTB.3=0 Then Print At 1,1," TX" SerOut PORTC.7,N9600,[$7E,$FF,$06,$03,$00,$00,$01,$FF,$E6,$EF] DelayMS 250 EndIf DelayMS 250 GoTo MAIN