Referenz - CLS
Syntax: CLS [Parameter]
Typ: Anweisung
Kategorie: Konsole
CLS löscht den Konsolen- bzw. Grafik-Bildschirm. Der gelöschte Bereich wird mit der Hintergrundfarbe aufgefüllt (siehe COLOR)
'Parameter' gibt an, welche Teile des Bildschirms gelöscht werden sollen. Er ist einer von diesen Werten:
- 0 löscht den gesamten Bildschirm.
- 1 löscht das durch VIEW (Grafik) festgelegte Darstellungsfeld, oder nichts im Konsolenmodus.
- 2 löscht den durch VIEW (Text) festgelegten Textanzeigebereich, sowohl im Grafik- als auch im Konsolenmodus.
- Wird der Parameter ausgelassen, dann wird das grafische Darstellungsfeld gelöscht, sofern zuvor VIEW (Grafik) verwendet wurde, ansonsten wird der durch VIEW (Text) festgelegte Textanzeigebereich gelöscht. Wurde keiner der beiden Bereiche festgelegt, dann löscht CLS den gesamten Bildschirm.
Beispiel 1:
Color 7, 1 ' hellgrau auf blau
Cls ' Bildschirm löschen und auf die Hintergrundfarbe setzen
Locate 12, 30
Print "Hallo FreeBASIC-Welt!"
Beispiel 2:
Um im Grafikmodus den gesamten Bildschirm auf einen Farbwert zu setzen, kann es schneller sein, statt der Verwendung von CLS den Bildschirmspeicher mit CLEAR auf den gewünschten Farbwert zu setzen.
Dim scrbuf As Byte Ptr, scrsize As Integer
Dim As Integer scrhei, scrpitch
Dim As Integer radius = 0, richtung = 1
ScreenRes 640, 480, 8
scrbuf = ScreenPtr: Assert( scrbuf <> 0 )
ScreenInfo( , scrhei, , , scrpitch )
scrsize = scrpitch * scrhei
Do
ScreenLock ' Bildschirm sperren (nötig für Direktzugriff)
Clear *scrbuf, 0, scrsize ' Bildschirm löschen
Circle (320, 240), radius ' Kreis zeichnen
ScreenUnlock
radius += richtung ' Radius vergrößern oder verkleinern
If radius <= 0 Then
richtung = 1
ElseIf radius >= 100 Then
richtung = -1
End If
Sleep 1 ' kleine Pause für den Prozessor
Loop Until Len(Inkey) > 0 ' läuft solange, bis eine Taste gedrückt wird
Siehe auch:
VIEW (Grafik), VIEW (Text), Grafik, Konsole
Zusätzliche Informationen und Funktionen | ||||
---|---|---|---|---|
|
|