***  Aufzeichnen einer Klickfolge

Anzeigefenster  'Flags-Test' (B=98, H=36)

Anzeige-Element  Button: 'Klick mich!' (ID='cmdKlick', X=32, Y=2, B=22, H=8, deaktiviert)

Anzeige-Element  Button: 'Start' (ID='cmdStart', X=4, Y=2, B=22, H=8)

Anzeige-Element  Zeichenfläche:  (ID='ZF1', X=4, Y=12, B=90, H=10, umrandet)

Anzeige-Element  Button: 'Neu zeichnen' (ID='cmdRedraw', X=60, Y=2, B=22, H=8)

Warte  endlos...

::  Anzeige_Element(cmdStart)_Klick

Wenn  Wahr: '("[.Element(cmdStart).Text]" = "Start")'

     ***  Start!

     Setze  in [.Element(cmdStart).Text]:  'Stopp'

     Setze  in [.Element(cmdKlick).Aktiv]:  '1'

     Zeichne  auf Fenster '.ZF1': Linie (Erst löschen)

     Setze  in [Flags.Löschen]:  ''

     Setze  in [Zähler]:  '0'

     Aufruf  'Tick' (Hintergrund, ständig, Intervall '0,1)

Sonst  

     ***  Stopp!

     Aufruf  'Tick' (Hintergrund, ständig, abschalten!)

     Setze  in [.Element(cmdStart).Text]:  'Start'

     Setze  in [.Element(cmdKlick).Aktiv]:  '0'

     Meldung  "Tests: [Zähler]¶Anzahl Klicks: [Flags.AnzahlGesetzt]" (Titel: 'Auswertung', Info, OK)

Ende Wenn

Zurück

::  Anzeige_Element(cmdKlick)_Klick

Setze  in [Flags.Flag([Zähler])]:  '1'

Zurück

::  Tick

***  Diagramm erweitern und Zähler+1

Zeichne  auf Fenster '.ZF1': Linie (X=[Zähler], Y=[Flags.Flag([Zähler])]*3, B=0, H=2, Dicke '2')

Setze  in [Zähler]:  '[Zähler]+1' (berechnen)

Aufruf  'Anzeige_Element(cmdStart)_Klick', wenn Wahr: '[Zähler]>99'

Zurück  

::  Anzeige_Element(cmdRedraw)_Klick

***  gespeichertes Ergebnis mit Zufallsfarben neu zeichnen

Zeichne  auf Fenster '.ZF1': Linie (Erst löschen)

Schleife Ab   ([Tests]  von 0  bis [Zähler])

     Zeichne  auf Fenster '.ZF1': Linie (X=[Tests], Y=[Flags.Flag([Tests])]*3, B=0, H=2, Farbig, Dicke '2')

Schleife Bis

Zurück  

**cX402FEA 1799F9S214 1CMQkwCQkg QXVmemVpY2 huZW4gZWlu ZXIgS2xpY2

tmb2xnZQ0K MzkJMAkJIE ZsYWdzLVRl c3QJVzk4CU gzNg0KMzgJ MAkJIEtsaW

NrIG1pY2gh CUljbWRLbG ljawlYMzIJ WTIJVzIyCU g4CUENCjM4 CTAJCSBTdG

FydAlJY21k U3RhcnQJWD QJWTIJVzIy CUg4DQozOA kwCQkgCUla RjEJWDQJWT

EyCVc5MAlI MTAJOQlKDQ ozOAkwCQkg TmV1IHplaW NobmVuCUlj bWRSZWRyYX

cJWDYwCVky CVcyMglIOA 0KMzEJMAkJ RQ0KMAkwCQ 0KMTkJMAkJ IEFuemVpZ2

VfRWxlbWVu dChjbWRTdG FydClfS2xp Y2sNCjI5CT AJCSAoIlsu RWxlbWVudC

hjbWRTdGFy dCkuVGV4dF 0iID0gIlN0 YXJ0IikNCj EJMAkJIFN0 YXJ0IQ0KMj

IJMAkJIFN0 b3BwCT0uRW xlbWVudChj bWRTdGFydC kuVGV4dA0K MjIJMAkJID

EJPS5FbGVt ZW50KGNtZE tsaWNrKS5B a3Rpdg0KMA kwCQ0KMTUJ MAkJWglRLl

pGMQlMDQoy MgkwCQkgCT 1GbGFncy5M 9nNjaGVuDQ oyMgkwCQkg MAk9WuRobG

VyDQo0NAkw CQkgVGljaw muCUkJUwlW MCwxDQoxNw kwCQkgDQox CTAJCSBTdG

9wcCENCjQ0 CTAJCSBUaW NrCa4JSQlT CVYwDQoyMg kwCQkgU3Rh cnQJPS5FbG

VtZW50KGNt ZFN0YXJ0KS 5UZXh0DQoy MgkwCQkgMA k9LkVsZW1l bnQoY21kS2

xpY2spLkFr dGl2DQowCT AJDQozCTAJ CU02NAlCMA lUQXVzd2Vy dHVuZwkgVG

VzdHM6IFta 5GhsZXJdtk FuemFobCBL bGlja3M6IF tGbGFncy5B bnphaGxHZX

NldHp0XQ0K MTgJMAkNCj Q1CTAJDQow CTAJDQoxOQ kwCQkgQW56 ZWlnZV9FbG

VtZW50KGNt ZEtsaWNrKV 9LbGljaw0K MjIJMAkJID EJPUZsYWdz LkZsYWcoW1

rkaGxlcl0p DQo0NQkwCQ 0KMAkwCQ0K MTkJMAkJIF RpY2sNCjEJ MAkJIERpYW

dyYW1tIGVy d2VpdGVybi B1bmQgWuRo bGVyKzENCj E1CTAJCVEu WkYxCVhbWu

RobGVyXQlZ W0ZsYWdzLk ZsYWcoW1rk aGxlcl0pXS ozCVcwCUgy CUQyCUwNCj

IyCTAJCSBb WuRobGVyXS sxCT1a5Ghs ZXIJQw0KND QJMAkJIEFu emVpZ2VfRW

xlbWVudChj bWRTdGFydC lfS2xpY2sJ rlta5GhsZX JdPjk5DQo0 NQkwCQkgCa

4NCjAJMAkN CjE5CTAJCS BBbnplaWdl X0VsZW1lbn QoY21kUmVk cmF3KV9LbG

ljaw0KMQkw CQkgZ2VzcG VpY2hlcnRl cyBFcmdlYm 5pcyBtaXQg WnVmYWxsc2

ZhcmJlbiBu ZXUgemVpY2 huZW4NCjE1 CTAJCVoJUS 5aRjEJTA0K MzMJMAkJWl

Rlc3RzCVMw CUVbWuRobG VyXQ0KMTUJ MAkJUS5aRj EJWFtUZXN0 c10JWVtGbG

Fncy5GbGFn KFtUZXN0c1 0pXSozCVcw CUgyCUNybm QoMTQpCUQy CUwNCjM0CT

AJDQo0NQkw CQkgCa4JVj ENCjAJMAkN Cg===*