Convertir WATT / AMPERE

[Ar-S]

Petit code vite fait pour trouver l'ampérage max accepté par votre disjoncteur ou combien d'ampère va pomper un appareil de N watts.

Code : Tout sélectionner

Enumeration
  #ARS
  #TVOLT
  #VOLT
  #TWATT
  #WATT
  #TAMP
  #AMP
  #CALCAMP
  #CALCWAT
EndEnumeration


Procedure ConvertAmp()
  
  W = Val(GetGadgetText(#WATT))
  V = Val(GetGadgetText(#VOLT))
  A = Val(GetGadgetText(#AMP))
  
  
  If Len(GetGadgetText(#VOLT)) < 3 Or Len(GetGadgetText(#WATT)) = 0
    ProcedureReturn 0
  Else 
    ProcedureReturn W/V
EndIf 

EndProcedure


Procedure ConvertWatt()
  
  W = Val(GetGadgetText(#WATT))
  V = Val(GetGadgetText(#VOLT))
  A = Val(GetGadgetText(#AMP))
  
  
  If Len(GetGadgetText(#VOLT)) < 3 Or Len(GetGadgetText(#AMP)) = 0
    ProcedureReturn 0
  Else 
    ProcedureReturn V*A
EndIf 

EndProcedure

If OpenWindow(#ARS, 0, 0, 230, 152, "Convertisseur VAW", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  TextGadget(#TVOLT,1,20,70,20,"VOLT",#PB_Text_Right )
  StringGadget(#VOLT,75,20,149,20,"220",#PB_String3D_Numeric)
  
  TextGadget(#TWATT,1,41,70,20,"WATT",#PB_Text_Right )
  StringGadget(#WATT,75,41,149,20,"",#PB_String3D_Numeric)
  
  TextGadget(#TAMP,1,63,70,20,"AMPERE",#PB_Text_Right )
  StringGadget(#AMP,75,63,149,20,"",#PB_String3D_Numeric)
  
  ButtonGadget  (#CALCAMP, 5, 88, 220, 30, "Calc Ampères")
  ButtonGadget  (#CALCWAT, 5, 119, 220, 30, "Calc Watt max")
  
   Repeat
     Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         Select EventGadget()
           Case #CALCAMP
             Ampere = ConvertAmp()
             If Ampere = 0
               MessageRequester("Erreur","Vous devez indiquer le voltage et les watt de votre appareil",0)
             Else
               SetGadgetText(#AMP,Str(Ampere))
             EndIf
             
             Case #CALCWAT
             Watts = ConvertWATT()
             If Watts = 0
               MessageRequester("Erreur","Vous devez indiquer le voltage et les ampères de votre tableau",0)
             Else
               SetGadgetText(#WATT,Str(Watts))
             EndIf
             
             
         EndSelect
            
     EndSelect
   Until Event = #PB_Event_CloseWindow
 EndIf

[Micoute]

Très bon, mais on devrait trouver des Watts/heure ou même des Kilowatts\heure, tu n'aurais pas du écrire Volts, mais Tension ou différence de potentiel et les ampères (intensité) sont en fait des V.A ou VoltAmpére, ce qui ne change rien au résultat.

ça aurait été bien si ton programme indiquait le calibre du fusible pour protéger le circuit électrique et la section des fils conducteurs.

Merci pour le partage.

[Ar-S]

Merci,
Disons qu'un appareil seul a peu de chance de nécessiter plus qu'un 16A dans l'absolu, mais plusieurs radiateurs cumulés par exemple pompent vite.
Du coup en additionnant leur valeur, on voit si on nécessite un 16 ou un 20.
Ex : 4200W en tout vont demander 19A, cela ira donc de soit qu'il faudra un 20A et pas un 16A

Quand à la section des fils conducteurs, je ne veux pas y gérer... Pour des prises, tu pourras mettre du 1.5 ou du 2.5 selon le fusible et le nombre de prises, par ex sur un 20A tu as droit à 8 prises max câblées en 2.5.. Après les normes (NFC15 100) se trouvent facilement mais je voulais juste faire ce petit convertisseur qui m'évite de poser les opérations ^^
Sinon il faudrait gérer tous les produits (32A pour plaque de cuisson en 6mm2, 20A pour le four, le radiateur salle de bain pas puissant mais branché sur un fusible indépendant etc...) Ce n'étais pas le but ici

Pour les VA j'ai hésité mais le commun des mortels aura plus de compréhension devant 220v plutôt que VoltAmpère (VA)

[Micoute]

Je vois que tu as de bonnes connaissances, mais je voulais juste te taquiner un peu, qui aime bien, châtie bien !

[Ar-S]

Aucun soucis mon bon Micoute

[Kwai chang caine]

mais Tension ou différence de potentiel et les ampères (intensité) sont en fait des V.A ou VoltAmpére

oulaaaa !!! Ça me rappelle mes cours quand j'étais boutonneux.
C'est malheureusement pas aussi simple, sinon ce serait pas drôle.

Je vais essayer de dépoussiérer mes neurones à ce sujet

Ddp x intensité sont bien des watts et pas des va dans le cas d'un circuit 100% resistif, ou bien en courant continu

Alors que des que l'on a affaire à un circuit en partie ou entièrement inductif ou capacitif, on se doit de faire intervenir le cos phi du au déphasage généré par les selfs/moteurs ou condensateurs.
A ce moment la il y a bien plusieurs puissances qui sont mesurables, les watts, va, var, ...

Ce déphasage qui n'est pas pris en compte pour un particulier par soucis de simplicité, est en revanche mesuré pour les professionnels, car c'est un grand manque à gagner pour EDF étant donné qu'un circuit 100% inductif ne consomme absolument rien au compteur (c'est tout benef )
Donc vous l'aurez compris. ..vive les moteurs, à bas les radiateurs grille pain...pour faire des économies de facture

https://fr.m.wikipedia.org/wiki/Puissan ... alternatif

Bon..je remets mes neurones au grenier

[Micoute]

Merci KCC, c'est très bien résumé.

P=UxI

[Kwai chang caine]

En résumé et dans tous les cas
P=U x I x cos phi

Si tu parles seulement de puissance active d'éléments resistifs cos phi = 1
Donc tu peux dire en simplifiant que P = U x I

Mais là ou était ton erreur, c'est que dans ce cas on ne peut pas parler de volt ampere, mais de WATTS.
Si tu parles de VA ce n'est plus resistif, donc cos phi <> 1, donc P = U x I x cos phi en watt et puissance apparente S en VA

[GallyHC]

Kwai chang caine > En précisant, que tu fais le calcul pour un courant alternatif monophasé, car sinon en triphasé équilibré tu aurais "P = U x I x √3 x Cos phi".

Cordialement,
GallyHC

[Micoute]

Il faut croire que la plupart des programmeurs doivent ou ont du être électriciens dans leur vie.

[Kwai chang caine]

Tu as tout à fait raison mon bon gally.
Je n'ai parlé que du monophasé, l'alternatif j'en ai parlé puisque j'ai dit qu'en courant continu on avait pas de déphasage.
En effet, comment pourrait on avoir un déphasage en continu, puisque l'on a pas de phase, pas d'alternance mais un positif et un négatif stable, ou bien un positif, une masse et négatif dans le cas d'une alimentation symetrique.

Alors avant que quelqu'un me dise que ce que j'ai dit à propos du continu et des phases, n'est pas tout à fait juste
je vais préciser que l'on peut avoir des phases avec une alimentation continue, puisque l'on peut générer un courant alternatif avec une batterie par exemple, c'est le cas entre autre des convertisseurs, ou onduleurs qui bien souvent sont fabriqués autour d'une alimentation à découpage bien connue des électroniciens, mais qui fera l'objet d'un autre cours

@Micoute
Oui, y'en a pas mal, comme des électroniciens
En fait, la chaîne c'est physique/chimie, électricité. Électronique, informatique
C'est dans cet ordre que se sont créés les choses.
Après chacun a pris le train en route et selon ses moyens intellectuels.
Pour ma part. ..j'ai fait au plus court

[venom]

Il faut croire que la plupart des programmeurs doivent ou ont du être électriciens dans leur vie.

Je pense plus que sur le forum, la plus part des gens programme par passion, Donc ils ont une vie professionnelle différente de la programmation. Mais aussi pour d'autre juste de la bonne connaissance





@++

[Micoute]

D'accord, mais la passion ne fait pas tout, car il faut quand même de la logique, sinon, tu risque de poser toujours les mêmes questions.

[SPH]

Il faut croire que la plupart des programmeurs doivent ou ont du être électriciens dans leur vie.

Je suis electrotechnicien de formation aussi

[Micoute]

ça a été aussi mon métier pendant plus de 30 ans, en plus de l'équipement industriel et du montage en télécom.