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



бет121/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   117   118   119   120   121   122   123   124   ...   210
Байланысты:
boribaev-algoritmdeu

Procedure GetFillPattern(var Pattern: FillPatternType); мұндағы Pattern – толтыру үлгісі қайтарылатын, FillPattem-
Type типті айнымалы.
Егер программа үлгіні SetFillPattern процедурасының кө-мегімен орнатпаса, Pattern жиымы мəні 255 ($FF) байттармен толтырылады.
GetFillSettinqs процедурасы ағымдағы толтыру стилін қай-тарады. Тақырыбы:
Procedure GetFillSettinga(var Pattlnfo: FillSettingsType); мұндағы Pattlnfo – ағымдағы толтыру стилі қайтарылатын,
FillSettingsType типті айнымалы.
Graph модулінде келесі тип анықталған:
type
FillSettingsType = record
Pattern: Word; {Үлгі}
Color : Word {Түс}
end;
Бұл жазбадағы Pattern жəне Color өрістерінің мəні, SetFillStyle процедурасын шақырғандағы сəйкес параметрлердегідей.
SetRGBPalette процедурасы IBM 8514 VGA адаптерімен жұ-мыс жасайтын түстер гаммасын тағайындайды. Тақырыбы:
Procedure SetRGBPalatte(ColNum,RedVal, GraenVal,BlueVal:
Integer);

мұндағы ColNum – түс нөмірі; RedVal, GreenVal, BlueVal




208

сəйкесінше, қызыл, жасыл жəне көк түстердің қоюлығын анық-тайтын Integer типті өрнек.
Келесі программада экран ортасына ақ түсті тікбұрыш салы-нады да, ол SetRGBPalette процедурасының көмегімен кездейсоқ түстерге боялады. Программадан шығу үшін кез келген пернеге басыңыз.
uses Graph,CRT;
var

Driver,Mode,Err,xl,yl: Integer; begin


{Графиканы іске қосамыз} Driver:=Detect; InitGraph(Driver,Mode,’’); Err:=GraphResult;
if ErroO then

WriteLn(GraphErrorMsg(Err))

else if Driver in [IBM8514, VGA] then begin
{Экран ортасына тікбұрыш саламыз} x1:=GetMaxX div 4;

y1:=GetMaxY div 4;

SetColor(lS);

Bar(x1,y1,3*x1,3*y1);

{Ақ түсті кездейсоқ түске ауыстырамыз} while not KeyPressed do
SetRGBPalette(15,Random(256),Random( 256),Random(256));
CloseGraph

end


else

begin


CloseGraph;.

WriteLn(‘Адаптер түстерді

басқарудың’,’RGB-режим қолдамайды’); end

end.



Достарыңызбен бөлісу:
1   ...   117   118   119   120   121   122   123   124   ...   210




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

    Басты бет