ra0 a basildiginda led 1 yansin ve lcd de led1 yazsin
ra1 a basildiginda led 2 yansin ve lcd de led2 yazsin
ra2 a basildiginda ledler sonsun ve lcd de off yazsin
http://savefile.com/projects/808691325
programi picbasic pro programinda yazmak istiyorum
tamam arkadaşım sen programı pbp de yaz takıldığın yerde yardımcı olalım.
ya ben yaziyorum bana mantikli gelen program derleme yaparken hata veriyor
ama ben gelebildim yere kadar yazayim
DEFINE LCD_DREG PORTB 'LCD data bacaklar? PortB de bagl?
DEFINE LCD_DBIT 4 'LCD data bacaklar? 4. bitten basl?yor
DEFINE LCD_EREG PORTB 'LCD Enable Bacag? PortB de bagl?
DEFINE LCD_EBIT 3 'LCD Enable Bacag? 3. bite bagl?
DEFINE LCD_RWREG PORTB 'LCD RW Bacag? PortB de bagl?
DEFINE LCD_RWBIT 2 'LCD RW Bacag? 2. bite bagl?
DEFINE LCD_RSREG PORTB 'LCD RS Bacag? PortB de bagl?
DEFINE LCD_RSBIT 1 'LCD RS bacag? 1. Bite bagl?
DEFINE LCD_BITS 4 'LCD 4 bit olarak bagl?
DEFINE LCD_LINES 2 'LCD 2 s?ra olarak cal?s?yor.
LOW PORTB.2
TRISA=%11100111
TRISB=%00000000
BASLA:
IF PORTA.0=0 THEN
goto L1
else
goto BASLA
ENDIF
IF PORTA.1=0 THEN
GOTO L2
ELSE
GOTO BASLA
ENDIF
IF PORTA.2=0 THEN
GOTO L3
ELSE
GOTO BASLA
ENDIF
L1:
PAUSE 200
LCDOUT $FE,1 SU noktaDA HATA VERIYOR
LCDOUT $FE,2,"led1"
HIGH PORTA.3
L2:
PAUSE 200
LCDOUT $FE,1
LCDOUT $FE,2,"led2"
HIGH PORTA.4
L3:
PAUSE 200
LCDOUT $FE,1
LCDOUT $FE,2,"OFF"
LOW PORTA.3
LOW PORTA.4
END
bi ilgilenirseniz hatayi gosterirseninz sevinirim
TRISA=%11100111
TRISB=%00000000
' lcd tanımlarını kontrol et devre ile aynı pinler olsun
' aşağıdaki komutları dene sonuçları bildir. yardımcı olalım.
BASLA:
IF PORTA.0=0 THEN
high porta.3
LCDOUT $FE,1,"led 1"
ENDIF
IF PORTA.2=0 THEN
high portb.0 'pin a4 doğrudan çıkış olarak kullanılamaz.
LCDOUT $FE,1,"led 2"
ENDIF
IF PORTA.2=0 THEN
low porta.3
low portb.0 'led 2 yi portb.0 a bağlı varsaydım
LCDOUT $FE,1,"led kapali"
ENDIF
goto basla
end
simdi calistirdim anladigim kadari ile led in birini porta.4 bitine bagladigim icin calismamis hem programdada oyleydi
o bitte ozel bir olay var sanirim ra4/tocki yaziyo tam anlayamadim amam program calisti yardimin icin sag ol simdi iki led birden yanarken LI L2 olayini yapmaya calisiyorum
yardimin icin cok sag ol
ra4 pinini çıkış olarak kullanmak istersen ra4 ü +5 v a 10k dirençle bağla. ikinci bir 10k ile bir transistörü sürerek çıkış olarak kullanabilirsin.
ok cok tesekkur ettim