yunus27
Üye
- Katılım
- 28 Ara 2016
- Mesajlar
- 9
- Puanları
- 1
- Yaş
- 33
Aşağıdaki pic programı pic basic ile microcode studio ile yazılmıştır. bu programı pic e atınca ekranda yazı görünmüyor. C portuna bağlı led yanıp sönmüyor hata bulamadım. acil yardım gerekli iyi akşamlar
DEFINE LCD_DREG PORTD 'Lcd DATA BACAKLARI PORTB'YE BAGLI
DEFINE LCD_DBIT 4 'LCD DATA BITLERI HANGİ BITTEN BASLIYOR
DEFINE LCD_EREG PORTD 'LCD ENABLE BACAGI HANGI PORTA BAGLI
DEFINE LCD_EBIT 3 'LCD ENABLE BITI HANGI PORTA BAGLI
DEFINE LCD_RSREG PORTD 'LCD RS BACAGI HANGI PORTA BAGLI
DEFINE LCD_RSBIT 2 'LCD RS BACAGI HANGI BITE BAGLI
DEFINE LCD_BITS 4 'LCD 4 BIT BAGLI
DEFINE LCD_LINES 2 'LCD KAC SIRADAN OLUSUYOR
@ DEVICE pic16F877A
@ DEVICE pic16F877A, WDT_on
@ DEVICE pic16F877A, PWRT_ON
@ DEVICE pic16F877A, PROTECT_OFF
@ DEVICE pic16F877A, XT_OSC
DEFINE osc 20
ADCON1 =%00000111 ' PORTA ve PORTE digital girişler aktif.
OPTION_REG = %00000000 ' PORTB PULLUP AKTİF
TRISA=0 ; porta çıkış olarak ayarlandı
TRISB=1 ;
TRISC=0 ;
TRISD=0 ;
TRISE=0 ;
y:
LCDOUT $FE,1," YENi SiSE ALINIYOR " ; lcdnin 1. satırına "yeni şişe alınıyor" yazıldı
LCDOUT $FE,$C0,1," DOLUM = "
pause 100
portc.0=1 ' c portu 0. bacaktaki lambayı yak
pause 100
portc.0=0 ' c portu 0. bacaktaki lambayı söndür
pause 100
goto y
end
DEFINE LCD_DREG PORTD 'Lcd DATA BACAKLARI PORTB'YE BAGLI
DEFINE LCD_DBIT 4 'LCD DATA BITLERI HANGİ BITTEN BASLIYOR
DEFINE LCD_EREG PORTD 'LCD ENABLE BACAGI HANGI PORTA BAGLI
DEFINE LCD_EBIT 3 'LCD ENABLE BITI HANGI PORTA BAGLI
DEFINE LCD_RSREG PORTD 'LCD RS BACAGI HANGI PORTA BAGLI
DEFINE LCD_RSBIT 2 'LCD RS BACAGI HANGI BITE BAGLI
DEFINE LCD_BITS 4 'LCD 4 BIT BAGLI
DEFINE LCD_LINES 2 'LCD KAC SIRADAN OLUSUYOR
@ DEVICE pic16F877A
@ DEVICE pic16F877A, WDT_on
@ DEVICE pic16F877A, PWRT_ON
@ DEVICE pic16F877A, PROTECT_OFF
@ DEVICE pic16F877A, XT_OSC
DEFINE osc 20
ADCON1 =%00000111 ' PORTA ve PORTE digital girişler aktif.
OPTION_REG = %00000000 ' PORTB PULLUP AKTİF
TRISA=0 ; porta çıkış olarak ayarlandı
TRISB=1 ;
TRISC=0 ;
TRISD=0 ;
TRISE=0 ;
y:
LCDOUT $FE,1," YENi SiSE ALINIYOR " ; lcdnin 1. satırına "yeni şişe alınıyor" yazıldı
LCDOUT $FE,$C0,1," DOLUM = "
pause 100
portc.0=1 ' c portu 0. bacaktaki lambayı yak
pause 100
portc.0=0 ' c portu 0. bacaktaki lambayı söndür
pause 100
goto y
end