Merhaba Grenade,
Programı hangi pic programlama dili ile yazacağını söylemedin ondan aklıma ilk gelen ile yani PicBasicPro ile yazayım dedim, farklı olarak MicroC, Pic C veya Assembly dilleri ile de yazman mümkün. Burada " ;" işaretinden sonrası programa dahil değildir sadece yorum .
TRISA = %11111 ; Port a giriş yapılır. (1'leri Input'un I harfine benzetebilirsin )
TRISB = $00 ; Port b çıkış yapılır (0'ları Output'un O harfine benzetebilirsin )(önemli ; $00 = %00000000)
PORTB = $00 ; Port b portu çıkış değeri sıfırlanır (Başlangıç için )
Basla: ; Basla etiketi programın içerisinde sürekli döngü oluşturmak ve
; bu sayede her seferinde butonları taratarak çıkışları güncellemek için önemlidir.
if (PORTA.0=1) or (PORTA.1=1) then ; A.0 veya(or) A.1 girişleri 1 değerini alırsa yani basılı ise
; (ikiside 1 yada en az 1 tanesi 1 ise)
PORTB = $11 ; Yukarıdaki durum gerçekleşir ise B çıkışını 1 yap. (Ledleri Yak)
endif ; Yukarıdaki kontrolü kapat
if (PORTA.2=1) then ; eğer A.2 butonu 1 ise yani basılı ise
PORTB = $00 ; yukarıdaki durum doğru ise B çıkışının tümünü 0 yap.(Ledleri Söndür)
endif ; Yukarıdaki kontrolü kapat
goto Basla ; Başla etiketine giderek oradan devam et
end ;Programı sonlandır.