Das deutsche QBasic- und FreeBASIC-Forum

[spawn]

Hi,

Ich habe folgende schleife:

Do
A$ = INKEY$
IF A$ = CHR$(0) + M THEN ...
IF A$ = CHR$(0) + K THEN ...
...
Loop while A$ = ""

CHR$(0) + M steht ja für ne Pfeiltaste. Wie würde das denn für Return aussehen??



Wie kann ich aus einer Procedure(SUB) eine Variable wieder in das HP übergeben?

Und wie kann ich im Modus SCREEN 12 auch die Hintergrundfarbe ändern?

MFG Guido

[Jan]

zum 2.:

einfach oben mit in den kopf reinschreiben.

[Tomtitom]

also Enter ist CHR$(13)

das mit der Übergabe hat ja Jan schon erklärt, aber vielleicht ist für dich auch eine FUNCTION optimal, da macht man einfach:

[jb]

Wenn du's mit PAINT machst, musst du dir aber einen PRINT-Ersatz schreiben,
da PRINT den Hintergrund löscht.

Den Ersatz kann man mit GET/PUT bewerkstelligen.

jb

[Dusky_Joe]

So nen Gfx-Print-Ersatz hab ich schon mal geschrieben.

Download:
http://ssteiner.ss.funpic.de/qbwettbewerb/DL2/skyfish.zip

Das war ein Wettbewerbs-Programm. Der Print-Ersatz is in Mixrouts.bas, eine Erklärung ist in verschieden TXTs
Das ganze funktionert nach dem BMP-Font-Prinzip, nicht mit GET/PUT. Die Font ist frei skalierbar, und hat auch Transparenzeffekte, ...

However, siehs dir mal an, vllt. kannst es ja brauchen
_________________
fully biological degradable

Once, the big wave arrives, you've got two ways, you can go:
Either, you ride it, or you don't do.
But, if you don't ride, you'll never know wether you'd have gone wet.