ich muss gesundheits bedingt von meinem Surface aus arbeiten. Nu habe ich das Problem, das bei jedem Start Compiller/Run nach öffnen des Fensters 5- 10 oder manchmal auch mehr Zeit vergeht bis ich das Programm benutzen kann. Jemand eine Idee. Am Code selber kann es kaum liegen. Compiliert funktioniert es prima.
Code: Alles auswählen
;
; Project : Datenlogger output Analyse
;
; First Code : 18.2.2017
; By : T.F. Mc Temucin
; PureBasic : 5.50 LTS (x86)
EnableExplicit
Define Version.s = " 0.01"
Define ProgName.s = "Datenlogger view"
;{ Variablen
#MainWindow = 0
Define RefreshTimer,Quit,Event
;}
If OpenWindow(#MainWindow,0,0,500,250,ProgName+Version, #PB_Window_ScreenCentered | #PB_Window_SystemMenu )
Repeat
Event=WindowEvent()
While Event>0 And EventWindow()= #MainWindow
Select Event
Case #PB_Event_Gadget
Select EventGadget()
;Case #CanvasGadGet
Case #PB_Event_Menu ; ein Eintrag des Popup-Menüs wurde angeklickt
Select EventMenu() ; ermittle den angeklickten Menü-Eintrag...
EndSelect
EndSelect
Case #PB_Event_CloseWindow
MessageRequester("Request", "Das Programm wird beändet.",#PB_MessageRequester_Ok)
Quit=1
Default
EndSelect
Event=WindowEvent()
Wend
Until Quit=1
Else
MessageRequester("Error", "Konnte main Fenster nicht öffnen",#PB_MessageRequester_Ok)
EndIf
End