16f877 ile 5 buton led animasyon

[biotec]

NOT:HER BUTONDA FARKLI ANİMASYONLAR VARDIR ANİMASYONLAR KISA SÜRELİDİR İSTENİRSE SÜRELERİ UZATILABİLİR ÖGNETİM AMAÇLI YAPTIM PROFOSYONEL BİR ÇALIŞMA DEGİLDİR ARKADAŞLAR..
--------------------------------------------------------------------------------
Device 16F877
ADCON1=7'porta'nın analog girişlerini dijitale cevirir.
TRISA=%11111111
TRISB=%00000000
BASLA:
If PORTA.1=0 Then
GoTo ACIK
EndIf
If PORTA.3=0 Then
GoTo ACTIK
EndIf
If PORTA.4=0 Then
GoTo ACILDI
EndIf
If PORTA.2=0 Then
GoTo KAPALI
EndIf
If PORTA.5=0 Then
GoTo AC
EndIf
GoTo BASLA
ACIK:
PORTB=%01001001
pause 100
PORTB=%01010011
pause 100
ACTIK:
PORTB=%01000110
pause 50
PORTB=%01001111
pause 150
PORTB=%10011010
ACILDI:
pause 100
PORTB=%00111011
pause 100
Toggle TRISB
PORTB=%01010110
pause 500
AC:
PORTB=%11101010
pause 150
PORTB=%10110110
pause 1000
PORTB=%00011110
GoTo BASLA

KAPALI:
PORTB=%01110111
PAUSE 1000
PORTB=%10110011
pause 500
Toggle PORTB
GoTo BASLA
End