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!
-----
Envoyé par eljenmajdi 
