27 lines
429 B
Plaintext
27 lines
429 B
Plaintext
VERSION 1.00
|
|
Begin Form Form1
|
|
Begin Timer Timer1
|
|
Interval = 0
|
|
End
|
|
End
|
|
|
|
' tb-screen: 80x25
|
|
' tb-events: time:0ms
|
|
' Hostfristen: Aktivierung 1000, erstes Ereignis beendet SLEEP bei 1100 ms.
|
|
DIM SHARED n%
|
|
SLEEP 1
|
|
Timer1.Interval = 100
|
|
vor% = n%
|
|
SLEEP 1
|
|
nach% = n%
|
|
Timer1.Interval = 0
|
|
Form1.Hide
|
|
CLS
|
|
PRINT "vor="; LTRIM$(STR$(vor%))
|
|
PRINT "nach="; LTRIM$(STR$(nach%))
|
|
END
|
|
SUB Timer1_Timer()
|
|
SHARED n%
|
|
n% = n% + 1
|
|
END SUB
|