Іс тәжірибелік жұмыстың ындалуоры

1 Тапсырма.

1. Форманың Caption қасиетіне барып, Form1 жазуын өшіріп, Радуга деп жазамыз.

2. Формаға 6 Button компонентін рет-ретімен қойып, олардың Caption қасиеттеріне сәйкесті түрде қызыл, көк, сары, жасыл, қызғылт және шығу мәндерін енгіземіз.

3. Button1 компонентін 2 рет шертіп, ашылған код терезесіне келесі кодатрды жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color:=clRed;

end;

4. Button2 компонентін 2 рет шертіп, ашылған код терезесіне келесі кодты жазамыз:

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Color:=clBlue;

end;

5. Button3 компонентін 2 рет шертіп, ашылған код терезесіне келесі кодты жазамыз:

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Color:=clYellow;

end;

6. Button4 компонентін 2 рет шертіп, ашылған код терезесіне келесі кодты жазамыз:

procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.Color:=clLime;

end;

7. Button5 компонентін 2 рет шертіп, ашылған код терезесіне келесі кодты жазамыз:

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.Color:=clPruple;

end;

8. Button6 компонентін 2 рет шертіп, ашылған код терезесіне келесі кодты жазамыз:

procedure TForm1.Button6Click(Sender: TObject);

begin

Close;

end;

Қосымша тапсырма

1. Әр Button компоненттерінің үстіне Label1, Label2, Label3, Label4, Label5 компоненттерін орнатыңыз.

2. Олардың Caption қасиеттерін өшіріңіз.

3. Кодты енгізу:

• Label1.Color:=clWhite; Label1.Font.Color:=clRed;

• Label2.Color:=clWhite; Label1.Font.Color:=clBlue;

• Label3.Color:=clWhite; Label1.Font.Color:=clYellow;

• Label4.Color:=clWhite; Label1.Font.Color:=clLime;

• Label5.Color:=clWhite; Label1.Font.Color:=clPurple;

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

Тақырыбы: Delphi ортасының TForm, TButton, TLabel, TEdit, TRadioButton компоненттерімен жұмыс істеу.

Мақсаты: TForm, TButton, TLabel, TEdit, TRadioButton компоненттерімен олардың қасиеттерін оқып-үйрену.

Тапсырма: TRadioButton компонентін қолдану арқылы қосу, алу, көбейту, бөлу, санның квадратын табу, санның түбірін табу амалдарын орындайтын қарапайым Калькулятор программасын құру.

Компонент	Қасиет	Мәні
RadioButton1	Caption	+
RadioButton2	Caption	-
RadioButton3	Caption	*
RadioButton4	Caption	/
RadioButton5	Caption	Санның квадратын табу
RadioButton6	Caption	Санның түбірін табу
Edit1	Text	Edit1 мәнін өшіру
Edit2	Text	Edit2 мәнін өшіру
Edit3	Text	Edit3 мәнін өшіру
Button1	Caption	Операцияны орындау
Button2	Caption	Шығу
Form1	Caption	Калькулятор

Шығу компонентін екі рет шерту арқылы код терезесін ашып, келесі процедураны жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

var x,y,z:real;

begin

x:=strtofloat(edit1.Text);

y:=strtofloat(edit2.Text);

if radiobutton1.Checked

then begin

z:=x+y;

edit3.Text:=floattostr(z);

end;

if radiobutton2.Checked

then begin

z:=x-y;

edit3.Text:=floattostr(z);

end;

if radiobutton3.Checked

then begin

z:=x*y;

edit3.Text:=floattostr(z);

end;

if radiobutton4.Checked

then begin

z:=x/y;

edit3.Text:=floattostr(z);

end;

if radiobutton5.Checked

then begin

z:=SQR(x);

edit3.Text:=floattostr(z);

end;

if radiobutton6.Checked

then begin

z:=SQRT(x);

edit3.Text:=floattostr(z);

end;

end;

end.

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;