Sign in Join
Wiki copytemporary

Crt/de: what changed

Revision 1 to 2. 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+
131# Unit Crt
232
333## Vorwort
434
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.
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.
636
7-Wichtigste Features der Unit:
37+Wichtigste Features der Unit:
838
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 ).
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 ).
1545
1646## Die wichtigsten Befehle
1747
1848### Text-Ausgabe
1949
2050#### Window
2151
22-Legt einen Bereich fest, in dem die Ausgabe erfolgt.
23-
24-``` pascal
52+Legt einen Bereich fest, in dem die Ausgabe erfolgt.
53+```
2554Window(10, 5, 70, 10);
2655```
2756
28-#### GotoXY
57+
2958
30-Positioniert den Cursor, im Beispiel Spalte 10, Zeile 5. Links-Oben ist 1,1.
59+#### GotoXY
3160
32-``` pascal
61+Positioniert den Cursor, im Beispiel Spalte 10, Zeile 5. Links-Oben ist 1,1.
62+```
3363GotoXY(10, 5);
3464```
3565
3666#### WhereX
3767
38-Fragt die Spalte ab, in dem sich der Cursor befindet.
68+Fragt die Spalte ab, in dem sich der Cursor befindet.
3969
4070#### WhereY
4171
42-Fragt die Zeile ab, in dem sich der Cursor befindet.
72+Fragt die Zeile ab, in dem sich der Cursor befindet.
4373
4474#### ClrScr
4575
46-Löschen den Bildschirm / Fenster, welches mit Windows festgelegt wurde.
76+Löschen den Bildschirm / Fenster, welches mit Windows festgelegt wurde.
4777
4878#### TextColor
4979
50-Legt die Farbe der Schrift fest.
51-
52-``` pascal
80+Legt die Farbe der Schrift fest.
81+```
5382TextColor(Green); // Grüne Schrift
5483```
5584
56-Für die Farben sind folgende Konstanten vordefiniert:
57-
58-``` pascal
85+Für die Farben sind folgende Konstanten vordefiniert:
86+```
5987const
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;
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;
82110```
83111
84112#### TextBackground
85113
86-Legt die Hintergrund-Farbe der Schrift fest. Beim Aufruf von ClrSrc wird der Bildschirm/Fenster mit dieser Farbe eingefärbt.
87-
88-``` pascal
114+Legt die Hintergrund-Farbe der Schrift fest. Beim Aufruf von ClrSrc wird der Bildschirm/Fenster mit dieser Farbe eingefärbt.
115+```
89116TextBackground(Red); // Roter Hintergrund
90117```
91118
92119#### TextAttr
93120
94-Über diesen Bezeichner kann man direkt das Attribut auslesen und schreiben.
121+Über diesen Bezeichner kann man direkt das Attribut auslesen und schreiben.
95122
96123#### LowVideo
97124
98-Die Farbe der Schrift wird auf Low gesetzt.
125+Die Farbe der Schrift wird auf Low gesetzt.
99126
100127#### HighVideo
101128
102-Die Farbe der Schrift wird auf High gesetzt.
129+Die Farbe der Schrift wird auf High gesetzt.
103130
104131#### NormVideo
105132
106-Die Schrift wird auf Standard-Grau gesetzt.
133+Die Schrift wird auf Standard-Grau gesetzt.
107134
108135#### InsLine
109136
110-Eine Zeile bei Cursorposition einfügen.
137+Eine Zeile bei Cursorposition einfügen.
111138
112139#### DelLine
113140
114-Die Zeile bei Cursorposition löschen.
141+Die Zeile bei Cursorposition löschen.
115142
116143#### Beispiel Text-Ausgabe
117-
118-``` pascal
144+```
119145var
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.
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.
133159```
134160
135161### Tastatur-Eingabe
136162
137163#### ReadKey
138164
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.
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.
140166
141167#### KeyPressed
142168
143-Prüft, ob eine Taste gedrückt wurde.
169+Prüft, ob eine Taste gedrückt wurde.
144170
145171#### Beispiel Tastatur
146-
147-``` pascal
172+```
148173var
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.
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.
158183```
159184
160-Hinweis: KeyPressed holt keine Zeichen ab, dies muss mit ReadKey geschehen.
185+Hinweis: KeyPressed holt keine Zeichen ab, dies muss mit ReadKey geschehen.
161186
162187### Ton-Ausgabe
163188
164-> **Note:** Funktioniert nicht auf allen Plattformen.
189+![Light bulb](https://upload.wikimedia.org/wikipedia/commons/d/d8/Nuvola_apps_ktip.png) **Hinweis:** Funktioniert nicht auf allen Plattformen.
165190
166191#### Sound
167192
168-Gibt einen Ton in Hz aus.
169-
170-``` pascal
193+Gibt einen Ton in Hz aus.
194+```
171195Sound(1000); // 1'000Hz
172196```
173197
174198#### NoSound
175199
176-Haltet die Ton-Ausgabe an.
200+Haltet die Ton-Ausgabe an.
177201
178202#### Delay
179203
180-Verzögerung in MS.
181-
182-``` pascal
204+Verzögerung in MS.
205+```
183206Sound(1000); // 1'000s verweilen
184207```
185208
186209#### Beispiel Ton-Ausgabe
187-
188-``` pascal
210+```
189211begin
190- Sound(1000); // 1'000 Herz
191- Delay(1000); // 1 Sekunde verzögern.
192- NoSound; // Ton absellen
193-end.
212+ Sound(1000); // 1'000 Herz
213+ Delay(1000); // 1 Sekunde verzögern.
214+ NoSound; // Ton absellen
215+ end.
194216```
195217
196-Autor: Mathias
218+Autor: [Mathias](</User:Mathias> "User:Mathias")
197219
198220---
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
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).*

Back to history