Sign in Join
Wiki copytemporary

Crt/de: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
1-## Contents
2-
3- * 1 Unit Crt
4- * 1.1 Vorwort
5- * 1.2 Die wichtigsten Befehle
6- * 1.2.1 Text-Ausgabe
7- * 1.2.1.1 Window
8- * 1.2.1.2 GotoXY
9- * 1.2.1.3 WhereX
10- * 1.2.1.4 WhereY
11- * 1.2.1.5 ClrScr
12- * 1.2.1.6 TextColor
13- * 1.2.1.7 TextBackground
14- * 1.2.1.8 TextAttr
15- * 1.2.1.9 LowVideo
16- * 1.2.1.10 HighVideo
17- * 1.2.1.11 NormVideo
18- * 1.2.1.12 InsLine
19- * 1.2.1.13 DelLine
20- * 1.2.1.14 Beispiel Text-Ausgabe
21- * 1.2.2 Tastatur-Eingabe
22- * 1.2.2.1 ReadKey
23- * 1.2.2.2 KeyPressed
24- * 1.2.2.3 Beispiel Tastatur
25- * 1.2.3 Ton-Ausgabe
26- * 1.2.3.1 Sound
27- * 1.2.3.2 NoSound
28- * 1.2.3.3 Delay
29- * 1.2.3.4 Beispiel Ton-Ausgabe
30-
311# Unit Crt
322
333## Vorwort
344
35-Die Unit Crt bietet eine komfortable Textausgabe auf der Text-Konsole. Auch bietet sie komfortable Tastatur-Eingabe. Der Ursprung der Unit kommt von Turbo-Pascal. Je nach OS wird die Text-Ausgabe welche mit [[Write/de|Write/Writeln]] ausgeführt wird stark beschleunigt.
5+Die Unit Crt bietet eine komfortable Textausgabe auf der Text-Konsole. Auch bietet sie komfortable Tastatur-Eingabe. Der Ursprung der Unit kommt von Turbo-Pascal. Je nach OS wird die Text-Ausgabe welche mit [[Write/de|Write/Writeln]] ausgeführt wird stark beschleunigt.
366
37-Wichtigste Features der Unit:
7+Wichtigste Features der Unit:
388
39- * Farbige Text-Ausgabe.
40- * Text-Ausgabe beschleunigen ( OS abhängig ).
41- * Cursor positionieren.
42- * Einen Fenster-Bereich festlegen.
43- * Tastatur-Abfrage.
44- * Ton-Ausgabe ( OS abhängig ).
9+- Farbige Text-Ausgabe.
10+- Text-Ausgabe beschleunigen ( OS abhängig ).
11+- Cursor positionieren.
12+- Einen Fenster-Bereich festlegen.
13+- Tastatur-Abfrage.
14+- Ton-Ausgabe ( OS abhängig ).
4515
4616## Die wichtigsten Befehle
4717
4818### Text-Ausgabe
4919
5020#### Window
5121
52-Legt einen Bereich fest, in dem die Ausgabe erfolgt.
53-```
22+Legt einen Bereich fest, in dem die Ausgabe erfolgt.
23+
24+``` pascal
5425Window(10, 5, 70, 10);
5526```
5627
57-
58-
5928#### GotoXY
6029
61-Positioniert den Cursor, im Beispiel Spalte 10, Zeile 5. Links-Oben ist 1,1.
62-```
30+Positioniert den Cursor, im Beispiel Spalte 10, Zeile 5. Links-Oben ist 1,1.
31+
32+``` pascal
6333GotoXY(10, 5);
6434```
6535
6636#### WhereX
6737
68-Fragt die Spalte ab, in dem sich der Cursor befindet.
38+Fragt die Spalte ab, in dem sich der Cursor befindet.
6939
7040#### WhereY
7141
72-Fragt die Zeile ab, in dem sich der Cursor befindet.
42+Fragt die Zeile ab, in dem sich der Cursor befindet.
7343
7444#### ClrScr
7545
76-Löschen den Bildschirm / Fenster, welches mit Windows festgelegt wurde.
46+Löschen den Bildschirm / Fenster, welches mit Windows festgelegt wurde.
7747
7848#### TextColor
7949
80-Legt die Farbe der Schrift fest.
81-```
50+Legt die Farbe der Schrift fest.
51+
52+``` pascal
8253TextColor(Green); // Grüne Schrift
8354```
8455
85-Für die Farben sind folgende Konstanten vordefiniert:
86-```
56+Für die Farben sind folgende Konstanten vordefiniert:
57+
58+``` pascal
8759const
88- // Vordergrund / Hintegergrund-Farben
89- Black = 0;
90- Blue = 1;
91- Green = 2;
92- Cyan = 3;
93- Red = 4;
94- Magenta = 5;
95- Brown = 6;
96- LightGray = 7;
97-
98- // Zusätzliche Vordergrund Farben
99- DarkGray = 8;
100- LightBlue = 9;
101- LightGreen = 10;
102- LightCyan = 11;
103- LightRed = 12;
104- LightMagenta = 13;
105- Yellow = 14;
106- White = 15;
107-
108- // Spezial
109- Blink = 128;
60+// Vordergrund / Hintegergrund-Farben
61+ Black = 0;
62+ Blue = 1;
63+ Green = 2;
64+ Cyan = 3;
65+ Red = 4;
66+ Magenta = 5;
67+ Brown = 6;
68+ LightGray = 7;
69+
70+// Zusätzliche Vordergrund Farben
71+ DarkGray = 8;
72+ LightBlue = 9;
73+ LightGreen = 10;
74+ LightCyan = 11;
75+ LightRed = 12;
76+ LightMagenta = 13;
77+ Yellow = 14;
78+ White = 15;
79+
80+// Spezial
81+ Blink = 128;
11082```
11183
11284#### TextBackground
11385
114-Legt die Hintergrund-Farbe der Schrift fest. Beim Aufruf von ClrSrc wird der Bildschirm/Fenster mit dieser Farbe eingefärbt.
115-```
86+Legt die Hintergrund-Farbe der Schrift fest. Beim Aufruf von ClrSrc wird der Bildschirm/Fenster mit dieser Farbe eingefärbt.
87+
88+``` pascal
11689TextBackground(Red); // Roter Hintergrund
11790```
11891
11992#### TextAttr
12093
121-Über diesen Bezeichner kann man direkt das Attribut auslesen und schreiben.
94+Über diesen Bezeichner kann man direkt das Attribut auslesen und schreiben.
12295
12396#### LowVideo
12497
125-Die Farbe der Schrift wird auf Low gesetzt.
98+Die Farbe der Schrift wird auf Low gesetzt.
12699
127100#### HighVideo
128101
129-Die Farbe der Schrift wird auf High gesetzt.
102+Die Farbe der Schrift wird auf High gesetzt.
130103
131104#### NormVideo
132105
133-Die Schrift wird auf Standard-Grau gesetzt.
106+Die Schrift wird auf Standard-Grau gesetzt.
134107
135108#### InsLine
136109
137-Eine Zeile bei Cursorposition einfügen.
110+Eine Zeile bei Cursorposition einfügen.
138111
139112#### DelLine
140113
141-Die Zeile bei Cursorposition löschen.
114+Die Zeile bei Cursorposition löschen.
142115
143116#### Beispiel Text-Ausgabe
144-```
117+
118+``` pascal
145119var
146- i: integer;
147- begin
148- Window(10, 5, 30, 20); // Fenstergrösse festlegen
149- TextBackground(Red); // Hintergrund-Farbe (Rot)
150- ClrScr; // Fenster löschen
151- for i := 1 to 8 do begin
152- GotoXY(i, i); // Cursor positionieren
153- TextColor(i + 8); // Text-Farbe festlegen
154- Write('Hello World');
155- end;
156- repeat
157- until KeyPressed; // Bei Tastendruck Programm beenden
158- end.
120+ i: integer;
121+begin
122+ Window(10, 5, 30, 20); // Fenstergrösse festlegen
123+ TextBackground(Red); // Hintergrund-Farbe (Rot)
124+ ClrScr; // Fenster löschen
125+ for i := 1 to 8 do begin
126+ GotoXY(i, i); // Cursor positionieren
127+ TextColor(i + 8); // Text-Farbe festlegen
128+ Write('Hello World');
129+ end;
130+ repeat
131+ until KeyPressed; // Bei Tastendruck Programm beenden
132+end.
159133```
160134
161135### Tastatur-Eingabe
162136
163137#### ReadKey
164138
165-ReadKey holt ein Zeichen aus dem Tastatur-Puffer. Achtung, bei Funktions-Tasten müssen 2 Zeichen abgeholt werden, dabei ist das erste Zeichen ein #0. Dies betrifft F-Tasten, Pfeil-Tasten, etc.
139+ReadKey holt ein Zeichen aus dem Tastatur-Puffer. Achtung, bei Funktions-Tasten müssen 2 Zeichen abgeholt werden, dabei ist das erste Zeichen ein \#0. Dies betrifft F-Tasten, Pfeil-Tasten, etc.
166140
167141#### KeyPressed
168142
169-Prüft, ob eine Taste gedrückt wurde.
143+Prüft, ob eine Taste gedrückt wurde.
170144
171145#### Beispiel Tastatur
172-```
146+
147+``` pascal
173148var
174- ch: Char;
175- begin
176- repeat
177- until KeyPressed; // Warten, bis eine Taste gedrückt.
178- ch := ReadKey;
179- if ch = #0 then begin // Funktionstaste
180- ch := ReadKey;
181- end;
182- end.
149+ ch: Char;
150+begin
151+ repeat
152+ until KeyPressed; // Warten, bis eine Taste gedrückt.
153+ ch := ReadKey;
154+ if ch = #0 then begin // Funktionstaste
155+ ch := ReadKey;
156+ end;
157+end.
183158```
184159
185-Hinweis: KeyPressed holt keine Zeichen ab, dies muss mit ReadKey geschehen.
160+Hinweis: KeyPressed holt keine Zeichen ab, dies muss mit ReadKey geschehen.
186161
187162### Ton-Ausgabe
188163
189-![Light bulb](https://upload.wikimedia.org/wikipedia/commons/d/d8/Nuvola_apps_ktip.png) **Hinweis:** Funktioniert nicht auf allen Plattformen.
164+> **Note:** Funktioniert nicht auf allen Plattformen.
190165
191166#### Sound
192167
193-Gibt einen Ton in Hz aus.
194-```
168+Gibt einen Ton in Hz aus.
169+
170+``` pascal
195171Sound(1000); // 1'000Hz
196172```
197173
198174#### NoSound
199175
200-Haltet die Ton-Ausgabe an.
176+Haltet die Ton-Ausgabe an.
201177
202178#### Delay
203179
204-Verzögerung in MS.
205-```
180+Verzögerung in MS.
181+
182+``` pascal
206183Sound(1000); // 1'000s verweilen
207184```
208185
209186#### Beispiel Ton-Ausgabe
210-```
187+
188+``` pascal
211189begin
212- Sound(1000); // 1'000 Herz
213- Delay(1000); // 1 Sekunde verzögern.
214- NoSound; // Ton absellen
215- end.
190+ Sound(1000); // 1'000 Herz
191+ Delay(1000); // 1 Sekunde verzögern.
192+ NoSound; // Ton absellen
193+end.
216194```
217195
218-Autor: [Mathias](</User:Mathias> "User:Mathias")
196+Autor: Mathias
219197
220198---
221-*From the Free Pascal wiki, page "Crt/de", as the Internet Archive kept it on 2024-12-27. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*
199+*From the Free Pascal wiki, page "Crt/de", as it stood on 2019-12-30 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*
200+Category: Units

Back to history