Графикаси касб-ҳунар коллежлари учун ўқув қулланма

Uses Graph, F_GrText; 
Procedure Trip;External; 
{$L Trip.obj} 
Var 
D,r:integer; 
Begin 
D:=detect; 
Initgraph(d,r,‘‘); 

---

193 
MoveTo(0,100); 
If RegisterCHRFont(@Trip)>0 then 
{Шрифт нормал рўйхатдан ўтди} 
OutString(‗Рўйхатдан ўтиш нормал‘,1,0,1,1); 
Else 
Begin {Рўйхатдан ўтишда хатолик} 
SettextStyle(triplexfont,Horizdir,4); 
OutText(‗Шрифтни рўйхатдан ўтказишда хатолик‘); 
End; 
Readln; 
closeGraph; 
end. 
 
OutString процедураси. График экраннинг жорий ўрнига матнли 
қаторни чиқаради.
Procedure OutString(S:String; Font,Angle:Integer; ScaleX,ScaleY:Real); 
Бу ерда S-экранга чиқарилиши керак бўлган матнли қатор; Font-
векторли шрифт номери (шрифт RegisterCHRFile ѐки RegisterCHRFont 
функцияси орқали олдиндан рўйхатдан ўтказилган бўлиши керак);Angle-
чиқариладиган матн бурилиши керак бўлган экран координатасининг 
горизонтал муносабатдаги бурчаги (бурчак градусларнинг бутун сони билан 
берилади; мусбат бурчаклар соат кўрсатгичига қарши ҳисобланади); ScaleX, 
ScaleY-шрифт кенглиги ва баландлигига мос маштаб коэффициентлари. 
Назорат саволлари 
1. CHR-файлларнинг тузилиш майдонлари нималардан иборат. 
2. Векторли буйруқларни ишлатиш.
3. Матнли ва график чоп этиш модуллари.
4. Шрифт ва координаталар билан ишлаш.
5. Рамзларни ўтказиш координаталари.
6. Матнли қурилма драйверлари тузилиши ва ишлаш тамойили.
7. F_GrText модулининг ички дастурлари имкониятлари нимадан 
иборат. 
 

---

194 
АДАБИЁТЛАР РЎЙХАТИ 
1. М. Арипов. Информатика, Университет нашриѐти, 2001. 
2. М. Арипов, А Ҳайдаров, А. Тиллаев. Информатика асослари, академик 
лицей ва касб – ҳунар коллежлари учун
3. Д. Миронов. CorelDRAW 9., Учебный курс – СПб.: Питер, 2000. 
4. М. Стразницкас Photoshop 5.5 для подготовки Web-графики. Учебный 
курс –СПб: Питер, 2000.
5. В. В. Фаронов. TurboPascal 7.0 практика программирования учебное 
пособие. Москва Издательство «Нолидж» 2000.

---

195