Accueil > > > LED EN COULEUR
LED EN COULEUR
Information sur la source
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.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril CERTIFICATIONS BETA .NET 4CERTIFICATIONS BETA .NET 4 par KooKiz
Les inscriptions pour les certifications beta .NET 4 ont commencé. L'inscription est offerte pour les examens suivants : - 71-511, TS: Windows Applications Development with Microsoft .NET Framework 4 - 71-515, TS: Web Applications Development with...
Cliquez pour lire la suite de l'article par KooKiz [MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo
J'imagine que la plupart d'entre vous connaissent bien et utilisent le service de traduction de Google, mais connaissez-vous celui de Microsoft . Microsoft Translator ? Effectivement, Microsoft nous annoncé le lancement version 2 de la Technologie Preview...
Cliquez pour lire la suite de l'article par redo LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010!LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010! par MPOWARE
Toutes les vidéos de ce lancement sont en ligne!
Partie I - Intro
http://www.youtube.com/watch?v=LkQzTQ8T6CA
Partie II - Démo 1
http://www.youtube.com/watch?v=drAhYQ7lqvo
Partie III - Démo 2
http://www.youtube.com/watch?v=c8KM_1Gqybc...
Cliquez pour lire la suite de l'article par MPOWARE [WP7] JE NE VEUX PAS D'UN NOUVEL IPHONE[WP7] JE NE VEUX PAS D'UN NOUVEL IPHONE par FREMYCOMPANY
Je pense qu'ils ont besoin d'une piqure de rappel chez Microsoft : c'est bien gentil d'avoir une interface jolie, mais si c'est pour avoir un truc qui ne convainct pas dedans, c'est peine perdue.
---->
Système ouvert ----> Fermé ?
P...
Cliquez pour lire la suite de l'article par FREMYCOMPANY
Forum
ASSEMBLEURASSEMBLEUR par solleil
Cliquez pour lire la suite par solleil RE : CSHARPRE : CSHARP par ghuysmans99
Cliquez pour lire la suite par ghuysmans99
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 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
|