Affichage ventilateur PC

**Murayama** · 10/10/2022, 04h00

Bonjour!

Avant de sortir le fer à souder: est-ce que le but est d'afficher sur un PC ou bien
est-ce que c'est un ventilateur PC à utiliser pour autre chose. Si c'est pour un PC,
alors il y a des programmes sur Github qui permettent d'avoir accès à ces données.

Pascal

**dudulle76120** · 10/10/2022, 08h44

Salut mag1

Merci pour ta réponse,

Pour l'afficheur je vais comander la deuxième version pas beaucoup plus chère je devrai recevoir assez vite

Par contre pour le schéma ça donnerai quoi, je vais préparer ça sur une plaque a pastilles.

J'ai lu la notice de l'afficheur mais je t'avoue que je n'ai pas encore tout compris lol

Ça existe juste "anode" et en 0.36"" et rouge

PS: Il faut de l'Arduino ??? et de la programmation ???

Bonne journée à toi et merci

Cdlt Ray

**mag1** · 10/10/2022, 09h43

Envoyé par dudulle76120

PS: Il faut de l'Arduino ??? et de la programmation ???
Bonne journée à toi et merci
Cdlt Ray

Bonjour,
Pour le TM1637:
http://electromag1.wifeo.com/affiche...par-tm1637.php
Et plus généralement:
http://electromag1.wifeo.com/affiche...par-tm1637.php
Il y en a de toutes les couleurs, voir le premier lien chinois en #30.
Pour le µC, je ne pratique pas l'arduino, mais le picaxe, facile à programmer, il faut juste un convertisseur USB/série 3 euros, en France:
http://electromag1.wifeo.com/cordon-...ation-usb-.php
Le picaxe, un 08M2 devrait convenir: https://www.gotronic.fr/art-microcon...08m2-17190.htm
Le TM1637 n'utilise pas l'I2C, mais ça y ressemble.
Maintenant, possible de le faire avec un arduino, il y a toutes les librairies dispo, faut trouver l'arduiniste....

Le ventilo: Autant choisir un 12V 4 fils pour le commander en PWM . La doc du ventilo serait un plus: Combien de pulses par tours ? 2?
Si intéressé à la finalité du projet picaxe, je ferai un schéma complet,
Alim 12V , un ventilo, régulateur 7805, picaxe, TM1634, un potar, quelques résistances et 2 condos, et c'est à peu près tout.
MM

**antek** · 10/10/2022, 10h47

La norme (2015) dit pour les 4 fils 2 impulsions par tour.

**dudulle76120** · 10/10/2022, 10h57

Salut mag1

Merci pour ta réponse,

Pour la programmation sur picaxe je n'ai plus rien en matériel de plus, j'ai perdu le fil de la programmation sur picaxe.
J'ai refait une installation de Windows10 sur mon Pc qui me donnais quelques soucis, depuis tout refonctionne bien.

Donc je vais être obliger de laisser tomber a moins que le module commander chez Ali fonctionne, on verra bien, j'attends.

Bonne journée a toi

Cdlt Ray

**mag1** · 10/10/2022, 13h10

Envoyé par antek

La norme (2015) dit pour les 4 fils 2 impulsions par tour.

Merci antek, j'ai lu ça aussi. Cohérent avec l'essai que j'ai fait.
MM

**mag1** · 10/10/2022, 13h16

Envoyé par dudulle76120

Donc je vais être obliger de laisser tomber a moins que le module commander chez Ali fonctionne, on verra bien, j'attends.

De la motivation, il te faudra....
Quel module?
Si tu veux laisser tomber, suffit de le dire, il n'y a aucun problème.
MM

**dudulle76120** · 10/10/2022, 13h57

Salut mag1

Comme je n'ai plus de matos pour les picaxes, je vais attendre le module que tu m'a conseillé en#6

je me mets mode "attente"

merci pour ton aide, bonne après midi a toi.

Cdlt Ray

**mag1** · 10/10/2022, 14h21

Envoyé par dudulle76120

Comme je n'ai plus de matos pour les picaxes, je vais attendre le module que tu m'a conseillé en#6
je me mets mode "attente"
Cdlt Ray

Et tu fait varier la vitesse avec quoi ?
Si c'est avec l'alim, le pulse qui arrive dans le "module" a une amplitude variable.
Le mieux est d'utiliser le PWM, mais faut bricoler...
Stand by... A plus tard, peut être
Pour info, le programme picaxe est terminé.
MM

**mag1** · 10/10/2022, 14h45

Info suite...
Schéma complet:
Nom : ventilo.JPG
Affichages : 127
Taille : 45,5 Ko

code:

Code:

;commande ventilo MM 10/10/2022
#picaxe 08M2
;Broches I/O ***************
symbol clk= pinC.1
symbol dio= pinC.0    
symbol rpm= C.3
symbol ADC=C.4
;Bytes **********************
symbol Octet=b0    ;octet dans b0; le test est sur bit0
symbol Chiffre=b1
symbol i=b2
symbol j=b3
symbol dp=b4
symbol ntour=b5
symbol lecpwm=b6
;Words *****************************
symbol Div=w12
symbol Nombre=w13 ; nombre de 4 chiffres à afficher
;Initialisation TM1634 *********************************************************    
;symbol TypeAdr=$40 ; adressage auto-incrémenté par défaut=>en commentaite
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)  
    setfreq m16        ;pas plus pour garder time en secondes (si necessaire)
    pullup %1110    ;activation des résistances pullup sur
    dirs=%01111        ;pour activer les valeurs I/O pin
    ;dp=$80            ;pour allumage DP, pour mémoire
;clk=1: dio=1: dio=0    ; I2CStart  
;Octet=TypeAdr        ;Mode d'adresse, en REM cause incrémenation auto par défaut
;gosub I2CEnvoiOctet
;clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=RegLum        ;Réglage luminosité
    gosub I2CEnvoiOctet
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
;Initiation PWM
	pwmout C.2,39,159		;pwm à 25kHz, duty 100%
;Boucle principale
do
	readadc ADC, lecpwm
	lecpwm=lecpwm * 159/255 min 20 ;pwm 20% mini,cf. ventilo 4 fils
	pwmduty C.2,lecpwm
	count rpm,1000,nombre
	nombre=nombre * 30		;2 pulses /tour=> résolution 30t/mn
	gosub affnbre	
loop
;******* Découpage du nombre en chiffres ************
Affnbre:
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=AdrDep        ;synchro adresse départ
    gosub I2CEnvoiOctet
    div=1000        ;initialisation diviseur pour 4 chiffres
    for j=1 to 4
      Chiffre=Nombre/Div
      gosub DecTo7seg        ;octet contiendra la descrption de chiffre en segments
      gosub I2CEnvoiOctet
      Nombre=Nombre//Div    ;on garde le reste de la division
      Div=Div/10            ;prochain diviseur
    next j
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
I2CEnvoiOctet:    ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
    for i=1 to 8 ; envoi de l'octet
        clk=0
        dio=bit0        ;la broche dio prend la valeur de bit0       
        Octet = Octet/2        ;décalage à droite => bit1 devient bit0
        clk=1
    next i
    clk=0 : clk=1 : clk=0     ; traitement 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

Mais c'est juste une info, que cela soit réalisé ou pas n'a aucune importance pour moi.
MM

**dudulle76120** · 11/10/2022, 08h34

Salut mag1

Tout d'abord merci pour le schéma et pour le code.

La nuit porte conseil, aussi je vais faire ton schéma.

il va falloir un peu de temps, j'ai commander hier l'afficheur TM1637 a 2.90€ chez eBay le plus cher mais plus pratique, anode commune

et commander également 2 picaxe 0M82 chez gotronic

1) D'après ton schéma je peux programmer un picaxe 08M2 ou autre ?

2) j'ai retrouver et installer le programme principal "picaxe 6" et même chargé le programme pour afficher la vitesse et tester le programme tourne bien
sans erreur pour moi c'est bon a suivre

3) reste a installer le câble USB, ça m'inquiète un peu mais j'ai réussi une fois alors, pour injecter le programme dans le picaxe

plus grand chose faire juste me rappeller comment on fait, je souviens que c'était facile, je bosse dessus

Je me lance sur le schéma a faire sur plaque a pastille

Bonne journée a toi, tu a encore réussi a me débaucher dans le domaine des picaxes

mais tu a eu raison

- PS -----------------------------
Et tu fait varier la vitesse avec quoi ?
Si c'est avec l'alim, le pulse qui arrive dans le "module" a une amplitude variable.
Le mieux est d'utiliser le PWM, mais faut bricoler...
Stand by... A plus tard, peut être
Pour info, le programme picaxe est terminé.
-------------------------
Varier avec un potar sinon Le mieux est d'utiliser le PWM, mais faut bricoler, pas de soucis pour moi

Cdlt Ray

**mag1** · 11/10/2022, 10h58

Bonjour,

Pour le schéma, la résistance PMW (10k sur le schéma) est à 2k2 sur les schémas trouvés sur internet, je n'ai pas de ventilo 4 fils, j'ai donc rien testé.
Sur ce schéma, il est prévu 3 pins de programmation sur site, on peut ajouter le +5V du convertisseur USB/série pour se passer provisoirement de l'ali secteur extérieure. On peut aussi programmer sur une carte de connexions rapides et relier la broche C.5 au 0V, au choix.

Il y a des erreurs dans le code, j'ai zappé que la vitesse du cpu est fixée à 16MHz. ça modifie le comptage et le réglage PWM (modif faite).
Le PWM mini est à 20% ou 30% suivant la norme définie pour ces ventilos, faudra voir.
Pour la conception du "véroboard", je rappelle la méthode TCI4.

Code modifié:

Code:

;Commande ventilo 4 fils par PWM . MM 11/10/2022
 ;Affichage RPM sur TM1637
#picaxe 08M2 
;Broches I/O ***************
symbol dio= pinC.0 	;dio TM1637
symbol clk= pinC.1	;clk TM1637
symbol Spwm= C.2 	;sortie PWM  
symbol rpm= C.3	;entrée vitesse	
symbol potar=C.4		;potar ADC
;Bytes **********************
symbol Octet=b0    ;octet dans b0; le test est sur bit0
symbol Chiffre=b1
symbol i=b2
symbol j=b3
symbol dp=b4
symbol ntour=b5
;Words *****************************
symbol lecpwm=w11
symbol Div=w12
symbol Nombre=w13 ; nombre de 4 chiffres à afficher
symbol Vmin=128  ;128=639/5 =>20% 
;Initialisation TM1634 *********************************************************    
;symbol TypeAdr=$40 ; adressage auto-incrémenté par défaut=>en commentaite
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)  
    setfreq m16        ;pas plus pour garder time en secondes (si necessaire)
    pullup %1110    ;activation des résistances pullup sur
    dirs=%01111        ;pour activer les valeurs I/O pin
    ;dp=$80            ;pour allumage DP, pour mémoire
;clk=1: dio=1: dio=0    ; I2CStart  
;Octet=TypeAdr        ;Mode d'adresse, en REM cause incrémenation auto par défaut
;gosub I2CEnvoiOctet
;clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=RegLum        ;Réglage luminosité 
    gosub I2CEnvoiOctet
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
;Initiation PWM
	pwmout Spwm,159,639		;pwm à 25kHz, duty 100%,cpu 16MHz  
;Boucle principale
do
	readadc potar, lecpwm
	lecpwm=lecpwm * 213/255*3 min Vmin ;213=639/3 , pour pas dépasser 65535
	pwmduty Spwm,lecpwm
	count rpm,4000,nombre ;4000 => 1s à 16MHz
	nombre=nombre * 30		;2 pulses /tour=> résolution 30t/mn
	gosub affnbre	
loop
;******* Découpage du nombre en chiffres ************
Affnbre:
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=AdrDep        ;synchro adresse départ
    gosub I2CEnvoiOctet
    div=1000        ;initialisation diviseur pour 4 chiffres
    for j=1 to 4
      Chiffre=Nombre/Div
      gosub DecTo7seg        ;octet contiendra la descrption de chiffre en segments
      gosub I2CEnvoiOctet
      Nombre=Nombre//Div    ;on garde le reste de la division
      Div=Div/10            ;prochain diviseur
    next j
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
I2CEnvoiOctet:    ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
    for i=1 to 8 ; envoi de l'octet
        clk=0
        dio=bit0        ;la broche dio prend la valeur de bit0       
        Octet = Octet/2        ;décalage à droite => bit1 devient bit0
        clk=1
    next i
    clk=0 : clk=1 : clk=0     ; traitement 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

MM

**mag1** · 11/10/2022, 11h05

Envoyé par Murayama

Avant de sortir le fer à souder: est-ce que le but est d'afficher sur un PC ou bien
est-ce que c'est un ventilateur PC à utiliser pour autre chose. Si c'est pour un PC,
alors il y a des programmes sur Github qui permettent d'avoir accès à ces données.
Pascal

Bonjour, réponse tardive..
Et merci, mais dudule veut juste aspirer des fumées de soudures, et pour ça, il a absolument besoin d'afficher la vitesse du ventilo sur un afficheur 4 digits...pourquoi pas...
MM

**dudulle76120** · 11/10/2022, 11h50

Salut mag1

Merci pour ta réponse,

je vais mettre le nouveau programme que tu a corrigé dans picaxe 6 comme ca il sera près.

je viens de commander un ventilo 12 volts 80x80x25 en 4 fils j'en avais deux mais ils sont Hs pas grave c'était de la récup.

et aussi un autre afficheur TM1637 celui qui a les points en bas et non les deux points au milieu car j'aurai bien voulu si
possible afficher donc sur le 4 digits et aussi afficher le premier point de gauche quand l'affichage passe 999 alors on affiche 1.258 jusqu'à 9.999

je retourne sur le circuit et revoir comment on se sert de tout ça.

Bonne journée a toi et merci.

Cdlt Ray

**mag1** · 11/10/2022, 12h13

Envoyé par dudulle76120

et aussi un autre afficheur TM1637 celui qui a les points en bas et non les deux points au milieu car j'aurai bien voulu si
possible afficher donc sur le 4 digits et aussi afficher le premier point de gauche quand l'affichage passe 999 alors on affiche 1.258 jusqu'à 9.999
Cdlt Ray

La norme des ventilos prévoit de limiter la vitesse à 20 ou 30%, pour ne pas supprimer toute ventilation, cette limite est interne au ventilo et ne peut être modifiée par commande.
Quelle est la vitesse max de ton ventilo? La vitesse mini risque d'être au dessus de 1000 t/mn...
MM

**dudulle76120** · 11/10/2022, 12h15

Re mag1

j'ai mis le programme corrigé mais il y a une erreur de syntaxe a la ligne 21 symbol VMI®n=128 ;128=639/5 =>20%

je n'ai pas pu la corriger ne connaissant pas encore suffisamment

merci bon app

Cdlt Ray

**mag1** · 11/10/2022, 12h37

Envoyé par dudulle76120

j'ai mis le programme corrigé mais il y a une erreur de syntaxe a la ligne 21 symbol VMI®®®®®n=128 ;128=639/5 =>20%
Cdlt Ray

pas d'erreur sur l'original, je copie le prog posté, pour voir.
Ok, faute de frappe de dernière minute. J'ai intégré la vitesse mini dans le programme, à supprimer si inutile..

Code:

;Commande ventilo 4 fils par PWM . MM 11/10/2022
 ;Affichage RPM sur TM1637
#picaxe 08M2 
;Broches I/O ***************
symbol dio= pinC.0 	;dio TM1637
symbol clk= pinC.1	;clk TM1637
symbol Spwm= C.2 	;sortie PWM  
symbol rpm= C.3	;entrée vitesse	
symbol potar=C.4		;potar ADC
;Bytes **********************
symbol Octet=b0    ;octet dans b0; le test est sur bit0
symbol Chiffre=b1
symbol i=b2
symbol j=b3
symbol dp=b4
symbol ntour=b5
;Words *****************************
symbol lecpwm=w11
symbol Div=w12
symbol Nombre=w13 ; nombre de 4 chiffres à afficher
symbol Vmn=128  ;128=639/5 =>20% 
;Initialisation TM1634 *********************************************************    
;symbol TypeAdr=$40 ; adressage auto-incrémenté par défaut=>en commentaite
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)  
    setfreq m16        ;pas plus pour garder time en secondes (si necessaire)
    pullup %1110    ;activation des résistances pullup sur
    dirs=%01111        ;pour activer les valeurs I/O pin
    ;dp=$80            ;pour allumage DP, pour mémoire
;clk=1: dio=1: dio=0    ; I2CStart  
;Octet=TypeAdr        ;Mode d'adresse, en REM cause incrémenation auto par défaut
;gosub I2CEnvoiOctet
;clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=RegLum        ;Réglage luminosité 
    gosub I2CEnvoiOctet
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
;Initiation PWM
	pwmout Spwm,159,639		;pwm à 25kHz, duty 100%,cpu 16MHz  
;Boucle principale
do
	readadc potar, lecpwm
	lecpwm=lecpwm * 213/255*3 min Vmn ;213=639/3 , pour pas dépasser 65535
	pwmduty Spwm,lecpwm
	count rpm,4000,nombre ;4000 => 1s à 16MHz
	nombre=nombre * 30		;2 pulses /tour=> résolution 30t/mn
	gosub affnbre	
loop
;******* Découpage du nombre en chiffres ************
Affnbre:
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=AdrDep        ;synchro adresse départ
    gosub I2CEnvoiOctet
    div=1000        ;initialisation diviseur pour 4 chiffres
    for j=1 to 4
      Chiffre=Nombre/Div
      gosub DecTo7seg        ;octet contiendra la description de chiffre en segments
      gosub I2CEnvoiOctet
      Nombre=Nombre//Div    ;on garde le reste de la division
      Div=Div/10            ;prochain diviseur
    next j
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
I2CEnvoiOctet:    ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
    for i=1 to 8 ; envoi de l'octet
        clk=0
        dio=bit0        ;la broche dio prend la valeur de bit0       
        Octet = Octet/2        ;décalage à droite => bit1 devient bit0
        clk=1
    next i
    clk=0 : clk=1 : clk=0     ; traitement 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

MM

**Murayama** · 11/10/2022, 12h41

Bonjour!

Et merci, mais dudule veut juste aspirer des fumées de soudures, et pour ça, il a absolument besoin d'afficher la
vitesse du ventilo sur un afficheur 4 digits...

Je vois. Ça m'apprendra à répondre sans lire l'intégralité de ce qui s'est dit.
Enfin, je dis je vois, mais pour être franc, je ne vois pas vraiment pourquoi il faut _absolument_
un afficheur 4 digits. J'ai la même chose, mais j'ai choisi la facilité: un interrupteur on/off, c'est tout.

Pascal

**mag1** · 11/10/2022, 12h46

En fait, la variable nommée "Vmin" était remplacée par un truc bizarre pendant la copie.
J'ai nommé par Vmn, et là, ça passe...???? Comprenne qui pourra...
MM

**mag1** · 11/10/2022, 12h50

Envoyé par Murayama

Bonjour!

Je vois. Ça m'apprendra à répondre sans lire l'intégralité de ce qui s'est dit.
Enfin, je dis je vois, mais pour être franc, je ne vois pas vraiment pourquoi il faut _absolument_
un afficheur 4 digits. J'ai la même chose, mais j'ai choisi la facilité: un interrupteur on/off, c'est tout.
Pascal[/COLOR]

Je ne cherche pas les motivations, je m'amuse à répondre à la question, c'est tout.
MM

**mag1** · 11/10/2022, 13h29

Envoyé par mag1

En fait, la variable nommée "VMI®®n" était remplacée par un truc bizarre pendant la copie.
J'ai nommé par Vmn, et là, ça passe...???? Comprenne qui pourra...
MM

Je vois que c'est le site Futura qui modifie la variable...
J'avais écrit V.min, sans le point , modifié en VMI®®n

Bizarre, bizarre....Un modo svp
MM

**dudulle76120** · 11/10/2022, 13h59

Re mag1

ok bien compris alors c'est quoi la modification a faire svp je remplace VMI®®®n par tout simplement VMI ???

Merci bonne après midi

Cdlt Ray

**mag1** · 11/10/2022, 14h24

Envoyé par dudulle76120

Re mag1

ok bien compris alors c'est quoi la modification a faire svp je remplace VMI®®®n par tout simplement VMI ???
Cdlt Ray

Non, recopie le dernier code en #47, j'ai changé le nom de variable, avec Vmn, pas de problème alors que Vmin...
MM

**dudulle76120** · 11/10/2022, 16h21

Re Mag1,

j'ai recopier le fichier et c'est bon pour l'instant ça tourne.

Pour la question #45 a propos du ventilo que j'ai commander, je ne trouve pas plus d'informations que cette photo.

un 80x80x25 12 volts

Nom : Ventilo 4 fils.png
Affichages : 121
Taille : 925,2 Ko

Nom : Ventilo 4 fils.png
Affichages : 121
Taille : 925,2 Ko

je t'en dirai plus dès que je le recois

Question 1: svp Dans un premier le montage est prévu pour un ventilo 4 fils

mais plus tard si je veux mettre un ventilo 3 fils cela fonctionnera t'il quand même ???

Question 2 Pour l'afficheur avec les 4 points dans le bas c'est bon ou pas ???

Bonne après midi

Cdlt Ray

**mag1** · 11/10/2022, 17h19

On peut utiliser un 3 fils sans problème, Le PWM n'est pas connecté, c'est tout.
Ton ventilo serait à 6000t/mn max, on vérifiera par la mesure.
MM

**mag1** · 11/10/2022, 18h17

Envoyé par mag1

On peut utiliser un 3 fils sans problème, Le PWM n'est pas connecté, c'est tout.
Ton ventilo serait à 6000t/mn max, on vérifiera par la mesure.
MM

Et 20% de 6000=1200 t/mn. On placera le pd si tu y tiens.
MM

**dudulle76120** · 11/10/2022, 18h50

Re mag1

Merci pour tes réponses

ok on verra dès que j'aurai plus d'infos avec le ventilo en tout cas merci.

--- Juste pour le fun, Je suppose que c'est possible d'afficher la vitesse sur 6 voir 8 digits mais évidement il faudra un autre picaxe plus balèze ???

Pour fini pour aujourd'hui j'entends un drôle de bruit dans mon bar, serai t'il heure de l'apéro, allez go c'est parti.

Bonne soirée a toi et merci pour ton aide. demain câble USB.

Cdlt Ray

**mag1** · 11/10/2022, 19h35

Envoyé par dudulle76120

--- Juste pour le fun, Je suppose que c'est possible d'afficher la vitesse sur 6 voir 8 digits mais évidement il faudra un autre picaxe plus balèze ???

Tout à fait illusoire.
Le principe du compte tours est de compter pendant une seconde, on a deux pulses par tours, donc, en multipliant par 30, on a un valeur en tours/mn.
Ce qui veut dire que la résolution (pas) est de 30t/mn. Le chiffre des unités sera toujours "0".
En comptant sur 2 secondes, la résolution passe à 15, etc, jusqu'à compter pendant une minute pour avoir une mesure exacte

MM
Une autre méthode serait de mesurer la largeur du pulse (apparemment), il fait la moitié de la période, on pourrait calculer une vitesse.

**mag1** · 12/10/2022, 11h01

Bonjour,
Il y aurait encore une méthode, la meilleure peut être:
Faire une somme glissante sur 5 mesures consécutives (une /seconde) et de multiplier cette somme par 12 (5 x 12=60).
La résolution passe à 12 t/mn. Le temps de réponse augmente, mais pour un ventilo, il sera suffisant.

Le code vite fait, mériterait d'être testé (moi, j'ai rien testé)

Code:

;Commande ventilo 4 fils par PWM . MM 11/10/2022
 ;Affichage RPM sur TM1637
 ;somme glissante sur 5 mesures; utilisation RAM
#picaxe 08M2 
;Broches I/O ***************
symbol dio= pinC.0 	;dio TM1637
symbol clk= pinC.1	;clk TM1637
symbol Spwm= C.2 	;sortie PWM  
symbol rpm= C.3	;entrée vitesse	
symbol potar=C.4		;potar ADC
;Bytes **********************
symbol Octet=b0    ;octet dans b0; le test est sur bit0
symbol Chiffre=b1
symbol i=b2
symbol j=b3
symbol dp=b4
symbol ntour=b5
symbol cpt=b6	;compteur
symbol cpt2=b7
;Words *****************************
symbol somme=w9
symbol lecrpm=w10
symbol lecpwm=w11
symbol Div=w12
symbol Nombre=w13 ; nombre de 4 chiffres à afficher
symbol Vmn=128  ;128=639/5 =>20% 
;Initialisation TM1634 *********************************************************    
;symbol TypeAdr=$40 ; adressage auto-incrémenté par défaut=>en commentaite
symbol AdrDep=$c0 ; adresse du 1er digit (poids fort)
symbol RegLum=$8c ; réglage luminosité $80 + 8(allumé, 0:éteint) + 0 à 7(intensité)  
    setfreq m16        ;pas plus pour garder time en secondes (si necessaire)
    pullup %1110    ;activation des résistances pullup sur
    dirs=%01111        ;pour activer les valeurs I/O pin
    dp=$80            ;pour allumage DP
;clk=1: dio=1: dio=0    ; I2CStart  
;Octet=TypeAdr        ;Mode d'adresse, en REM cause incrémenation auto par défaut
;gosub I2CEnvoiOctet
;clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=RegLum        ;Réglage luminosité 
    gosub I2CEnvoiOctet
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
;Initiation PWM
	pwmout Spwm,159,639		;pwm à 25kHz, duty 100%,cpu 16MHz  
;Boucle principale
do
	readadc potar, lecpwm
	lecpwm=lecpwm*213/255*3 min Vmn ;213=639/3 , pour pas dépasser 65535
	pwmduty Spwm,lecpwm	
	for cpt=30 to 34
		count rpm,4000,lecrpm ;4000 => 1s à 16MHz
		bptr=cpt		;indexe tableau circulaire de 0 a 9)
		@bptr=lecrpm		;copie valeur lue dans tableau 
		somme=0		;RAZ somme	
		for cpt2=30 to 34	;compteur circulaire de 0 a 9
			bptr=cpt2	;indexe tableau
			somme=somme+@bptr	;somme des valeurs tableau
		next	
		nombre=somme*12			;moyenne
		gosub affnbre	
	next	
loop
;******* Découpage du nombre en chiffres ************
Affnbre:
    clk=1: dio=1: dio=0    ; I2CStart    ;
    Octet=AdrDep        ;synchro adresse départ
    gosub I2CEnvoiOctet
    div=1000        ;initialisation diviseur pour 4 chiffres
    for j=1 to 4
      Chiffre=Nombre/Div
      gosub DecTo7seg        ;octet contiendra la descrption de chiffre en segments
;******** ajout points centraux si ncessaire *************
;	if j=1 then
;		octet=octet | dp    ;ajout points centraux
;  endif
;***********************************************
      gosub I2CEnvoiOctet
      Nombre=Nombre//Div    ;on garde le reste de la division
      Div=Div/10            ;prochain diviseur
    next j
    clk=0: dio=0 : clk=1 : dio=1 ;I2CStop
    return
;******* Envoi des chiffres (octet) bit à bit dans le registre ********
I2CEnvoiOctet:    ;lecture de b0 bit à bit de bit0 à bit8 poids faible en tête.
    for i=1 to 8 ; envoi de l'octet
        clk=0
        dio=bit0        ;la broche dio prend la valeur de bit0       
        Octet = Octet/2        ;décalage à droite => bit1 devient bit0
        clk=1
    next i
    clk=0 : clk=1 : clk=0     ; traitement 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

On utilise la RAM, avec des pointeurs, ça change un peu.
MM

**dudulle76120** · 12/10/2022, 18h04

Salut mag1,

Bon ça avance, reçu deux picaxes 08M2 ce matin, (sont rapide chez gotronic c'est bien)

Schéma refait en couleurs pour le passer sur plaque a pastilles, demain.

Dernier programme me parait fonctionnel compiled successfully et simulation tourne.

j'ai relu tes explications et vais couper internet et mettre le driver, je devais le faire mais petits enfants a la maison.

je serai plus loin pour d'injecter le programme dans le picaxe 08M2

et pour les calculs, je te laisse car je ne suis pas trop d'accord avec les chiffres

Pour l'instant je ne vois pas de modification a faire, juste attendre que j'ai les afficheurs.

Bonne soirée et merci pour ton aide.

Cdlt Ray

Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Re : Affichage ventilateur PC

Discussions similaires

Ventilateur

Ventilateur pc en 12V

[Blanc] ventilateur,four

ventilateur