Habe hier mal was für unsere Einsteiger
gemacht. Das Programm soll etwas an
die MS-DOS Zeiten erinnern.
Code
Declare ende%
WindowTitle "Test"
Window 800, 600
Cls 0
Color 14, 0
TBox 1, 5 - 3, 55; 1
Color 15, 0
Locate 2, 10
Print "F2 = START"
Locate 2, 25
Print "F3 = STOP"
Locate 2, 40
Print "F10 = Ende"
AddHotkey 2001, $71, 0 ' F2 - Taste
AddHotKey 2002, $72, 0 ' F3 - Taste
AddHotKey 2003, $79, 0 ' F10 - Taste
ende% = 0
WhileNot ende%
Waitinput
Case %key = 2 : ende% = 1
If MenuItem(2001)
Mach_was()
ElseIf MenuItem(2003)
ende% = 1
EndIf
EndWhile
Proc Mach_was
Declare a&
a& = 0
While 1
Case MenuItem(2002) : Break
a& = a& + 1
Sleep 100
Locate 10, 1
Print "Test : "; a&
EndWhile
Locate 10, 1
Print Space$(20)
EndProc
End
Alles anzeigen