Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1


Procedure ClearDevice; ClearViewPort



бет99/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   95   96   97   98   99   100   101   102   ...   210
Байланысты:
boribaev-algoritmdeu

Procedure ClearDevice;
ClearViewPort процедурасы графикалық терезені тазалайды, ал егер осы уақытқа дейін терезе анықталмаса, онда экранды тазалайды. Терезе тазаланғанда, ол ағымдағы палитраның 0 нөміріне боялады. Курсор сол жақ жоғарғы бұрышқа орналасады. Процедура тақырыбы:
Procedure ClearViewPort;
Келесі мысалда экранда терезе салынады да, ол кездейсоқ дөңгелектермен толтырылады (7.2-сурет). Кез келген пернені


174

басқан кезде терезе тазаланады. Программадан шығу үшін Enter пернесін басыңыз.
Uses CRT,Graph;
var
x1,y1,x2,y2,Err: Integer; begin
{Графикалық режимді іске қосамыз}
xl := Detect;
InitGraph(xl,x2,'');
Err:= GraphResult;
if ErrOgrOk then
WriteLn (GraphErrorMsg(Err))
else
begin
{Экран мүмкіндігіне байланысты терезе коорди-натасын анықтаймыз}
x1:= GetMaxX div 4;
y1:= GetMaxY div 4;
x2:= 3*x1;
y2:= 3*y1;
{Терезе саламыз}
Rectangle(x1,y1,x2,y2);
SetViewPort(xl+l,yl+l,x2-l,y2-
1,ClipOn);
{Терезені кездейсоқ дөңгелектермен толтырамыз} repeat
Circle (Random (GetMaxX)), Random (GetMaxX),
Random (GetMaxX div 5)); until KeyPressed;
{Терезені тазалап, Enter пернесінің басылуын күтеміз}
ClearViewPort;
OutTextXY (0,0, 'Press Enter …' )
ReadLn
CloseGraph
end
end.




Достарыңызбен бөлісу:
1   ...   95   96   97   98   99   100   101   102   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет