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ı