Répondre à la discussion
Affichage des résultats 1 à 3 sur 3

Modifier Un Programme de Pic



  1. #1
    eljenmajdi

    Modifier Un Programme de Pic


    ------

    Svp, après avoir télécharger un programme pour un serrure codé, et le programmée dans le micro contrôleur PIC16F84A, puis la mise en marche, j'ai trouvé que la période que la gâchette reste sous tension et un peut longue (3s) et sa peut maintenir sa destruction de la bobine, alors SVP je veut la modifier en (1s).
    voici le lien en hex http://www.pc-electronique.com/elect...re_codee/3.hex
    ou bien voici le programme assemblé

    LIST p=16f84a ; Définition de processeur
    #include <P16f84a.inc> ; Définitions des constantes

    __CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC

    CBLOCK 0x0D

    variable_0D
    variable_0E
    variable_0F
    variable_10
    variable_11
    variable_12
    variable_13
    variable_14

    ENDC

    CBLOCK 0x19

    variable_19

    ENDC

    CBLOCK 0x1E

    variable_1E
    variable_1F

    ENDC

    ORG 0000h

    GOTO Début
    NOP
    NOP
    NOP
    RETFIE
    Etiquette_8 MOVF variable_11,W
    ADDWF PCL,f
    RETLW D'96'
    RETLW D'49'
    RETLW D'50'
    RETLW D'51'
    RETLW D'97'
    RETLW D'52'
    RETLW D'53'
    RETLW D'54'
    RETLW D'98'
    RETLW D'55'
    RETLW D'56'
    RETLW D'57'
    RETLW D'99'
    RETLW D'42'
    RETLW D'48'
    RETLW D'35'
    RETLW D'100'
    Etiquette_12 MOVLW D'21'
    MOVWF FSR
    CLRF EEADR
    Etiquette_1 BSF STATUS , RP0
    BSF EECON1 , RD
    BCF STATUS , RP0
    MOVF EEDATA,W
    MOVWF INDF
    INCF FSR,f
    INCF EEADR,f
    MOVLW D'25'
    SUBWF FSR,W
    BTFSS STATUS , Z
    GOTO Etiquette_1
    RETURN
    Etiquette_20 MOVLW D'21'
    MOVWF FSR
    CLRF EEADR
    Etiquette_3 MOVF INDF,W
    MOVWF EEDATA
    BSF STATUS , RP0
    BCF EECON1 , EEIF
    BSF EECON1 , WREN
    MOVLW D'85'
    MOVWF EECON2
    MOVLW D'170'
    MOVWF EECON2
    BSF EECON1 , WR
    Etiquette_2 BCF STATUS , RP0
    NOP
    NOP
    BSF STATUS , RP0
    BTFSS EECON1 , EEIF
    GOTO Etiquette_2
    BCF STATUS , RP0
    INCF FSR,f
    INCF EEADR,f
    MOVLW D'25'
    SUBWF FSR,W
    BTFSS STATUS , Z
    GOTO Etiquette_3
    RETURN
    Etiquette_6 MOVWF variable_0D
    Etiquette_5 MOVLW D'80'
    MOVWF variable_0E
    Etiquette_4 DECFSZ variable_0E,f
    GOTO Etiquette_4
    DECFSZ variable_0D,f
    GOTO Etiquette_5
    RETURN
    Etiquette_11 MOVWF variable_10
    Etiquette_7 BSF PORTB , 3
    MOVLW D'3'
    CALL Etiquette_6
    BCF PORTB , 3
    MOVLW D'3'
    CALL Etiquette_6
    DECFSZ variable_10,f
    GOTO Etiquette_7
    RETURN
    Etiquette_22 CLRF variable_11
    MOVLW D'4'
    MOVWF variable_12
    MOVLW D'254'
    TRIS
    Etiquette_10 MOVLW D'160'
    CALL Etiquette_6
    SWAPF PORTB,W
    MOVWF variable_14
    MOVLW D'4'
    MOVWF variable_13
    Etiquette_9 INCF variable_11,f
    RRF variable_14,f
    BTFSS STATUS , C
    GOTO Etiquette_8
    DECFSZ variable_13,f
    GOTO Etiquette_9
    BSF STATUS , C
    BSF STATUS , RP0
    RLF TRISA,f
    BCF STATUS , RP0
    DECFSZ variable_12,f
    GOTO Etiquette_10
    RETLW D'0'
    Début CLRF PORTA
    CLRW
    TRIS
    CLRF PORTB
    MOVLW D'240'
    TRIS
    BSF STATUS , RP0
    BCF OPTION_REG , NOT_RBPU
    BCF STATUS , RP0
    Etiquette_19 MOVLW D'240'
    CALL Etiquette_11
    CALL Etiquette_12
    Etiquette_15 CLRF PORTB
    CALL Etiquette_13
    MOVLW D'21'
    CALL Etiquette_14
    BTFSS STATUS , Z
    GOTO Etiquette_15
    MOVLW D'42'
    SUBWF variable_11,W
    BTFSC STATUS , Z
    GOTO Etiquette_16
    MOVLW D'4'
    MOVWF PORTB
    MOVLW D'150'
    MOVWF variable_0F
    Etiquette_17 MOVLW D'200'
    CALL Etiquette_6
    DECFSZ variable_0F,f
    GOTO Etiquette_17
    GOTO Etiquette_15
    Etiquette_16 MOVLW D'2'
    MOVWF PORTB
    CALL Etiquette_13
    MOVLW D'21'
    CALL Etiquette_18
    CALL Etiquette_13
    MOVLW D'21'
    CALL Etiquette_14
    BTFSS STATUS , Z
    GOTO Etiquette_19
    CALL Etiquette_20
    GOTO Etiquette_15
    Etiquette_13 CLRF variable_19
    Etiquette_21 CLRW
    TRIS
    MOVF PORTB,W
    ANDLW D'240'
    XORLW D'240'
    BTFSS STATUS , Z
    GOTO Etiquette_21
    MOVLW D'240'
    CALL Etiquette_6
    MOVF PORTB,W
    MOVLW D'8'
    MOVWF INTCON
    SLEEP
    CALL Etiquette_22
    ANDLW D'255'
    MOVWF variable_11
    BTFSC STATUS , Z
    GOTO Etiquette_21
    MOVLW D'240'
    CALL Etiquette_6
    MOVLW D'4'
    SUBWF variable_19,W
    BTFSS STATUS , Z
    GOTO Etiquette_23
    CALL Etiquette_24
    BTFSS STATUS , Z
    GOTO Etiquette_25
    MOVLW D'64'
    CALL Etiquette_11
    MOVF variable_11,W
    RETURN
    Etiquette_25 MOVLW D'27'
    MOVWF FSR
    Etiquette_26 MOVF INDF,W
    DECF FSR,f
    MOVWF INDF
    INCF FSR,f
    INCF FSR,f
    MOVLW D'30'
    SUBWF FSR,W
    BTFSS STATUS , Z
    GOTO Etiquette_26
    DECF variable_19,f
    Etiquette_23 CALL Etiquette_24
    BTFSC STATUS , Z
    GOTO Etiquette_13
    MOVLW D'64'
    CALL Etiquette_11
    MOVLW D'26'
    ADDWF variable_19,W
    MOVWF FSR
    MOVF variable_11,W
    MOVWF INDF
    INCF variable_19,f
    GOTO Etiquette_21
    Etiquette_24 MOVLW D'35'
    SUBWF variable_11,W
    BTFSC STATUS , Z
    RETURN
    MOVLW D'42'
    SUBWF variable_11,W
    RETURN
    Etiquette_14 MOVWF variable_1E
    CLRF variable_19
    Etiquette_27 MOVLW D'26'
    ADDWF variable_19,W
    MOVWF FSR
    MOVF INDF,W
    MOVWF variable_1F
    MOVF variable_1E,W
    ADDWF variable_19,W
    MOVWF FSR
    MOVF INDF,W
    SUBWF variable_1F,W
    BTFSS STATUS , Z
    RETURN
    INCF variable_19,f
    MOVLW D'4'
    SUBWF variable_19,W
    BTFSS STATUS , Z
    GOTO Etiquette_27
    RETURN
    Etiquette_18 MOVWF variable_1E
    CLRF variable_19
    Etiquette_28 MOVLW D'26'
    ADDWF variable_19,W
    MOVWF FSR
    MOVF INDF,W
    MOVWF variable_1F
    MOVF variable_1E,W
    ADDWF variable_19,W
    MOVWF FSR
    MOVF variable_1F,W
    MOVWF INDF
    INCF variable_19,f
    MOVLW D'4'
    SUBWF variable_19,W
    BTFSS STATUS , Z
    GOTO Etiquette_28
    RETURN



    ; DATA(Eeprom)
    ORG 2100h
    DE 0x31 , 0x32 , 0x33 , 0x34 , 0x35 , 0x36



    End


    merci j'attends une réponse!

    -----

  2. #2
    maximilien

    Re : Modifier Un Programme de Pic

    Citation Envoyé par eljenmajdi Voir le message
    merci j'attends une réponse!
    Tu risque d'attendre longtemps...
    on est tous myopes ici!!

    EDIT: mon 1000!

  3. #3
    freepicbasic

    Re : Modifier Un Programme de Pic

    une tempo ici , peut être la bonne ...
    il Faudrait au moins mettre le code en forme et mettre des commentaires.
    le déssassembleur ça explique rien ...


    Code:
    Etiquette_6 
        MOVWF variable_0D
    Etiquette_5 
         MOVLW D'80'                     ; diviser par 3  ~27 
        MOVWF variable_0E
    Etiquette_4 
        DECFSZ variable_0E,f
        GOTO Etiquette_4
        DECFSZ variable_0D,f
        GOTO Etiquette_5
    RETURN
    A+, pat

Discussions similaires

  1. Logiciel R: programme pour modifier une séquence d'ADN
    Par muriel38 dans le forum Logiciel - Software - Open Source
    Réponses: 6
    Dernier message: 23/03/2009, 08h07
  2. programme pic
    Par MARSA dans le forum Électronique
    Réponses: 13
    Dernier message: 04/01/2009, 11h49
  3. Quelqu'un peut m'aider à modifier ce programme?
    Par checksum18 dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 16/05/2008, 15h33
  4. qui peut me modifier un prog pour pic 16f84a
    Par kletus dans le forum Électronique
    Réponses: 1
    Dernier message: 02/02/2007, 17h06
  5. Programme En Pic
    Par MEMOR dans le forum Électronique
    Réponses: 6
    Dernier message: 13/05/2006, 11h01
Découvrez nos comparatifs produits sur l'informatique et les technologies.