Іс тәжірибелік жұмыстар №6

Тақырыбы: Delphi ортасының TCheckBox, TRadioButton компоненттерімен танысу.

Мақсаты: Delphi ортасының жоғарыда аталған негізгі компоненттердің қасиеттерімен танысу және олармен жұмыс істеп үйрену.

Тапсырма:

CheckBox және RadioButton компоненттерін қолдану арқылы “Дыбыс”, “Түс”, “Тышқан” атаулары бар CheckBox компоненттеріне жалауша орнатқан кезде Label компонентіне “Дыбыс қосылды”, “Түс қосылды”, “Тышқан қосылды” мәтіні шығатын және RadioButton компонентіндегі әр деңгейді таңдағанда олардың сәйкесті мәндері Label компонентінде шығатын программа құру қажет.

Тапсырманың орындалуы:

1. Жаңа проект ашу.

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

Компонент	Қасиет	Мәні
RadioButton1	Caption	Деңгей1
RadioButton2	Caption	Деңгей2
RadioButton3	Caption	Деңгей3
Button1	Caption	Шығу
CheckBox1	Name BackColor Caption	chkSound clGreen &Дыбыс
CheckBox2	Name BackColor Caption	chkColor clLime &Түс
CheckBox3	Name BackColor Caption	chkMouse clBlue &Тышқан
Form1	Name BackColor Caption	FormOptions clRed Таңдау
Label1	Caption	Label1-ді өшіру

3. CheckBox1 компонентін шертуде келесі процедура орындалады:

procedure TForm1.ChkSoundClick(Sender: TObject);

begin

if chkSound.Checked then

label1.Caption:=label1.Caption+’Дыбыс таңдалды'+#13

else label1.Caption:=Label1.Caption+(Дыбыс өшірілді) ';

end;

4. CheckBox2 компонентін шертуде келесі процедура орындалады:

procedure TForm1.ChkColorClick(Sender: TObject);

begin

if chkColor.Checked then

label1.Caption:=label1.Caption+'Түс тандалды'+#13

else label1.Caption:=Label1.Caption+' Түс косылмайды';

end;

5. CheckBox3 компонентін шертуде келесі процедура орындалады:

procedure TForm1.ChkMouseClick(Sender: TObject);

begin

if chkMouse.Checked then

label1.Caption:=label1.Caption+'Тышкан тандалды'+#13

else label1.Caption:=Label1.Caption+' Тышкан косылмайды';

end;

6. RadioButton1 компонентін шертуде келесі процедура орындалады:

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

label1.Caption:='Деңгей1'

end;

7. RadioButton2 компонентін шертуде келесі процедура орындалады:

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

label1.Caption:=' Деңгей2'

end;

8. RadioButton3 компонентін шертуде келесі процедура орындалады:

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

label1.Caption:=' Деңгей3'

end;

9. Button1 компонентін шертуде келесі процедура орындалады:

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

Іс тәжірибелік жұмыстар № 7

Тақырыбы: Delphi ортасының TStrings класымен танысу. TStringList тізімімен жұмыс жасау.

Мақсаты: Delphi ортасының TStringList тізімінің қасиеттерімен танысу.

Тапсырма: Төрт адамның аты-жөні енгізілгеннен кейін Memo компонентіне осы тізімді сұрыптап шығаратын программа құру.