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

Ce site au démarrage

begin process at 2010 03 18 13:30:59

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é :2 036 / 83

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

SAUT AVEC TROIS IMPULSIONS par ariane2005

LED ROTATE par ariane2005

JEUX DE LUMIÈRE par ariane2005

PIC : OBTENIR UN NOMBRE ALÉATOIRE AVEC LA FORMULE XN+1=(137... par warezpsx

CLAVIER 16F84 par pic16f

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

[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril

CERTIFICATIONS BETA .NET 4 par KooKiz

[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo

LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010! par MPOWARE

[WP7] JE NE VEUX PAS D'UN NOUVEL IPHONE par FREMYCOMPANY

Forum

ASSEMBLEUR par solleil

SYSTEME DE POINTAGE PAR CARTE A PUCE par mecmec16

PROBLèME ENTRE LA SIMULATION ET LA RéALITé par bibou1234

RE : CSHARP par ghuysmans99

RE : DECODEUR 7 SEGMENT par disso07

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

creation site web Joomla
Budget : 4 000€
plateforme voyance rencontre boutique
Budget : 3 000€
Application FLASH URGENT
Budget : 1 000€

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

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

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods