a.0 butonuna her bastığımda çıkışı 1 arttırmak

[orcunkubilay]

Arkadaşlar a.0 butonuna her bastığımda b portundaki 4 bitlik çıkışta 1 den 15 e kadar saymasını istiyorum bununla ilgili pic basic ddilinde örnek program verebilicek arkadaş var mı ?

[ibrsel]

A0 pinini giriş tanımla..Simulasyonda (İSİS) buraya bir buton bağla..
B portunu çıkış tanımla ve buraya (B0,B1,B2,B3 pinlerine ) led bağla..
Sayi isimli bir değişken oluştur. ilk değeri "0" olsun..
Sayi değişkenini B portuna aktar..
Butona her basıldığında sayı değişkenini bir arttır..

trisA=%00000001 
 trisb=0
 Dim sayi as byte
 sayi=0
 Basla:
     Portb=sayi
     if porta.0=1 then
        delayms 250 
        sayi=sayi+1
        if sayi>=15 then sayi=0
   endif
Goto basla