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