Delphi визуалды программалау ортасы


Жұмысты орындау бағдарламасы



бет93/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   89   90   91   92   93   94   95   96   97
Байланысты:
Delphi vizualdy programmalau ortasy

Жұмысты орындау бағдарламасы:

unit Zhuldyzdar_;

{$R *.dfm}

// жұлдыз салады

procedure TForm1.StarLine(x0,y0,r: integer);

// x0,y0 – жұлдыз центрінің координатасы

// r – жұлдыз радиусы

var


p : array[1..11] of TPoint; // сәулелер мен ойыстар //координаталарының жиымы

a: integer; // ОХ осі мен жұлдыз центрін және сәуле не ойыс //ұшын қосатын түзу арасындағы бұрыш

i: integer;

begin


a := 18; // оң жақ көлденең сәуледен бастап салу

for i:=1 to 10 do

begin

if (i mod 2 = 0) then



begin // ойыс

p[i].x := x0+Round(r/3*cos(a*2*pi/360));

p[i].y:=y0-Round(r/3*sin(a*2*pi/360));

end


else

begin // сәуле

p[i].x:=x0+Round(r*cos(a*2*pi/360));

p[i].y:=y0-Round(r*sin(a*2*pi/360));

end;

a := a+36;



end;

p[11].X := p[1].X; // жұлдыз контурын тұйықтау үшін

p[11].Y := p[1].Y;

Canvas.Polyline(p); // жұлдыз контурын сызу

end;

// тышқан батырмасын басу



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button = mbLeft // сол жақ батырма басылды ма?



then Canvas.Pen.Color := clBlack

else Canvas.Pen.Color := clRed;

StarLine(x, y, 30);

end;


end.

27. Мәліметті басып шығару


Жұмыстың мақсаты – кестемен берілген мәліметтерді басып шығаратындай бағдарлама құру.

1. Жаңа жоба ашып, сол Пішінге 52-суретте көрсетілген компоненттерді орнатыңыз.







Достарыңызбен бөлісу:
1   ...   89   90   91   92   93   94   95   96   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет