ика до однієї з його крайніх точок вводиться користувачем. br/>
Код програми: Unit1;
{$ mode objfpc} {$ H +}
, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,;
{TForm1}
= class (TForm): TEdit;: TEdit;: TLabel;: TLabel;: TPanel; Edit1Change (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: char); Edit2Change (Sender : TObject); Edit2KeyPress (Sender: TObject; var Key: char);
Panel1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);
{private declarations}
{public declarations};
: TForm1;: tcolor;, gm, i, j, x, y, n, d, m, h, w, c: integer;: double;: byte;
{$ R *. lfm}
{TForm1}
TForm1.Panel1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); (f = 1) then: = StrToInt (Edit1.Text);: = StrToInt (Edit2.Text); ( (d = 0) or (n = 0) or (n = 1) or (n = 2)) then ('Введені некоректні дані!', mtInformation, [mbOk], 0);;;: = Panel1.Height; : = Panel1.Width;: = RGBToColor (random (255), random (255), 2 * Pi/n; i: = 0 to n - 1 do.Canvas.Pen.Color: = colors;. Canvas.Line (x + Round (d * Cos (a * i)), y + Round (d * Sin (a * i)), x + Round (d * Cos (a * (i + 1))), y + Round (d * Sin (a * (i + 1))));;;;
TForm1.Edit1KeyPress (Sender: TObject; var Key: char); not (key in ['0 '.. '9', # 8]) then key: = # 0;; TForm1.Edit2Change (Sender: TObject ); Length (Form1.Edit1.Text) = 0 then ('Введені не всі дані!', mtInformation, [mbOk], 0);: = 0; f: = 1;;
TForm1.Edit2KeyPress (Sender: TObject; var Key: char); not (key in ['0 '.. '9', # 8]) then key: = # 0;;
TForm1.Edit1Change (Sender: TObject); Length (Form1.Edit1.Text) = 0 then ('Введені не всі дані!', mtInformation, [mbOk], 0);: = 0; f: = 1; ;
.
lazarus середу програмування візуалізація
Приклади роботи програми
В
В
В
В
Методи і процедури, використані в програмі
Panel1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer)
У цій процедурі ми перевіряємо коректність введених даних і, якщо дані введені правильно, то виконуємо побудову фігури.
Коректність перевіряємо за допомогою умовного оператора if. Якщо кількість променів ввели 0 або довжину променів ввели 0 або 1, або +2, то з'являється вікно з текстом: В«Введено некоректні дані!В». br/>В
procedureTForm1.Edit1KeyPress (Sender: TObject; varKey: char) procedureTForm1.Edit2KeyPress (Sender: TObject; varKey: char)
