Hier mal ein Beispiel:
Code: Alles auswählen
If OpenWindow(0, 100, 200, 160, 130, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget) And CreateGadgetList(WindowID(0))
wert1.f=6583.9
TextGadget(10,30,10,120,20,"Ausgabe mit Variable")
StringGadget(0,30,30,100,20,Str(wert1.f))
TextGadget(11,30,80,120,20,"Ausgabe ohne Variable")
StringGadget(2,30,100,100,20,"6583.9")
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
End