tuş bekletme

[styx75]

arkadaşlar selam.
sorum şu olacak,,diyelimki porta.1 bağlı bir tuşa 2 saniye basılı tutarsam portb.1 hıgh olsun,
şayet 2 sn nin altında basıp bırakırsam portb.2 toogle yapsın bununla ilgili arama yapmama ragmen bulamadım.
saygılarımla...

[ete]

IF TUS=0 THEN
ZAMAN=0
WHILE TUS=0
ZAMAN=ZAMAN+1
IF ZAMAN>=2000 THEN 
  PORTB.1=1
  goto CIK
ENDIF
PAUSE 1
WEND
TOGGLE PORTB.2
CIK:
ENDIF

ete

[styx75]

teşekkür ederim..