1.8 Қарапайым графиктерді сызу әдістері

LineTo әдісі түзуді қарандаштың ағымдағы орынан координатасы көрсетілген нүктеге дейін сызады.

Объект. Canvas. LineTo(x , y);

MoveTo әдісі  қарандашты белгіленген  нүктеге апарады.

Объект. Canvas. MoveTo(x , y);

Ellipse әдісі эллипс сызады (жеке жағдайда, шеңбер – параметр мәніне тәуелді болады):           Объект. Canvas.Ellipse(x1 , y1,x2,y2);

Мұндағы: x1, y1, x2, y2 – ішіне эллипс сызылатын тікбұрыш координаттары.

Arc әдісі доға сызады:

Объект. Canvas.Arc(x1 , y1,x2, y2, x3, y3, x4, y4);

Мұндағы:  x1, y1, x2, y2 – эллипс параметрі, эллипс белгілі, яғни сызылатын доға болады.

Rectangle әдісі тіктөртбұрыш сызады:

Объект. Canvas. Rectangle (x1 , y1, x2 , y2);

Мұндағы:  x1, y1 және x2, y2 – сол жақ үстінгі және оң жақ астыңғы тіктөртбұрыш бұрыштарының координаттары.

FillRect  әдісі Brush.Color қасиеті арқылы берілген түсімен тіктөртбұрышты бояйды. Бұл әдістің бір ғана параметрі бар, бұл структураның Trect типі.

Мысалы:

Var

R:Rect(20,20,150,150);

With Canvas do

begin

Brush.Color:=clRed;

FillRect(R);

End;

End;

1.8 Canvas объектінің қасиеттері

Жоғарыда айтып кеткендей, программа орындайтын графиктерді бетке шығару үшін  Canvas қасиеті келеді. Canvas объектісінің Pixels  қасиетін пайдалана отырып, графикалық беттің кез келген нүктесін қажетті түске бояуға болады. Мысалы (нұсқауы):

Form1.Canvas. Pixels [10,10]:=clRed;

Форманың бетіндегі нүктені қызыл түске бояйды.

2. Delphi ортасынның графикалық мүмкіндіктерін сипаттайтын программа

Курстық жұмысымда Дельфидің графикалық мүмкіндіктерін айқын көрсететін программа жазып шықтым. Ол программаның қызметі суретті слайд-шоу түрінде көрсететін мүмкіндігі бар программа. Программа іске қосқанда төмендегідей терезе пайда болады:

Егер 1-ші кнопкаға шертсеңіз программадан шығу әрекеті орындалады. Екінші кнопка алдыңғы суретке көшіреді, ал соңғы кнопка келесі суретке көшіреді.

Егер осы кнопкалардың астындағы суреті бар кнопкаға басаңыз, онда сәйкес суретке көшіріледі.

Қорытынды

Бұл курстық жұмыстың мақсаты Delphi ортасының графикалық мүмкіндіктерін көрсететін программа және теориялық материал дайындау болды. Ізденістерімнің нәтижесінде мен көптеген қызықты жайттарға тап болыдым. Және де көп материалды игеріп қана қоймай, графикалық мүмкіндіреін үйрендім. Жалпы курстық жұмыс мен үшін өте пайдалы болды.

Қазіргі кезде жаңа информациялық технологияның жетістіктері, идеялары қолданбайтын саланы айту қиын. Ғылымның әр саласының есептері программалау тілдерінің көмегімен шешіліп, күрделі құбылыстарды зерттеу мен болжау мүмкіндіктері жаңа деңгейге көтерілді. Программалау технологияларының негізгі бағыттарының бірі – объекті бағытталған программалау тілі. Delphi интегралды ортасы объекті программалау принципіне негізделген. Бұл ортада күрделі қосымшалар, анықтамалық және тестілеу жүйелерін, электрондық оқулықтар, мәліметтер қорын құруға болады.

Қазақстан Республикасында ақпараттандыру процессі басталған кезден бастап-ақ оны қолданудың тиімді жолдары іздестіріле басталды. Басында текст теру, электронды кестемен жұмыс жасау сияқты дайын программалардың көмегіне жүгінсе, қазіргі уақытта әр-түрлі салада өзіне әмбебап бағдарламалар дайындауға көшті.

Оған дәлел қай жұмыс орнына қабылдаған кезде компьютерлік біліміңізді сұрайды, тексереді. Міне, осыдан бастап-ақ бағдарламашылардың жұмысының өрісі кеңейюде деп айқын айтуға болады. Батыс Қазақстанда дәл осы жұмыспен айналысатын фирма жоқ, дегенмен де бағдарламашылар тобы осы жұмысты алысқа шаптырмай-ақ тындырып бағуда.

Қазіргі жоғарғы оқу орнындағы ақпаратты жүйелер немесе информатика мамандығы бойынша оқып жатырған студенттердің дипломдық жобасының өзі бір саланы автоматтандыруға немесе бір пән бойынша ақпараттандырылған жұмыс орны және тағы да сол сияқты үлкен жобаларды орындауды талап етеді. Бұл орайда менің де дипломдық жұмысымды айта кеткен жөн деп есептеймін.

Ақпараттық технологияларды жұмыс орнында пайдалану өте тиімді екенін сезінген адамдар оны қолданысқа енгізуге үлкен құлшыныс білдіріп отыр. Апталап жасайтын жұмысты компьютер көмегімен жылдам жүзеге асыруға болады. Сол себепті де ақпараттық технологияларды пайдалану өте тиімді.

Электронды мәлмет алмасу көптеген жолға кететін қаражатты үнемдейді. Оған қоса ақпараттың толық және жылдам жетуіне сенімді болуға болады. Есеп беру жүйесінің сол бойда берілуі ақпараттық технологияларға көшуге басқа мүмкіндік қалдырмай отыр.

Себебін айтып жатудың өзі артық фирмалардың ашылу сәтінен бастап-ақ ақпараттық технологиялар бөлменің қайсі бір түпкірінде және көптеген отырып жұмыс жасайтын қызметкердің алдында болады.

Тіпті мектептерде ақпараттық технологиялардың барлық түрі, атап айтар болсақ: компьютер, сканер, принтер, факс және басқа да технологиялармен қамтылған. Бір кездері бір мектепте бір ғана басу машинкасымен көптеген жұмыс орындалағна. Қазір ол заман кетті.

«Қазақстан — 2030″ стратегиялық бағдарламасы приоритеттерінің бірі ұлттық білім моделін қалыптастыру тенденциясымен және Казақстан білім жүйесін бүкіл әлемдік білім кеңістігіне кіріктірумен сипатгалатын білім беру саласы болып табылады. Қазір бүкіл әлемде индустриялдық қоғамнан интерактивті қатынас жасауға және оны жүзеге асыратын техникалық мүмкіндіктерді тұрақты түрде дамытып отыра алатын информациялық қоғамға, яғни негізгі рөлді информацияны алу, өңдеу, сақтау, тасымалдау, тарату және пайдалану істерді атқаратын жаңа қоғамға көшу процесі жүріп жатыр. Информациялык. қоғамға ауысу информациялық және коммуникациялық технологияларды дамьггу мен күнделікті тұрмыста пайдалану (конвергенциялау) жолымен, яғни қоғамды ақпараттандыру (информация) істерін дамыту арқылы іске асырылады.

Информациялық қоғамға көшу процесінде информация құндылығы өзгеріп, біздің уақыт, кеңістік және қашықтық ұғымдары туралы да түсінігіміз кеңейіп, осылардың барлығы жаңа мәдениетті — информациялық мәдениеттің тууына себепші болды. Информациялық мәдениетті информациялық процестерді ұйымдастырудағы адамдардың информациялық қарым-қатынасын қанағаттандыру, қабылданған шешімдердің тигізетін әсерін болжап, әлемді біртұтас күйде көрсете алатын информацияны жасау, сақтау, өндеу, тасымалдау, бейнелеу және пайдалану істерін тиімді ұйымдастыру жолындағы жеткен деңгей түрінде қарастыру керек.

 

Пайдаланылған әдеиеттер көзі

1.Компьютерная технология обучения:словарь-справочник/Под редакцией В. Ю. Гриценко, А. М. Довгялло, А. Я. Савельева-К.: «Накова думка», 1992

2.Нұрғалиева Г. Қ. Электрондық оқулықтар – мұғалім мен оқушы арасындағы әрекетттестікті гуманизациялау құралы// «Информатика негіздері» республикалық журналы, №2, 2002.- 2-3 б.

3.Тажигулова А. И. Конструирование электронных учебников//Научно-практический журнал «Информационные технологии в Казахстане», №1, 2000.- С. 42-43.

4.Виштынецский Е. И., Кривошеев А. О. Вопросы применения информационных технологий в сфере образования и обучения//Информационныетехнологии, 1998, №2 – с. 32-36.

5.Сливина Н. А., Фомин С. С. Компьютерное учебное пособие «Высшая математика для инженерных специальностей»//КомпьютерПресс.- 1997.- №8.- с.72-77.

 

Қосымша

unit Main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Buttons, StdCtrls, ComCtrls, ToolWin, ImgList;

type

TForm1 = class(TForm)

tmrRoll: TTimer;

imgPic1: TImage;

imgPic2: TImage;

imgPic3: TImage;

imgPic4: TImage;

imgPic5: TImage;

imgPicRollMask: TImage;

tmrViewInfo: TTimer;

ToolBar: TToolBar;

QuitBtn: TToolButton;

Separator1: TToolButton;

Suivant: TToolButton;

Precedent: TToolButton;

lbInfo: TLabel;

ToolList: TImageList;

Timer1: TTimer;

Label1: TLabel;

Bevel1: TBevel;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

procedure imgPic5MouseLeave(Sender: TObject);

procedure imgPic5MouseEnter(Sender: TObject);

procedure imgPic4MouseLeave(Sender: TObject);

procedure imgPic4MouseEnter(Sender: TObject);

procedure imgPic3MouseLeave(Sender: TObject);

procedure imgPic3MouseEnter(Sender: TObject);

procedure imgPic2MouseLeave(Sender: TObject);

procedure imgPic2MouseEnter(Sender: TObject);

procedure imgPic1MouseLeave(Sender: TObject);

procedure imgPic1MouseEnter(Sender: TObject);

procedure SmallPicsClick(Sender: TObject);

procedure tmrViewInfoTimer(Sender: TObject);

procedure tmrRollTimer(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure QuitBtnClick(Sender: TObject);

procedure SuivantClick(Sender: TObject);

procedure PrecedentClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCenter;

procedure SaveBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

const

Info: Array[0..3] of String = (‘Қ. Жұбанов атындағы АМУ’,

‘Физико-математикалық факультет’,

‘Информатика кафедрасы’,

‘Дельфидің графикалық мүмкіндіктері’);

 

var

Form1: TForm1;

BigStream: TBitmap;

DestR: TRect;

SmallW, SmallH: Integer;

W,

H,

NewX,

dX1,

dX2,

X1,

X2: Integer;

 

MaskBevelW,

CurrFrame,

LastPicId,

PicId: Byte;

 

InfoId, Count: Byte;

 

AFormat: Word;

AData: THandle;

APalette: HPalette;

flag1:Integer;

BlendFunc: TBlendFunction;

 

implementation

uses about;

{$R *.dfm}

 

procedure Tform1.FormCenter;

begin

with form1 do begin

Left := Screen.Width  div 2 — Width  div 2;

Top  := Screen.Height div 2 — Height div 2;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

i: Byte;

begin

flag1:=0;

Left := (Screen.Width — Width) div 2;

Top := (Screen.Height — Height) div 2 — 16;

with BlendFunc do

begin

BlendOp := AC_SRC_OVER;

BlendFlags := 0;

SourceConstantAlpha := 127;

AlphaFormat := 0;

end;

end.

1 Delphi программалау ортасы туралы жалпы түсінік........................................  Бағдарламалау тілдеріне шолу...........................................................................  Delphi программалау жүйесі...............................................................................  Delphi интерфейсінің элементтері....................................................................  Delphi ортасының компоненттер палитрасы....................................................  2 Бағдарлама туралы жалпы түсінік........................................................................  2.1 Есептің жалпы қойылымы..................................................................................  2.2 Бағдарлама алгоритмі.................................................................................  2.3 Модульдер, процедуралар, функциялар кестесі............................................  Қорытынды  Пайдаланылған әдебиеттер тізімі...........................................................................  Қосымша...............................................................................................................

Дельфи ортасында анимация жасау әдістері -