lcd.bas

来自「Picbasic pro sample program to work on a」· BAS 代码 · 共 34 行

'SCHEMA DE CONECTARE
' _______________                  _________
'|       RC0(11) |----------------|RS(4)    |
'|       RC3(24) |----------------| E(6)    |
'|       RC4(15) |----------------|D4(11)   |
'|       RC5(16) |----------------|D5(12)   |
'|       RC6(17) |----------------|D6(13)   |
'|       RC7(18) |----------------|D7(14)   |
'|               |                |         |
'|PIC 16F876 SIDE|                |LCD SIDE |
'|_______________|                |_________|
'
DEFINE LCD_DREG PORTC 
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 4
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50

Pause 500

'loop:   
Lcdout $fe, 1
Lcdout "Buna seara papushe!"
Pause 500
Lcdout $fe, $c0
Lcdout "Un futing maine?"
Pause 500
end
'Goto loop