'---------------------------------------------------------- 'Programın adı: Uyg_4_5.bas 'Programın işlevi: PortA'nın 1.pin'ine bağlı butona basınca PortB.0'daki LED'i yakar, PortA'nın 2. bit'indeki butona basınca aynı LED'i söndürür. 'Tarih:25/03/2007 Uyarlama:1.00 Derleyici:PBP '----------------------------------------------------------- D1 var byte 'D1 değişkenini byte tipinde tanımla D2 var byte 'D2 değişkenini byte tipinde tanımla Led0 var PortB.0 'PortB'nin 0.bit'ini Led0 olarak tanımla Output PortB.0 'PortB'nin 0.bit'i çıkış Input portA.1 'PortA'nın 1.bit'i giriş Input PortA.2 'PortA'nın 2.bit'i giriş '----------------------------------------------------------- PORTB=0 'Program başladığında tüm LED'leri söndür Butonkontrol: D1=0: D2=0 'Sayaç değişkenlerini sıfırla Button PortA.1, 0, 254, 0, D1, 1, LEDyak 'Butona basıldığında LEDyak'a git Button PortA.2, 0, 254, 0, D2, 1, LEDsondur 'Butona basıldığında LEDsondur'e git Goto Butonkontrol 'Butonları kontrol et LEDyak: High Led0 'PortB.0'a bağlı LED'i yak Goto Butonkontrol LEDsondur: Low Led0 'PortB.0'a bağlı LED'i söndür Goto Butonkontrol End '----------------------------------------------------------