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 – проект з використанням компонентів відображення та редагування.


 

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

13384. Основи роботи з векторною графікою. Середовище CorelDraw 13.44 MB
  Лабораторна робота № 1 Тема: Основи роботи з векторною графікою. Середовище CorelDraw Мета: Освоїти основні прийоми роботи в середовищі CorelDraw. Навчитися користуватися головним меню програми панелями інструментів та атрибутів. Навчитися будувати основі фігури трансформ...
13385. РОЛЬ МАРКЕТИНГОВЫХ ИССЛЕДОВАНИЙ В РЕАЛИЗАЦИИ СТРАТЕГИЧЕСКИХ НАПРАВЛЕНИЙ РАЗВИТИЯ ПРЕДПРИЯТИЯ 876 KB
  Маркетинг представляет собой нечто большее, чем просто продвижение товаров и услуг на рынок. Заставить покупателя купить то, что может предложить компания задача сбыта. С помощью маркетинга заставляют предприятие делать то, что необходимо потребителю
13386. ДИФФЕРЕНЦИАЛЬНАЯ ДИАГНОСТИКА И ЛЕЧЕНИЕ ПРИ СИНДРОМЕ АРТЕРИАЛЬНОЙ ГИПЕРТЕНЗИИ 168 KB
  Алгоритм дифференциальной диагностики заболеваний, сопровождающихся синдромом артериальной гипертензии. Этиологию, патогенез, клинику и диагностику заболеваний и состояний, сопровождающихся синдромом артериальной гипертензии.
13387. CORELDRAW. ПОСТРОЕНИЕ СЛОЖНЫХ ОБЪЕКТОВ 307.38 KB
  Лабораторная работа N 3 CORELDRAW. ПОСТРОЕНИЕ СЛОЖНЫХ ОБЪЕКТОВ Дополнительные приемы работы с объектами Программа CorelDraw предоставляет большие возможности по созданию и редактированию сложных объектов. Команды позволяющие выполнять различные операции над объектами с...
13388. CORELDRAW. ИНТЕРАКТИВНОЕ ПЕРЕТЕКАНИЕ. ИМИТАЦИЯ ОБЪЕМА 345.39 KB
  Лабораторная работа N 4 CORELDRAW. ИНТЕРАКТИВНОЕ ПЕРЕТЕКАНИЕ. ИМИТАЦИЯ ОБЪЕМА Эффект Интерактивное перетекание Инструмент Интерактивное перетекание относится к категории интерактивных инструментов находящихся на панели инструментов. При помощи данного инстр
13389. CORELDRAW. POWERCLIP. ОБРАБОТКА РАСТРОВЫХ ИЗОБРАЖЕНИЙ 267.4 KB
  Лабораторная работа N 5 CORELDRAW. POWERCLIP. ОБРАБОТКА РАСТРОВЫХ ИЗОБРАЖЕНИЙ Совокупность команд PowerClip Фигурная обрезка Команды находятся в меню Эффекты. Данное подменю содержит четыре команды: Place Inside Container Поместить в контейнер Extract Contents Извлечь содержимое Edit Contents Р...
13390. CORELDRAW. ИНТЕРАКТИВНЫЙ ОБЪЕМ 361.88 KB
  Лабораторная работа N 6 CORELDRAW. ИНТЕРАКТИВНЫЙ ОБЪЕМ Инструмент Интерактивный объем Данный инструмент позволяет создавать иллюзию объема для плоских объектов. Иллюзия возникает изза того что за объектом или перед ним достраивается дополнительная плоскость той же ...
13391. CORELDRAW. ИНТЕРАКТИВНОЕ ИСКАЖЕНИЕ. ИМИТАЦИЯ ОБЪЕМА 309.26 KB
  Лабораторная работа N 7 CORELDRAW. ИНТЕРАКТИВНОЕ ИСКАЖЕНИЕ. ИМИТАЦИЯ ОБЪЕМА Эффект Интерактивное искажение Инструмент Интерактивное искажение является инструментом категории интерактивных инструментов и предназначен для деформации формы объекта к которому он при
13392. CORELDRAW. ПРИМЕНЕНИЕ НАВЫКОВ 165.88 KB
  Лабораторная работа N 8 CORELDRAW. ПРИМЕНЕНИЕ НАВЫКОВ Порядок выполнения работы Выполнить построение изображения согласно индивидуальному заданию и предложенным рекомендациям. ВАРИАНТ 1. КОЛЛАЖ ТУПИК РЕКОМЕНДАЦИИ: Д