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

1. Визуальное программирование в среде LAZARUS

3. Интерфейс программы

4. Основные сведения:

7. ПО, написанное на Lazarus • TotalCommander — 64-разрядная версия TC 8.0 компилируется с помощью Lazarus x64 • DoubleCommander — двухпанельный файловый менеджер c открытым исходным кодом, работающий под Linux и MicrosoftWindows. • easyMP3Gain — аудиоредактор для нормализации громкости mp3-файлов. • GreenGnome — свободная среда рабочего стола для MicrosoftWindows (аналог рабочего стола для Linux). • PeaZip — свободный и бесплатный кроссплатформенный портативный архиватор и графическая оболочка для других архиваторов. • UbuntuControlCenter — центр управления операционной системой ubuntu. • TransmissionRemote GUI — Front-end программа для управления BitTorrent

9. Инспектор объектов Главное окно Проектировщик форм Редактор кода Окно сообщений

10. 1. Главное меню. меню, панель инструментов и палитра компонентов. На палитре компонентов, представляющую множество тематических вкладок, располагаются визуальные и невизуальные компоненты будущей программы. Невизуальныекомпоненты видны только на этапе проектирования приложения.

11. 2. Инспектор объектов : • Свойства – отображает доступные свойства выбранного компонента . • События– содержит возможные обработчики событий для выбранного компонента. • Избранное и Огрничения.

12. Несколько основных свойств Name - имя объекта (текст). Caption - заголовок (текст). Текстовая надпись отображаемая на объекте. Width - ширина объекта по горизонтали (целое число) Height - высота объекта по вертикали (целое число) Top - расстояние от верхнего края объекта до верхнего края родительского объекта (то на чем расположен объект) (целое число). Left - расстояние от левого края объекта до левого края родительского объекта (целое число).

13. 3. РЕДАКТОР КОДА В нем следует набирать текст программы. В начале работы над новым проектом это окно редактора кода содержит сформированный Lazarus шаблон программы. Его доработка приведет к созданию приложения

14. 4. Проектировщик форм: . при запуске Lazarus автоматически предлагает пользователю новый проект, окно под названием Form 1, и назначает его главным окном.

15. 5. Окно Сообщения служит для вывода сообщений при компиляции и сборке проекта.

16. Файл-Создать-Проект и выберите Приложение, или выполните команду Проект –Создать проект. Для сохранения проекта Файл- Сохранить как. Каждый проект сохраняется в отдельный каталог! Файлы проекта: Модуль программы - Unit 1.pas Проект –project1.lpi Файл Unit.lfm-файл с данными о проектировщике форм

17. 5. Запуск Приложения на выполнение можно сделать нажатием клавиши F9, или через пункт в меню Запуск или выбором соответсвующей кнопки на панели инструментов

18. Как запустить программу Lazarus? • Из каких компонентов состоит окно программы? • В чем отличие невизуальных от визуальных компонентов? • С помощью какого свойства меняется заголовок у компонента? • Проекты сохраняются в одном файле или нет?

20. Ассоциативные, коммутативные операции арифметики

21. Сложение procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.Text<>‘ ‘ ) and (Edit2.Text<>‘ ‘ ) then begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a+b); end; end;

22. Вычитание procedure TForm1.Button1Click(Sender: TObject); Vara,b:real; begin if (Edit1.Text<>’ ‘) and (Edit2.Text<> ‘ ‘) then begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a-b); end; end;

23. Умножение procedure TForm1.Button1Click(Sender: TObject); begin if (Edit1.Text<>’’) and (Edit2.Text<>’’) then begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); Edit3.Text:=floattostr(a*b); end; end;

24. Деление procedure TForm1.Button4Click(Sender: TObject); begin if (Edit1.Text<>‘') and (Edit2.Text<>‘') then begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); if b=0 then Edit3.Text:='Ошибка!' else Edit3.Text:=floattostr(a/b); end; end;

25. Квадрат числа procedure TForm1.Button5Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); Edit3.Text:=floattostr(sqr(a)); end;

26. Квадратный корень числа procedure TForm1.Button6Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); if a<0 then Edit3.Text:='Ошибка!' else Edit3.Text:=floattostr(sqrt(a)); end;

27. N-ная степень числа Обратите внимание!!! Функция POWER(x,y) является встроенной в модуль MATH. Его необходимо прописать в самом начале программы в строке USES procedure TForm1.Button7Click(Sender: TObject); begin a:=strtofloat(Edit1.Text); b:=strtofloat(Edit2.Text); if a>=0 then Edit3.Text:=floattostr(exp(b*(ln(a)))) else Edit3.Text:=floattostr(power(a,b)); end;

28. Очистка оконввода данных и вывода результата вычисления: Возможность очистки рабочих окошек объектов EDIT1, Edit 2, Edit3 procedure TForm1.Button8Click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; end;

29. ВНИМАНИЕ!При выполнении работы создавайте скриншоты по тем пунктам, что описаны ранее!

30. 1 шаг:

31. 2 шаг:

32. 3 шаг:

33. 4 шаг:

34. 5 шаг

35. Информация для любознательных: Если на уроке не удалось побывать лично – не расстраивайся! Перейди по ссылке http://www.youtube.com/watch?v=V6bpbsDz1bU#t=86 и самостоятельно просмотри видео урок-введение. Подробную информацию о программе можно узнать на сайте –http://www.lazarus.freepascal.org/