home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 01171 / demo.bas < prev    next >
BASIC Source File  |  1990-12-22  |  4KB  |  180 lines
  1.  
  2. Dim Menu$(6)
  3.  
  4. Subroutine MakeMenu()
  5.   Menu$(1) = "&Datei &Info &Ende__F9"
  6.   Menu$(2) = "&Hintergrund &Wei▀ &Grau &Schwarz"
  7.   Menu$(3) = "&Grafik &Text &Linie &Bogen Ba&r &Pie &Maus"
  8.   Menu$(4) = "&Clipboard &Lesen &Schreiben"
  9.   Menu$(5) = "&Verschiedenes Start_Uhr Stop_Uhr &DialogBox &FileBox &Timer"
  10.   Menu$(6) = ""
  11.   Menu Menu$
  12. Endsub
  13.  
  14. Subroutine CheckHinter(n%)
  15.   MenuItem 2001, 1, 0 
  16.   MenuItem 2002, 1, 0 
  17.   MenuItem 2003, 1, 0 
  18.   MenuItem n%, 1, 1
  19. Endsub
  20.  
  21. Subroutine Hello()
  22.   Font 21, 12, 700, 0, 1
  23.   Print "Hello Windows"
  24. Endsub 
  25.  
  26. Subroutine Linie()
  27.   x% = 20 : y% = 20 
  28.   MoveTo x%, y%
  29.   For i% = 1 To 8
  30.     Style i%/2, 0, 1
  31.     y% = 220 - y%
  32.     x% = x% + 60
  33.     LineTo x%, y%
  34.   Endfor
  35. EndSub
  36.  
  37. Subroutine DialogBox()
  38.   Dialog 10,20, 150,120, 0,  0, "Demo Dialog" ' Rahmen
  39.   Dialog 10,10, 40,10,  11, 11, "Button"      ' BUTTON
  40.   Dialog 10,24, 60,10,  13, 13, "OK"          ' DEFBUTTON
  41.   Dialog 10,40, 60,60,  14, 10, "Gruppe"      ' GROUPBOX
  42.   Dialog 14,50, 40,10,  15, 12, "Radio1"      ' RADIOBUTTON
  43.   Dialog 14,64, 40,10,  16, 12, "Radio2"      ' "
  44.   Dialog 14,78, 40,10,  17, 12, "Radio3"      ' "
  45.   Dialog 80,10, 60,10,  18,  5, "Eingabe"     ' LTEXT
  46.   Dialog 80,25, 60,10,  19, 18, "START"       ' LEDIT
  47.   Dialog 80,40, 60,10,  20,  1, "Check"       ' CHECKBOX 
  48.   Dialog
  49. _INIT:
  50.   DlgItem 15, 15, 17, 4, "Radio1"  ' 1. Leuchtknopf an
  51. _2: 'ESC 
  52.   Dialog @ 
  53. _11:
  54.   DlgItem 19, 0, 0, 2, "Button"
  55. _13:
  56.   DlgItem 19, String$  ' Editierfeld auslesen
  57.   Print String$
  58.   Dialog @
  59. _15:
  60.   DlgItem 15, 15, 17, 4, "Radio1"   
  61. _16:
  62.   DlgItem 16, 15, 17, 4, "Radio2"   
  63. _17:
  64.   DlgItem 17, 15, 17, 4, "Radio3"  
  65. _20:
  66.   If checked% = 0 Then
  67.     DlgItem 20, 0, 0, 4, "Check"    ' Checkmarke setzen
  68.     checked% = 1
  69.   Else 
  70.     DlgItem 20, 0, 0, 0, "Check"    ' Checkmarke entfernen
  71.     checked% = 0
  72.   Endif
  73. Endsub
  74.  
  75.  
  76. Rem  ***  Hauptprogramm ***
  77.  
  78. Rem  Initialisierung
  79.  
  80. Gosub MakeMenu()
  81. MenuItem 2001, 1, 1
  82.  
  83. _MOUSE:
  84.   If mouse% Then
  85.     Mouse button%, x%, y%
  86.     MoveTo x%, y% : Print "Knopf ";button%
  87.   Endif
  88.  
  89. _KEY:
  90.   If asc%(Inkey$()) = 195 Then Goto _1002
  91.  
  92. _CLOSE:
  93.   If clock% Then Stop "clock.exe"
  94.   clock% = 0
  95.  
  96. _TIMER:
  97.   MessageBox "Timer", "Message", 0, a%
  98.  
  99. _1001:
  100.   MessageBox "WinBasic (c) 1990 Zimmer Informatik","Info", 0, a%
  101. _1002:
  102.   If clock% Then Stop "clock.exe"
  103.   clock% = 0
  104.   Stop     '   Programm-Ende
  105.  
  106. _2001:
  107.   cls 0 : Gosub CheckHinter(2001)
  108. _2002:
  109.   cls 2 : Gosub CheckHinter(2002)
  110. _2003:
  111.   cls 4 : Gosub CheckHinter(2003)
  112.  
  113. _3001:
  114.   cls
  115.   Gosub Hello()
  116. _3002:
  117.   cls
  118.   Gosub Linie()
  119. _3003:
  120.   cls
  121.   Colour 4, 7
  122.   Style 1, 4, 1 
  123.   MoveTo 300, 150
  124.   Arc 100, 0, 270
  125. _3004:
  126.   cls
  127.   Colour 2, 5
  128.   Style 0, 4, 3 
  129.   MoveTo 300, 150
  130.   Rect 70, 150
  131. _3005:
  132.   cls
  133.   Colour 2, 6
  134.   Style 1, 3, 3 
  135.   MoveTo 300, 150
  136.   Pie 100, 0, 270
  137. _3006:
  138.  mouse% = 1 - mouse%  '  Flipflop 0/1
  139.  
  140. _4001:
  141.   Cls
  142.   Clip Get "Demo.tmp"
  143.   Open "I", #1, "Demo.tmp"
  144.   Repeat
  145.     Line Input #1, zeile$
  146.     Print zeile$
  147.   Until Error%() <> 0
  148.   Close #1
  149.   Erase "Demo.tmp"
  150.  
  151. _4002:
  152.   Cls
  153.   Open "O", #1, "Demo.tmp"
  154.   Print #1, "1. Zeile"
  155.   Print #1, "2. Zeile"
  156.   Close #1
  157.   Clip Put "Demo.tmp"
  158.   Erase "Demo.tmp"
  159.  
  160. _5001:
  161.   If Clock% = 0 Then
  162.     Cursor 2
  163.     Exec "clock.exe", "", 7
  164.     clock% = 1 ' Merker setzen
  165.     Cursor 0
  166.   Endif
  167.   MenuItem 5001, 1, 1
  168. _5002:
  169.   trace on
  170.   Stop "clock.exe"
  171.   clock% = 0
  172.   MenuItem 5001, 1, 0
  173. _5003:
  174.   Gosub DialogBox()
  175. _5004:
  176.   Files "\windows", "*.exe", file$
  177.   Print file$
  178. _5005:
  179.   Timer 3000
  180.