CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 08 20:46:34

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

LED EN COULEUR

Information sur la source

Note :

9,00 / 10

Catégorie :Les PIC Niveau :Débutant Date de création :30/03/2009 Vu / téléchargé :3 971 / 168

Auteur : ariane2005

Ecrire un message privé

Site perso

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Programme fonctionnant sous le pic16f84 permettant de faire fonctionner un led en couleur avec des temporisations.

Source

;;;;;;;;;;;;;;;;;;;;;;;;text du 18/3/2009;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LIST P=16F84, R=DEC
#include "P16F84.INC"
__CONFIG _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC
__IDLOCS 1998h
mv1 EQU h'0C'
mv2 EQU h'0D'
mv3 EQU h'0E'
mv4 EQU h'0F'
;================================================;
ledblue_a0 EQU h'0'
ledgreen_a1 EQU h'2'
;================================================;
ledred_b0 EQU h'0'
ledyellow_b2 EQU h'2'
;================================================;
ORG 0x004
GOTO projet
;;;;;;;;;;;;;;;;;;;;;;;;; zorne des souprogrammes;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
projet ; contiguration des ports du pic
bsf STATUS,RP0 ; passé en banque 1
; 1 pour dit en entrée OU 0 en sortie
movlw b'00000' ; 0 0 0 0 0
movwf TRISA ; A4 A3 A2 A1 A0
movlw b'00000000' ; 0 0 0 0 0 0 0 0
movwf TRISB ; B7 B6 B5 B4 B3 B2 B1 B0
bcf STATUS,RP0 ; passé en banque 0
clrf PORTA ; effacé les ports du pic portA
clrf PORTB ; effacé les ports du pic portB
program ; debut du program
bsf PORTA,ledblue_a0
bsf PORTB,ledyellow_b2
call temp_7s
bsf PORTA,ledblue_a0
bsf PORTB,ledred_b0
bsf PORTB,ledyellow_b2
call temp_10s
bsf PORTA,ledblue_a0
bsf PORTB,ledred_b0
bsf PORTB,ledyellow_b2
call temp_17s
bsf PORTB,ledred_b0
bsf PORTA,ledblue_a0
call temp_2s
bsf PORTB,ledred_b0
bsf PORTB,ledyellow_b2
bsf PORTA,ledblue_a0
call temp_17s
bsf PORTB,ledyellow_b2
bsf PORTA,ledgreen_a1
bcf PORTB,ledred_b0
call temp_2s
bsf PORTA,ledblue_a0
bsf PORTB,ledyellow_b2
bsf PORTB,ledred_b0
call temp_17s
bcf PORTA,ledgreen_a1
bsf PORTA,ledblue_a0
call temp_7s
goto program ; retour au program
;;;;;;;;;;;;;;;;;;;;; sous-programme ;;;;;;;;;;;;;;;;;;;;;;;
temp_2s
movlw d'255'
movwf mv1
movlw d'255'
movwf mv2
movlw d'12'
movwf mv3
gf decfsz mv1,f ; -1 du contenu de mv1 saut si mv1 = 0
goto gf
decfsz mv2,f ; -1 du contenu de mv2 saut si mv2 = 0
goto gf
decfsz mv3,f ; -1 du contenu de mv3 saut si mv3 = 0
goto gf
return
;=============================================================
temp_7s
movlw d'255'
movwf mv1
movlw d'255'
movwf mv2
movlw d'15'
movwf mv3
gf1 decfsz mv1,f ; -1 du contenu de mv1 saut si mv1 = 0
goto gf1
decfsz mv2,f ; -1 du contenu de mv2 saut si mv2 = 0
goto gf1
decfsz mv3,f ; -1 du contenu de mv3 saut si mv3 = 0
goto gf1
return
;=============================================================
temp_17s
movlw d'255'
movwf mv1
movlw d'255'
movwf mv2
movlw d'80'
movwf mv3
gf2 decfsz mv1,f ; -1 du contenu de mv1 saut si mv1 = 0
goto gf2
decfsz mv2,f ; -1 du contenu de mv2 saut si mv2 = 0
goto gf2
decfsz mv3,f ; -1 du contenu de mv3 saut si mv3 = 0
goto gf2
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
temp_10s
movlw d'255'
movwf mv1
movlw d'255'
movwf mv2
movlw d'30'
movwf mv3
gf3 decfsz mv1,f ; -1 du contenu de mv1 saut si mv1 = 0
goto gf3
decfsz mv2,f ; -1 du contenu de mv2 saut si mv2 = 0
goto gf3
decfsz mv3,f ; -1 du contenu de mv3 saut si mv3 = 0
goto gf3
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
END ; fin du projet

;;;;;;;;;;;;;;;;;;;;;;;;text du 18/3/2009;;;;;;;;;;;;;;;;;;;;;;;;;;;;


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

	__CONFIG  _CP_OFF & _PWRTE_ON & _WDT_OFF & _HS_OSC
	__IDLOCS  1998h

	

	mv1		EQU		h'0C'	
	mv2		EQU		h'0D'	
        mv3             EQU             h'0E'
        mv4             EQU             h'0F'
;================================================;
       ledblue_a0        EQU             h'0'
       ledgreen_a1       EQU             h'2'
;================================================;
       ledred_b0         EQU             h'0'
       ledyellow_b2      EQU             h'2'
;================================================;

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





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  projet			; contiguration des ports du pic 

	bsf    STATUS,RP0	; passé en banque 1
 
				; 1 pour dit en entrée OU 0 en sortie 
	movlw	b'00000'	;  0     0     0     0    0
	movwf	TRISA		;  A4    A3    A2    A1   A0
	movlw	b'00000000'	;  0     0     0     0    0    0     0     0     
	movwf	TRISB		;  B7    B6    B5    B4   B3   B2    B1    B0

	bcf    STATUS,RP0	; passé en banque 0
	
	clrf	PORTA		; effacé les ports du pic portA
	clrf	PORTB           ; effacé les ports du pic portB


      program			; debut du program
      
    bsf   PORTA,ledblue_a0
    bsf   PORTB,ledyellow_b2
    call  temp_7s

           
    bsf   PORTA,ledblue_a0
    bsf   PORTB,ledred_b0
    bsf   PORTB,ledyellow_b2
    call  temp_10s

    bsf   PORTA,ledblue_a0
    bsf   PORTB,ledred_b0
    bsf   PORTB,ledyellow_b2
    call  temp_17s

    bsf   PORTB,ledred_b0
    bsf   PORTA,ledblue_a0
    call  temp_2s

    bsf   PORTB,ledred_b0
    bsf   PORTB,ledyellow_b2
    bsf   PORTA,ledblue_a0
    call  temp_17s

    bsf   PORTB,ledyellow_b2
    bsf   PORTA,ledgreen_a1
    bcf   PORTB,ledred_b0
    call  temp_2s

    bsf   PORTA,ledblue_a0
    bsf   PORTB,ledyellow_b2
    bsf   PORTB,ledred_b0
    call  temp_17s

    bcf   PORTA,ledgreen_a1
    bsf   PORTA,ledblue_a0
    call  temp_7s

             
                           
       goto  program            ; retour au program


;;;;;;;;;;;;;;;;;;;;; sous-programme ;;;;;;;;;;;;;;;;;;;;;;;
      temp_2s 
    
      movlw d'255'    
      movwf mv1
      movlw d'255'
      movwf mv2
      movlw d'12'
      movwf mv3

gf    decfsz mv1,f        ; -1 du contenu de mv1 saut si mv1 = 0
      goto   gf
      decfsz mv2,f        ; -1 du contenu de mv2 saut si mv2 = 0
      goto gf
      decfsz mv3,f        ; -1 du contenu de mv3 saut si mv3 = 0
      goto gf


      return
;=============================================================
      temp_7s 
    
      movlw d'255'    
      movwf mv1
      movlw d'255'
      movwf mv2
      movlw d'15'
      movwf mv3

gf1   decfsz mv1,f        ; -1 du contenu de mv1 saut si mv1 = 0
      goto   gf1
      decfsz mv2,f        ; -1 du contenu de mv2 saut si mv2 = 0
      goto gf1
      decfsz mv3,f        ; -1 du contenu de mv3 saut si mv3 = 0
      goto gf1

      return
;=============================================================
      temp_17s 
    
      movlw d'255'    
      movwf mv1
      movlw d'255'
      movwf mv2
      movlw d'80'
      movwf mv3

gf2   decfsz mv1,f        ; -1 du contenu de mv1 saut si mv1 = 0
      goto   gf2
      decfsz mv2,f        ; -1 du contenu de mv2 saut si mv2 = 0
      goto gf2
      decfsz mv3,f        ; -1 du contenu de mv3 saut si mv3 = 0
      goto gf2
      return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 temp_10s 
    
      movlw d'255'    
      movwf mv1
      movlw d'255'
      movwf mv2
      movlw d'30'
      movwf mv3

gf3   decfsz mv1,f        ; -1 du contenu de mv1 saut si mv1 = 0
      goto   gf3
      decfsz mv2,f        ; -1 du contenu de mv2 saut si mv2 = 0
      goto gf3
      decfsz mv3,f        ; -1 du contenu de mv3 saut si mv3 = 0
      goto gf3
      return


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      END                 ; fin du projet

Conclusion

dites moi ce que vous en pensez.

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

led1_couleur
- Last Loaded led_9.DBK105 255 octets
- LED_9.$$$4 331 octets
- led_9.asm 4 331 octets
- LED_9.COD7 168 octets
- led_9.DSN102 617 octets
- LED_9.ERR1 678 octets
- LED_9.HEX596 octets
- LED_9.LST15 375 octets
- led_9.pjt1 520 octets
- led_9.PWI1 078 octets

Télécharger le zip

Sources du même auteur

SAUT AVEC TROIS IMPULSIONS

LED ROTATE

JEUX DE LUMIÈRE

Toutes les sources de ariane2005

Sources de la même categorie

MODULATION DE LARGEUR D'IMPULSION (PWM) par Eneur

MOTEUR-RUN -:- PILOTAGE MOTEUR PAS À PAS AVEC RAMPES par bermudos

REGPROG -:- ENREGISTRER UNE SÉQUENCE DANS UN PIC par bermudos

[PIC] FIRMWARE ALTERNATIF POUR LA CARTE PROTO DE POB TECHNOL... par korpus

SAUT AVEC TROIS IMPULSIONS par ariane2005

Toutes les sources de la catégorie Les PIC

Commentaires et avis

Commentaire de pont le 02/05/2009 20:28:19 9/10

C'est bien, quelques détails améliorables, comme:
Je cite:
#  movlw b'00000000' ; 0 0 0 0 0 0 0 0
# movwf TRISB

Cela peut se simplifier en "clrf  TRISB"

Les tempo sont trop compliquées, une seule suffit avec passage de paramètre, ou en deux parties:
   la 1e pour la tempo de 1 seconde (non appelée par le programme)
   la 2e avec un compteur qui se charge à l'appel venant du programme et donne le nombre d'appels de la tempo d'une seconde. Return quand le compteur est à zéro, c'est fini.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice

TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice

Forum

RE : ALGORITHME EXPONENTIEL par BruNews

ALGORITHME EXPONENTIEL par smirnov1985

SYSTèME D'IMMOBILISATION INVISIBLE POUR VOITURE par king2br

RE : PROGRAMMATION DU PIC16F877 LCD EN MIKRO C par ilsab

ANNULATION D'ECHO ACOUSTIQUE par samenp

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Fonctionnalites supplementaires sous Joomla
Budget : 800€
Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011