Das deutsche QBasic- und FreeBASIC-Forum

[QB42]

Hallo!

Folgende Situation: Ein Programm von mir läuft bis zum Ende normal durch und bleibt dann gewollt stehen, damit ich über das Drücken der Leertaste einen Neubeginn des Programms veranlassen kann, um dann neue Zahlenwerte eingeben zu können. Ich habe das so gemacht:

Do
SLEEP
LOOP UNTIL INKEY$ CHR$(32)

Das SLEEP kann man sogar weglassen, aber falls es da überhaupt eine bessere Möglichgkeit gibt, (ohne LOOP), sagt mir das bitte. Das Problem mit dem LOOP ist ja, daß der Prozessor ständig zu 99% ausgelastet ist, solange die Schleife aktiv ist, sodaß ich auf jeden Fall immer erst die Leertaste drücken muß, falls ich mal z.B. zwischendurch online gehen will. Schlimm ist das zwar nicht, aber es muß doch eine Möglichkeit geben, daß das Programm auch dann wieder auf Neubeginn geht, wenn ich NICHT die Leertaste drücke, nämlich automatisch nach z.B. 10 Sekunden vom Programm selber veranlaßt. Ich sehe da keine Lösung. Ihr? Danke für Infos!

QB42

[QB42]

Ich melde mich nochmals wegen einer kleinen Ergänzung, denn mein Text von eben könnte mißverständlich gewesen sein. Es geht mir darum, daß ich zwei Möglichkeiten habe:

1. Ich veranlasse selber über die Leertaste den Neubeginn des Programms.

2. Das Programm soll von sich aus nach z.B. 10 Sekunden den Neubeginn veranlassen, wenn ich nicht selber die Leertaste gedrückt habe.

[Skilltronic]

Hallo

Die Prozessorauslastung hängt eigentlich nicht davon ab, ob das Programm gerade in einer DO...LOOP-Schleife hängt, oder irgend ein anderer Teil bearbeitet wird. Das mit den 10 Sekunden könntest du z.B. so machen:

[QB42]

Hallo Scilltronic,

hab's ausprobiert und klappt ausgezeichnet. Vielen Dank! Klasse Forum.

Gruß QB42

[Sebastian]

Hallo.

Zum Thema Prozessorauslastung findet sich schnell mit der Boardsuche Abhilfe. Nämlich hier: http://forum.qbasic.at/viewtopic.php?p=16953#16953
Mit dieser Sub namens DoNothing, die du in deine Schleife reintun kannst, reduzierst du die Prozessorauslastung auf wenige Prozent.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[jb]

Das Mitternachts-Problem kann man mit TIME$ lösen:

[Skilltronic]

Oder so:

[pinkpanther]

[Sebastian]

So ist's natürlich korrekter, aber ich wollte versuchen, den kurzen Erklärungsartikel so einfach wie nur möglich zu halten. Die Input-Routine mit Verwendung des INTs können wir übrigens gerne mit in den Artikel schreiben, wenn du einverstanden bist.
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[pinkpanther]

Klaro bin ich einverstanden
(Ich bin halt erst zufrieden, wenn's nicht mehr schneller, kürzer, eleganter gecodet werden kann - ist ein Leiden, ich weiß )

Im Ernst: Die in deinem Erklärungsartikel enthaltene Kurzfassung vermittelt die Idee natürlich prägnanter.

lG
pinkpanther

[QB42]

Das Mitternachts-Timer-Problem raffe ich erst dann, wenn ich mal irgendwo nachlese, wie der Timer arbeitet. Die Beiträge bleiben ja hier auf dem Forum gespeichert und ich weiß dann jederzeit, wo ich darauf zurückgreifen kann. Also auf alle Fälle vielen Dank für alle Postings!

QB42

[MisterD]

lies hier:

TIMER ist immer die Anzahl der seit Mitternacht vergangenen Sekunden auf 56ms genau (1/18 sek.)


ok?
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra