Так, результат:
}
'DEFINE LCD_DREG PORTB ' Задать порт PIC-микроконтроллера для передачи данных на ЖКИ
'DEFINE LCD_DBIT 4 ' Задать первый вывод порта PORTB, который будет подключен к выводу DB4 ЖКИ
'DEFINE LCD_RSREG PORTB ' Задать порт PIC-микроконтроллера, который будет выдавать сигнал RS на ЖКИ
'DEFINE LCD_RSBIT 3 ' Задать вывод порта PORTB, с которого будет выдаваться сигнал RS на ЖКИ
'DEFINE LCD_EREG PORTB ' Задать порт PIC-микроконтроллера, который будет выдавать сигнал E на ЖКИ
'DEFINE LCD_EBIT 0 ' Задать вывод порта PORTB, с которого будет выдаваться сигнал E на ЖКИ
'DEFINE LCD_BITS 4 ' Задать 4-битный режим обмена информацией для ЖКИ
'DEFINE LCD_LINES 2 define lcd_dreg portb
define lcd_dbit 4
define lcd_rsreg portb
define lcd_rsbit 3
define lcd_ereg portb
define lcd_ebit 0
define lcd_bits 4
define lcd_lines 2
define lcd_commandus 2000
define lcd_dataus 50
trisc = 0 'весь порт на выход
pause 500 'инициализ lcd
LCDOUT $FE, 1, "Hello" ' Очистить экран и вывести “Hello”
LCDOUT $FE,1,$c0, 1, "Hello"
symbol led = portc.4 'присвоим 15 выв led
main:
led = 1
'pause 1000
pause 500
led = 0
pause 500
'pause 300
goto main
end
{
работает!!!
}
DEFINE LCD_DREG PORTB ' Задать порт PIC-микроконтроллера для передачи данных на ЖКИ
DEFINE LCD_DBIT 4 ' Задать первый вывод порта PORTB, который будет подключен к выводу DB4 ЖКИ
DEFINE LCD_RSREG PORTB ' Задать порт PIC-микроконтроллера, который будет выдавать сигнал RS на ЖКИ
DEFINE LCD_RSBIT 3 ' Задать вывод порта PORTB, с которого будет выдаваться сигнал RS на ЖКИ
DEFINE LCD_EREG PORTB ' Задать порт PIC-микроконтроллера, который будет выдавать сигнал E на ЖКИ
DEFINE LCD_EBIT 0 ' Задать вывод порта PORTB, с которого будет выдаваться сигнал E на ЖКИ
DEFINE LCD_BITS 4 ' Задать 4-битный режим обмена информацией для ЖКИ
DEFINE LCD_LINES 2
'define lcd_dreg portb
'define lcd_dbit 4
'define lcd_rsreg portb
'define lcd_rsbit 3
'define lcd_ereg portb
'define lcd_ebit 0
'define lcd_bits 4
'define lcd_lines 2
'define lcd_commandus 2000
'define lcd_dataus 50
trisc = 0 'весь порт на выход
pause 500 'инициализ lcd
LCDOUT $FE, 1, "Hello" ' Очистить экран и вывести “Hello”
LCDOUT $FE,1,$c0, 1, "Hello"
symbol led = portc.4 'присвоим 15 выв led
main:
led = 1
'pause 1000
pause 500
led = 0
pause 500
'pause 300
goto main
end
{
Тоже работает!!!
Протеус 7.7