logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Pic 16f84. Dioda podłączona do RA0 powinna mrugać co 1 s.

qaz88 05 Lis 2006 12:08 1130 4
REKLAMA
  • #1 3189871
    qaz88
    Poziom 12  
    Posty: 123
    Pomógł: 4
    Ocena: 40
    Witam. Dopiero ucze sie programować i napotkałem nastepujący problem:
    Chciałbym żeby dioda podłączona do RA0 mrugała co 1s. Oto mój program:
    
    
    list p=16f84
    include <p16f84.inc>
    
    COUNT1 EQU H'0C'
    COUNT2 EQU H'0D'
    COUNT3 EQU H'0E'
    
    BSF STATUS,RP0
    MOVLW B'11111110'
    MOVWF TRISA
    BCF STATUS,RP0
    
    START	MOVLW H'FF'
    MOVWF COUNT1
    MOVLW H'FF'
    MOVWF COUNT2
    MOVLW H'04'
    MOVWF COUNT3
    CALL LEDON
    CALL DELAY
    CALL LEDOFF
    CALL DELAY
    GOTO START
    
    LEDON MOVLW B'00000001'
    MOVWF PORTA
    RETURN
    
    LEDOFF MOVLW B'00000000'
    MOVWF PORTA
    RETURN
    
    DELAY DECFSZ COUNT1,1
    GOTO DELAY
    DECFSZ COUNT2,1
    GOTO DELAY
    DECFSZ COUNT3,1
    GOTO DELAY
    RETURN
    
    END;
    
    

    Wyczytałem że okres zap. sie diody powinien teraz wynosić 4*255*255*4us (stosuje kwarc 4MHz) Dioda faktycznie zapala sie na ok 1s ale potem bezpowrotnie gaśnie :| Czy mógłby mi ktoś napisać co robie źle?!
  • REKLAMA
  • Pomocny post
    #2 3189975
    sento
    Poziom 12  
    Posty: 20
    Pomógł: 2
    START
    CALL LEDON
    CALL DELAY
    CALL LEDOFF
    CALL DELAY
    GOTO START

    DELAY ; cca 1s
    MOVLW 5
    MOVWF COUNT3
    D0 MOVLW 255
    MOVWF COUNT2
    D1 MOVLW 255
    MOVWF COUNT1
    D2 DECFSZ COUNT1,F
    GOTO D2
    D3 DECFSZ COUNT2,F
    GOTO D1
    DECFSZ COUNT3,F
    GOTO D0
    RETURN
  • REKLAMA
  • #3 3190102
    qaz88
    Poziom 12  
    Posty: 123
    Pomógł: 4
    Ocena: 40
    Dzieki sento Działa! :D Mógłbyś mi jeszcze napisać co robiłem źle? Gdy wcześniej dawałem tylko 2 zmienne COUNT1 i COUNT2 to działało poprawnie z f=1/4s
  • REKLAMA
  • #4 3190123
    sento
    Poziom 12  
    Posty: 20
    Pomógł: 2
    Vecer sa ozvem; Po polski neviem, ja som slovak;
  • #5 3195345
    sento
    Poziom 12  
    Posty: 20
    Pomógł: 2
    You can connect with me per Skype;
    My nick: sento5

    bye

    Dodano po 3 [minuty]:

    PS: only chat !
REKLAMA