pic basie yeni başladım

[taytis]

Arkadaşlar selam picbasic e daha yeni başladım bi butona basıldığı zaman yanan led yakmak ilk projem lakin olmadı yardımcı olursanız sevinirim

' butonlara basıldığı zaman led yanan program 03-06-2006

		Set_Defaults PROTON_4
        Device 16F84a
        
        OPTION_REG = $7F        ' Enable PORTB pull-ups
        TRISA = 0       		' Set PORTD (LEDs) to all output
        
loop:	PORTB = 0       		' PORTB lines low to read buttons
        TRISB = 0     		' Enable all buttons

        PORTA = 0       		' All LEDs off


        If PORTB.1 = 0 Then     ' If 4th button pressed...
        	PORTA.1 = 1     	' 4th LED on
        Endif
        
        
		Goto Loop       		' Do it forever
        End

saygılarımla taytis

[teketek]

TRIS yazmacını yanlış yerde kullanıyorsun gibi geldi bana.Loop döngüsünün içinde TRISB=0 yapmışsın.Kodlardan anladığım kadarıyla butonlar B portuna bağlı.TRISB=0 dediğinde B portunu çıkış yapmış oluyorsun ve dolayısıyla program çalışmıyor.Yine de devre şemasını görmek daha sağlıklı olur çözüm açısından.Ya da şunu önerebilirim;

OPTION_REG = $7F ' Enable PORTB pull-ups 
TRISA = 0 ' Set PORTD (LEDs) to all output 
TRISB = 1 ' Enable all buttons 

loop: PORTB = 0 ' PORTB lines low to read buttons 
      PORTA = 0 ' All LEDs off 

If PORTB.1 = 0 Then ' If 4th button pressed... 
   PORTA.1 = 1 ' 4th LED on 
Endif 


Goto Loop ' Do it forever 
End

Bi de aklıma takıldı butonlar pull-up mı pull-down mı ??