'****************************************************************************** ' GLOBLFlD.BAS = QBasic-Testprogramm fuer in SUBs als global deklarierte Felder ' ============ ' GLOBLFLD.BAS soll testen, wie lang Felder sein k”nnen, die in einer SUB/ ' FUNZTION mit SHARED global deklariert sind. ' ' Das Hauptprogramm ruft das in der SUB Add global deklarierte dynamische ' Feld feld% mit per Bedienung vorgebbarer Feldl„nge anz% auf. Add tr„gt nur ' fortlaufende Werte in Add ein, sonst nichts. Das Hauptprogramm zeigt diesen ' Feldinhalt dann an ' ' Es zeigt sich, daá eigenartigerweise in QBasic und QuickBasic die Feldl„nge ' auf 10 Feldelemente begrenzt ist - unabh„ngig vom Feldtyp (kann beliebi- ' ger numerischer Typ oder Stringtyp sein). ' Bei PowerBasic besteht diese Begrenzung nicht!! ' ' Verwendete Befehle: SHARED (ohne DIM in SUB/FUNCTION) ' ' ' \ (c) Thomas Antoni, 27.9.99 - 28.9.99 ' \ /\ Mailto:thomas@antonis.de ' ( ) http://www.antonis.de ' .( o ). ' ----==== Hottest QBasic Stuff on Earth !!! ====---- ' '****************************************************************************** DECLARE SUB Add (anz%) ' DO CLS INPUT "Gib die Feldl„nge ein"; anz% CALL Add(anz%) PRINT "Das Feld hat folgenden Inhalt" FOR i = 1 TO anz%: PRINT feld$(i): NEXT i PRINT "Wiederholen.... [beliebige Taste] Beenden... [Esc]" DO: taste$ = INKEY$: LOOP WHILE taste$ = "" LOOP WHILE taste$ <> CHR$(27) END SUB Add (anz%) SHARED feld$() FOR k = 1 TO anz%: feld$(k) = STR$(k): NEXT k END SUB