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


 

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

1615. Определение густоты и подвижности спермиев 20.29 KB
  Доброкачественная сперма содержит достаточное количество живых, устойчивых во внешней среде и способных принять участие в оплодотворении спермиев, она свободна от посторонних примесей (кровь, гной, микробы).
1616. Определение процента живых и мертвых спермиев 22.16 KB
  В.А. Морозов предложил использовать красители, которые окрашивают спермиев только мертвых и с колебательными движениями. Дегидрогеназная активность спермы быка определяется скоростью обесцвечивания метиленовой сини в капиллярах или в пробирках.
1617. Организация работы в родильных отделениях (цехах). Специфика подготовки персонала для работы в родильном отделении 19.46 KB
  В каждом животноводческом хозяйстве должны быть родильное отделение и помещение для новорожденных. Оборудование такого отделения дает возможность сохранить здоровье и продуктивность матери, здоровье и жизнь новорожденных, правильно и своевременно оказывать помощь при трудных родах.
1618. Основные правила родовспоможения 19.87 KB
  При родовспоможении нужно стремиться к извлечению плода рукой без применения инструментов. Акушерские инструменты надо применять в тех случаях, когда без них не удается извлечь плод.
1619. Основы получения здорового приплода и профилактики болезней новорожденных 20.26 KB
  Получение крепких и жизнеспособных телят во многом зависит от состояния здоровья коров, их кормления и содержания в период осеменения и беременности. Особое значение имеет правильный и своевременный запуск беременных коров.
1620. Особенности строения половых органов коров 20.02 KB
  Вульва коров морщинистой кожей, дорсальный угол половой щели закругленный, а вентральный - острый и несколько свисает в области седалищных бугров.
1621. Оценка качества спермы по интенсивности дыхания 19.87 KB
  Активность спермы оценивают по скорости обесцвечивания (восстановления) метиленовой синьки, смешанной со спермой. При дыхании спермии потребляют кислород, растворенный в смеси, в результате этого синька обесцвечивается.
1622. Плацентарный барьер 19.59 KB
  Плацентарный барьер - совокупность морфологических и функциональных особенностей плаценты, обусловливающих ее способность избирательно пропускать вещества из крови матери к плоду и в обратном направлении.
1623. Подготовка к оказанию акушерской помощи 19.88 KB
  Акушерскую помощь оказывают чаще во время родов и реже при беременности и в послеродовом периоде. Обычно она бывает неотложной, подлежащей быстрому и точному исполнению.