І. Терезе тақырыбы және фондық түсі бар қарапайым Windows-қосымшасын жасау

Бақылау тапсырмалары

1. 
   Панельдердің қасиеттерін форма ашылғанда көрінбейтін етіп өзгертіңіз. Ал жазулар жанған кезде олар көрінуі керек.
   

2. Формаға суретте көрсетілген компоненттерді орналастырыңыз.

№2 программа листингі

var

Form1: TForm1;

{$R *.DFM}

begin

Label2.Caption:=Edit1.Text+', ты любишь читать?';

Button1.Enabled:=true;

Button2.Enabled:=true;

end;

end;
procedure TForm1.Button1Click(Sender: TObject);

Label3.Caption:='Молодец !';

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

end;
procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Edit1.Text:='';

Label3.Caption:='';

Button1.Enabled:=false;

Button2.Enabled:=false;

Form1.ActiveControl:=Edit1;

end;

Айнымалылар типін қолдану – бүтін және нақты (integer және real);

Жолдық деректерді сандарға және сандарды жолдық қатарларға ауыстыру үшін StrToInt; StrToFloat, IntToStr FloatToStr ; Format() функцияларын қолдану;

Хабарламаны жеке терезеде шығару үшін ShowMessage процедурасын пайдалану.

Адамның оптимальді салмағы есептеу үшін адам бойынан 100 алып тастау керек. Егер адамның нақты салмағы оптимальді салмақтан үлкен болса онда адам толық, егер кем болса арық болып саналады.

3. Программа кодын және проектіні Unit2.pas и Pr3.dpr деген тапен сақтаңыз.

4. Программа коды терезесінің VAR бөліміне нақты салмақты (faktW), оптимальді салмақты (optW), бойының мәнін (Rost) және оптимальді салмақ пен нақты салмақ айырмасын (Delta) сақтайтын айнымалыларды енгізіңіз. VAR factW, optW, Rost, Delta : integer;

5. Button1 батырмасын шерту процедурасына келесі кодты жазыңыз:

StrToInt функциясы жолды бүтін санға аударады, IntToStr функциясы керісінше – бүтін санды жолға ауыстырады.

6. Программаға кез келген ондық сандар енгізу үшін айнымалылардың типін нақты типке - Real өзгертеміз: VAR factW, optW, Rost, Delta : real;

Жолды нақты типке және нақты сандарды жолға ауыстыру үшін FloatToStr және StrToFloat функциялары қолданылады. Button1 компонентінің OnClick оқиғасына сәйкес өзгертулер енгізіңіз.

7. Проектіні сақтап, орындаңыз.

Өздік жұмыс

Салмақ – X,

Бойының ұзындығы – Y (метр).

Дене массасының индексі – A, мұндағы A = X / Y² (кг/м²)

Нәтиже келесі кесте бойынша анықталады:

№3 программа листингі

interface

uses

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

type

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Edit2Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private

{ Private declarations }

public

{ Public declarations }

Form1: TForm1;

VAR

begin

y:=StrToFloat(Edit2.Text);

y:= S qr(y/100);

k:=x/y;

else

else

else

else

end;

begin

Edit1.Text := '';

Edit2.Text := '';

Form1.ActiveControl := Edit1;

Button1.Enabled := false;

Label2.Visible := false;

Edit2.Visible := false;
end;
procedure TForm1.Edit2Click(Sender: TObject);

begin

Button1.Enabled := true;

end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

VAR x:real;

begin

if key=#13 then

try

except

Edit1.SetFocus;

Exit;

end;

Edit2.Visible:=true;

Form1.ActiveControl := Edit2;

end;

VAR y:real;

begin

if key=#13 then

try

except

Edit2.SetFocus;

Exit;

end;

end;

2. Суретте көрсетілген компоненттерді формаға орналастырыңыз.

3. ScrollBar айналдыру жолағы горизонтальді (үнсіз келісім бойынша) және вертикальді бола алады. Оның түрі Kind қасиетімен анықталады. Осы программада вертикальді айналдыру жолағы қолданылады.

4. Программа коды және проектіні сақтаңыз: Unit3.pas и Pr3.dpr.

5. Келесі әрекеттерді орындаңыз:

6. Формадағы барлық Label компоненттері үшін Caption қасиетінің мәнін ' ' деп өзгертіңіз.

7. Келесі әрекеттерді орындаңыз:

Объект	Object Inspector терезесінің бөлімі	Қасиеті/ Оқиғасы	Мәні/Әрекеті
RedBar	Events	OnChange	Panel1.Color:=TColorRef(RGB(RedBar.Position,0,0)); Label1.Caption:=IntToStr(RedBar.Position); Panel4.Color:=TColorRef(RGB(RedBar.Position, Greenbar.Position, BlueBar.Position));

Жоғарыдағы әдіспен ScrollBar2 және ScrollBar3 үшін OnChange оқиғасын мәнін жазыңыз, бірақ RGB и IntToStr.

Түсініктеме:

ScrollBar1 жолағы жылжығанда, Panel1 түсі өзгеріп, түстің сандық мәнін Label компоненті көрсетеді. Сонымен қатар Panel4 компонентінің түсі де өзгереді.

8. Проектіні сақтап, орындаңыз.

Өздік жұмыс

№	Тапсырма	Көмек
1	Программа орындалғанда панельдер бастапқы түстерге боялып тұруы керек.	Форманы құру оқиғасына (Form1 үшін OnCreate оқиғасы) ScrollBar1, ScrollBar2, ScrollBar3 компоненттерінің позициясын өндеу кодын жазыңыз.

№4 программа коды

interface

uses

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

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Panel4: TPanel;

RedBar: TScrollBar;

GreenBar: TScrollBar;

BlueBar: TScrollBar;

BitBtn1: TBitBtn;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

private

public

end;
var

Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.RedBarChange(Sender: TObject);

begin

Label1.Caption:=IntToStr(RedBar.Position);

Label4.Caption:=Format('0x%x',[RedBar.Position]);

Panel4.Color:=RGB(RedBar.Position,GreenBar.Position,BlueBar.Position);

end;
procedure TForm1.GreenBarChange(Sender: TObject);

begin

Label2.Caption:=IntToStr(GreenBar.Position);

Label5.Caption:=Format('0x%x',[GreenBar.Position]);

Panel4.Color:=RGB(RedBar.Position,GreenBar.Position,BlueBar.Position);

end;
procedure TForm1.BlueBarChange(Sender: TObject);

begin

Label3.Caption:=IntToStr(BlueBar.Position);

Label6.Caption:=Format('0x%x',[BlueBar.Position]);

Panel4.Color:=RGB(RedBar.Position,GreenBar.Position,BlueBar.Position);

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

Label5.Caption:=Format('0x%x',[GreenBar.Position]);

Label6.Caption:=Format('0x%x',[BlueBar.Position]);

Panel1.Color:=RGB(RedBar.Position,0,0);

Label1.Caption:=IntToStr(RedBar.Position);

Panel2.Color:=RGB(0,GreenBar.Position,0);

Label2.Caption:=IntToStr(GreenBar.Position);

Panel3.Color:=RGB(0,0,BlueBar.Position);

Label3.Caption:=IntToStr(BlueBar.Position);

Panel4.Color:=RGB(RedBar.Position,GreenBar.Position,BlueBar.Position);

1. 
   Delphi программалау ортасын ашыңыз.
   
2. 
   Form1 формасына Label (Standard парағы) және Timer (System парағы) компоненттерін орналастырыңыз.
   
3. 
   Объектілердің келесі қасиеттерін орнатыңыз:
   
4. 
   

   Объект	Свойство	Значение
   Form1 Label1 Label1 Label1 Label1	Name Caption Color Font.Size Font.Color	Clock 00:00:00 clYellow 24 Красный

   TClock.Timer1Timer процедурасы үшін уақыттың жаңару кодын жазыңыз:
   
   

5. 
   Формаға GroupBox және RadioButton компоненттерін орналастырып, келесі қасиеттерді көрсетіңіз:
   

RadioButton1 Caption Медленно

RadioButton2 Caption Умеренно

RadioButton3 Caption Быстро

6. 
   TForm1.RadioButton3Click процедурасына келесі кодты жазыңыз:
   

7. 
   Келесі процедуралар үшін де кодтарды жазыңыз: