Lazarus - бесплатная среда разработки программного обеспечения с открытым исходным кодом для компилятора FreePascal (часто используется сокращение FPC - свободно распространяемый компилятор языка программирования Pascal) на языке ObjectPascal. Интегрированная среда разработки предоставляет возможность кроссплатформенной разработки приложений в Delphi-подобном окружении. На данный момент является единственным инструментом быстрой разработки приложений (RAD), позволяющим Delphi-программистам создавать приложения с графическим интерфейсом для Linux (и других не-Windows) систем.

Lazarus содержит в себе редактор кода, визуальный проектировщик форм, а также библиотеку компонентов, которая очень хорошо совместима с Библиотекой Визуальных Компонентов Delphi (VCL). Библиотека Визуальных Компонентов Lazarus (LCL) включает эквиваленты для большинства контролов из VCL (формы, кнопки, текстовые поля и т.д.), которые используются для создания приложений с графическим интерфейсом. С помощью технологии визуального программирования, реализованную в Lazarus, можно строить интерфейс будущих программ из специальных компонентов, реализующих различные свойства. Количество таких компонентов достаточно велико. Каждый из них содержит готовый программный код и все необходимые для работы данные, что избавляет программиста от создания того, что уже создано ранее. Выглядеть такая программа будет как набор процедур, не имеющих тела.

Основные возможности Lazarus:

· Возможность легкого переноса Delphi-програм с графическим интерфейсом в различные ОС: Linux, FreeBSD, Mac OS X, Microsoft Windows.

· Редактор форм и инспектор объектов максимально приближены к Delphi.

· Интерфейс отладки (используется внешний отладчик GDB).

· Простой переход для Delphi программистов благодаря близости LCL к VCL

· Полностью юникодный (UTF-8) интерфейс и редактор.

· Мощный редактор кода, включающий систему подсказок, гипертекстовую навигацию по исходным текстам, автозавершение кода и рефакторинг.

· Форматирование кода "из коробки", используя механизмы JediCodeFormat.

· Поддержка двух стилей ассемблера: Intel и AT&T.

· Поддержка множества типов синтаксиса Pascal: Object Pascal, Turbo Pascal, Mac Pascal, Delphi.

· Собственный формат управления пакетами.

приложение программирование визуальное lazarus

Визуальное программирование

OnCreate - событие возникает при создании окна и только один раз.

OnShow - это событие генерируется непосредственно перед тем, когда окно станет видимым.

OnActivate - это событие генерируется, когда окно становится активным, то есть когда получает фокус ввода.

OnPaint - это событие возникает каждый раз при перерисовке окна.

OnReSize - это событие возникает каждый раз при изменении размеров окна.

OnClose - событие возникает при закрытии окна.

OnKeyDown - событие наступает при нажатии любой клавиши.

OnKeyPress - событие наступает при нажатии клавиши символа.

OnKeyUp - событие возникает при отпускании любой клавиши.

Графический Интерфейс

repeatоператор until выражение

Выражение после repeat должно быть логическим выражением. Выражение после repeat выполняются до тех пор, пока логическое выражение после until не примет значение true. Итак, построенный с помощью оператора repeat цикл выполняется по крайней мере один раз.

Оператор For:

forпеременная: = выражение to выражение do оператор

Переменная цикла и оба выражения должны иметь одинаковый тип, который должен быть порядковым. Первое выражение является начальным значением, второе - конечным. При выполнении to начальное значение увеличивается каждый раз, пока не достигнет конечного значения.

Простые типы данных

Все переменные, используемые в программе, должны быть перечислены в разделе описания переменных.

var a, b: integer;

c: real;

Lazarus - это гибкий язык, в котором имеется большое число различных типов. Все имеющиеся в lazaruse типы принято делить на группы. Типы, принадлежащие одной группе, имеют сходство. Прежде всего, выделяют простые и структурные типы. Простые типы, в свою очередь, подразделяют на порядковые и вещественные типы.

Требования к приложению:

OC: Windows 2000/XP/Vista/7/8; Процессор: 2Ghz; Оперативная память: 128Мб (минимум);

Видеокарта 128мб; Место на жёстком диске: 50мб; Клавиатура, мышь.

Описание

Программа является популярной развлекательной игры крестики - нолики используя технологию визуального программирования в среде программирования Lazarus. Игра происходит простыми щелчками мыши по игровому полю, после чего выбранное поле помечается крестиком или ноликом в зависимости от того чей ход.

Описание переменных:

t: byte;

A: array [1.3,1.3] ofbyte;

Структура программы:

Procedure<имя процедуры> (формальные параметры); - вызываемая процедура.

Var

<список переменных и их типов через точку с запятой >; - объявление переменных.

if - then - else

ЕСЛИ условие ТО оператор1 В ДРУГОМ СЛУЧАЕ (ещё) оператор2

Label. Caption [= cText]

Задает текст, отображаемый в названии объекта.

Код программы:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class (TForm)

B11: TButton;

B21: TButton;

B31: TButton;

B12: TButton;

B22: TButton;

B32: TButton;

B13: TButton;

B23: TButton;

B33: TButton;

Button1: TButton;

Label1: TLabel;

procedure B11Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

function Run1 (z: byte): boolean;

var

Form1: TForm1;

t: byte; // Сюда будем писать номер хода

A: array [1.3,1.3] of byte;

implementation

{$R *. lfm}

{ TForm1 }

procedure TForm1. B11Click (Sender: TObject);

begin

ifTButton (Sender). Caption<>'' thenexit; // Тут уже имеется крестик/нолик выходим из процедуры

inc (t);

label1. Caption: ='Ход'+IntToStr (t+1);

if (t mod 2) <>0 then TButton (Sender). Caption: ='X' // Метим кнопку отправитель события клика

elseTButton (Sender). Caption: ='O';

A [StrToInt (Copy (TButton (Sender). Name,2,1)),StrToInt (Copy (TButton (Sender). Name,3,1))]: = ( (t-1) mod 2) +1; // Записываем в массив 1 если X и 2 еслиО

ift>=5 then

begin // Начинаем проверку на линию с 5 хода

if Run1 ( ( (t-1) mod2) +1) thenbegin // Проверяем есть ли в массиве полная линия элементов содержащих ( (t-1) mod 2) +1

B11. Enabled: =false; B21. Enabled: =false; B31. Enabled: =false; // Если есть то делаем все кнопки неактивными

B12. Enabled: =false; B22. Enabled: =false; B32. Enabled: =false;

B13. Enabled: =false; B23. Enabled: =false; B33. Enabled: =false;

if (t mod 2) <>0 then Label1. Caption: ='Выиграли X'

else Label1. Caption: ='Выиграли O';

Button1. Enabled: =true;

exit;

end;

end;

if t=9 then begin

B11. Enabled: =false; B21. Enabled: =false; B31. Enabled: =false;

B12. Enabled: =false; B22. Enabled: =false; B32. Enabled: =false;

B13. Enabled: =false; B23. Enabled: =false; B33. Enabled: =false;

Label1. Caption: ='Ничья';

Button1. Enabled: =true;

end;

end;

procedure TForm1. Button1Click (Sender: TObject); // Возвращаем всё на исходную

var

i,j: byte;

begin

B11. Enabled: =true; B21. Enabled: =true; B31. Enabled: =true;

B12. Enabled: =true; B22. Enabled: =true; B32. Enabled: =true;

B13. Enabled: =true; B23. Enabled: =true; B33. Enabled: =true;

B11. Caption: =''; B21. Caption: =''; B31. Caption: ='';

B12. Caption: =''; B22. Caption: =''; B32. Caption: ='';

B13. Caption: =''; B23. Caption: =''; B33. Caption: ='';

for i: =1 to 3 do // Обнуляем массив

for j: =1 to 3 do A [i,j]: =0;

Button1. Enabled: =false;

Label1. Caption: ='Ход 1';

t: =0; // Обнуляем ход

end;

function Run1 (z: byte): boolean; // Проверяем наличие линий с одинаковым z

begin

result: =false;

if ( (A [1,1] =z) and (A [2,2] =z) and (A [3,3] =z)) or ( (A [3,1] =z) and (A [2,2] =z) and (A [1,3] =z)) then begin result: =true; exit; end; // Диагональ

if ( (A [1,1] =z) and (A [2,1] =z) and (A [3,1] =z)) then begin result: =true; exit; end; // Горизонталь

if ( (A [1,2] =z) and (A [2,2] =z) and (A [3,2] =z)) then begin result: =true; exit; end;

if ( (A [1,3] =z) and (A [2,3] =z) and (A [3,3] =z)) then begin result: =true; exit; end;

if ( (A [1,1] =z) and (A [1,2] =z) and (A [1,3] =z)) then begin result: =true; exit; end; // Вертикаль

if ( (A [2,1] =z) and (A [2,2] =z) and (A [2,3] =z)) then begin result: =true; exit; end;

if ( (A [3,1] =z) and (A [3,2] =z) and (A [3,3] =z)) then begin result: =true; exit; end;

end;

end.

Примеры работы программы