Das deutsche QBasic- und FreeBASIC-Forum

[GRaf]

Hallo hab vor ein programm mit qbasic zu machen
und zwar möchte ich eine (erstmal) schneeflocke oder was auch immer vom himmel fallen lassen. Habe bisher die schneeflocke gemacht mit draw "u100" draw "ta-45" usw. Jez hab ich mir die schneeflocke oben in die mitte gemacht und habe jez folgende subs:
Fallen
Schneeflocke
Hauptprogramm

IM hauptprogramm ruf ich fallen auf dorf steht das die schneeflocke oben in der mitte ist, von der sub rufe ich schneeflocke in der die schneeflocke ist doch jez will ich theoretisch wieder in die fallen sub aber ich weiß nicht wie ich die schneeflocke jez fallen lasse also wills mit sleep machen so dass sie pro 2-5 sek oder was auch immer ein paar cm runter geht. Am besten wäre es für mich wenn mir jemand sagen könnte wie ich das ganze mit dem sleep befehl mache. Ich habe schon ausprobiert von der Sub schneeflocke wieder mit call fallen die schneeflocke runter zu bekommen aber da sagt qb dass es auserhalb seinen stapelsbereich ist.

[nemored]

Wenn du konsequenter Satzzeichen einbauen würdest, müsste ich nicht eine halbe Minute lang überlegen, was wohl

[GRaf]

naja xD muss recursiv machen deswegen und sry wegen keinen satzzeichen!

[nemored]

Wenn es rekursiv sein muss, dann musst du darauf achten, dass es insgesamt nicht zu viele Schachtelungen benötigt, und nach Möglichkeit auch, dass pro Schachtelung möglichst wenig Speicherplatz verbraucht wird. QBASIC ist da vom Platz her sehr eingeschränkt.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[GRaf]

hm okay aber wie krieg ich jez die schneeflocke immer ein stück weiter nach unten? Soll ich das mit draw "bd20" machen oder mit draw "bm-200,-50" ? Könnt euch ja mal angucken was ich so fabrieziert habe.
Achja es kommt nicht auf das aussehen von dem Schnee an.

http://uploaded.to/?id=nnkx6r

hab nochn bisschen gearbeitet und hab von oben in der mitte die schneeflocken bis nach unten bekommen. Neue Frage habe bis jez schon nach links die schneeflocken gemacht aber kann ich das nicht eig ganz einfach in eine sub per for zaeler = 1 to ... machen? nur ich muss ja eig immer was daran verändern und wie kann ich das machen , wenn ich input schneeflocken zum Beispiel mache, dass wenn ich 1 eingebe nur eine reihe kommt und nicht 2? Guckt euch mal mein programm an, hab da bissl rumprobiert aber klappt nix^^.

[nemored]

Muss ich mir aber später ansehen, bin schon fast weg.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Elektronix]

[GRaf]

habs ja jetzt beim post danach gemacht^^

[GRaf]

So hab jez meinen ganzen Bildschirm voller "Schneeflocken".
Nur, die 1. Schneeflocke geht von der mitte aus und geht dann nach unten und dann fängt die 2. links davon an. Normalerweise kommt der schnee ja gleichmäßig und deswegen wollte ich fragen ob jemand nicht weiß, wie ich es machen kann, dass sofort alle schneeflocken da sind und gemeinsam sich nach unten bewegen.

http://uploaded.to/?id=r1dcm7

Hier mein Programm. Ist ein bisschen unübersichtlig^^. Die secvor Sub's sind dafür da, dass die Schneeflocken auch rechts und links von der 1. Schneeflocke erscheinen, wenn jemand weiß wie ich es mache das ich die ganzen sevor in eine Sub machen kann bitte schreiben^^. Wenn jemand auch weiß, wie das machen kann mit Input schneeflocken, dass wen ich 1 eingebe das z.B. nur die in de mitte kommt und bei 2 die links daneben und so weiter. Danke für Antworten.!

[b3ast]

also dafür, dass du nur ne schneeflocke fallen lassen willst, hast du das ganze ganz schön krass verschachtelt. leider funzt bei mir qbasic grad net, aus welchem grund auch immer, kann zwar den quelltext lesen aber das programm nicht ausführen.

ich hätte meine schneeflocke mit line gezeichnet (kann jetzt wie gesagt leider garnicht sehen, wie die schneeflocke bei dir aussieht), wobei das denke ich geschmacksache ist und die anfangsposition per zufallsgenerator ermitteln lassen, zumindest die x-achse. dann hätte ich die schneeflocke mit einer einfachen for-next-schleife wandern lassen, indem ich sie zuerst lösche (also mit einer schwarzen schneeflocke überschreibe) und dann weiter unten neu hinschreiben lasse. du kannst ja auch mehrere schneeflocken hinschreiben und wandern lassen, indem du variablenfelder erstellst. leider weiss ich nicht, wie du dir das projekt optisch vorstellst.
als abschluss würde ich noch gerne deine idee mit dem sleep befehl kommentieren. das beste wäre denke ich ein timer, mitdem du die genaue zeit festlegen kannst, wie schnell deine schneeflocke fällt. alternativ geht auch eine for-next-schleife, die allerdings von der rechnergeschwindigkeit abhängt.

[nemored]

Sind deine Dateien binärverschlüsselt? Wenn ja, dann kann ich dir nicht weiterhelfen, ich müsste da schon den Text lesen können.
Für Quellcode kann ich übrigens fb:porticula empfehlen. Keine Wartezeit beim Download und funktioniert auch, ohne dass ich extra JavaScript aktiviere ...[/url]
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[GRaf]

@beast
naja das sind die befehle die wir in der schule gebrauchen und deswegen ist das auch richtig shice naja das was ich jetzt habe ist im schlechtesten Fall ne 2-

und ähm hab mal versucht das mit ner schwarzen schnee... zu überdecken aber da kommt dann nurn teil hin. Aber noch eine Frage, dass wäre dann auch meine letzte wie kann ich einfach, die schneeflocken am anfang nebeneinander machen das die zusammen runter fallen? Am besten so, dass ich nicht viel umänder oder löschen muss.

[St_W]

Ich habe dein Schneefall-Programm etwas verbessert. Das Ergebnis:

[GRaf]

Sooo mein Programm ist jez fertig
Hier der Link: http://uploaded.to/?id=cjfx24

Jetzt meine letzte Frage

Guckt euch mal bitte mein Programm an und sagt mir ob das recursiv und ein fraktal ist.

Dankee

[b3ast]

ist jetzt nur n beispiel aber so könnte man die flocken wandern lassen. da ich mich jetzt nicht so mit dem draw befehl auskenne und bei meinem rechner wie gesagt qbasic nicht richtig funzt und bei meinem laptop die hilfe nicht aufrufbar ist, hab ichs einfach mit line umgesetzt.

[nemored]

[GRaf]

fraktal ist ja , wenn bei mir z.B. die schneeflocke immer wieder kommt und ich habb ja das oben eine schneeflocke geht dann 50 cm dadrunter usw.

und recursiv ist, wenn ich in einer sub ne andere aufrufe und das hab ich doch eig oder nicht?

[St_W]

Also aus meiner Sicht ist dein Programm - programmiertechnisch gesehen - ein HORROR!

Für was zum Himmel benötigst du die vielen Subs (secvor, secvora, secvorb, secvorc, secvord, secvore, secvorf, secvorg, secvorh, secvori, secvorj, secvork), die genau den selben Code beinhalten??
Aus den "DECLARE SUB ..." sehe ich, dass du wahrscheinlich noch ein paar mehr solche hattest... - welchen Sinn soll das haben?
Du kannst (ich würde davon abraten) entweder immer mit "CALL secvorb" die Sub hintereinander aufrufen - oder (weit besser) in einer Schleife die Sub aufrufen.

Der folgende Code aus deinem Programm funktioniert zwar, aber warum machst du es so kompliziert, wenn es auch weit einfacher funktioniert:

[nemored]

Fraktale sind selbstähnlich. D. h. wenn du einen Teil der Schneeflocke herausnimmst und vergrößerst, siehst du wieder eine nach demselben Prinzip aufgebaute Schneeflocke.

[GRaf]

also in der schule hatten wir einen ast ,dann haben wir den winkel gedreht, dan noch ein ast und immer wieder und das ist dann ein fraktal?