1 buton ile 1 lamba yakıp söndürme devresi

[kamil_220]

linkde karışık,bişey anlaşılmıyo.. Foruma sadece yazdığınız programı atabilirmsiniz?

[sezgin05]

@KAMİL:
Yukarıda TAGLİ ustanın yazdığı programı denedinizmi.En azından simülasyonunu deneseydiniz daha az yorulurdunuz.

[POWER]

linkte karışık bir şey yok ama buyur,
TRISA = %00000001
TRISB = %00000000
PORTA=0
PORTB=0

SURE     VAR BYTE
A        VAR BIT
A=0

MAIN:
   
If PORTA.0=0 and A=0 then  
            A   =1
            SURE=0
         
       while PORTA.0=0 and SURE <20
            SURE=SURE+1
            pause 1
       wend
       
  if SURE=20 then  TOGGLE PORTB.0
ENDIF
 
  if PORTA.0=1 and A=1 then A=0
   
      goto MAIN

[kamil_220]

yardımlarınız için çok teşekkürler