Das deutsche QBasic- und FreeBASIC-Forum

[QB42]

Hallo, da alles, was ich über SUBs gelesen habe, so schlecht erklärt ist, daß ich das schlichtweg nicht verstehen kann, bitte ich hiermit mal um ein kleines Beispiel, damit ich dann wenigstens mal im Groben weiß, wie's gemacht wird. Folgendes Programm erzeugt Quadratzahlen:

CLS
For i = 1 to 10
PRINT i * i
Next i

OK, und nun möchte ich mal spaßeshalber und als Übung ein SUB einbauen, um die Zeile "PRINT i * i" als SUB ausführen zu lassen. Wie geht das? Tut mir leid, wenn ich vielleicht etwas nerve mit meinen Fragen, aber dafür sind selbige auch eher einfacher Art für diejenigen, die gut Bescheid wissen. Vielen Dank!

QB42

[MisterD]

einfach schreiben

[code]SUB printQuadrat (i AS INTEGER)
PRINT i*i
END SUB 'steht von QB dann schon automatisch da[code]
der DECLARE SUB-Header (der erklärt deinem Programm das es die Sub gibt und wie sie aufgerufen wird) wird von QB beim speichern von alleine erstellt, der steht dann ganz am Anfang der Datei.

Aufrufen tust du das ganze dann einfach so:[code]printQuadrat 10 'Ausgabe: 100[/code]

Fertig
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[QB42]

Hallo MisterD, ist gut gemeint, aber auch das bringt mich leider kein Stück weiter, denn ich weiß ja nichtmal, wie ein Bezeichner für SUB überhaupt aussehen muß. Daher bitte ich höflich darum, daß mir mal ein kurzes Beispiel aufgeschrieben wird, wie von einem Hauptprogramm ein SUB-Programm aufgerufen wird. Das SUB-Programm springt dann ja anscheinend von selber zurück ins Hauptprogramm. Vielen Dank!

QB42

[Skilltronic]

Hallo

Sieh dir doch mal die Monster-FAQ und das QB-Kochbuch auf www.qbasic.de an. Dort werden praktisch alle Anfängerfragen beantwortet.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[dreael]

Hatte früher einmal einen riesigen Artikel zum Thema geschrieben:

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/SUB-Unterprogramme.html

Am besten einmal von A bis Z durcharbeiten!
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[QB42]

Es ist völlig hoffnungslos, sich zum Thema SUB-Routinen die Erlärungen in den Monster-Faqs oder aus anderen Quellen durchzulesen, weil die Erklärungen nur diejenigen verstehen, die ohnehin schon wissen, wie es geht. Auch abtippen von egal welchen Beispielen hat keinen Zweck: Entweder gibt es Fehlermeldungen oder es funktioniert nicht. Also bin ich auf Gedeih und Verderb darauf angewiesen, herumprobieren zu müssen! Folgendes Übungs-Beispiel funktioniert nicht und ich möchte bitte wissen, wieso nicht:

CLS
FOR i = 1 TO 10
GOSUB Marke
Next i

Marke:
PRINT i * i
RETURN

Fehlermeldung: "Return ohne GOSUB" ?!?

Wie kommt das? Danke für die Erklärung.

QB42

[Skilltronic]

Hallo

Wenn die FOR...NEXT-Schleife 10x durchlaufen wurde, läuft da Programm einfach weiter, bis es zum RETURN kommt, also ohne GOSUB-Aufruf. Deshalb der Fehler. Ein END nach dem NEXT beendte das Programm bevor es in diese "Falle" läuft.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[QB42]

Alles klar, Danke! Das war jetzt ein Meilenstein, denn nun weiß ich erstmal, wie man mit GOSUB umgeht und warum nach dem NEXT i ein END gehört (F8 verschaffte mir endgültige Klarheit), allerdings wundere ich mich, warum das Programm ohne das END nicht trotzdem die Quadratzahlen bis 121 ausdruckt, denn erst dann kommt ja die Falle.

QB42

[Skilltronic]

Hallo

Die Variable i läuft ja nur bis zehn. 10² ist 100. Wenn du die Quadratzahlen bis 121 willst, muss i von 1 bis 11 gehen. Bei so übersichtlichen Programmen kannst du dich ja auch einfach mal in die Rolle des Interpreters versetzen. Arbeite die Befehle Schritt für Schritt ganz stur ab, wie es der Rechner auch tut - vielleicht sogar mit dem Zeigefinger auf der jeweils aktuellen Programmzeile.. Mit dieser Methode wäre dir evtl. auch das mit dem fehlenden END selbst aufgefallen. Hört sich vielleicht doof an, ist aber für Einsteiger eine ganz gute Methode finde ich.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[MisterD]

die quadratzahlen von 1 bis 100 spuckt er übrigens aus, die sind nur so schnell wieder weg das du sie nicht gesehen hast..

wenn dein Programm mal mit so nem Fehler hängengeblieben ist drück mal F4, dann siehst du, was zuletzt auf dem Bildschirm war.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[QB42]

Man lernt immmer mehr! Tatsächlich liefert das Programm die Werte bis 121, wenn das END fehlt, denn das zeigt der Test mit F4 nach der Fehlermeldung. F4 muß ich mir also unbedingt merken. Nochmals Danke an alle.

QB42

[Skilltronic]

Hallo

Das kommt so. Wenn nichts anderes angegeben wird, wird zu i in der Schleife immer eins dazuaddiert und beim NEXT wird dann nachgesehen, ob i noch nicht über der Obergranze (in deinem Fall 10) ist. Ist dies nicht der Fall, läuft das Programm weiter. Die Schleifenvariable ist nach beenden der Schleife immer einen Zählschritt grösser als die Obergrenze. Hier eben 11. F4 schaltet ja einfach nur in den Ausgabebildschirm. Ein

DO: LOOP WHILE INKEY$ = ""

zwischen NEXT und END, lässt die Ausgabe stehen, bis eine beliebige Taste gedrückt wird.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[Mao]

Hallo!

Ich weiß nicht, ob das Problem immer noch besteht aber ich schreib' dir einfach mal eine einfache SUB!

Hauptprogramm:

[QB42]

Hallo Mao, jetzt, wo mir mal jemand ein Beispiel geschrieben hat, verstehe ich endlich die Spielregeln, wie man überhaupt einen SUB-Namen anlegt, also nicht etwa SUB(xyz), sondern xyz.SUB. Das muß man ja erstmal wissen. Und auch, daß die SUBs dann mit CALL aufgerufen werden. So funktioniert das. Schöne restliche Woche und vielen Dank!

QB42

[OdinX]

du kannst der sub dann noch werte übergeben, die er zB für berechnungen oder so braucht.

im Hauptprogramm:

[Lutz Ifer]

[jb]

SUBs kann man sehr wohl ohne CALL aufrufen.

jb

[QB42]

Hallo OdinX, ich bin ja Einsteiger und das mit dem DIM weiß ich noch nicht, aber trotzdem Danke. Der Sinn der SUBs ist mir schon klar und ein Primzahlen-Programm habe ich sogar auch schon selber gemacht, allerdings ist das Programm halt mit den Mittlen entstanden, die ich bisher weiß.

@ L.: Das war natürlich kein Fake von mir, denn es ist ja so, daß man eine Sache immer erst dann verstehen kann, wenn einem vorher auch eine verständliche Erklärung angeboten wurde und da war der Mao der erste, der das gemacht hat.

QB42

[Mao]

[QB42]

Werd's mal ausprobieren, Danke. Im Moment finde ich GOSUB praktischer als SUB, weil mit GOSUB Haupt- und Unterprogramm auf ein und derselben Seite bleiben.

QB42