söner. Aralıksız butona basılırsa, bir led yanar söner. Devamlı ledin yanıp
sönmesi otomobil park dörtlü lambaların çalışmasına benzer. Aşağıdaki
while wend komutları devamlı yanıp sönmesinin önüne geçer. Yani
Butona basıp tuttuğunuzda led yanar. Butonu bıraktığınızda led yanmaya
devam edecektir. Tekrar butona bastığınızda led sönecektir.
While wend komutunu kullanmanızı tavsiye ederim.
Aşağıdaki linkten bas hex dosyaların yer aldığı RAR dosyasını
indirebilirsiniz.
DEFINE LOADER_USED 1
'define osccal_1k 1
define osc 4
'@ DEVICE pic12F675,XT_OSC,mclr_off
@ DEVICE pic12f675,INTRC_OSC_NOCLKOUT, mclr_off
trisio=001011
gpio =001011
ansel=0 'digital e çevrildi
'ANSEL = 0100 ' Set AN2 analog, diğer sıfır bitler dijital
OPTION_REG.7 = 0
CMCON=7
OSCCAL = 3430
high gpio.4
pause 1000
loop:
if gpio.3=0 then
toggle gpio.4
WHILE gpio.3= 0
WEND
ENDIF
pause 100
Goto loop ' Başa dön
End
while wend 12f675 bas hex RAR Dosyası indir