PureBasic

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Frame3D_0
  #Text_0
  #String_0
  #Button_0
  #Text_1
  #String_1
EndEnumeration

  If OpenWindow(#Window_0, 0, 0, 270, 130, "Méga to Octet",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      Frame3DGadget(#Frame3D_0, 10, 5, 250, 115, "")
      TextGadget(#Text_0, 20, 30, 75, 20, "chiffre en MO :")
      StringGadget(#String_0, 100, 25, 150, 20, "", #PB_String_Numeric)
      ButtonGadget(#Button_0, 20, 55, 230, 20, "calcul")
      TextGadget(#Text_1, 20, 85, 75, 20, "resultat en KO :")
      StringGadget(#String_1, 100, 80, 150, 20, "", #PB_String_ReadOnly)

    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case #Button_0
        TexteMO$ = GetGadgetText(#String_0);<--- on renvoie le nombre ecrit dans le string_0 ( le chiffre en MO )
        multiple$ = Str(1024);<--- on prepart le multiplicateur
        resultat = Val(TexteMO$)*Val(multiple$);<--- on multiplie le 1er chiffre par le multiple ( 1024 )
        SetGadgetText(#String_1, Str(resultat));<--- on renvoie le resultat total au string_1

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

Code : Tout sélectionner

      Case #Button_0
        TexteMO$ = GetGadgetText(#String_0);<--- on renvoie le nombre écrit dans le string_0 ( le chiffre en MO )
        resultat = Val(TexteMO$)*1024;<--- on multiplie le 1er chiffre par 1024
        SetGadgetText(#String_1, Str(resultat));<--- on renvoie le résultat total au string_1
    EndSelect