Reprise du message précédent :
Non ils tourneront à la vitesse normale car ils reçoivent 12V tous les 2. Ils commenceraient à ralentir si tu consommais trop d'intensité par rapport à ce que peut fournir le transfo, mais il y a de la marge.

En fait c'est surtout le 2N2222 qui risque d’être limitant, mais avec seulement 2 ventilos ça doit passer.

Dac et ben je vais voir sa ce soir =)

salut, alors j' ai acheter un ronfleur/buzzer qui fonctionne de 6 a 17 volts
j'ai egalement prit une alimentation pile donc 6V parceque bon encore un transfo dans le setup ferait un peu trop lol. Donc jespere que ce n'est pas un soucis.
 
POur le deuxieme ventilateur j'ai pu avoir un 12Volts avec 160ma. donc je sais pas si sa vas le faire ou pas en le branchant en parralèle. en meme temps pour 3€ je l'ai prit sans grand risque.

Un 2N2222 permet de piloter 800mA. Un ventilateur consomme 160mA et un ronfleur environ 30 à 50mA, soit un total d'environ 350 à 400mA, donc ça passe sans problème.
En ce qui concerne l'alimentation par piles je n'ai pas très bien compris, tu veux l'utiliser pour faire quoi ?

 
juste pour alimenter le buzzer. en principe il ne vas pas consommer beacoup
 
ah et j'ai oublier la resistance pour le buzzer. j'ai du 33 et du 140 sous la main. est-ce qu'il me fallait une deuxieme resitanc epour le venitlateur ou c'est bon?

et du coups je peut ajouter autant de ventilateur que je veut tant que je dépasse pas 800ma?
 
parceque la j'a un 9.5cm et il est plsu efficace que mon 12cm lol. donc enfaite je pourrais en mettre 800/160= 5
 
donc je pourrais en mettre 4 du meme type de ventilateur en parralèle?

Tu peux prendre une 140 pour piloter le transistor, ça fonctionnera aussi. Pas besoin de changer la valeur de la résistance pour commander un second ventilateur.
 
Donc tu fais exactement le même montage que pour piloter les ventilo et tu branches la résistance de base sur A1
 

 
En théorie oui, mais il faut être conscient que ces 800mA sont une limite à ne surtout pas dépasser (sinon le transistor crame automatiquement). Par ailleurs un ventilateur consomme un peu plus au démarrage, le temps qu'il prenne de la vitesse, donc je pense que seulement 2 ventilateurs serait plus raisonnable. Sinon tu as aussi la possibilité d'utiliser un transistor plus "puissant".
 

merci pour tes réponses. y-a til moyen de mesurer combien de Ma un ventilo utilise lors du démarrage avec le multimètre? je pense que sa doit etre faisable

Oui il y a une astuce : Tu met l'appareil en mode ampèremètre 10A.
Tu branches les fils sur les bornes 10ADC et COM. Tu connectes le fil relié à 10ADC sur le + de ton transfo, l'autre sur une borne du ventilo. Tu relies enfin l'autre borne du ventilo au - du transfo.
Le ventilateur va tourner et tu vas pouvoir lire l'intensité qu'il consomme en marche normale (logiquement 0.16A). Tu bloques ensuite l'hélice du ventilo pour l’empêcher de tourner et tu le branche à nouveau, tu peux alors lire l'intensité qu il consomme au démarrage.
Il faut éviter de le laisser alimenté pendant trop longtemps quand il est bloqué car il va chauffer un peu (mais si tu le fais quelques secondes ça ne craint rien).

salut je vois que vous avez avancé.
la moyenne est un bon moyen d'avoir un affichage stable.
fiesta je me pose quelques questions.
1 pourquoi tu multiplies les alimentations.
2 pourquoi tu n'utilises pas deux sortie pour tes deux ventilos .
3 tu devrais te poser les questions: que veux-je faire et comment afin  
d'etablir un cahier des charge avant toutes choses.
 
je te joint un bout de code pour agrementé le visuel il suffit de le rajouter en sub et d'aller le chercher quand marche = 1  
 
1 '**********************************************
2 'affichage d'une roue tournante
3 '
4 'les variables v,x,y,r servent  
5 '
6 'v= vitesse ,x= position x sur l'ecran
7 '
8 'y=position y sur l'ecran r= diametre de la roue
9 '
10'ecrit par thierry le 4 mars 2013  
11'**********************************************
12 v = 500
13 x = 100
14 y = 100
15 r = 40
16 z = r
17 w = (r/3)*2
19 '
20  CLS
30    CIRCLE (x,y),r
40  LINE ((x-w),(y-w))-((x+w),(y+w)),1
50  LINE ((x-w),(y+w))-((x+w),(y-w)),1
55 ' CIRCLE ((y+(z+(r/3))),(y+(r/3))),(r/3)
60  PAUSE v
70  LINE ((x-z),(y-z))-((x+z),(y+z)),0
80  LINE ((x-z),(y+z))-((x+z),(y-z)),0
85    CIRCLE (x,y),r
90  LINE ((x-z),(y))-((x+z),(y)),1
100 LINE ((x),(y-z))-((x),(y+z)),1
110 PAUSE v
120 LINE ((x-z),(y))-((x+z),(y)),0
130 LINE ((x),(y-z))-((x),(y+z)),0
140   CIRCLE (x,y),r
150 GOTO 40
 
ps quel type d'affichage tu vas utilisé pour laisser a coté de ton system
quand il sera fini?
a bientot  thierry

question a hans pourquoi cette valeur de mesure (1.9810204) avec un convertisseur 10 bits?????
utilises tu d'autre type d'affichage que l’écran sur tes duinomites???
merci a+

 
J'ai que deux transfo. un pour la carte et un pour les ventilo. je vais avoir une dizaine de prise a brancher avec tous le matos de l'aquarium donc j'essaye de limiter un peu le nombre pour pas trop sur charger.
 
Je vais laisser l'écran de pc je pense. j'aimerais plus petit mais comme je l'ai deja sous la main je vais le garder.  
 
je comprend pas torp ou mettre ton programme thierry..

demarre le seul et tu comprendras.

ben j'ai compris ce que cetait, genre une image qui imite un ventilo quand le ventilo se met en route? mais je sais pas comment faire pour appeler cette sub quand marche = 1.
 
J'ai essayer de placer un :
 
If marche = 1 then sub  
 
mais sa ne marche pas =(

peux tu me renvoyer ton programme complet.

oep

10 cls
20 init (seuilh, seuilb, marche)
30 debut (seuilh, seuilb, marche)
40 goto 30
 
 
sub init (seuilh, seuilb, marche)
  SetPin 4,1
  SetPin 3,8
  seuilh = 28
  seuilb = 26
  marche = 0
end sub
 
 
 
sub debut(seuilh, seuilb, marche)
  temps = 0
    for i = 1 to 100
    temp = temp + (83.86 - ( 35.09 * Pin(4)))
    next i
  temp = temp / 100
  font #2, 2, 0
  temp$ = str$(temp)
  locate   160,160  
  print left$(temp$, 4);" C"
  if temp > seuilh and marche = 0 then
    pin(3) = 1
    marche = 1
    if marche = 1 then sub roue
  endif
  if temp < seuilb and marche = 1 then
    pin(3) = 0
    marche = 0
  endif
  pause (1000)
end sub  
end sub  
 
sub roue
1 '**********************************************
2 'affichage d'une roue tournante
3 '
4 'les variables v,x,y,r servent  
5 '
6 'v= vitesse ,x= position x sur l'ecran
7 '
8 'y=position y sur l'ecran r= diametre de la roue
9 '
10'ecrit par thierry le 4 mars 2013  
11'**********************************************
12 v = 500
13 x = 100
14 y = 100
15 r = 40
16 z = r
17 w = (r/3)*2
19 '
20  CLS
30    CIRCLE (x,y),r
40  LINE ((x-w),(y-w))-((x+w),(y+w)),1
50  LINE ((x-w),(y+w))-((x+w),(y-w)),1
55 ' CIRCLE ((y+(z+(r/3))),(y+(r/3))),(r/3)
60  PAUSE v
70  LINE ((x-z),(y-z))-((x+z),(y+z)),0
80  LINE ((x-z),(y+z))-((x+z),(y-z)),0
85    CIRCLE (x,y),r
90  LINE ((x-z),(y))-((x+z),(y)),1
100 LINE ((x),(y-z))-((x),(y+z)),1
110 PAUSE v
120 LINE ((x-z),(y))-((x+z),(y)),0
130 LINE ((x),(y-z))-((x),(y+z)),0
140   CIRCLE (x,y),r
150 GOTO 40  
end sub

j'ai essayer ton programme en effet c'est pas mal =). je suis preneur. bonne idée que tu as eu. merci

essai ceci  
 
 
10 cls
20 init (seuilh, seuilb, marche)
30 debut (seuilh, seuilb, marche)
40 goto 30
 
 
sub init (seuilh, seuilb, marche)
  SetPin 4,1
  SetPin 3,8
  seuilh = 28
  seuilb = 26
  marche = 0
end sub
 
 
 
sub debut(seuilh, seuilb, marche)
  temps = 0
    for i = 1 to 100
    temp = temp + (83.86 - ( 35.09 * Pin(4)))
    next i
  temp = temp / 100
  font #2, 2, 0
  temp$ = str$(temp)
  locate   160,160  
  print left$(temp$, 4);" C"
  if temp > seuilh and marche = 0 then
    pin(3) = 1
    marche = 1
    if marche = 1 then sub roue
  endif
  if temp < seuilb and marche = 1 then
    pin(3) = 0
    marche = 0
  endif
  pause (1000)
end sub  
end sub  
 
sub roue
 '**********************************************
 'affichage d'une roue tournante
 '
 'les variables v,x,y,r servent  
 '
 'v= vitesse ,x= position x sur l'ecran
 '
 'y=position y sur l'ecran r= diametre de la roue
 '
'ecrit par thierry le 4 mars 2013  
'**********************************************
1000 v = 500
1100 x = 100
1200 y = 100
1300 r = 40
1400 z = r
1500 w = (r/3)*2
 '
  CLS
    CIRCLE (x,y),r
  LINE ((x-w),(y-w))-((x+w),(y+w)),1
  LINE ((x-w),(y+w))-((x+w),(y-w)),1
   PAUSE v
 LINE ((x-z),(y-z))-((x+z),(y+z)),0
  LINE ((x-z),(y+z))-((x+z),(y-z)),0
    CIRCLE (x,y),r
  LINE ((x-z),(y))-((x+z),(y)),1
 LINE ((x),(y-z))-((x),(y+z)),1
 PAUSE v
 LINE ((x-z),(y))-((x+z),(y)),0
 LINE ((x),(y-z))-((x),(y+z)),0
   CIRCLE (x,y),r
 
end sub

sub init (seuilh, seuilb, marche)  
 
pourquoi mettre les variables a chaque fois ?
faut il les trimballer a chaque sub ou elles sont utilisées?

alors la sa n'affiche rien lors du démarrage du ventilateur. il marche comme avant enfaite.

sa je sais pas mais hans pourras te répondre. il ya aussi certaines choses qu'il écrit qui sont la pour m'aider a comprendre.

Bonjour
 

 
C'est parce que contrairement à un Arduino la duinomite affiche directement une tension sur la base de la pleine échelle (3.3V il me semble).
Si le CAN mesure par exemple une valeur de 178 (sur une échelle de 0 à 1023) la valeur mesurée sur la PIN n'est pas une valeur qui "tombe juste" ; elle serait égale à 178 / 1023 * 3.3 = 0.57419 V.
Bien sur il n'y a aucun sens à afficher autant de chiffres significatifs puisque la précision de la mesure est au mieux de 3.3 / 1023 = 3.2mV.
 

 
Par défaut les variables sont dites "locales", c'est à dire qu'elles conservent leur valeur uniquement dans une routine (qui commence et se termine par sub). Pour utiliser ces variables dans une autre routine il faut les spécifier dans le nom de celle ci entre parenthèse, et chaque fois qu'on l'appelle.
Pour appeler une routine il suffit de taper son nom ; en fait une routine est en quelque sorte la création d'une nouvelle instruction.
 
Ici il suffit donc de faire  
 if marche = 1 then roue
 
Il faut éviter les n° de ligne dans les routines, déjà ils ne servent à rien, et par ailleurs il y a un risque d’interférer avec le petit programme initial. D'ailleurs je ne suis même pas sur qu'on puisse le faire (je ne peux pas vérifier pour le moment).
 

et donc mon programme devriat être écrit comment? parceque j'ai placer un if marche = 1 then roue et sa na pas marcher. probablement pas au bon endroit

j'ai fait le branchement du ronfleur avec sa CTN et l'alimentation de celui-ci.

alors j'ai modifier et maintenant sa marche. sauf que sa m'affiche juste un rond et non pas l'hélice qui tourne comme j'ai essayer la première fois

 
 
Essayes comme ça :
 
10 cls
20 init (seuilh, seuilb, marche)
30 debut (seuilh, seuilb, marche)
40 goto 30
 
 
sub init (seuilh, seuilb, marche)
  SetPin 4,1
  SetPin 3,8
  seuilh = 28
  seuilb = 26
  marche = 0
end sub
 
 
 
sub debut(seuilh, seuilb, marche)
  temps = 0
    for i = 1 to 100
    temp = temp + (83.86 - ( 35.09 * Pin(4)))
    next i
  temp = temp / 100
  font #2, 2, 0
  temp$ = str$(temp)
  locate   160,160  
  print left$(temp$, 4);" C"
  if temp > seuilh and marche = 0 then
    pin(3) = 1
    marche = 1
    roue
  endif
  if temp < seuilb and marche = 1 then
    pin(3) = 0
    marche = 0
  endif
  pause (1000)
end sub  
 
 
sub roue
 '**********************************************
 'affichage d'une roue tournante
 '
 'les variables v,x,y,r servent  
 '
 'v= vitesse ,x= position x sur l'ecran
 '
 'y=position y sur l'ecran r= diametre de la roue
 '
'ecrit par thierry le 4 mars 2013  
'**********************************************
v = 500
x = 100
y = 100
r = 40
z = r
w = (r/3)*2
 '
  CLS
    CIRCLE (x,y),r
  LINE ((x-w),(y-w))-((x+w),(y+w)),1
  LINE ((x-w),(y+w))-((x+w),(y-w)),1
   PAUSE v
 LINE ((x-z),(y-z))-((x+z),(y+z)),0
  LINE ((x-z),(y+z))-((x+z),(y-z)),0
    CIRCLE (x,y),r
  LINE ((x-z),(y))-((x+z),(y)),1
 LINE ((x),(y-z))-((x),(y+z)),1
 PAUSE v
 LINE ((x-z),(y))-((x+z),(y)),0
 LINE ((x),(y-z))-((x),(y+z)),0
   CIRCLE (x,y),r
 end sub

et si je rajoute pour le buzzer? je doit refaire un sub?

 
Tu veux dire avec sa résistance non ?
Il faut le brancher exactement comme un ventilateur, avec une résistance et un 2N2222, en utilisant l'alim sur piles que tu as acheté.

le programme marche mais l'image ventilo ne s'nelève pas quand ils sont étaint à nouveau

C'est parce qu'il manque un CLS pour effacer ce qui est à l’écran ; ajoutes le juste après pause (1000)

ok merci.  
 
oui en effet j'ai oublier de mettre la résistance.

voila modification faite avec resistance de 140ohm

Tu peux choisir de faire un nouveau sub, ou de l’intégrer dans celle qui existe. En fait ce choix est en grande partie conditionné par la volonté d'avoir un programme plus clair. On pourrait très bien tout faire dans une seule routine, mais ce serait moins facile de s'y retrouver.

Voici un exemple de programme modifié pour le ronfleur ; si tu dépasse le seuil très haut il va sonner en continu :

10 cls
20 init (seuilth, seuilh, seuilb, marche)
30 debut (seuilth, seuilh, seuilb, marche)
40 goto 30
 
 
sub init (seuilth, seuilh, seuilb, marche)
  SetPin 4,1
  SetPin 3,8
  SetPin 2,8
  seuilth = 30
  seuilh = 28
  seuilb = 26
  marche = 0
end sub
 
 
 
sub debut(seuilth, seuilh, seuilb, marche)
  temps = 0
    for i = 1 to 100
    temp = temp + (83.86 - ( 35.09 * Pin(4)))
    next i
  temp = temp / 100
  font #2, 2, 0
  temp$ = str$(temp)
  locate   160,160  
  print left$(temp$, 4);" C"
  if temp > seuilth then
  PIN 2 = 1
  else
  Pin 2 = 0
  endif
  if temp > seuilh and marche = 0 then
    pin(3) = 1
    marche = 1
    roue
  endif
  if temp < seuilb and marche = 1 then
    pin(3) = 0
    marche = 0
  endif
  pause (1000)
end sub  
 
 
sub roue
 '**********************************************
 'affichage d'une roue tournante
 '
 'les variables v,x,y,r servent  
 '
 'v= vitesse ,x= position x sur l'ecran
 '
 'y=position y sur l'ecran r= diametre de la roue
 '
'ecrit par thierry le 4 mars 2013  
'**********************************************
v = 500
x = 100
y = 100
r = 40
z = r
w = (r/3)*2
 '
  CLS
    CIRCLE (x,y),r
  LINE ((x-w),(y-w))-((x+w),(y+w)),1
  LINE ((x-w),(y+w))-((x+w),(y-w)),1
   PAUSE v
 LINE ((x-z),(y-z))-((x+z),(y+z)),0
  LINE ((x-z),(y+z))-((x+z),(y-z)),0
    CIRCLE (x,y),r
  LINE ((x-z),(y))-((x+z),(y)),1
 LINE ((x),(y-z))-((x),(y+z)),1
 PAUSE v
 LINE ((x-z),(y))-((x+z),(y)),0
 LINE ((x),(y-z))-((x),(y+z)),0
   CIRCLE (x,y),r
 end sub

bon par contre avec le CLS après le pause 1000 le ventilateur apparait et ensuite disparait. même si les ventilateurs continuent de tourner.

Ah oui c'est logique, j'avais oublié que la procédure ne se lançait que si marche est initialement à 0.
Fais plutôt comme ça (attention je n'ai copié que la routine à modifier)  :
 
sub debut(seuilth, seuilh, seuilb, marche)
  temps = 0
    for i = 1 to 100
    temp = temp + (83.86 - ( 35.09 * Pin(4)))
    next i
  temp = temp / 100
  font #2, 2, 0
  temp$ = str$(temp)
  locate   160,160  
  print left$(temp$, 4);" C"
  if temp > seuilth then
  PIN 2 = 1
  else
  Pin 2 = 0
  endif
  if temp > seuilh and marche = 0 then
    pin(3) = 1
    marche = 1
  endif
  if marche  = 1 then roue
  if temp < seuilb and marche = 1 then
    pin(3) = 0
    marche = 0
  endif
  pause (1000)
end sub  

la j'ai fait ton premier essai.et sa c'est mit en route a partir de 30°C la limite que j'ai indiquer. et sa s'est éteint a 29.90C

par contre faut changer les PIN 2 et mettre les parentheses
 =)

 
Oui, ici il n'y a pas 2 seuils comme pour déclencher le ventilateur, ceci dit c'est possible de la faire (par exemple couper le ronfleur quand tu repasse sous le seuil haut.
 

 
C'était pour voir si tu suivais

 
lol ben je commence à comprendre un peu mieux ce programme =).  
 
je dois modifier le caractère de l'affichage car la dès que le symbole ventilo apparait la temp disparait. et flash deja depuis le départ aulieu d'être fixe