Графикалық ақпараттарды кескіндеу компоненттері

Алматы облысы
Текелі қаласы
«Текелі кәсіптік колледжі» МКҚК
Ермухамбетова Меруерт Ахметжанкызы
Графикалық ақпараттарды кескіндеу компоненттері

 

Пән: Алгоритмдеу және бағдарламалау негіздері

Мерзімі: 12.11.2015ж.                                            Топ: ТП-20

Сабақтың тақырыбы: Графикалық ақпараттарды кескіндеу компоненттері

Сабақтың мақсаты: 

1. білімділік: білімгерлерге графикалық ақпараттарды кескіндеу компоненттерімен жұмыс жасауды үйрету;
2. дамытушылық: білімгерлердің визуалды бағдарламалау туралы практикалық білімдерін дамыту;
3. тәрбиелік: білімгерлерді топпен және жеке жұмыс жасауға, уақытты тиімді пайдалануға тәрбиелеу.

Сабақтың түрі: тәжірибелік білім мен дағдыны қалыптастыру сабағы.

Сабақтың әдісі: тәжірибелік-зертханалық жұмыс.

Оқыту құралдары: компьютерлер, Delphi7 бағдарламасы, инструкциялық карта №20, презентация.

Пәнаралық байланыс: математика, шетел тілі.

 

Сабақтың барысы:

 

1. Ұйымдастыру кезеңі            2 мин.

А) Сәлемдесіп, аудиторияның қауіпсіздік ережесіне сай сырт кейпі мен заттарының орнында болуын қадағалау;
Б) Студенттердің назарын сабаққа аударып, сабақтың барысымен таныстыру.

 

2. ТЗЖ орындау туралы нұсқаулық            3 мин.
3. Жұмыс парақтарын үлестіру арқылы білімгерлердің теориялық білімдеріне шолу жасау;
4. Білімгерлерге нұсқаулық картаны таратып, жұмыстың орындалу тәртібімен таныстыру.

 

3. ТЗЖ орындалуы      30 мин.
4. Білімгерлерді жұмыс орнына отырғызу;
5. Нұсқаулық карта бойынша компьютерде практикалық тапсырмаларын орындату.

 

4. Сабақты қорытындылау

Тексеру жұмыстарын жүргізу, қателіктерді табу және түзету.

(Студенттерді бағалау)                                           8 мин.

 

5. Үй тапсырмасы          2 мин.

Шығармашылық жұмыс, 3.13- тақырып, 315 бет, тапсырмалар (А.Хамметов, М.Ғалымжанова; В.Махатова, Бағдарламалау тілін оқыту негіздері, Астана, 2011ж.)

Графикалық ақпараттарды кескіндеу компоненттері

 

1-тапсырма. Delphi бағдарламасының қандай графикалық мүмкіндіктері бар?

______________________________________________________________________________________________________________________________________________________________________________________.

 

2-тапсырма. Сөйлемді толықтыр.

Графикалық компоненттерге ________________________

_______________________________________________________________ жатады.

 

3-тапсырма. Сурет салумен байланысты графикалық амалдарды орындауға қатысы бар негізгі классты көрсет:

Checked

Font

Caption

Canvas

Exception

 

4-тапсырма. Image1 компонентіне іші боялған тіктөрбұрыш салудың программасын жаз:

 

5-тапсырма. Командалар мен олардың қызметін сәйкестендір:

TextOut(x, y, Текст)                            Тік төртбұрыш салу

LineTo(х, у)                                    Овал салу

Ellipse(x1, y1, x2, y2)                          Доғал салу

Arc(x1, y1, x2, y2, х3, у3, х4, у4)     Нүктені керек түске

бояу

Rectangle (x1, y1, x2, y2)                  Түзу сызық сызу

Pixels[10, 10]:= clColor;                    Текст жазу

 

6-тапсырма. Кестені толтыр:

 

№	Компонент атауы	Сипаттамасы
1	Image
2	PaintBox
3	Chart
5	Animate

 

7-тапсырма. Delphi бағдарламасында пайдаланылатын түстер политрасын тізіп жаз:

 

1. ___clRed_____;
2. _____________;
3. _____________;
4. _____________;
5. _____________;
6. _____________;
7. _____________;

 

Нұсқаулық карта №20

 

1. Форма бетіне олимпиядалық жалау суретін салу.

Объектіні  Image компонентінің үстіне шығарыңыз. Формаға Image, button1 компоненттерін орналастырыңыз. Button1 компонентінің Caption қасиетіне «сурет салу» мәнін енгізіңіз. Button1 компонентінің Onclick  оқиғасын құрыңыз. Коды:

procedure TForm1.Button1Click(Sender: TObject);

begin

with Image1.canvas do

begin

pen.Width:=1;Pen.Color:=clblack;

brush.Color:=clcream;Rectangle(30,30,150,115);

pen.Width:=2;brush.Style:=bsclear;

Pen.Color:=clblue;ellipse(40,40,80,80);

Pen.Color:=clblack;ellipse(70,40,110,80);

Pen.Color:=clred;ellipse(100,40,140,80);

Pen.Color:=clyellow;ellipse(55,65,95,105);

Pen.Color:=clgreen;ellipse(85,65,125,105);

end;

end.

 

2. Компонент өлшемдерін сақтау үшін, контейнерлердің көмегімен айналдыру жолақтарын пайдалану арқылы орында.

procedure TForm1.FormCreate(Sender: TObject);

begin

Image1.Left:=0;

Image1.Top:=0

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

Image1.Picture.LoadFromFile(OpenDialog1.FileName);

 

end;

end;

end.

 

 

 

3. Sin (K* pi/10 ) функциясы берілген, K=0…20. Функцияның графигін салайық (4 — сурет).

Функцияның графигін сызу үшін

procedure TForm1.FormActivate(Sender: TObject);

 var k: integer;

 begin

for k:=0 to 20 do

Chart1.SeriesList[0]. AddXY(k,(sin(k*pi/10)),’  ‘,  clGreen);
end;    end.

 

[bws_related_posts]