ARAMA YAPIN

24 Kasım 2016 Perşembe

PICBasic Toggle Komutu Nasıl Yapılır

   While ile wend komutu arasındaki buton basıldığı an led
yanar ve sönmez. Butonu bıraktığında yine yanar. Yani
While wend komutu olmasaydı. Basılı kalan buton ledi
flaşör gibi yakıp söndürecekti.
 
    Tanımlamada 4 MHz kristal kullanıldığı için XT_OSC
seçeneği yapıldı. 20 MHz kristal kullanılırsa, HS_OSC
yazılmalıdır.
     PIC12F675 de 4 adet analog port mevcuttur. İsteğinize
digital ya da analog veya her iki durumu ayarlayabilirsiniz.

    ANSEL için 0 yazıldı. analoglar devre dışı bırakıldı.
Digital giriş çıkışa dönüştü.
 
     ANSEL e ; ANSEL = 0001 yazılırsa AN0 analog
olur. Diğer 3 adet port digital görevini yapar.


Örnek Toggle komutu ile led yakma projesi aşağıdadır.

DEFINE LOADER_USED 1
define osc 4

@ DEVICE pic12f675,XT_OSC
@ device pic12f675,pwrt_on
@ device pic12f675,mclr_off
'@ device pic12f675,protect_on
   ' @ DEVICE pic12f675, INTRC_OSC_NOCLKOUT,mclr_off
 trisio= 001011
  gpio = 001011

CMCON=7  ' analog portlar kapandı
ANSEL=0 ' analog portların hepsi digitale dönüştürüldü
'osccal=3408
      OPTION_REG.7 = 0  ' 0 ile pull-up dirençleri aktif

Buton var gpio.1  
Led var gpio.2

ana:
    if Buton=0 then
                 TOGGLE Led
            WHILE Buton = 0
                WEND
 endif
               pause 100
goto ana

end