wie erreiche ich, dass beim Drücken der Stop Taste der Zähler anhält und bei Start wieder weiter läuft?
Danke im Vorab... Kurt
Code: Alles auswählen
Enumeration
#Counter
#String0
#BtnStart
#BtnStop
EndEnumeration
Procedure Open_Counter()
OpenWindow(#Counter, 853, 168, 600, 440, "Counter")
StringGadget(#String0, 0, 5, 240, 25, "0")
ButtonGadget(#BtnStart, 0, 30, 120, 25, "Start")
ButtonGadget(#BtnStop, 120, 30, 120, 25, "Stop")
EndProcedure
Open_Counter()
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
; Event Schleife
Repeat
Event = WaitWindowEvent()
Select Event
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Case #PB_Event_Menu
EventMenu = EventMenu()
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Case #PB_Event_Gadget
EventGadget = EventGadget()
If EventGadget = #String0
ElseIf EventGadget = #BtnStart
For i=1 To 1000
a$=Str(i)
SetGadgetText(#String0,a$)
While WindowEvent():Wend ; updaten
Delay (50)
Next
ElseIf EventGadget = #BtnStop
EndIf
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Counter
CloseWindow(#Counter)
End
EndIf
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
EndSelect
ForEver