Accueil > > > JEUX DE LUMIÈRE
JEUX DE LUMIÈRE
Information sur la source
Description
programme fonctionnant sous le pic16f84 qui pemet de faire jouer successivement 13 leds . Un peu comme un jeux de lumière.
Source
- ;;;;;;;;;;;;;;;;;;;;;;;;text du 26/2/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'
-
- 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,0 ; bit RA0 à 1
- call tempo ; appel un temps
- bcf PORTA,0 ; bit RA0 à 0
- call tempo ; appel un temps
-
- bsf PORTA,1
- call tempo
- bcf PORTA,1
- call tempo
-
- bsf PORTA,2
- call tempo
- bcf PORTA,2
- call tempo
-
- bsf PORTA,3
- call tempo
- bcf PORTA,3
- call tempo
-
-
-
- bsf PORTB,0 ; bit RB0 à 1
- call tempo ; appel un temps
- bcf PORTB,0 ; bit RBO à 0
- call tempo ; appel un temps
-
-
- bsf PORTB,1
- call tempo
- bcf PORTB,1
- call tempo
-
- bsf PORTB,2
- call tempo
- bcf PORTB,2
- call tempo
-
- bsf PORTB,3
- call tempo
- bcf PORTB,3
- call tempo
-
- bsf PORTB,4
- call tempo
- bcf PORTB,4
- call tempo
-
- bsf PORTB,5
- call tempo
- bcf PORTB,5
- call tempo
-
- bsf PORTB,6
- call tempo
- bcf PORTB,6
- call tempo
-
- bsf PORTB,7
- call tempo
- bcf PORTB,7
- call tempo
-
-
-
-
- goto program ; retour au program
-
- ;;;;;;;;;;;;;;;;;;;;; sous-programme ;;;;;;;;;;;;;;;;;;;;;;;
-
- tempo
-
- movlw d'150'
- movwf mv1
- movlw d'150'
- movwf mv2
-
-
-
- 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
-
-
- return
-
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- END ; fin du projet
-
-
;;;;;;;;;;;;;;;;;;;;;;;;text du 26/2/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'
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,0 ; bit RA0 à 1
call tempo ; appel un temps
bcf PORTA,0 ; bit RA0 à 0
call tempo ; appel un temps
bsf PORTA,1
call tempo
bcf PORTA,1
call tempo
bsf PORTA,2
call tempo
bcf PORTA,2
call tempo
bsf PORTA,3
call tempo
bcf PORTA,3
call tempo
bsf PORTB,0 ; bit RB0 à 1
call tempo ; appel un temps
bcf PORTB,0 ; bit RBO à 0
call tempo ; appel un temps
bsf PORTB,1
call tempo
bcf PORTB,1
call tempo
bsf PORTB,2
call tempo
bcf PORTB,2
call tempo
bsf PORTB,3
call tempo
bcf PORTB,3
call tempo
bsf PORTB,4
call tempo
bcf PORTB,4
call tempo
bsf PORTB,5
call tempo
bcf PORTB,5
call tempo
bsf PORTB,6
call tempo
bcf PORTB,6
call tempo
bsf PORTB,7
call tempo
bcf PORTB,7
call tempo
goto program ; retour au program
;;;;;;;;;;;;;;;;;;;;; sous-programme ;;;;;;;;;;;;;;;;;;;;;;;
tempo
movlw d'150'
movwf mv1
movlw d'150'
movwf mv2
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
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
TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PCTECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice
Speakers: Thierry Rapatout, Antoine Petit et Xavier Trebbia Cette session entre dans le cadre des RDV Décideurs des TechDays 2012, elle est liée à la consumérisation de l'IT et la mise en place du "DeskTop as a Service" dans de plus en ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLETECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice
Speakers: Julien Marechal, Gautier Confiant, Sébastien MEYER La session débute par le positionnement de la solution System Center par rapport aux concepts d'organisation ITIL. Le portail du catalogue de se...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOURTECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice
Après une première journée dédiée aux développeurs, cette seconde journée est dédiée au monde des entreprises et de ses applications. Ainsi, cette pleinière est dédiée à faire un 360 de l'évolution des applications Business aux demandes ac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVéTECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice
Speaker : Guillaume Rochette Cette session est dédiée à fournir le retour sur la mise en place d'un cloud privé (IaaS) par Osiatis pour son compte ou celui de ses clients. Ce projet s'est déroulé sur 4 mois et a permis de faire évoluer...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
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
|