42077

Створення Delphi- проектів з використанням компонентів відображення даних

Лабораторная работа

Информатика, кибернетика и программирование

Створити Delphi-проект, головна форма якого має вигляд, зображений на рис.1. Для надписів “конкурсант А” ,“конкурсант В” , “конкурсант С” використати компоненти типу TLabel (текстові мітки), для введення балів – компоненти типу TEdit, для графічного відображення результатів – компоненти типу TProgressBar. Для заборони введення в полях любих символів крім цифр використано подію OnKeyPress для поля Edit. Для полівEdit2Edit3 в інспекторі обєктів для події OnKeyPress вибрано зі списку цю ж саму процедуру.Керування доступом до кнопки â пітсумкиâздійснено з використанням події OnChge для поляEdit1.

Русский

2013-10-27

71.53 KB

8 чел.

Завдання:

Створити Delphi-проект, головна форма якого має вигляд, зображений на рис.1. Для надписів конкурсант А ,конкурсант В , конкурсант С використати компоненти типу TLabel (текстові мітки), для введення балів – компоненти типу TEdit, для графічного відображення результатів – компоненти типу TProgressBar.

Відображення результатів – компонент типу TProgressBar.

Графічне відображення результатів повинно здійснюватися після натискання кнопки (компоненти типу TButon) з надписом “підсумки”. Надписи на текстових мітках здійснювати на червоному, синьому та зеленому фоні відповідно.

Змн.

Лист

№ докум.

Підпис

Дата

Арк.

1

ПР. ООП.10.7-8.ТЗ

Розроб.

Зеленюк

Перевір.

Чемолосова

.

Створення Delphi- проектів з використанням компонентів відображення даних.

Літ.

Аркушів

3

ЧІК, гр.РП-31

Бали в полях введення повинні відображатися кольорами,відповідними фону надписів. Кнопка повинна мати доступ лише при наявності даних в полях введення. В полях введення дозволити лиш введення цифр.

Хід виконання роботи:

Розташовано на формі компоненти, передбачені завданням таким чином, як показано на Рис.1 та надано їм заданих властивостей.

Рис.1 Інтерфейс проекту

2. Для заборони введення в полях любих символів крім цифр використано подію OnKeyPress для поля Edit. Для полівEdit2,Edit3 в інспекторі об’єктів  для події OnKeyPress вибрано зі списку цю ж саму процедуру.

3.Керування доступом до кнопки “ пітсумки”здійснено з використанням події OnChage для поляEdit1.для полів Edit2,Edit3 в інспекторі об’єктів для події OnChage вибрано зі списку цю ж саму процедуру.

4.для відображення результатів конкурсу в графічні формі використати подію OnClick для кнопки підсумки”. В ній повинні виконуватися такі дї:

- визначення максимального результату.

- присвоєння праві границі інтервалів індикаторів максимального значення.

- визначення поточних положень індекаторів відповідно до результатів конкурсу.

5. творити нову версію проекту, змінивши вигляд інтерфейсу наступним чином:

- смуги в індикаторі зробити суцільними;

- індикатори зробити вертикальними;

Рис.2 Інтерфейс проекту

6. Створюю нову версію проекту, використовуючи в якості індикаторів компоненти Gauge ( вертикальний або горизонтальний)

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

2

ПР. ООП.21.7-8ТЗ

Рис.3 “ інтерфейс створеної програми”

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

procedureEdt1Change(Sender:TObject);

Unit Unit1;                                                                                     procedure Button1Click (Sender: TObject);

Interface{ Private declarations}

Uses                                                                                                    publik

Windows, Messages, SysUtils, variants,Classes,                        {Publik declarations}

Graphigs, StdCtrls,ComCtrls;                                                         end;

Type                                                                                                    var

Lebel1: TLabel;                                                                                 Form1:TForm1;

Lebel2: TLabel;                                                                                 key: char;         

Lebel3: TLabel;                                                                                  implementation

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

2

ПР. ООП.10.7-8ТЗ

Edit1:TEdit;                                                                                        {$*.dfm}

Edit2:TEdit;                                                                                  //заборонавведеннясимволів, крімциф

Edit3:TEdit;procedureTForm1.Edit1keyPress(Sender: TObjekt)

ProgressBar1: TProgressBar;                                                        begin    

ProgressBar2: TProgressBar;                                                       case kkey of

ProgressBar3: TProgressBar;                                                      “0”..”9”:;

Button1: TButton;                                                                          else key:=chr(0)

Procedure Edit1KeyPress ( Sender: TObject; var Key: Char);    end;

Висновок : Створено Delphi – проект з використанням компонентів відображення та редагування.


 

А также другие работы, которые могут Вас заинтересовать

25099. Смысл жизни 33.5 KB
  Если смысл жизни это как бы объективная оценка значимости существования человека то счастье это сопровождающееся чувство глубокой моральной удовлетворенности личностное переживание полноты своего бытия результатов своей жизнедеятельности. Поэтому счастье всегда связано с ощущением необыкновенного подъема духовных и физических сил стремлением к переживанию всей многомерности бытия а состояние счастья прямо противоположно состоянию пассивности равнодушия инертности. Поэтому счастье это осуществление внутренней свободы процесс...
25100. Категорії естетики 38.5 KB
  Середньовічна естетика яка виробляла своє розуміння гармонії опинилася в складному і суперечливому становищі щодо античної спадщини. Необхідно було обґрунтовувати нову християнську космогонію аби замінити ідею космічної гармонії ієрархією земного і небесного людського і Божого. Нової ідеєю щодо гармонії було уявлення її як тотожності цілого і частини; за нею стояло вчення стоїків і неоплатонівців про єдність мікро і макрокосмосу. Категорії гармонії і міри широко використовувалися й у Новий час проте вони вже не були головними естетичними...
25101. Доба відродження 37 KB
  Кепаікзапсе відродження. Естетика Відродження як і філософія цього періоду зумовлена розвитком товарного виробництва торгівлі розквітом міської культури на межі XIVXV ст. Епоха Відродження починається в Італії а пізніше охоплює більшість країн Європи.
25103. Методы эстетического воспитания 47 KB
  На художественных занятиях педагог дает точные указания показывает или предлагает детям самим найти приемы исполнения и т. Эстетическое воспитание предусматривает специальные приемы для развития творческих способностей включающих качество восприятия и воспроизведения; различение сочетаний цвета формы объема; соотношение музыкальных звуков по их высоте длительности тембру динамике; музыкальный поэтический слух художественный вкус и т. Методические приемы поскольку они относятся к области художественного воспитания должны...
25104. Суррогатное материнство 39 KB
  Для многих семей сегодня не существует проблемы искусственного оплодотворения и с моральной точки зрения. Этический вопрос искусственного оплодотворения интересовал человечество ещё с конца XVII века. Первые попытки искусственного оплодотворения были совершены ещё в середине ХХ ст. Первый успех в области искусственного оплодотворения ученые смогли получить только в 1973 году.