Das deutsche QBasic- und FreeBASIC-Forum

[goooofy]

Hallo,
ich möchte all meine LOCATE-Anweisungen (SEHR viele!) eines alten QB-Codes ein offset-Wert hinzuaddieren. Dafür habe ich eine neue SUB locate2 geschrieben. Das Problem: Ich übergebe sowohl INTEGER als auch SINGLES (kein Schema - mal so mal so). Da ich nicht weiß, was übergeben wird, habe ich es mit AS ANY versucht (siehe Beispiel), habe aber nun keine Ahnung, wie ich zuverlässig meine übergebenen Werte wiedererhalte. Wenn ich eine INTEGER als SINGLE einlese (wie im Beispiel) kommt natürlich was anderes raus.

[nemored]

Du kannst doch einer SUB, die SINGLE verlangt, auch INTEGER übergeben?

[goooofy]

Leider nicht, wenn -lang qb verwendet wird

error 55: Type mismatch, at parameter 1 of LOCATE2()
locate2 x, y

[nemored]

Mist, ich habe es extra noch getestet und in der Konsole compiliert, und dann doch -lang qb vergessen
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[MOD]

Also bei mir läuft das auch unter -lang qb problemlos durch. Welche Version des Compilers hast du denn?

Edit: Nein doch nicht, hab vergessen, dass die temporäre Ausgabe bei mir immer -lang fb ist

Naja, -lang qb sollte man sich eh so schnell wie möglich abgewöhnen, es ist halt eine Zwischenlösung zwischen dem beschränkten QB und dem ziemlich starken FB.

[nemored]

Evtl. mal -lang fblite probieren - da könnte auch noch eine Menge QB-spezifisches durchgehen.

edit: hmm nee, geht auch nicht - aber vielleicht geht da OVERLOAD?
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[goooofy]

es muss leider zwingend mit -lang qb funktionieren. Handelt sich um ca. 30.000 Zeilen Code, den kann ich nicht mal eben so abändern, dass er mit fblite funzt...

[ThePuppetMaster]

Was mich wundert is:

[MOD]

Was sollen Fließkommazahlen bei Locate eigentlich bewirken? Es gibt keine Zeile oder Spalte 2,43 oder sonstige.

Aber eine Lösung hätte ich auch noch anzubieten, nämlich CSng.

Mach den Funktionsaufruf so:

[nemored]

Das Problem wird sein, dass dann alle LOCATE-Befehle per Hand angepasst werden müssen, und das wollte er sich ersparen. Der LOCATE-Befehl soll auch nicht mit Singles umgehen können, sondern die übergebenen Variablen sind eben bereits Singles.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[goooofy]

nemored, du hast mein Problem verstanden

@MOD: Klar sind singles für LOCATE sinnlos, aber in meinen anfänglichen QB-Zeiten habe ich mich um Deklarationen halt nicht geschert und so sind die singles da alle gelandet. Irgednwann bin ich dann auf den Trichter gekommen, dass die ja unnötig den unter DOS so raren Speicher belasten und bin auf Integer umgestiegen

Kennt jemand denn veilleicht ein Programm, mit dem man unter Berücksichtigung von Variablen Textstellen ersetzen kann? Denn jede LOCATE manuell abändern, das wäre die Hölle!

[ThePuppetMaster]

Theoretisch geht es mit 'any' .. eine lösung wäre die nutzung von FIX() und ABS() ... aber, das funktioniert nur nicht, weil bei der übergabe -2,9 bei dem singlewert heraus kommt ... mich würd aber noch mehr interesieren, warum es manchmal 2,8, manchmal 2,9, und manchmal noch irgend was anderes is.


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]

[goooofy]

Ja... seltsam mit den verschiedenen Werten. Aber ich vermute mal, dass die Unterschiede belanglos sind, wenn man daraus wieder eine Integer rekonstruiert (falls das überhaupt geht!?)

Allerding ist mir dein Lösungsansatz mit FIX und ABS noch nicht klar geworden. Wie willst du aus -2.992154e-05 Integer 2 rekonstruieren?

[Stueber]

Fix() schneidet die Nachkommastellen ab und abs() gibt dir den absolut Betrag (Entfernung von 0).

[goooofy]

Das ist schon klar,

nun ist es aber nicht so, dass jeder Integer i als Single eingelesen auch -i.irgendwas ergibt, das war nur in dem Beispiel von ThePuppetMaster so.

Integer 10 wird z.B. zu 5.877486e-039,
Integer 7 zu 5.877482e-039
Integer 1 zu 5.877473e-039

@ThePuppetMaster: Für welche Integer kommst du überhaupt auf diese Werte??? Wie du siehst, kommt bei mir immer irgendwas mit 5.877... raus und zwar immer exakt der gleiche Wert.

Hier noch einmal der Code, den ich verwendet habe:

[MOD]

Eine weitere Möglichkeit wären Macros:

[goooofy]

Es handelt sich um eine kommerzielle Software, die jetzt Vista/7-tauglich gemacht werden soll/muss.
Es besteht natürlich nicht nur aus lauter LOCATEs, aber bei 30.000 Zeilen sind es halt einfach zuviele um manuelle Änderungen vorzunehmen.

Trotzdem Danke für deinen Tipp. Vielleicht noch jemand ne Idee, wie man aus dem Single wieder den ursprünglichen Integer erhält?

[goooofy]

Hab das Problem selber lösen können. Etwas unkonventionell, aber wenigstens kurz und einfach