Saut avec trois impulsions

Soyez le premier à donner votre avis sur cette source.

Vue 10 802 fois - Téléchargée 938 fois

Description

un bouton poussoir est connecté au port A0 et un autre bouton est connecté au port A1 . le bouton poussoir A0 controle les les B1,B2,B3, par 3 impulsions.
1ere impulsion la led s'allume
2eme impulsion la led reste allumé
3eme impulsion la led est eteinte
j'ai utilisé ici les sauts , le programme montre comment utiliser les sauts

Source / Exemple :


;;;;;;;;;;;;;;;;;;;;;;;;text du 21/2/2009;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	LIST P=16F84, R=DEC
	#include      "P16F84.INC"

	__CONFIG  _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC
	__IDLOCS  1998h

	

	mavariable  		EQU		h'0C'	
	mavariable1		EQU		h'0D'

	ORG     0x004
	GOTO    proger
;;;;;;;;;;;;;;;;;;;;;;;;; zorne des souprogrammes;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

        BANK0 	macro
	bcf 	STATUS,RP0 		; passer en banque 0
	endm

	BANK1 	macro
	bsf 	STATUS,RP0 		; passer en banque1
	endm

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  proger			; contiguration des ports du pic 

 
	BANK1			; 1 pour dit en entrée OU 0 en sortie 
	movlw	b'00011'	;  0     0     0     1    1
	movwf	TRISA		;  A4    A3    A2    A1   A0
	movlw	b'0'		;  0     0     0     0    0    0     0     0     
	movwf	TRISB		;  B7    B6    B5    B4   B3   B2    B1    B0
        BANK0
	
	clrf	PORTA		; effacé les ports du pic portA
	clrf	PORTB
               
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  programm    
        btfss PORTA,0
        call  on_off 
        btfss PORTA,1
        call  on_off1                    
          goto programm

;;;;;;;;;;;;;;;;;;;;;;;;; zorne des souprogrammes1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on_off
        btfss PORTA,0
        goto  $-1
        btfsc PORTB,1
	goto	$+2
	goto	$+5  
	bcf   PORTB,1
        bcf   PORTB,2
        bcf   PORTB,3
	RETURN
	bsf   PORTB,1
        bsf   PORTB,2
        bsf   PORTB,3
	RETURN
   
on_off1      
        btfss PORTA,1
        goto  $-1
        btfsc PORTB,4
	goto	$+2
	goto	$+4 
	bcf   PORTB,4
        bcf   PORTB,5
	RETURN
	bsf   PORTB,4
        bsf   PORTB,5
	RETURN
    
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

       
	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	END	; fin du proget

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_ariane2005)