Лазар - безплатен софтуер за развитие на околната среда с отворен код компилатор Free Pascal (често съкратено FPC-- безплатна Паскал език за програмиране, съставител) в Object Pascal. Една интегрирана среда за разработка дава възможност за разработване на приложения за различни платформи в Делфи среда, близка. В момента това е единственият инструмент на бърза разработка на приложения (RAD), което позволява на Delphi-програмисти да създават приложения с графичен потребителски интерфейс за Linux (и други не-Windows) системи.
С помощта на визуално програмиране технология, внедрена в Лазар, може да се изгради на интерфейса на бъдещите програми на специални компоненти, които прилагат различните свойства. Броят на тези компоненти е достатъчно голям. Всеки от тях съдържа готов софтуерен код, както и всички необходими работни данни, което спестява на програмиста от създаването на това, което вече е създадена преди. Такава програма ще изглежда като набор от процедури, които не разполагат с тялото.
Напишете програма, в процес на изграждане полигон използване визуална технология за програмиране в Лазар среда за програмиране. Размер фигури трябва да зависят от разстоянието от полигона до центъра на един от нейните крайни точки. Брой на ъгли и разстояния от центъра на полигона на един от своите крайни точки, въведени от потребителя.
Класове, SysUtils, FileUtil, форми, контроли, графика, диалози, ExtCtrls,
Примери за работа на програмата
Методите и процедурите, използвани в програмата
процедура Panel1MouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: цяло число)
При тази процедура, ние се провери валидността на данните и ако данните са въведени правилно, след изграждането на фигурата.
Проверка на коректността на използване на условна, ако. Ако броят на лъчите влезе 0 или дължината на лъчите влезе 0 или 1 или 2, на прозореца се появява с текста: "е невалидни данни!".
procedureTForm1.Edit1KeyPress (Sender: TObject; varKey: овъгляване) procedureTForm1.Edit2KeyPress (Sender: TObject; varKey: овъгляване)
В тези процедури, Ви молим вида на символи, които потребителят може да влезе. Тъй като програмата за работа, ние трябва да въведете номера, след което тези процедури позволяват да въведете само цифри.
procedureTForm1.Edit1Change (Sender: TObject) procedureTForm1.Edit2Change (Sender: TObject)
В тези процедури, ще се провери наличието на данни в редове и Edit1 Edit2. Ако входния низ не е празна, а след това програмата се изпълнява на, в противен случай, се появява прозорец с текста: "влиза в всички данни!".
Определяне на цвета на линията:
цветове: = RGBToColor (случаен (255), произволен (255), произволен (255)); Panel1.Canvas.Pen.Color: = цвята;
Тези екипи са отговорни за избора на цвят молив, която се проявява на случаен принцип.
Определяне на цвета на запълване:
Този екип е отговорен за избора на цвят за запълване на платното. В този случай, ние използваме белия цвят.
Този метод се основава на ред от координати (х1, Y1) до точка с координатите (x2, y2)
Начин на разговор е, както следва:
Метод повикване в този проблем е, както следва:
Panel1.Canvas.Line (х + кръг (г * Cos (а * и)), у + кръг (г * Sin (а * и)), х + кръг (г * Cos (а * (I + 1)) ), у + кръг (г * Sin (а * (I + 1))));
Свързани статии