Pic Basic While Wend Döngüsü

  Toggle komutu butona bastığında led yanar. Tekrar aynı butona basıldığında
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