Jette un œil sur cette page de mon site, ça ressemble à ce que tu cherches.
Si c'est un résistance pullup, on peut ajouter une pullup interne qui évite une R extérieure
Bonjour,
On peut partir sur des afficheurs WP1425 ( driver TM1637 )
www.velleman.eu
On fait quoi avec les poussoirs. on appuie 1500 fois ? Ou on affiche en minutes et secondes et on convertit ? Mais la résolution de 1/10 de s disparait...C'est un réglage en mn et s en réalité, et un affichage en 1/10 s.....
Bonjour,
; décompteur 1/10s MM 240526
; réglage par poussoirs +/-
;pour temps=9990 10ème s => tmax=16 mn 39s
;intro temps en mn et s
#picaxe 20X2
setfreq M16
symbol flag=bit0
symbol dio=C.1
symbol clk=C.2
symbol memo=pinC.4
symbol plus1=pinC.5
symbol moin1=pinC.6
symbol topdep=pinC.7
symbol orange=B.0
symbol rouge=B.1
symbol verte=B.2
symbol minut=b1
symbol second=b2
symbol nombre=b3
symbol digit=b4
symbol octet=b5
symbol j=b6 ;position point décimal
symbol i=b7 ;compteur
symbol chiffre=b8
symbol dp=b9
symbol point=b10
symbol div=w13
symbol adrdep=w12
dp=$80
Pullup %1110000000000000 ;pullup sur C;5,C.6,C.7
do ;boucle principale
read 0,minut,second ;lecture temps en EEPROM
;gosub affich ;affichage temps
if memo=0 then
gosub introtemp ;si plus1 et moins appuyés
endif
gosub decompte
loop
decompte:
point=3 ;point décimal à droite
settimer 59385 ;1/10 s à 16MHs
nombre= 60*minut + second
gosub affich
do loop while topdep=1 ;attente top
do
nombre=nombre-timer
if timer < 50 and flag=0 then ;5 secondes avant la fin
high orange
flag=1
endif
;gosub affich
loop while nombre >0
high rouge ;on est à 0
high verte
settimer t1s_16
do loop while timer <= 10
reset ;RAZ
introtemp: ;sub intro nouveau temps
;********** intro minutes *******
settimer t1s_16 ;1s à 16MHs
div=10 ;pour affichage 2 chiffres
point=2 ;point décimal au centre
do
timer=0 ;code plus
if plus1=0 then
minut =minut+1 max 16
if timer>1 then
do
minut=minut+1
pause 2000 ;500ms à 16MHz
loop while plus1=0
endif
nombre=minut
digit=1 ;départ sur digit1
;gosub affich
endif
timer=0 ;code moins
if moin1=0 then
minut =minut-1 min 0
if timer>1 then
do
minut=minut-1
pause 2000 ;500ms à 16MHz
loop while moin1=0
endif
nombre=minut
digit=1 ;départ sur digit1
;gosub affich
endif
if memo=0 then exit
loop
;******** intro secondes **************
do loop while memo=0 ;attente relachement
div=1000
do
timer=0 ;code plus
if plus1=0 then
second=second+1 max 16
if timer>1 then
do
second=second+1
pause 2000 ;500ms à 16MHz
loop while plus1=0
endif
nombre=second
digit=1 ;départ sur digit1
;gosub affich
endif
timer=0
if moin1=0 then
second =second-1 min 0
if timer>1 then
do
second=second-1
pause 2000 ;500ms à 16MHz
loop while moin1=0
endif
nombre=second
digit=1 ;départ sur digit1
;gosub affich
endif
If memo =0 then exit
loop
write 0,minut,second ;mise en mémoire EEPROM
do loop while memo=0
return
affich:
high clk : high dio : low dio ;bal start
Octet=adrdep ;synchro adresse départ
gosub EnvoiOctet
for j=1 to 4
Chiffre=Nombre/Div
gosub DecTo7seg
if j=point then
octet=octet | dp ;ajout points centraux
endif
gosub EnvoiOctet
Nombre=Nombre//Div
Div=Div/10
next j
low clk: low dio: high clk: high dio ;bal stop
return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
EnvoiOctet: ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
for i=1 to 8 ; envoi
low clk
if bit0=1 then high dio else low dio endif ;positionnement DIO
Octet = Octet/2 ;effacement du bit lu, bit1 devient bit0
high clk
next i
low clk :high clk: low clk ; balise ACK
return
;****** Conversion des chiffres en segments
DecTo7seg:
lookup Chiffre,($3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f), Octet ; 0-9 uniquement
returnBonjour
; chronomètre 1/10s MM 010626
; réglage par poussoirs +/-
;pour temps=9990 10ème s => tmax=16 mn 39s
;intro temps en mn et s
;les poussoirs sont sur le 0V, pullup internes
#picaxe 20X2
setfreq M16
symbol flag=bit0
symbol dio=C.1 ;sur TM1637
symbol clk=C.2 ;idem
symbol memo=pinC.4 ;poussoir MEM
symbol plus1=pinC.5
symbol moin1=pinC.6
symbol topdep=pinC.7
symbol orange=B.0
symbol rouge=B.1
symbol verte=B.2
symbol minut=b1
symbol second=b2
symbol nombre=b3
symbol digit=b4
symbol octet=b5
symbol j=b6 ;position point décimal
symbol i=b7 ;compteur
symbol chiffre=b8
symbol dp=b9
symbol point=b10
symbol div=w13
symbol adrdep=w12
dp=$80
Pullup %1111000000000000 ;pullup sur C.4 ,C.5,C.6,C.7
do ;boucle principale
read 0,minut,second ;lecture temps en EEPROM
gosub affich ;affichage temps
if memo=0 then
gosub introtemp ;si plus1 et moins appuyés
endif
gosub decompte
loop
decompte:
point=3 ;point décimal à droite
settimer 59385 ;1/10 s à 16MHs
nombre= 60*minut + second
gosub affich
do loop while topdep=1 ;attente top
do
nombre=nombre-timer
if timer < 50 and flag=0 then ;5 secondes avant la fin
high orange
flag=1
endif
gosub affich
loop while nombre >0
high rouge ;on est à 0
high verte
settimer t1s_16
do loop while timer <= 10
reset ;RAZ
introtemp: ;sub intro nouveau temps
;********** intro minutes *******
do loop while memo=0
settimer t1s_16 ;1s à 16MHs
point=2 ;point décimal au centre
do
timer=0 ;code plus
if plus1=0 then
minut =minut+1 max 16
if timer>1 then
do
minut=minut+1
pause 2000 ;500ms à 16MHz
nombre=minute *100 ;
gosub affich ;affichage nombre
loop while plus1=0 ;on boucle si appuié
endif
nombre=minut
digit=1 ;départ sur digit n°1
gosub affich
endif
timer=0 ;code moins
if moin1=0 then
minut =minut-1 min 0
if timer>1 then
do
minut=minut-1
pause 2000 ;500ms à 16MHz
nombre=minute*100
gosub affich
loop while moin1=0
endif
nombre=minut
digit=1 ;départ sur digit1
gosub affich
endif
if memo=0 then exit
loop
;******** intro secondes **************
do loop while memo=0 ;attente relachement
do
timer=0 ;code plus
if plus1=0 then
second=second+1 max 16
if timer>1 then
do
second=second+1
pause 2000 ;500ms à 16MHz
nombre=minute *100 + seconde ;on réécrit le total
gosub affich ;;on réécrit le total sur 4 digits
loop while plus1=0
endif
nombre=minute *100 + second
digit=1 ;départ sur digit1
gosub affich
endif
timer=0
if moin1=0 then
second =second-1 min 0
if timer>1 then
do
second=second-1
pause 2000 ;500ms à 16MHz
nombre=minute *100 + seconde
gosub affich
loop while moin1=0
endif
nombre=minute *100 + second
digit=1 ;départ sur digit1
gosub affich
endif
If memo =0 then exit
loop
write 0,minut,second ;mise en mémoire EEPROM
do loop while memo=0
return
affich:
div=1000
high clk : high dio : low dio ;bal start
Octet=adrdep ;synchro adresse départ
gosub EnvoiOctet
for j=1 to 4
Chiffre=Nombre/Div
gosub DecTo7seg
if j=point then
octet=octet | dp ;ajout points centraux
endif
gosub EnvoiOctet
Nombre=Nombre//Div
Div=Div/10
next j
low clk: low dio: high clk: high dio ;bal stop
return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
EnvoiOctet: ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
for i=1 to 8 ; envoi
low clk
if bit0=1 then high dio else low dio endif ;positionnement DIO
Octet = Octet/2 ;effacement du bit lu, bit1 devient bit0
high clk
next i
low clk :high clk: low clk ; balise ACK
return
;****** Conversion des chiffres en segments
DecTo7seg:
lookup Chiffre,($3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f), Octet ; 0-9 uniquement
return; chronomètre 1/10s MM 030626
; réglage par poussoirs +/-
;pour temps=9990 10ème s => tmax=16 mn 39s
;intro temps en mn et s
;les poussoirs sont sur le 0V,
;Broches avec pullup sur 20X2 : bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
#picaxe 20X2
setfreq M16
symbol dio=C.1 ;sur TM1637
symbol clk=C.2 ;idem
symbol mem=pinC.0 ;poussoir MEM
symbol plus1=pinC.6
symbol moin1=pinC.7
symbol topdep=pinB.7
symbol orange=B.0 ;led
symbol rouge=B.1
symbol verte=B.2
symbol octet=b0 ;octet doit être en b0; le bit0 est utulisé
symbol minut=b1
symbol second=b2
;symbol digit=b4
symbol j=b6 ;position point décimal
symbol i=b7 ;compteur
symbol chiffre=b8
symbol dp=b9
symbol point=b10
symbol div=w12
symbol nombre=w13
symbol nbre=w14
symbol Ttot=w15
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)
dp=$80
;pullup sur 20X2 bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
pullup %10000111 ;sur C.0,C.6,C.7,B.7
; ***** init TM1637
high clk : high dio : low dio ;bal start
Octet=RegLum ;Réglage luminosité
gosub EnvoiOctet
low clk: low dio: high clk: high dio ;bal stop
low rouge,verte,orange
read 0,minut,second ;lecture temps en EEPROM
if minut=0 and second=0 then ;la mémoire est vide
point=2
minut=8
second=29
gosub introtemp
endif
nombre=minut * 100 + second
div=1000 : gosub affich
;********decompte *******
do
do ;****** boucle attente départ ou intro temps ******
if mem=0 then gosub introtemp
point=3
nombre=minut*60+second *10 ;temps en 1/10 de s
div= 1000 :gosub affich
loop while topdep=1 ;attente top
settimer 59385 ;1/10 s à 16MHs
timer=0
Ttot=nombre
high rouge
do
nombre=Ttot -timer
if nombre < 50 then ;5 secondes avant la fin
high orange
endif
div=1000 :gosub affich
loop while nombre<>0
high verte:low orange,rouge
timer=0
do loop while timer <= 100
low rouge,verte,orange
nombre=60*minut+ second *10
div=1000: gosub affich
loop
introtemp: ;sub intro nouveau temps
;********** intro minutes *******
do loop while mem=0
settimer t1s_16 ;1s à 16MHs
point=2 ;point décimal au centre
do
nombre=minut
div=10:gosub affich
;code plus
timer=0
if plus1=0 then
minut =minut+1 max 16
do while plus1=0
if timer >1 then
minut =minut+1 max 16
nombre=minut
div=10:gosub affich
pause 500
endif
loop
nombre=minut
div=10 :gosub affich
endif
; code moins
if moin1=0 then
minut =minut-1 min 0
do while moin1=0
if timer >1 then
dec minut
if minut > 16 then: minut=0 : endif
nombre=minut
div=10:gosub affich
pause 500
endif
loop
nombre=minut
div=10 :gosub affich
endif
if mem=0 then exit
loop
;******** intro secondes **************
do loop while mem=0
high orange:pause 500:low orange
do
nombre=minut*100 +second
div=1000 :gosub affich
;code plus
timer=0
if plus1=0 then
second =second+1 max 59
do while plus1=0
if timer >1 then
second =second+1 max 59
nombre=minut*100 +second
div=1000:gosub affich
pause 500
endif
loop
nombre=minut*100+ second
div=1000 :gosub affich
endif
; code moins
if moin1=0 then
second =second-1 min 0
do while moin1=0
if timer >1 then
second =second-1
if second>59 then: second=0 :endif
nombre=minut*100+ second
div=1000:gosub affich
pause 500
endif
loop
nombre=minut*100 +second
div=1000 :gosub affich
endif
if mem=0 then exit
loop
do loop while mem=0
write 0,minut,second ;mise en EEPROM
high orange, rouge :pause 500:low orange, rouge:pause 500
high orange, rouge :pause 500:low orange, rouge:pause 500
return
affich:
high clk : high dio : low dio ;bal start
Octet=adrdep ;synchro adresse départ
gosub EnvoiOctet
Nbre=Nombre
for j=1 to 4
Chiffre=Nbre/Div
gosub DecTo7seg
if j=point then ;choix affichage point
octet=octet | dp ;ajout points centraux
endif
gosub EnvoiOctet
Nbre=Nbre//Div
Div=Div/10
next j
low clk: low dio: high clk: high dio ;bal stop
return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
EnvoiOctet: ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
for i=1 to 8 ; envoi
low clk
if bit0=1 then high dio else low dio endif ;positionnement DIO
Octet = Octet/2 ;effacement du bit lu, bit1 devient bit0
high clk
next i
low clk :high clk: low clk ; balise ACK
return
;****** Conversion des chiffres en segments
DecTo7seg:
lookup Chiffre,($3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f), Octet ; 0-9 uniquement
return; chronomètre 1/10s MM 030626
; réglage par poussoirs +/-
;pour temps=9990 10ème s => tmax=16 mn 39s
;intro temps en mn et s
;les poussoirs sont sur le 0V,
;Broches avec pullup sur 20X2 : bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
#picaxe 20X2
setfreq M16
symbol dio=C.1 ;sur TM1637
symbol clk=C.2 ;idem
symbol mem=pinC.0 ;poussoir MEM
symbol plus1=pinC.6
symbol moin1=pinC.7
symbol topdep=pinB.7
symbol orange=B.0 ;led
symbol rouge=B.1
symbol verte=B.2
symbol octet=b0 ;octet doit être en b0; le bit0 est utulisé
symbol minut=b1
symbol second=b2
;symbol digit=b4
symbol j=b6 ;position point décimal
symbol i=b7 ;compteur
symbol chiffre=b8
symbol dp=b9
symbol point=b10
symbol div=w12
symbol nombre=w13
symbol nbre=w14
symbol Ttot=w15
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)
dp=$80
;pullup sur 20X2 bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
pullup %10000111 ;sur C.0,C.6,C.7,B.7
; ***** init TM1637
high clk : high dio : low dio ;bal start
Octet=RegLum ;Réglage luminosité
gosub EnvoiOctet
low clk: low dio: high clk: high dio ;bal stop
low rouge,verte,orange
read 0,minut,second ;lecture temps en EEPROM
if minut=0 and second=0 then ;la mémoire est vide
point=2
minut=8
second=29
gosub introtemp
endif
nombre=minut * 100 + second
div=1000 : gosub affich
;********decompte *******
do
do ;****** boucle attente départ ou intro temps ******
if mem=0 then gosub introtemp
point=3
nombre=minut*60+second *10 ;temps en 1/10 de s
div= 1000 :gosub affich
loop while topdep=1 ;attente top
settimer 59385 ;1/10 s à 16MHs
timer=0
Ttot=nombre
high rouge
do
nombre=Ttot -timer
if nombre < 50 then ;5 secondes avant la fin
high orange
endif
div=1000 :gosub affich
loop while nombre<>0
high verte:low orange,rouge
timer=0
do loop while timer <= 100
low rouge,verte,orange
nombre=60*minut+ second *10
div=1000: gosub affich
loop
introtemp: ;sub intro nouveau temps
;********** intro minutes *******
do loop while mem=0
settimer t1s_16 ;1s à 16MHs
point=2 ;point décimal au centre
do
nombre=minut
div=10:gosub affich
;code plus
timer=0
if plus1=0 then
minut =minut+1 max 16
do while plus1=0
if timer >1 then
minut =minut+1 max 16
nombre=minut
div=10:gosub affich
;pause 300
endif
loop
nombre=minut
div=10 :gosub affich
endif
; code moins
if moin1=0 then
minut =minut-1 min 0
do while moin1=0
if timer >1 then
dec minut
if minut > 16 then: minut=0 : endif
nombre=minut
div=10:gosub affich
;pause 300
endif
loop
nombre=minut
div=10 :gosub affich
endif
if mem=0 then exit
loop
;******** intro secondes **************
do loop while mem=0
high orange:pause 500:low orange
do
nombre=minut*100 +second
div=1000 :gosub affich
;code plus
timer=0
if plus1=0 then
second =second+1 max 59
do while plus1=0
if timer >1 then
second =second+1 max 59
nombre=minut*100 +second
div=1000:gosub affich
;pause 300
endif
loop
nombre=minut*100+ second
div=1000 :gosub affich
endif
; code moins
if moin1=0 then
second =second-1 min 0
do while moin1=0
if timer >1 then
second =second-1
if second>59 then: second=0 :endif
nombre=minut*100+ second
div=1000:gosub affich
;pause 300
endif
loop
nombre=minut*100 +second
div=1000 :gosub affich
endif
if mem=0 then exit
loop
do loop while mem=0
write 0,minut,second ;mise en EEPROM
high orange, rouge :pause 500:low orange, rouge:pause 500
high orange, rouge :pause 500:low orange, rouge:pause 500
return
affich:
high clk : high dio : low dio ;bal start
Octet=adrdep ;synchro adresse départ
gosub EnvoiOctet
Nbre=Nombre
for j=1 to 4
Chiffre=Nbre/Div
gosub DecTo7seg
if j=point then ;choix affichage point
octet=octet | dp
endif
gosub EnvoiOctet
Nbre=Nbre//Div
Div=Div/10
next j
low clk: low dio: high clk: high dio ;bal stop
return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
EnvoiOctet: ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
for i=1 to 8 ; envoi
low clk
if bit0=1 then high dio else low dio endif ;positionnement DIO
Octet = Octet/2 ;effacement du bit lu, bit1 devient bit0
high clk
next i
low clk :high clk: low clk ; balise ACK
return
;****** Conversion des chiffres en segments
DecTo7seg:
lookup Chiffre,($3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f), Octet ; 0-9 uniquement
return
); chronomètre 1/10s MM 050626
; réglage par poussoirs +/-
;pour temps=9990 10ème s => tmax=16 mn 39s
;intro temps en mn et s
;les poussoirs sont sur le 0V,
;Broches avec pullup sur 20X2 : bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
;****** MODE D'EMPLOI **********
;A la mise sous tension, mémoire vide, passage auto en mode programmation temps
;Mode Programmation du temps:
;Le point décimal est sur le digit 4 => valeur en secondes
;Appui sur plus1:
; appui court < 1s => incrémentation de 1
; appui long > 1s => défilement rapide
;Appui sur moin1:
; Idem en décrémentation
;Appui sur MEM => clignotement vert + rouge => mise en mémoire EEPROM
;passage en mode décomptage
;Mode décomptage.
;Le point décimal est sur le digit 3 => 1/10 de s sur digit 4 . Ex: 025.8 s
;Attente appui sur poussoir start => décompte du temps led rouge allumée.
;A t<5s => led orange allumée
;A t=00,0 s => R et O éteintes, verte allumée 10 s => retour valeur enregistrée.
;Arrêt possible par appui sur MEM à tout moment du décompte
;Attente appui sur start
#picaxe 20X2
setfreq M16
symbol dio=C.1 ;sur TM1637
symbol clk=C.2 ;idem
symbol mem=pinC.0 ;poussoir MEM
symbol plus1=pinC.6
symbol moin1=pinC.7
symbol start=pinB.7
symbol orange=B.0 ;led
symbol rouge=B.1
symbol verte=B.2
symbol octet=b0 ;octet doit être en b0; le bit0 est utilisé
symbol j=b6 ;position point décimal
symbol i=b7 ;compteur
symbol chiffre=b8
symbol dp=b9
symbol point=b10
symbol second=w11
symbol div=w12
symbol nombre=w13
symbol nbre=w14
symbol Ttot=w15
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)
dp=$80
;pullup sur 20X2 bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
pullup %10000111 ;sur C.0,C.6,C.7,B.7
; ***** init TM1637
high clk : high dio : low dio ;bal start
Octet=RegLum ;Réglage luminosité
gosub EnvoiOctet
low clk: low dio: high clk: high dio ;bal stop
low rouge,verte,orange
read 0,second ;lecture temps en EEPROM
if second=0 then ;la mémoire est vide
point=3
gosub introtemp
endif
nombre=second* 10
gosub affich
;********decompte *******
decompt:
do loop while mem=0 ;suite arret decompte
low rouge
do
do ;****** boucle attente départ ou intro temps ******
if mem=0 then gosub introtemp
point=3
nombre=second *10 ;temps en 1/10 de s
gosub affich
loop while start=1 ;attente top
settimer 59285 ;1/10 s à 16MHs 59285
timer=0
Ttot=nombre
high rouge
do
nombre=Ttot -timer
if nombre < 50 then ;5 secondes avant la fin
high orange
endif
if mem=0 then decompt
gosub affich
loop while nombre<>0
high verte:low orange,rouge
timer=0
do loop while timer <= 100
low rouge,verte,orange
nombre=second *10
gosub affich
loop
introtemp: ;sub intro nouveau temps
;********** intro secondes *******
do loop while mem=0
settimer t1s_16 ;1s à 16MHs
point=4
do
nombre=second
gosub affich
;***** code plus *****
timer=0
if plus1=0 then
second =second+1 max 999
do while plus1=0
if timer >1 then
second =second+1 max 999
nombre=second
gosub affich
endif
loop
nombre=second
gosub affich
endif
; code moins
if moin1=0 then
second =second-1 min 0
do while moin1=0
if timer >1 then
second =second-1
if second>999 then: second=0 :endif
nombre=second
gosub affich
endif
loop
nombre=second
gosub affich
endif
if mem=0 then exit
loop
do loop while mem=0
write 0,second ;mise en EEPROM
high orange, rouge :pause 500:low orange, rouge:pause 500
high orange, rouge :pause 500:low orange, rouge:pause 500
return
affich:
div=1000
high clk : high dio : low dio ;bal start
Octet=adrdep ;synchro adresse départ
gosub EnvoiOctet
Nbre=Nombre
for j=1 to 4
Chiffre=Nbre/Div
gosub DecTo7seg
if j=point then ;choix affichage point
octet=octet | dp ;ajout points centraux
endif
gosub EnvoiOctet;
Nbre=Nbre//Div
Div=Div/10
next j
low clk: low dio: high clk: high dio ;bal stop
return
rem
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
EnvoiOctet: ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
for i=1 to 8 ; envoi
low clk
if bit0=1 then high dio else low dio endif ;positionnement DIO
Octet = Octet/2 ;effacement du bit lu, bit1 devient bit0
high clk
next i
low clk :high clk: low clk ; balise ACK
return
; endrem
;****** Conversion des chiffres en segments
DecTo7seg:
lookup Chiffre,($3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f), Octet ; 0-9 uniquement
return
; chronomètre 1/10s MM 100626
; réglage par poussoirs +/-
;pour temps=9990 10ème s => tmax=16 mn 39s
;intro temps en mn et s
;les poussoirs sont sur le 0V,
;Broches avec pullup sur 20X2 : bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
;****** MODE D'EMPLOI **********
;A la mise sous tension, mémoire vide, passage auto en mode programmartion temps
;Mode Programmation du temps:
;Le point décimal est sur le digit 4 => valeur en secondes
;Appui sur plus1:
; appui court < 500ms => incrémentation de 1
; appui long > 500ms => défilemenrt rapide
;Appui sur moin1:
; Idem en décrémentation
;Appui sur MEM => clignotement vert + rouge => mise en mémoire EEPROM
;passage en mode décomptage
;Mode décomptage.
;Le point décimal est sur le digit 3 => 1/10 de s sur digit 4 . Ex: 025,8 s
;Attente appui sur poussoir start => décompte du temps led rouge allumée.
;A 5 s => led orange allumée
;A 00,0 s => R et O éteintes, verte allumée 10 s => retour valeur enregistrée.
;Arrêt possible par appui sur MEM à tout moment du décompte
;MEM => arrert décompte => retour start MEM => programmation MEM => mise en mémoire => start
;Attente appui sur start
#picaxe 20X2
setfreq M16
symbol dio=pinC.1 ;sur TM1637
symbol clk=pinC.2 ;idem
symbol mem=pinC.0 ;poussoir MEM
symbol plus1=pinC.6
symbol moin1=pinC.7
symbol start=pinB.7
symbol orange=B.0 ;led
symbol rouge=B.1
symbol verte=B.2
symbol octet=b0 ;octet doit être en b0; le bit0 est utilisé
symbol j=b6 ;position point décimal
symbol i=b7 ;compteur
symbol chiffre=b8
symbol dp=b9
symbol point=b10
symbol second=w11
symbol div=w12
symbol nombre=w13
symbol nbre=w14
symbol Ttot=w15
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)
dp=$80
;pullup sur 20X2 bit0-bit7 = C.0,C.6,C.7,B.0,B.1,B.5,B.6,B.7
pullup %10000111 ;sur C.0,C.6,C.7,B.7
dirsC=%110 ;pour utilisation pinsC
settimer 59285 ;1/10 s à 16MHs 59285
; ***** init TM1637 et temps EEPROM
clk=1 : dio=1 : dio=0 ;bal start
Octet=RegLum ;Réglage luminosité
gosub EnvoiOctet
clk=0: dio=0: clk=1: dio=1 ;bal stop
low rouge,verte,orange
read 0,second ;lecture temps en EEPROM
if second=0 then ;la mémoire est vide
point=3
gosub introtemp ;entrer une valeur en mémoire EEPROM
endif
nombre=second* 10
gosub affich
;********decompte *******
decompt:
do loop while mem=0 ;suite arret decompte
low rouge
do
do ;****** boucle attente départ ou intro temps ******
if mem=0 then gosub introtemp
point=3
nombre=second *10 ;temps en 1/10 de s
gosub affich
loop while start=1 ;attente top
settimer 59285 ;1/10 s à 16MHs 59285
timer=0
Ttot=nombre
high rouge
do
nombre=Ttot -timer
if nombre < 50 then ;5 secondes avant la fin
high orange
endif
if mem=0 then decompt
gosub affich
loop while nombre<>0
high verte:low orange,rouge
timer=0
do loop while timer <= 100
low rouge,verte,orange
nombre=second *10
gosub affich
loop
introtemp: ;sub intro nouveau temps
;********** intro secondes *******
do loop while mem=0
point=4 ;point décimal sur digit n°4
do
nombre=second
gosub affich
;***** code plus *****
timer=0
if plus1=0 then
second =second+1 max 999
do while plus1=0
if timer >5 then ;500ms défilement accéléré
second =second+1 max 999
nombre=second
gosub affich
endif
loop
nombre=second
gosub affich
endif
; code moins
if moin1=0 then
second =second-1 min 0
do while moin1=0
if timer >5 then
second =second-1
if second>999 then: second=0 :endif
nombre=second
gosub affich
endif
loop
nombre=second
gosub affich
endif
if mem=0 then exit ;fin de boucle intro secondes
loop
do loop while mem=0 ;attente relâchement poussoir
write 0,second ;mise en EEPROM
high orange, rouge :pause 500:low orange, rouge:pause 500
high orange, rouge :pause 500:low orange, rouge:pause 500
return
affich:
div=1000
clk=1 : dio=1 : dio=0 ;bal start
Octet=adrdep ;synchro adresse départ
gosub EnvoiOctet
Nbre=Nombre
for j=1 to 4
Chiffre=Nbre/Div
gosub DecTo7seg
if j=point then ;choix affichage point
octet=octet | dp ;ajout point décimal
endif
gosub EnvoiOctet;
Nbre=Nbre//Div
Div=Div/10
next j
clk=0: dio=0: clk=1: dio=1 ;bal stop
return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
EnvoiOctet: ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
for i=1 to 8 ; envoi
clk=0
dio=bit0
Octet = Octet/2 ;effacement du bit lu, bit1 devient bit0
clk=1
next i
clk=0 :clk=1: clk=0 ; balise ACK
return
;****** Conversion des chiffres en segments
DecTo7seg:
lookup Chiffre,($3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f), Octet ; 0-9 uniquement
returnBonjour