Тәжірибелік жұмыс №19

Тапсырма: А әріпін С әріпіне ауыстыратын бағдарламаны құру

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1), Edit(2) компоненттерін алып, форманы келесі түрге келтіреміз (37-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 19).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Edit1	Properties	Caption	' '
Edit2	Properties	Caption	' '
Button1	Properties	Caption	'OK'

37-сурет. Форма түрі.

Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

var

a:string;

i:integer;

begin

a:=edit1.Text;

for i := 1 to length(a) do

if a[i]='a' then

begin

a[i]:='c';

edit2.Text:=a;

end;

end;

end.

38-сурет. Нәтиже.

Тәжірибелік жұмыс №20

Тапсырма: PaintBox компонентін қолданып дөңгелек және төртбұрышты

салатын бағдарлама жасау.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(2), SpinEdit(2), ColorBox(2), Label(4), PaintBox(1) компоненттерін алып, форманы келесі түрге келтіреміз (39-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 20).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	Выход
Button2	Properties	Caption	Очистить
ColorBox1	Properties	NoneColorColor	clBlack
ColorBox2	Properties	NoneColorColor	clRed
Label1	Properties	Capion	Радиус круга
Label2	Properties	Capion	Сторона
Label3	Properties	Capion	Цвет границы фигурки
Label4	Properties	Capion	Цвет заливки фигурки

39-сурет. Форма түрі.

PaintBox1 компонентінің OnMouseMove қасиетіне келесі кодты жазамыз:

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Paintbox1.Canvas.Pen.Color:=ColorBox1.Selected;

Paintbox1.Canvas.brush.Color:=ColorBOX2.Selected;

if ssLeft in shift then

PaintBox1.Canvas.Ellipse(x,y,x+SpinEdit1.Value,y+Spinedit1.Value);

if ssRight in shift then

PaintBox1.Canvas.Rectangle(x,y,x+Spinedit2.Value,y+SpinEdit2.Value);

end;

Button2 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button2Click(Sender: TObject);

begin

Paintbox1.Refresh;

end;

Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

ColorBox1 компонентінің OnChange қасиетіне келесі кодты жазамыз:

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

end;

end.

40-сурет. Нәтиже.