asagidaki devre icin acil yardimm bekliyorum

[eros85]

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
Linkback: asagidaki devre icin acil yardimm bekliyorum

[UNIQUE - TA5DF]

tamam arkadaşım sen programı pbp  de yaz takıldığın yerde yardımcı olalım.

[eros85]

ya ben yaziyorum bana mantikli gelen program derleme yaparken hata veriyor
ama ben gelebildim yere kadar yazayim

[eros85]

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

[UNIQUE - TA5DF]

           
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

[eros85]

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

[UNIQUE - TA5DF]

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.

[eros85]

ok cok tesekkur ettim