Device = 16F877A
Config WDT_on, PWRTe_ON, XT_OSC
'CONFIG HS_OSC , WDT_OFF , PWRTE_ON , BODEN_OFF , LVP_OFF , WRTE_ON , CP_OFF , DEBUG_OFF
#define LCD_DTPin 4 '
Lcd data bacakları hangi bitten başlıyor?
Declare LCD_ENPin PORTD.0 'LCD Enable Bacağı /////
Declare LCD_RSPin PORTD.1 ;
RS ile E çıkışlarını bir de yer değiştirip deneyin
Declare LCD_Interface 4
Declare LCD_Lines 2
Declare LCD_Type 0
Declare LCD_DTPort PORTD
Declare LCD_RWPin PORTD.2
'-------------------------------------------------------------------------------
Low PORTD.2 ' LCD R/W line Low (W), şemada direkt GND ye bağlanabilir.
LCDOut $FE,1 ' LCD de CLS yapar ;
Lcd'nin açılması için beklediğiniz süreden önce komut yollamışsınız
DelayMS 200 ' LCD nin açılması için gerekli süredir.
'-------------------------------------------------------------------------------
BASLA:
lcdout $FE,1, "Mustafa " ;
Lcd yazma komutu yanlış, $fe,2 olmalıydı
Toggle PORTA.0
DelayMS 500
GoTo BASLA