picbasic butonla led yakma

[kangal0640]

merhaba picbasic te yeniyim
butona ilk kez basıp bıraktığımda led yanacak,ikinci basıp bıraktığımda ise blink yapacak.yanıp sönecek.
deniyorum deniyorum ama olmuyor.Devreyi breadboard da kurdum ama kodu çorbaya çevirdim sanırım )

Kod Seç Genişlet

@ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF
OSCCAL=%10000000
DEFINE OSC 4
DEFINE OSCCAL_1K 1
CMCON=7
symbol buton=gpio.1   'buton bacağı
symbol led=gpio.0     'led bacağı
sayi var byte          'sayi diye değişken oluşturdum.
trisio=0
buton=0
led=0
sayiver:                'sayi değişkenine değer verdirdim
sayi=1                     'burada ledi yakıp söndürdüm.
high led
pause 1000
low led
pause 1000
high led
pause 500
low led
 pause 100
goto basla
basla:
if buton=1 and sayi=1 then    'sayi 1 ve butona basılınca ilk e git
goto ilk
endif
if buton=1 and sayi=2 then     'sayi 2 ve butona basılınca ikinci ye git
goto ikinci
endif
pause 10                        'butona basılmıyorsa basla ya git
goto basla
ilk:                             'ilk:
high led                         'ledi yak ve butona basılmadığı sürece bekle
sayi=2
while buton=0 
stop
wend
if buton=1 then                  'butona basılınca ikinci ye git
 goto ikinci
 endif
ikinci:
sayi=1                            'butona basılmadığı sürece blink yap
while buton=0
tekrar:
high led
pause 100
low led
pause 100
goto tekrar
wend
 if buton=1 then               'butona basılınca ilk e git
 goto ilk
 endif
 end                                'son



[toyer]

yilmak yok devam

[kangal0640]

sonunda çözdüm

Kod Seç Genişlet

basla:

if buton=0 then
sayi=sayi+1
while buton=0
wend
endif

if sayi=1 then
high led
pause 100
endif

if sayi=2  then
high led
pause 200
low led
pause 200
endif

if sayi=3 then
sayi=0
low led
pause 100
endif
 goto basla

[ABDULLAH ZENGİN]

TOGIL kullanman gerekli istediğin şeyi yapmak icin