16F628A ile LCD' ye Yazı Yazdırma

2x16 boyutundaki LCD ye 16f628a ile yazı testleri yapabilirsiniz.

Bas dosyasını aşağıdaki linkten indirin.



'       LCD     PIC
'       DB4     PortA.0
'       DB5     PortA.1
'       DB6     PortA.2
'       DB7     PortA.3
'       RS      PortA.4 (add 4.7K pullup resistor to 5 volts)
'       E       PortB.3
'       RW      Ground
'       Vdd     5 volts
'       Vss     Ground
'       Vo      20K potentiometer (or ground)
'       DB0-3   No connect

Include "modedefs.bas"
'DEFINE LOADER_USED 1
define osc 4
'@ DEVICE pic16F628a, XT_OSC,PROTECT_OFF,WDT_OFF,PWRT_ON,PROTECT_OFF
    @ DEVICE pic16F628a, INTRC_OSC_NOCLKOUt,MCLR_On
    '@ DEVICE pic16F628a, INTRC_OSC_NOCLKOUt
BAS:
LCDOUT $FE,1, " SINASI YAVUZ "
PAUSE 1000
'LCDOUT $FE,1
LCDOUT $FE,$C0,"WYATTS EKRANI TEST.."
PAUSE 1000
'LCDOUT $FE,1
LCDOUT $FE, $94,"YAZI GORUNUYORSA. "
PAUSE 1000
'LCDOUT $FE,1
LCDOUT $FE, $D4,"SORUN YOKTUR........"
PAUSE 1000
LCDOUT $FE, 1
PAUSE 1000
LCDOUT $FE,1, "MIKROISLEMCI CALISMA"
PAUSE 1000
LCDOUT $FE,$C0,"LARI DEVAM EDIYOR  "
PAUSE 1000
LCDOUT $FE, $94,"YAZAN SINASI YAVUZ "
PAUSE 1000
LCDOUT $FE, 1
PAUSE 1000
GOTO BAS
Return


16F628A ile LCD' ye Yazı Yazdırma Bas Dosyası