GetGadgetState(#testText)

[GerhardHoeberth]

Ich bin momenatn völlig ratlos, ...

Könnt ihr mir sagen, wo ich mein Brett vorm Hirn hab?

Ich habe ein Formulat mit Schalter und Text und eine Prozedure zum Auslesen in zwei verschiedene Dateien...

test.pbf

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

test.pb

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

[RSBasic]

Du darfst nicht GetGadgetState() verwenden, sondern GetGadgetText(). Den zurückgebenen Text kannst du entweder mit Val() in Ganzzahl konvertieren oder mit ValD() in Double.
Also:

Code: Alles auswählen

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

Oder:

Code: Alles auswählen

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

[ts-soft]

Das ist schon wieder einer schneller

Code: Alles auswählen

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

PS: Herzlichen Glückwunsch nachträglich

[GerhardHoeberth]

Vielen herzlichen Dank

Ich wusste, dass ich das Brett nur nicht sehe ...

aufs Forum ist halt immer Verlass (Danke euch beiden)