Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Heiko
Anmeldungsdatum: 28.07.2008 Beiträge: 101
|
Verfasst am: 18.10.2008, 00:47 Titel: dumme noob frage zu while und wend |
|
|
vielleicht finde ich es nur grad nicht, undzwar, lade ich in meinem programm eine dll, funktionen laufen auch wunderbar, aber ich hab folgendes problem.
das programm läßt sich nicht beenden.
wie funktioniert das mit while und wend?
also wenn ich escape drück zum beispiel, oder ne andere taste, wie auch immer, das sich das ganze programm beendet.
ich kenn das noch mit while true --- wend --- end
fertig, bitte um schnelle hilfe. |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 18.10.2008, 01:07 Titel: |
|
|
Code: | if multikey(1) then end |
Code: | if inkey=chr(27) then end |
? _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Heiko
Anmeldungsdatum: 28.07.2008 Beiträge: 101
|
Verfasst am: 18.10.2008, 01:20 Titel: |
|
|
naja ich mein, ich brauch ne schleife für den hauptcode, und wenn eben escape gedrückt wird, soll die dll entladen werden, und das programm beendet werden.
while wend loop wend was auch immer.
die lösung wäre hilfreich, weil ich nicht weiß, obs an FB liegt oder an der dll. |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 18.10.2008, 01:44 Titel: |
|
|
wie wär's wenn du das einfach die schleife einarbeitest?
Code: |
DO
...
LOOP UNTIL MULTIKEY(1)
|
_________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Heiko
Anmeldungsdatum: 28.07.2008 Beiträge: 101
|
Verfasst am: 18.10.2008, 02:00 Titel: |
|
|
wenn ich das so einbaue, beendet sich das programm gleich wieder.....
da schau...
Code: | #INCLUDE "xors3dtest.bi"
Dim As Integer index
xGraphics3D(800,600)
do
xUpdateWorld()
xRenderWorld()
xFlip()
LOOP UNTIL MULTIKEY(1) |
|
|
Nach oben |
|
 |
|