Lập trình với ngôn ngử Basic

[TTL]

Cách sử dung LCD: Basic hổ trợ rất nhiều đối với điều khiển lcd với các câu lệnh dơn giản
DEFINE LCD_BITS = 8 ‘khai báo lcd sử dụng 8 bit data
DEFINE LCD_DREG = PORTB ‘dũ liệu vào ở PortB
DEFINE LCD_DBIT = 0
DEFINE LCD_RSREG = PORTD ‘khai báo chân RS của lcd
DEFINE LCD_RSBIT = 1
DEFINE LCD_EREG = PORTD ‘khai báo chân Enable của LCD
DEFINE LCD_EBIT = 3
DEFINE LCD_RWREG = PORTD ‘khai báo chân Read write
DEFINE LCD_RWBIT = 2
Lcdinit
Lcdout (<biến hoặc 1 chuỗi>)
Lcdcmd (<lệnh>)

Ví dụ xuât chữ HELLO ra lcd sử dụng 4 bit dữ liệu, rs ở portb.0. enable ở portb.1, read/write ở portb.2. chớp tắt với chu kỳ 1s.
DEFINE LCD_BITS = 4 ‘khai báo lcd sử dụng 8 bit data
DEFINE LCD_DREG = PORTB ‘dũ liệu vào ở PortB
DEFINE LCD_DBIT = 1 ‘4 bit cao cua port b
DEFINE LCD_RSREG = PORTb ‘khai báo chân RS của lcd
DEFINE LCD_RSBIT = 0
DEFINE LCD_EREG = PORTb ‘khai báo chân Enable của LCD
DEFINE LCD_EBIT = 1
DEFINE LCD_RWREG = PORTb ‘khai báo chân Read write
DEFINE LCD_RWBIT = 2
Lcdinit
Main:
Lcdout(“hello”)
Waitms(1000)
Lcdcmdout(lcdclear)
Goto main