home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / edv_test / edvtest.bas < prev    next >
BASIC Source File  |  1997-10-09  |  11KB  |  171 lines
  1. 8 DIM D$(55,5)
  2. 9 REM
  3. 10 GOTO 140
  4. 60 CLS : LOCATE 1,1 :color 0,7:print " ------- (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------ ":color 7,0
  5. 62 LOCATE 2,1 : PRINT CHR$(32);: PRINT "                           E D V - S P E Z I A L T E S T";: PRINT TAB(80)CHR$(32)
  6. 63 LOCATE 3,1 : PRINT CHR$(32)+STRING$(78,32)+CHR$(32)
  7. 64 LOCATE 4,36 : PRINT CHR$(32);: PRINT "Publid Domain       ";: PRINT TAB(80)CHR$(32)
  8. 65 LOCATE 5,36 : PRINT CHR$(32);: PRINT " Version 1.0           ";: PRINT TAB(80)CHR$(32)
  9. 66 LOCATE 6,1 : PRINT CHR$(32)+STRING$(78,32)+CHR$(32)
  10. 67 FOR B=1 TO 16
  11. 68 LOCATE 6+B,1 : PRINT CHR$(32);TAB(80)CHR$(32)
  12. 69 NEXT
  13. 70 LOCATE 23,1 : PRINT CHR$(32)+STRING$(78,32)+CHR$(32)
  14. 71 RETURN
  15. 110 LOCATE 7,3 : PRINT CHR$(32)+STRING$(12,32)+CHR$(32)
  16. 111 LOCATE  8,3 : PRINT CHR$(32)"FRAGE :     "CHR$(32)
  17. 112 LOCATE  9,3 : PRINT CHR$(32)+STRING$(12,32)+CHR$(32)
  18. 115 LOCATE 10,3 : PRINT CHR$(32)+STRING$(74,32)+CHR$(32)
  19. 116 LOCATE 11,3 : PRINT CHR$(32);TAB(78)CHR$(32)
  20. 117 LOCATE 12,3 : PRINT CHR$(32)+STRING$(74,32)+CHR$(32)
  21. 120 LOCATE 13,3 : PRINT CHR$(32)+STRING$(22,32)+CHR$(32)
  22. 121 LOCATE 14,3 : PRINT CHR$(32)"WÄHLEN SIE 1,2 ODER 3 "CHR$(32)
  23. 122 LOCATE 15,3 : PRINT CHR$(32)+STRING$(5,32)+CHR$(32)+STRING$(16,32)CHR$(32)+STRING$(52,32)+CHR$(32)
  24. 123 LOCATE 16,3 : PRINT CHR$(32);" (1) ";CHR$(32)TAB(79)CHR$(32)
  25. 124 LOCATE 17,3 : PRINT CHR$(32);" (2) ";CHR$(32)TAB(79)CHR$(32)
  26. 125 LOCATE 18,3 : PRINT CHR$(32);" (3) ";CHR$(32)TAB(79)CHR$(32)
  27. 126 LOCATE 19,3 : PRINT CHR$(32);" (V)    Programm verlassen"
  28. 127 LOCATE 20,3 : PRINT CHR$(32)+STRING$(75,32)+CHR$(32)
  29. 128 LOCATE 21,3 : PRINT CHR$(32);TAB(79);CHR$(32)
  30. 129 LOCATE 22,3 : PRINT CHR$(32)+STRING$(75,32)+CHR$(32)
  31. 130 RETURN
  32. 140 FOR D=1 TO 50
  33. 141 READ D$(D,1),D$(D,2),D$(D,3),D$(D,4),D$(D,5)
  34. 142 NEXT
  35. 143 GOTO 500
  36. 150 DATA "Wer erfand die Multiplikationsmaschine ?","Leibnitz","Schickard","Boole","1"
  37. 151 DATA "In welchem Jahr erfand Holleriht die Lochkarte ?","1801","1890","1941","2"
  38. 152 DATA "Wieviel Relais befanden sich in der Zus'sche Rechenanlage ?"," 3000"," 8000","18000","1"
  39. 153 DATA "Wie lang in Meter war der Computer MARK I ?"," 5 meter","10 meter","15 meter","3"
  40. 154 DATA "In welchem Jahr spricht man von der 1. Computer-Generation ?","1940","1946","1952","2"
  41. 155 DATA "Was geschah im Jahr 1958 ?","Die MONOLITH-Technik kam !","Der Transistor wurde entdeckt !","Inbetriebnahme des Computers ENIAC","2"
  42. 156 DATA "Was ist die CPU ?","Betriebssystem","kleinste Speichereinheit","Zentraleinheit","3"
  43. 157 DATA "Ein Nachteil der Lochkarte !","einfache Fehlerkorrektur","hoher Platzbedarf","Sortierfähigkeit","2"
  44. 158 DATA "Wieviel Zeichen können mit der Lochkarte dargestellt werden ?","25 Zeichen","40 Zeichen","80 Zeichen","3"
  45. 159 DATA "Wie lang ist in etwa ein Lochstreifen ?","ca. 100 meter","ca. 200 meter","ca. 300 meter","3"
  46. 160 DATA "Welche Aussage ist beim Lochstreifen falsch !","Daten sind sortierbar","kostengünstig","keine Spaltenbegrenzung","1"
  47. 161 DATA "Wo werden die Daten auf der Karteikarte als Magnetband aufgetragen ?","bei der Magnetkarte","bei der Magnetkontokarte","bei der Diskette","2"
  48. 162 DATA "Wie lautet der Begriff MDT ?","Mittlere Datentechnik","Moderner Datenträger","Mittlere Drehzahlturbine","1"
  49. 163 DATA "Lese-Spurlage beim Lochstreifen für die Fernschreibtechnik ?","25","26","28","1"
  50. 164 DATA "Wie breit ist in etwa ein Magnetband ?","10,2 mm","12,7 mm","15,8 mm","2"
  51. 165 DATA "Ein Vorteil des Magnetbandes !","billiger Massenspeicher","visuelle Lesbarkeit","Verwendbarkeit als Urbeleg","1"
  52. 166 DATA "Wie groß ist die Speicherkapazität der Diskette bei 5 1/4''","720 KB","2,0 MB","360 KB","3"
  53. 167 DATA "Welcher Begriff gehört nicht zu den Ausgabegeräten ?","Monitor","CPU","Lochkartenstanzer","2"
  54. 168 DATA "Was gehört zum Begriff 'Stammdaten' ?","Bewegungsdaten","Artikelkartei","Kundenauftrag","2"
  55. 169 DATA " Was gehört zum Begriff RECHENWERK ?","logische Operationen","Eingabeeinheit","Externspeicher","1"
  56. 170 DATA "Zu einer Datei gehören... welcher Begriff ist falsch ?","Dateityp","Datensatz","Worte","1"
  57. 171 DATA "Wo kann folgendes Zeichen eingegeben werden : $ ?","numerische Eingabe","alphabetische Eingabe","alpha-numerische Eingabe","3"
  58. 172 DATA "Was ist eine Zahlenvariable ?","SUMME1","1SUMME","SUMME$","1"
  59. 173 DATA "Welche Funktion bewirkt PRINT !","eine Wertzuweisung","Bildschirmausdruck","Druckerausdruck","2"
  60. 174 DATA "Welche Funktion bewirkt INPUT ?","Variablen-Wertzuweisung","Ausgabe einer Eingabe","Eingabefunktion","3"
  61. 175 DATA "Wieviel TAB-Sprung bewirkt bei der Ausgabe das Zeichen ', ' ?","Tabulator 12","Tabulator 14","Tabulator 16","2"
  62. 176 DATA "Welche der aufgeführten Variablen ist eine echte Variable ?","Name$","Inkey$","Erdev$","1"
  63. 177 DATA "Mit welchem Befehl kann sofort gerechnet werden ?","INPUT","LET","PRINT","3"
  64. 178 DATA "Was versteht man unter dem Begriff SOFTWARE ?","Betriebskommandos","System-Software","Betriebssystem","2"
  65. 179 DATA "Was ist eine JOB-CONTROL ?","Datenverwaltung","Rechenzeitverwaltung","Interpreter-Verwaltung","2"
  66. 180 DATA "Wieviel Bits sind 1 Byte ?","1 Byte =  4 Bit","1 Byte =  8 Bit","1 Byte = 12 Bit","2"
  67. 181 DATA "Wie lautet das DIR-Kommando im MS-Dos für eine waagrechte Ausgabe ?","DIR /P","DIR /W","DIR /CD","2"
  68. 182 DATA "Wieviel Bytes beinhalten 1 Gigabyte (GB) ?","1000000 Bytes","1000000000 Bytes","1000000000000 Bytes","2"
  69. 183 DATA "Mit wievielen Zahlen rechnet das Binäre Zahlensystem ?","mit 1 Zahl","mit 2 Zahlen","mit 3 Zahlen","2"
  70. 184 DATA "Wieviel Zeichen entsprechen 8 Bits ?","128 Zeichen","256 Zeichen","512 Zeichen","2"
  71. 185 DATA "Wieviel Bits sind in einem Halbbyte untergebracht ?","4 Bits","8 Bits ","ein Halbbyte gibt es nicht","1"
  72. 186 DATA "Wie wird in MS-Dos ein Unterverzeichnis angelegt ?","MD NAME","CD NAME","RD NAME","1"
  73. 187 DATA "Mit welchem Befehl können Textdateien im Dos gelesen werden ?","mit TYPE","mit PRINT","mit COPY","1"
  74. 188 DATA "Wie heißt der Befehl zum löschen eines Programms in MS-DOS ?","REN    NAME","DEL    NAME","FORMAT NAME","2"
  75. 189 DATA "Wie gelangt man in ein Unterverzeichnis ?","mit DIR","mit DIR /","mit DIR \","3"
  76. 190 DATA "Welches Zeichen kann in MS-DOS als Joker verwendet werden ?","das Zeichen +","das Zeichen ?","das Zeichen #","2"
  77. 191 DATA "Wieviele Zeichen stehen für ein Programmname zur Verfügung ?"," 6 Zeichen"," 8 Zeichen","12 Zeichen","2"
  78. 192 DATA "Der Befehl für das Wechseln eines Laufwerks !","A:","CD A:","DIR A:","1"
  79. 193 DATA "Mit welchem Befehl wird beim Formatieren das System mit kopiert ?","FORMAT B:","FORMAT B:/S","FORMAT B:\S","2"
  80. 194 DATA "Wieviel ist 2 hoch 8 im binären Zahlensystem ?","128 Zeichen","256 Zeichen","512 Zeichen","2"
  81. 195 DATA "Mit welchen Tasten wird ein Warmstart durchgeführt ?","ALT+CRTL+DEL","ALT+CRTL+ESC","CRTL+C","1"
  82. 196 DATA "Welche Zeichen können bei INPUT E$ eingegeben werden ?","nur Zahlen","nur Textzeilen","alle zur Verfügung stehenden Zeichen","3"
  83. 197 DATA "Was ist eine Anweisung ?","Eingabe","Befehl","Ausgabe","2"
  84. 198 DATA "Aus was besteht ein Prozessor ?","aus dem Betriebssystem","aus Steuer- und Rechenwerk","aus einer Datenansammlung","2"
  85. 199 DATA "Was ist kein Eingabegerät ?","Lochstreifen","Magnetplatte","Tastatur","2"
  86. 500 GOSUB 60 : GOSUB 110 : FOR B=1 TO D  : GOSUB 501 : GOTO 506
  87. 501 LOCATE 8,12 : PRINT B
  88. 502 LOCATE 11,5 : PRINT D$(B,1)
  89. 503 LOCATE 16,12 : PRINT D$(B,2)
  90. 504 LOCATE 17,12 : PRINT D$(B,3)
  91. 505 LOCATE 18,12 : PRINT D$(B,4) : RETURN
  92. 506 LOCATE 21,20 : PRINT "          Drücken Sie 1,2,3  oder 4"
  93. 510 E$ = INKEY$ : IF E$="" THEN 510
  94. 511 IF E$="1" THEN 520
  95. 512 IF E$="2" THEN 520
  96. 513 IF E$="3" THEN 520
  97. 514 if E$="V" or E$="v" THEN END
  98. 515 GOTO 510
  99. 520 IF E$=D$(B,5) THEN 522
  100. 521 LOCATE 21,20 : PRINT "Antwort ist falsch    *  Drücken Sie eine Taste" : GOTO 530
  101. 522 LOCATE 21,20 : PRINT "Antwort ist richtig   *  Drücken Sie eine Taste" : PU=PU+1
  102. 530 E$ = INKEY$ : IF E$="" THEN 530
  103. 531 REM 
  104. 532 IF B=50 THEN 534
  105. 533 GOSUB 110 : NEXT
  106. 534 LOCATE 21,20 : PRINT "  Zur Auswertung des Test's bitte Taste drücken"
  107. 535 E$ = INKEY$ : IF E$="" THEN 535
  108. 540 IF PU<=10 THEN 545
  109. 541 IF PU>10 AND PU <=20 THEN 555
  110. 542 IF PU>20 AND PU <=30 THEN 565
  111. 543 IF PU>30 AND PU <=40 THEN 575
  112. 544 IF PU>40 THEN 585
  113. 545 GOSUB 60 
  114. 546 LOCATE 10,13 : PRINT "Ihr Wissen über die EDV ist mehr als mangelhaft. Sie"
  115. 547 LOCATE 11,13 : PRINT "sollten sich Bücher darüber besorgen oder einen     "
  116. 548 LOCATE 12,13 : PRINT "Lehrgang über die EDV mitmachen.                    "
  117. 549 LOCATE 14,13 : PRINT "Sofern Sie selbst an einem Computer arbeiten,sollten"
  118. 550 LOCATE 15,13 : PRINT "sie sich umgehend um eine andere Stelle bemühen."
  119. 551 GOTO 700
  120. 555 GOSUB 60 
  121. 556 LOCATE 10,13 : PRINT "Ihr Wissen über die EDV ist etwas dürftig.Einiges an"
  122. 557 LOCATE 11,13 : PRINT "Grundwissen ist zwar vorhanden, doch für eine Tätigkeit"
  123. 558 LOCATE 12,13 : PRINT "an einer EDV-Anlage ist Ihr Wissen nicht ausreichend."
  124. 559 LOCATE 14,13 : PRINT "Sie sollten Ihr Wissen auffrischen,sei es durch     "
  125. 560 LOCATE 15,13 : PRINT "Eigeninitiative oder durch geeignete Schulungen."
  126. 561 GOTO 700
  127. 562 LOCATE 17,13 : PRINT "EDV weitgehend bereichert."
  128. 565 GOSUB 60 
  129. 566 LOCATE 10,13 : PRINT "Ihr Wissen über die EDV ist durchschnittlich.Mit   "
  130. 567 LOCATE 11,13 : PRINT "Ihrem besseren Grundwissen läßt sich schon etwas anfangen."
  131. 568 LOCATE 12,13 : PRINT "Nehmen Sie jedoch auch weiterhin an Bildungsmaßnahmen"
  132. 569 LOCATE 13,13 : PRINT "statt,wenn Sich dafür eine Gelegenheit bietet.Ein mehr"
  133. 570 LOCATE 14,13 : PRINT "an Wissen hat noch niemandem geschadet." : GOTO 700
  134. 575 GOSUB 60 
  135. 576 LOCATE 10,13 : PRINT "Ihr Wissen über die EDV ist gut. Sie sind der richtige"
  136. 577 LOCATE 11,13 : PRINT "Mitarbeiter an einer EDV-Anlage.Sie kennen sich aus und"
  137. 578 LOCATE 12,13 : PRINT "wissen nicht nur, wie man Daten eingibt. Das kommt Ihrer"
  138. 579 LOCATE 13,13 : PRINT "Arbeit sicher zugute. Bleiben Sie aber mit diesem Wissens-"
  139. 580 LOCATE 14,13 : PRINT "stand nicht stehen und bilden Sie sich ,wenn sich eine"
  140. 581 LOCATE 15,13 : PRINT "Möglichkeit dafür ergibt, unbedingt weiter." : GOTO 700
  141. 585 GOSUB 60 
  142. 586 LOCATE 10,13 : PRINT "Hervorragend ! Sie haben echtes Spezialwissen in Bezug"
  143. 587 LOCATE 11,13 : PRINT "zur EDV. Einfach toll ! Sofern Sie an einer EDV-Anlage "
  144. 588 LOCATE 12,13 : PRINT "tätig sind, wird man mit Ihren Leistungen mehr als zufrieden"
  145. 589 LOCATE 13,13 : PRINT "sein. Machen Sie jedoch nicht den Fehler mit einem Wissens-"
  146. 590 LOCATE 14,13 : PRINT "stillstand und bilden Sie sich weiter." : GOTO 700
  147. 700 LOCATE 21,10 : PRINT "Ihre Punkte : ";PU;" Test wiederholen =T    Lösungen=L     Ende=ESC"
  148. 705 E$ = INKEY$ : IF E$="" THEN 705
  149. 706 IF E$="t" THEN PU=0  : GOTO 500
  150. 707 IF E$="l" THEN 800
  151. 708 IF E$=CHR$(27) THEN CLS : END
  152. 709 GOTO 705
  153. 800 GOSUB 60
  154. 801 GOSUB 110
  155. 802 FOR B= 1 TO D : GOSUB 501
  156. 803 IF D$(B,5)="1"THEN LOCATE 16,70 : PRINT "RICHTIG" : GOTO 810
  157. 804 IF D$(B,5)="2"THEN LOCATE 17,70 : PRINT "RICHTIG" : GOTO 810
  158. 805 IF D$(B,5)="3"THEN LOCATE 18,70 : PRINT "RICHTIG" : GOTO 810
  159. 810 LOCATE 21,20 : PRINT "Drücken Sie eine Taste  oder    Beenden=ESC"
  160. 820 E$ = INKEY$ : IF E$="" THEN 820
  161. 821 IF E$=CHR$(27) THEN 825
  162. 822 IF B=50 THEN 825
  163. 824 GOSUB 110 : NEXT
  164. 825 LOCATE 21,20 : PRINT "Test wiederholen =T    Lösungen=L     Ende=ESC"
  165. 830 E$ = INKEY$ : IF E$="" THEN 830
  166. 831 IF E$="t" THEN PU=0  : GOTO 500
  167. 832 IF E$="l" THEN 800
  168. 833 IF E$=CHR$(27) THEN CLS : END
  169. 834 GOTO 830
  170.  
  171.