Das deutsche QBasic- und FreeBASIC-Forum

[Schnism]

Hoi ..

Nächste Frage:

ich habe ja mein Programm (siehe meine Signatur), das durch meine unortodoxe Programmart weit mehr Zeilen hat, als es "Könner" hätten.
Damit kann ich leben

Ich meine in Erinnerung zu haben, das die BAS Datein im QBasicc nicht über 64K kommen dürfen.
Denn ich hatte eine, die "plötzlich" (Weil viel text ) bei 72kb lag und ich konnte sie nicht ausführen.
So habe ich dann eine Zweite erstellt, alle Werte vorher abgespeichert, in der Neuen ausgelesen und ins Gefüge wieder eingefügt.
Somit habe ich derzeit zwei 61K grosse Datein.
In der Mitte des Programms wechselt er also von Datei 1 auf 2 und bei Spielerwechsel wieder von 2 auf 1. (Immer mit Variablenübertrag)

[Jojo]

[volta]

Hi,
die neueren FB-Versionen sind nicht so kompatibel zu qb-Code.
Beste Ergebnisse für Windows 32Bit war noch unter FB 0.90.1
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[Schnism]

Ok.. ich benutze QB 1.0 (1987-1991) vom 1.11.1995 in der DosBox.
Es ist wie ich ein OldTimer

"könnte" ich also entspannt mit meinem Programm(code) auf QB 4.5 gehen?

Und was genau bedeutet in dem Zusammenhang

[Jojo]

[Eternal_pain]

[Schnism]

[nemored]

Ich hätte am ehesten hierauf getippt:
http://www.qbasicnews.com/qboho/qckfre.shtml
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[Jojo]

Schnism: 632KB mag zwar nach "viel" klingen (wäre auch viel für ein "echtes" DOS-System!), aber du musst halt auch bedenken, dass da noch die IDE, der Quelltext und alles mögliche in den Speicher passen muss. Und dass man unter DOS im Real Mode auch Speicher nicht einfach beliebig adressieren kann, sondern dies in 64KB-Blöcken geschieht (siehst du nun, wo das Limit von QBasic herkommt?). Das macht alles ein wenig komplexer, als man zuerst denken mag. Gelobt sei der Protected Mode, wo man beleibig viel Speicher adressieren kann, ohne sich über irgendwelche 64KB-Segmente Gedanken machen muss.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[Schnism]

[Jojo]

[nemored]

[grindstone]

[Schnism]

AH.. da betreibt jemand Werbung

Ich bin minimalistisch geprägt und mit wenig zufrieden. Ich bekomme es nicht mal hin, eine GOSUB Sache in eine SUB zu bringen. Das .. überfordert mich oftmals schon.

Ich bleibe dran Versprochen ..

Was anderes..

Ich habe ein Phänomen festgestellt, dem ich nicht Herr werde.

(a2 = Spieler, a3 = Gegenspieler)
fsp = 50 : spy(a2) = 10: esp = 50: spy(a3) = 10
fzufall = (RND * (fsp*spy(a3))): ezufall = (RND * (esp*spy(a2)))

ezufall ist IMMER!!!! deutlich kleiner als fzufall. Selbst wenn ich sie in der Schreibfolge tausche.
Dabei kann ich auch nen RANDOMIZE TIMER vor einem oder auch beiden setzen. ezufall bekommt immer den kleineren Wert. Ich werde noch irre..

QB 4.5 verhält sich da genauso wie QB 1.0 .. ist ESP irgendeine Sache, die das System anders interpretiert?

@EDIT
Nein. Ich habe das grade umbenannt (eispy) .. es bleibt dasselbe .. der ezufall bekommt immer einen .4563345 wert, das fzufall einen 345.2334234

Keine Ahnung, was DAS soll ...

@EDIT2
s separat laufen zu lassen, hilft mir leider nicht.. (grade probiert) dort macht er es richtig. (und dort bekomme ich bei der höhe der Wert so gut wie NIE! ein 0.22323 irgendwas .. )
ich probiere weiter.. aber das ist mehr als seltsam

@EDIT 3
Da brat mir einer einen Storch. wenn ich vor den beiden (ezufall,fzufall) einfach einen anderen wert per RND ermitteln lasse, sind die Werte "OK"

@EDIT4
So ganz ist das noch nicht richtig. der ezufall fällt viel zu oft in einen Wert unter 1 .. (.354672), während der andere NIE!! unter 1 fällt. (und ich rede hier von mehreren 100 versuchen)
_________________
"...nichts ist so schlimm wie mein programmcode!"

[nemored]

[grindstone]

[dreael]

[grindstone]

[offTopic]

[Schnism]

Ok ..

Ich warne euch: mein Code ist wie er ist und bleibt wie er ist
Ich kenne das Programm so wie es ist nun schon seit 20 Jahren. Alle Variablen sind mir total vertraut, der Aufbau, was dort dirin sein soll und ich habe es aus dem KOPF nun zum dritten mal neu erzeugt (die vorherigen waren zuerst auf AMIGA Basic und das andere habe ich "verloren" ..)

Ich weiss, dass ich es nicht kann ..aber ich habe viel spass dran ..

Diejenigen also, die sich dem Code annehmen, danke ich schon mal. Der rest erfreut sich einfach an seinen glücklichen Gefühlen, die bei ihnen entstehen, wenn sie meinen Code sehen..


ALSO ..

Ich hoffe, ich vergesse nix und der CODE Schnipzel reicht aus.
Ich bin derzeit der Überzeugung, das ich einen IF THEN ENDIF FEHLER irgendwo habe. Denn: der ROT Markierte Bereich wird bei MIR als beispiel nicht verwendet. Denn selbst wenn spy(a2)=100 ist, kommen trotzdem immer wieder neu ergebnisse unter 1 heraus.. und das dürfte ja gar nicht gehen. Ich zwinge (zum Test ... ) ihn ja eigentlich dazu, dass, sobald ezufall unter spy(a2) liegt, er neu berechnen soll und zwar solange, bis er drüber ist. das aber tut er nicht. diese IF THEN wird bei mir nicht verwendert

so .. dann..

[grindstone]