'------------------------------------------------------------ 'Programın adı: Uyg_5_1.bas 'Programın işlevi: RA4 pin'ine bağlı butona devamlı basınca RB5 deki LED'i yakar. RB6 pin'ine bağlı butona devamlı basınca da RB4'deki LED'i yakar. 'Tarih:23/03/2007 Uyarlama:1.00 Derleyici:PBP '------------------------------------------------------------ OPTION_REG = $7f 'PortB çıkışlarını pull-up yap TRISB = %11001111 'PortB.4,5 (LED'ler) çıkış yap TRISA.4 = 1 'PortA.4 giriş yap loop: PORTB = 0 ' LED'leri söndür. ' Bir butona basıldıysa LED'i yak If PORTB.6 = 0 Then ' RB6 butonuna basıldıysa.. PORTB.4 = 1 ' RB4 LED'ini yak. Endif If PORTA.4 = 0 Then ' RA4 butonuna basıldıysa.. PORTB.5 = 1 ' RB5 LED'ini yak. Endif Pause 2 ' 2mS durakla Goto loop ' İşlemi sürekli yap. End '------------------------------------------------------------