PureBoard

Code: Alles auswählen

Enumeration FormWindow
  #Window_0
EndEnumeration

Enumeration FormGadget
  #auslesen
  #testText
EndEnumeration

Declare auslesen(EventType)

Procedure OpenWindow_0(x = 0, y = 0, width = 330, height = 70)
  OpenWindow(#Window_0, x, y, width, height, "", #PB_Window_SystemMenu)
  ButtonGadget(#auslesen, 30, 10, 160, 40, "auslesen")
  StringGadget(#testText, 230, 10, 70, 40, "45", #PB_String_Numeric)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
        Case #auslesen
          auslesen(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure

Code: Alles auswählen

XIncludeFile "test.pbf"

OpenWindow_0()

Repeat
  
  pgrlauf = Window_0_Events(WaitWindowEvent())
  
Until pgrlauf = #False

End


Procedure auslesen(EventType)
  test.d = GetGadgetState(#testText)
  Debug test
  
EndProcedure

Code: Alles auswählen

Procedure auslesen(EventType)
  test = Val(GetGadgetText(#testText))
  Debug test
 
EndProcedure

Code: Alles auswählen

Procedure auslesen(EventType)
  test.d = ValD(GetGadgetText(#testText))
  Debug test
 
EndProcedure

Code: Alles auswählen

Procedure auslesen(EventType)
  test.d = ValD(GetGadgetText(#testText))
  Debug test
 
EndProcedure