Page 64 - электрондык_окулык

G := RGBFrom[1] + MulDiv (I, RGBDiff[1], $ff);
B := RGBFrom[2] + MulDiv (I, RGBDiff[2], $ff);
{ select brush and paint color band}
Canvas.Brush.Color := RGB (R, G, B);
Canvas.FillRect (ColorBand);
end;end;
3. Форманы бояу үшін OnPaint форма ӛңдеушісінде былай жазыңыз:
GradientRect (clBlue, clBlack, Canvas);
4. Форма үшін OnResize оқиғасында жазыңыз: Paint;
5. Программаны шақырыңыз және тест жүргізіңіз.

Зертханалық жұмыстың тапсырмасы: Формаға қажетті компоненталарды қосыңыз.
Форма түсін ӛзгертіңіз.

2
№8 зертханалық жұмыс. Ax +Bx+C=0 түріндегі теңдеуді шешуге арналған
программаны жасау.
Теңдеу коэффициенттерін енгіземіз, дискриминантты есептейміз. Егер D<0 болса, онда
түбір жоқ деген хабар енгіземіз. Егер D>0 болса, онда екі түбірді де енгіземіз. Егер D=0
болса, онда тек бір ѓана түбір бар деген хабар енгіземіз.
Жұмыстың орындалу әдістемесі:
1.Жаңа проекті құрыңыз және оны жеке бумада сақтаңыз.
2.Формада келесі компоненттерді орнатыңыз: 4 Label, 3 Edit, Memo, 2 Button.
3. Расчет түймешесі үшін OnClick оқиға ӛңдеушісін құрыњыз. Теңдеуді шешуге
арналған программалық кодты жазыңыз.
4.Программа пайдаланушыға қажетсіз бастапқы берілгендерді енгізуге мүмкіндік
бермеуі керек.

Талап етілетін форманың түрі

№9 зертханалық жұмыс. Программалық қосымшаны ӛңдеу үшін PhotoShop графикалық
редакторын пайдалану.
Жұмыстың орындалу әдістемесі:
1. РhotoShop редакторын ашыңыз. 500х500 pixels жаңа файлан құрыңыз. ӛзіңізге
ұнайтын түспен жұмысшы облысты бояңыз. Layer => Layer Style => Bevel and
Emboss мәзірінде пунктіні таңдаңыз. ОК түймешесін басыңыз. Файлды jpg типінде
сақтаңыз.
2.Жаңа қосымша құрыңыз және оны жеке бумада сақтаңыз.
2. Формада Image1 компонентін орнатыңыз. Компонентті бүкіл формаға созыңыз.
Суретті жүктеңіз.
3. Формада келесі қасиеттерді орнатыңыз:
BorderStyle в значение bsNone;
Position в значение poDesktopCenter.
4. Формада Label1 компонентін орнатыңыз. Келесі қасиеттерді орнатыңыз:
Выход мәнінде Caption қасиеті;