Das deutsche QBasic- und FreeBASIC-Forum

[PowerBauer]

Habe folgendes kleine Progrämmchen aus dem Anfängertutorial:
#define auf ,
Const Res800x600=19, Schwarz=0, Blau=1, Weiss=7
Dim As Integer x, y, ScreenWidth, ScreenHeight 'Passende Variablen deklarieren
Screen Res800x600 'Dank sinnvoller Belegung wissen wir, welche Dimension der Bildschirm hat
Color Schwarz auf Weiss
ScreenInfo ScreenWidth, ScreenHeight 'Auflösung holen, damit FB das auch weiß..
For x=0 To ScreenWidth 'von links nach rechts..
For y=0 To ScreenHeight 'und von oben nach unten..
PSet (x, y), Blau 'damit man auch was sieht..
Next irgendetwaskannhierstehen
Next esmussnurzusammengeschriebensein
?"Eniki.."; 'Aufforderung, eine Taste zu drücken..
Sleep 'und warten..
End '..und fertich

Das läuft aber nicht - keine Punkte zu sehen bei mir
Wo ist mein Denkfehler?

[PowerBauer]

oh - endlich hab ich den Fehler (selbst) gefunden: im Tutorial stand, dass es sich um eine ätzend langsame Bildschirmlöschroutine handelt - dadurch hatte ich das langsame Zeichnen von 800x600 Pixeln erwartet: dem ist aber nicht so, der Bildschirm ist sofort Blau, durch den Einsatz von sleep 1 kann man dann die Routine auch mit dem Auge verfolgen...

also Thema schon beendet

[Sebastian]

Hallo,

da der komplette Bildschirm durch die beiden For-Schleifen mit Punkten "bemalt" wird, siehst du keine Punkte mehr, sondern nur noch eine blaue Fläche. Auf einem langsamen Computer kannst du wahrscheinlich beobachten, wie sich der Bildschirm pixelweise zunehmend blau einfärbt.

//Nachträgliche Ergänzung: Da war ich wohl zu spät.

Viele Grüße!
Sebastian
_________________

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

[PowerBauer]

danke für die schnelle Antwort - so macht ein Forum richtig Spaß - werde bestimmt noch mit der einen oder anderen Frage kommen....