Lazarus - безкоштовне середовище розробки програмного забезпечення з відкритим вихідним кодом для компілятора Free Pascal (часто використовується скорочення FPC-- вільно розповсюджуваний компілятор мови програмування Pascal) на мові Object Pascal. Інтегроване середовище розробки надає можливість кроссплатформенной розробки додатків в Delphi-подібному оточенні. На даний момент є єдиним інструментом швидкої розробки додатків (RAD), що дозволяє Delphi-програмістам створювати додатки з графічним інтерфейсом для Linux (та інших не-Windows) систем.
За допомогою технології візуального програмування, реалізовану в Lazarus, можна будувати інтерфейс майбутніх програм зі спеціальних компонентів, що реалізують різні властивості. Кількість таких компонентів досить велике. Кожен з них містить готовий програмний код і всі необхідні для роботи дані, що позбавляє програміста від створення того, що вже створено раніше. Виглядати така програма буде як набір процедур, які не мають тіла.
Написати програму яка будує багатокутник використовуючи технологію візуального програмування в середовищі програмування Lazarus. Розмір фігури повинен залежати від відстані від центру багатокутника до однієї з його крайніх точок. Кількість кутів і відстань від центру багатокутника до однієї з його крайніх точок вводиться користувачем.
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Приклади роботи програми
Методи і процедури, використані в програмі
procedure Panel1MouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer)
У цій процедурі ми перевіряємо коректність введених даних і, якщо дані введені правильно, то виконуємо побудову фігури.
Коректність перевіряємо за допомогою умовного оператора if. Якщо кількість променів ввели 0 або довжину променів ввели 0 або 1, або 2, то з'являється вікно з текстом: «Введено некоректні дані!».
procedureTForm1.Edit1KeyPress (Sender: TObject; varKey: char) procedureTForm1.Edit2KeyPress (Sender: TObject; varKey: char)
У цих процедурах ми задаємо тип символів, які зможе ввести користувач. Так як для роботи програми нам потрібно, щоб вводилися числа, то ці процедури дозволяють вводити тільки цифри.
procedureTForm1.Edit1Change (Sender: TObject) procedureTForm1.Edit2Change (Sender: TObject)
У цих процедурах ми перевіряємо присутність даних в рядках Edit1 і Edit2. Якщо рядки введення не пустили, то програма виконується далі, в іншому ж випадку з'являється вікно з текстом: «Введено не всі дані!».
Визначення кольору лінії:
colors: = RGBToColor (random (255), random (255), random (255)); Panel1.Canvas.Pen.Color: = colors;
Ці команди відповідають за вибір кольору олівця, який відбувається випадковим чином.
Визначення кольору заливки:
Ця команда відповідає за вибір кольору заливки полотна. В даному випадку, ми використовуємо білий колір.
Цей метод викреслює пряму з точки з координатами (x1, y1) в точку з координатами (x2, y2)
Виклик методу виглядає так:
Виклик методу в даній задачі виглядає так:
Panel1.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))));