basic ve 12f508

[desman]

Ben de kısa bişe yazdım, örnek olsun die veriyorum ;

TRISA=1
TRISB=0
PORTA=0
PORTB=0
BASLA:
IF PORTA.0=1 THEN
GOTO FLASH1 
ENDIF
GOTO BASLA
            FLASH1:
            PORTB.0=1
            PAUSE 100
            PORTB.0=0
            PAUSE 100
            PORTB.0=1
            PAUSE 100
            PORTB.0=0
            PAUSE 100
            GOTO IKI
IKI:
IF PORTA.0=1 THEN 
GOTO FLASH2
ENDIF
GOTO IKI
     
     FLASH2:
     PORTB.1=1
     PAUSE 100
     PORTB.1=0
     PAUSE 100
     PORTB.1=1
     PAUSE 100
     PORTB.1=0
     PAUSE 100
      GOTO BASLA
         END
   
   

İsiste denedim çalışıyor,İyi çalışmalar