PureBasic

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