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