Adapter un module à mon compteur décompteur

[dudulle76120]

Salut mag1,
J’aurai besoin svp d’un petit conseil, si c’est dans tes cordes bien entendu.

Voila j’ai retrouver un de mes premiers modules utilisant un LM3914 ou LM3915
et j’aurai bien voulu l’associer au compteur décompteur.

Je m’explique, je souhaiterai lorsque la première led du LM3914 s’allume que l’affichage
affiche (1), quand la led 2 s’allume que l’affichage soit sur (2) et ainsi de suite jusqu'à afficher 10 puisque il y a 10 leds sur LM

Et de faire décompter lorsque j’éteinds les leds vers la descente

But : que l’affichage suive la position a la descente ou la montée des leds

J’ai chercher comment faire mais je n’ai pas trouver de solution, je pense que c’est faisable du moins je l’espère bien.

Je te joint un schéma pour plus de compréhension .

Ce n'ai pas presser t'inquiète pas.



Cdlt Ray
-----

[mag1]

Ce n'ai pas presser t'inquiète pas.

Helo,
Je suis pas inquiet...
Je vois pas l’intérêt de passer par le LM3915, un ADC fera très bien le travail.
On peut combiner les fonctions avec un Inter, version HP fermé, version poussoirs ouvert
Un schéma:
Il n'y a pas de protection de surtension sur l'ADC, mais avec une R de 47k, le courant restera faible et la diode de clamp fera son travail (à voir)



MM

[dudulle76120]

Re mag1,

Merci pour ta réponse,

--- je n'ai pas tout compris ADC c'est quoi ???

On peut combiner les fonctions avec un Inter, version HP fermé, version poussoirs ouvert

--- pas compris ???

--- la diode de clamp fera son travail, la pareil comprends pas ???

Jamais entendu parler de ces mots et encore moins de leurs significations

Je préfère te dire la vérité que de te dire que je sais alors qu'il n'en n'ai rien

ton schéma est simple et je pense qu'il faudra modifier le code du module compte /décompte

Si tu veux bien éclairer ma lanterne car pas compris comment tu va faire pour allumer les leds


bonne fin d'après midi a toi

Cdlt Ray

[mag1]

On reprend:
Le HP donne un signal alternatif (son). Le circuit diode, condo, résistance moyenne le signal HP . On a en sortie un valeur proportionnelle à l'amplitude moyenne du signal HP. C'est un indicateur de niveau.(Vu mètre)
L'ADC est un convertisseur Analogique => digital : Il lit une valeur de 0 à 5V sur la broche C.7 du 20M2 et le transforme en un nombre de 0 à 255 (ramené de 0 à 99 pour l'affichage). Cela n'a rien à voir avec la fonction précédente compteur- décompteur.
On peut avec un interrupteur (voir schéma) passer d'une fonction à l'autre, avec des codes différents.

Normalement, il faut veiller à ce que la tension fournie sur la broche ADC reste inférieure à la tension alim de 5V. Par sécurité, il y a des diodes de protections dites "diodes de clamp" (une vers le +Vcc et une vers le 0V) qui empêchent que cette tension passe au dessus de Vcc ou en dessous de 0V. Il faut que les courants restent faibles, inf au courant max des diodes. C'est le cas avec une R série de 47k.
Pour info, c'était le rôle de la R de 22k du circuit de programmation, au temps où la norme RS232 avait des tensions de 12V et plus, la R de 22k est restée.

Un petit code à tester?

; compteur - décompteur 2 digits 20M2 MM 11/10/23
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6
	setint OR %0 ,%1110
	cpt=0
	gosub calpins	
pous:
	cpt=0
	do 
		if inter= 0 then HP	;bascule HP/pous
	loop

affich:	
		pinsB=affdiz
		high C.4		
		pause 10	;5ms/4	
		low C.4
		pinsB=affunit
		high C.5
		pause 10
		low C.5
	return
	
calpins:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	return
	
HP:
	do
		if inter=1 then pous
		readadc inHP,varHP ;varHP de 0 à 255
		cpt=99 * varHP/255
		gosub calpins
		gosub affich
	loop
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calpins		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calpins
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calpins
	endif
	setint OR %0,%1110
	return

MM

[A voir en vidéo sur Futura]

[dudulle76120]

Re mag1

Merci pour tes infos,

Le LM sur mon schéma c'est juste pour modèle, et il ni y a pas de SONS

juste je joue sur un potar pour faire varier les leds et je souhaiterai

EX si la Led 6 est allumée alors l'affichage indique 6 etc etc

selon la led allumée que ca corresponde a la led allumée

Led 8 allumée alors digit indique 8

Led 10 allumée les deux digits indique (10)

Désoler si je me suis mal exprimé

Bonne soirée a toi et merci

Cdlt Ray

[mag1]

Désoler si je me suis mal exprimé

Un peu...
Quelle est la tension du potar qui allume la dernière led ?
MM

[dudulle76120]

Re mag1

Bon, je refais un petit montage avec un LM3914 ca va aller vite, très de composant et le montage sera plus près de ce que je souhaite

Demain matin je mis colle et t'envoie le résultat.

Bonne soirée a toi et merci.

Cdlt Ray

[dudulle76120]

Salut mag1,

Merci de ta patience mais comme ca au moins j'ai les bons composants.

Donc sous 4.80 Volts les 10 leds vertes allumées, la tension au curseur de 10KΩ est de 1.35 Volts

Led 10 allumée seule tension au curseur 1.33 Volts

A savoir que je passerai peut être a 12 volts pour le LM3914 et bien sur 5 Volts le 20M2

si tu veux je mets le schéma que j'ai fait du LM ?????

bonne app vu l'heure et bonne journée a toi

Cdlt Ray

[mag1]

Bonjour,
Je ne sais pas ce que tu fais avec tes leds.
Tu dis les 10 leds sont allumées avec une tension de 1,35V Ok
Je propose de relier ce curseur à une entrée du 20M2, et tu auras une valeur affichée de 0 à 10 avec une tension variable de 0 à 1,35V
Et tu pourras voir les leds et l'affichage en même temps.
Ok, ou pas ?...
MM

[dudulle76120]

Re mag1

Merci pour ta réponse,

Je propose de relier ce curseur à une entrée du 20M2, et tu auras une valeur affichée de 0 à 10 avec une tension variable de 0 à 1,35V
Et tu pourras voir les leds et l'affichage en même temps.

Ok pour ce que tu me proposes.

Juste pour info le driver pour l'USB est toujours présent dans Pixcase 6, bien content de ne plus m'embêter avec ca.


Bonne après midi a toi et merci

Cdlt Ray

[mag1]

Ok pour ce que tu me proposes.

Je ne sais pas exactement comment est géré ce potar donnant 1.35V , j'ai ajouté une protection Zener 4V7. Tu l'enlèves si inutile et si il n'y a pas de risque d'envoyer plus de 5V sur C.7.

le code:
l'inter fait basculer entre les deux usages possibles:
Inter fermé: on lit la valeur du potar sur C.7
Inter ouvert: on a un compteur décompteur avec les poussoirs (comme avant)

; compteur - décompteur 2 digits 20M2 MM 11/10/23
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6
	setint OR %0 ,%1110
	cpt=0
	gosub calpins	
pous:
	cpt=0
	do 
		if inter= 0 then HP	;bascule HP/pous
	loop

affich:	
		pinsB=affdiz
		high C.4		
		pause 10	;5ms/4	
		low C.4
		pinsB=affunit
		high C.5
		pause 10
		low C.5
	return
	
calpins:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	return
	
HP:
	do
		if inter=1 then pous		;bascule HP/pous
		readadc inHP,varHP ;varHP de 0 à 255
		;1,35V => 255/5*1,35 = 69
		cpt=10 * varHP/69
		gosub calpins
		gosub affich
	loop
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calpins		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calpins
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calpins
	endif
	setint OR %0,%1110
	return

A essayer
MM

[dudulle76120]

Re mag1

Merci bien pour le code et la modification, je vais essayer dès que possible.

Par contre, je ne vois plus le "Reset" que tu avais mis, c'était pratique, si on peux remettre svp

te tien au courant pour les essais, merci

Cdlt Ray

[dudulle76120]

Re mag1

Pour les essais sous 5 volts des deux modules LM3914 et compteur ca ne fonctionne

J'ai bien vérifier mais le cablage est et ta modification simple a faire

j'ai mis ton nouveau programme dans le 20M2 pas de soucis

et mise sous tension 5 volts le LM fonctionne mais plus d'affichage des deux afficheurs qui sont éteinds tous les deux

je t'envoi les schémas qui peuvent aidés.

Bonne soirée a toi et merci

Cdlt Ray

[mag1]

J'ai dû prendre un ancien schéma, le reset est toujours là, mais pas dessiné.
J'ai ajouté une ligne, il doit y avoir au moins un 0 affiché à la mise sous tension.
Rien d'autre de modifié, le compteur- dec doit fonctionner

; compteur - décompteur 2 digits 20M2 MM 11/10/23
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6
	setint OR %0 ,%1110
	cpt=0
	gosub calpins
	gosub affich
pous:
	cpt=0
	do 
		if inter= 0 then HP	;bascule HP/pous
	loop

affich:	
		pinsB=affdiz
		high C.4		
		pause 10	;5ms/4	
		low C.4
		pinsB=affunit
		high C.5
		pause 10
		low C.5
	return
	
calpins:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	return
	
HP:
	do
		if inter=1 then pous		;bascule HP/pous
		readadc inHP,varHP ;varHP de 0 à 255
		;1,35V => 255/5*1,35 = 69
		cpt=10 * varHP/69
		gosub calpins
		gosub affich
	loop
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calpins		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calpins
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calpins
	endif
	setint OR %0,%1110
	return

MM

[dudulle76120]

Salut mag1

Merci pour le code,

Bon j'ai injecter le code et l'affichage m'indique 32

j'ai vérifier zéner et résistance et l'interr c'est ok

je fait varier le potar la tension varie bien de l'allumage de la première led a la dernière led
pour atteindre 1.57 Volts toutes les leds allumées sur la led 10

l'affichage reste bloquer a 32
si je coupe l'interr l'affichage s'éteins
si je re connecte l'interr l'affichage se remets a 32

Voila pour l'instant

Bonne journée a toi

Cdlt Ray

[mag1]

Bonjour,
Je ne vois aucune raison pour que l'affichage reste bloqué sur 32.
La tension lue sur la broche C.7 varie t elle de 0 à 1,57 (je croyais que c'était 1,35?).
Oui ou non ?
MM

[dudulle76120]

Salut mag1

Merci pour ta réponse

Bon j'ai enlever la zéner de 4.7 volts et la ca fonctionne presque bien

laisser la résistance de 1 KΩ comme sur le schéma

Sur la pin 5 direct (input) je vois sur mon contrôleur une très faible tension 0.02 ou 0.01

Mais l'affichage s'allume bien en même que les leds mais

Petit décalage quand l'affichage indique 9 la led 8 est déjà éteinte est ainsi de suite

de plus l'afficheur de droite clignote un peu

quand j'ouvre l'interr pour revenir au compteur/décompteur seul, ca ne fonctionne plus et les afficheurs s'éteignent tout les deux.

quand je referme l'interr pour revenir sur vumètre LM et décompteur ca refonctionne

PS pour la tension ca varie légèrement, l'alimentation est en 5 volts brancher sur un port USB

Bonne journée a toi et merci

Cdlt Ray

[dudulle76120]

Re mag1

Autant pour moi erreur avec mon contrôleur gourer de position

Sur la pin 5 direct (input) je vois sur mon contrôleur une tension de zéro a 1.46 volts toutes les leds allumées
varie un peu en fonction de l'alimentation

Desoler pour cette erreur

Cdlt Ray

[mag1]

Je ne sais pas où est la pin 5. Ce qui m'intéresse, c'est la tension lue sur la broche C.7 du µC. C'est peut être la même...
Il peut y avoir un ajustement sur la mise à l'échelle sur la ligne cpt=10*varHP/XXX. En fonction de la valeur lue, XXX est différent:
cpt=10*varHP/XXX => valeurs de XXX
;1,35V => 255/5*1,35 = 69
;1,57V => 255/5*1.55 = 80
;1,46V => 255/5*1.46 = 74

Pour la bascule, le compteur fonctionne, mais pour voir quelque chose, il fallait appuyer sur un poussoir. C'est corrigé, le compteur indiquera "0" en cas de basculement de fonction.
Pour le décalage d'affichage, la mise à l'échelle est la correspondance tension lue- valeur affichée.
Ci dessus, le tableau entre tension lue et valeur affichée. J'ai pris la dernière valeur de 1,46V (après 1,35 et 1,55).
Tu pourras ajuster toi même si il le faut .
code rectifié:

; compteur - décompteur 2 digits 20M2 MM 11/10/23
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6
	setint OR %0 ,%1110
	cpt=0
	gosub calpins
	gosub affich
pous:
	cpt=0
	gosub calpins
	gosub affich
	do 
		if inter= 0 then HP	;bascule HP/pous
	loop

affich:	
		pinsB=affdiz
		high C.4		
		pause 10	;5ms/4	
		low C.4
		pinsB=affunit
		high C.5
		pause 10
		low C.5
	return
	
calpins:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	return
	
HP:
	do
		if inter=1 then pous		;bascule HP/pous
		readadc inHP,varHP ;varHP de 0 à 255
		cpt=10*varHP/74
		;1,35V => 255/5*1,35 = 69
		;1,57V => 255/5*1.55 = 80
		;1,46V => 255/5*1.46 = 74
		gosub calpins
		gosub affich
	loop
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calpins		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calpins
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calpins
	endif
	setint OR %0,%1110
	return

MM

[dudulle76120]

Re mag1

Merci pour le code que j'ai essayer

Alors ca fonctionne bien pour la partie Vumètre avec compteur décompteur avec tension stable.


Pour la bascule, le compteur fonctionne, mais pour voir quelque chose, il fallait appuyer sur un poussoir. C'est corrigé, le compteur indiquera "0" en cas de basculement de fonction.

Par contre pour le retour a la normale compteur décompteur ne fonctionne pas

Quand l'interr est moins de l'alimentation vumètre et compteur/décompteur fonctionne bien

Mais quand que je coupe l'interr les deux afficheurs s'éteignent

Dès que je remets l'interr l'afficheur indique la dernière valeur

j'ai fait fait bien l'appui sur les touches compte décompte et reset mais marche pas

Voila les résultats pour cet essai.

Cdlt Ray

[mag1]

Par contre pour le retour a la normale compteur décompteur ne fonctionne pas

Cette fois ci, c'est de ma faute, j'ai repris un code qui n'était pas à jour, d'où des gosub oubliés.
J'ai regroupé les sub calcul et affichage qui se suivaient en une seule sub .
Nouveau code rectifié, cette fois j'espère, correctement

; compteur - décompteur 2 digits 20M2 MM 13/10/23
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6
	setint OR %0 ,%1110
	cpt=0
	gosub calfich
pous:
	cpt=0
	gosub calfich
	do 
		if inter= 0 then HP	;bascule HP/pous
	loop
	
calfich:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	pinsB=affdiz
		high C.4		
		pause 10	;5ms/4	
		low C.4
		pinsB=affunit
		high C.5
		pause 10
		low C.5
	return
	
HP:
	do
		if inter=1 then pous		;bascule HP/pous
		readadc inHP,varHP ;varHP de 0 à 255
		cpt=10*varHP/80
		;1,35V => 255/5*1,35 = 69
		;1,57V => 255/5*1.55 = 80
		;1,46V => 255/5*1.46 = 74
		gosub calfich		
	loop
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calfich		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calfich			
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calfich		
	endif
	setint OR %0,%1110
	return

MM

[mag1]

Encore une amélioration possible.
Les poussoirs restent actifs même en fonction voltmètre, et donc, les deux programmes se marchent sur les pieds.
Voici une version où les poussoirs sont déactivés en voltmètre et activés en compteur

; compteur - décompteur 2 digits 20M2 MM 13/10/23
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6	
	cpt=0
	gosub calfich
pous:
	setint OR %0 ,%1110
	cpt=0
	gosub calfich
	do 
		if inter= 0 then HP	;bascule HP/pous
	loop
	
calfich:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	pinsB=affdiz
		high C.4		
		pause 10	;5ms/4	
		low C.4
		pinsB=affunit
		high C.5
		pause 10
		low C.5
	return
	
HP:
	setint off
	do
		if inter=1 then pous		;bascule HP/pous
		readadc inHP,varHP ;varHP de 0 à 255
		cpt=10*varHP/80
		;1,35V => 255/5*1,35 = 69
		;1,57V => 255/5*1.55 = 80
		;1,46V => 255/5*1.46 = 74
		gosub calfich		
	loop
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calfich		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calfich			
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calfich		
	endif
	setint OR %0,%1110
	return

MM

[dudulle76120]

Re mag1

Merci pour cette nouvelle version

J'ai essayer mais ca fonctionne pas

en version vumètre avec compteur ca marche bien

quand je coupe l'interr les afficheurs s'éteignent et du coup marche plus en compteur décompteur seul
et quand j'appuie sur un des 3 boutons l'afficheur l'allume très très brièvement puis reste éteins pas le
temps de lire


Bonne après midi a toi

Cdlt Ray

[mag1]

Merci pour cette nouvelle version

Y a pas de quoi, elle était foireuse.
Tu vas voir qu'à force de faire n'importe quoi, je fais finir par y arriver.
Fallait pas supprimer l'affichage du compteur.

; compteur - décompteur  volt 2 digits 20M2 MM 13/10/23 /2
;avec calpins
; et Vu mètre
#picaxe 20M2
#no_data
;pouss + C.1
;pouss - C.2
;pous reset C.3
;cathodes digit dizaines sur C.4
;cathodes digit unités sur C.5

dirsB=%1111111		;7 segments B.0 à B.6
symbol cpt=b1
symbol unit=b2
symbol diz=b3
symbol affdiz=b4
symbol affunit=b5
symbol varHP=b6
symbol inHP=C.7
symbol inter=pinC.6
	setfreq M16
	pullup %100111000000000	;pullup sur C.1, C.2,C.3et C.6	
	cpt=0
	gosub calpins
	gosub affich
pous:
	setint OR %0 ,%1110
	cpt=0
	gosub calpins
	gosub affich
	do 
		if inter= 0 then HP	;bascule HP/pous
		gosub affich
	loop

affich:	
	pinsB=affdiz
	high C.4		
	pause 10	;10/4 à 16MHz
	low C.4
	pinsB=affunit
	high C.5
	pause 10
	low C.5
	return
	
calpins:
	diz=cpt/10
		if diz=0 then
			diz=10	;affiche blanc
		endif
	lookup diz,(63,6,91,79,102,109,125,7,127,111,0),affdiz
	unit=cpt//10	; de 0 à 9
	lookup unit,(63,6,91,79,102,109,125,7,127,111,0),affunit
	return
	
HP:	
	setint off
	do
		if inter=1 then pous		;bascule HP/pous
		readadc inHP,varHP ;varHP de 0 à 255
		cpt=10*varHP/74
		;1,35V => 255/5*1,35 = 69
		;1,57V => 255/5*1.55 = 80
		;1,46V => 255/5*1.46 = 74
		gosub calpins
		gosub affich
	loop	
	
interrupt:
	pause 50
	if pinC.1=0 then 
		do loop while pinC.1=0 
		inc cpt
		gosub calpins		
	endif
	if pinC.2=0 then
		do loop while pinC.2=0
		if cpt>0 then 
			dec cpt
			gosub calpins
		endif
	endif
	if pinC.3=0 then
		do loop while pinC.3=0
		cpt=0
		gosub calpins
	endif
	setint OR %0,%1110
	return

On croise les doigts...
MM

[dudulle76120]

Re mag1

Hé baht voila quand tu veux merci a toi.

Bon cette fois tout est ok et fonctionne comme souhaiter

quand je bascule l'interr l'affichage passe bien a zéro et vive versa nickel

tout les soucis évoquer précédemment sont résolus a toi

fichier sauvegarder, driver USB toujours nickel

tu va pouvoir reposer tes neurones lol

Je te souhaite une bonne soirée et une bonne continuation et un bon w-end

Encore un grand merci pour ton aide.

Bien cordialement a toi

Heu a bientôt