37852

Стандартні компоненти і оброблювачі подій. Створення програм для процесів, що розгалужуються

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

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

Створення форми Створіть форму таку ж як у другій лабораторній роботі скорегувавши текст написів і положення вікон TEdit. 1 unit unit1; interfce uses Windows Messges SysUtils Vrints Clsses Grphics Controls Forms Dilogs StdCtrls ExtCtrls; type TForm1 = clssTForm Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Lbel1: TLbel; Lbel2: TLbel; Lbel3: TLbel; Lbel4: TLbel; Memo1: TMemo; Button1: TButton; CheckBox1: TCheckBox; RdioGroup1: TRdioGroup; Lbel5: TLbel;...

Украинкский

2013-09-25

177.5 KB

4 чел.

ЛАБОРАТОРНА РОБОТА №4

Тема роботи: Стандартні компоненти і оброблювачі подій. Створення програм для процесів, що розгалужуються.

Мета роботи: вивчити стандартні компоненти, організації переключень TCheckBox і TRadioGroup і оброблювачі подій FormCreate і ButtonClick. Створити з використанням згаданих компонентів інтерфейс і програму для заданого алгоритму, що розгалужується.

Рекомендована література:

  1.  Симонович С.В., Евсеев Г.А. Занимательное программирование:Delphi. – М.: АСТ-Пресс Книга; Издательство «Развитие», 2003. – 368 с.
  2.  Кен Хендерсон. Руководство Разработчика баз данных в Delphi 2. – К. Диалектика, 1997, - 543 с.

Контрольні запитання:

  1.  Які оператори мови Pascal описують процеси з розгалуженням?
  2.  В яких випадках доцільно викоритовувати оператор case?
  3.  Що називають кнопками-перемикачами?
  4.  Які види кнопок-перемикачів Ви знаєте?
  5.  За що відповдає компонент TcheckBox?
  6.  За що відповдає компонент TRadiogroup?
  7.  Що називають оброблювачем подій та як його створюють?

Хід роботи.

Ознайомтесь з теоретичними відомостями та створіть проект для лбораторної роботи №4. Звіт до лабораторної роботи повинен сладатися з коротких теоретичних відомостей, відповідей до контрольних запитань та програми.

Теоретичні відомості.

Кнопки-перемикачі в Delphi

При створенні програм у DELPHI для організації розгалужень часто використовуються компоненти у вигляді кнопок-перемикачів. Стан такої кнопки (включене - виключено) візуально відбивається на формі. На формі (рис. 1) представлені кнопки-перемикачі двох типів (TСheckBox і TRadioGroup ).

Компонент TCheckBox організує кнопку незалежного перемикача, за допомогою якої користувач може указати своє рішення типу так/ні. У програмі стан кнопки зв'язаний зі значенням булевої змінної, яка перевіряється за допомогою оператора if.

Компонент TRadiogroup організує групу кнопок залежних перемикачів. При натисканні однієї з кнопок групи всі інші кнопки відключаються. У програму передається номер включеної кнопки (0, 1, 2,..), що аналізується за допомогою оператора case.

Приклад програми

Завдання: Ввести три числа - x, y, z. Обчислити по розсуду або u=sin(x), або u=cos(x), або u=tg(x). Знайти максимальне з трьох чисел: max(u, y, z) або max(|u|, у|, |z|).

Створити форму типу, яка вказана на рис. 1  і розробити відповідну програму.

Створення форми

Створіть форму, таку ж, як у другій лабораторній роботі, скорегувавши текст написів і положення вікон TEdit.

Робота з компонентом TCheckBox

Виберіть у меню на сторінці компонентів Standard піктограму і помістіть її в потрібне місце форми. За допомогою інспектора об'єктів змініть заголовок (Caption) на "Обчислення maxabs". У тексті програми з'явилася змінна CheckBox1 типу TCheckBox. Тепер у залежності від того, натиснута чи ні кнопка, змінна типу Boolean CheckBox1l.Checked буде приймати значення true або false.

Робота з компонентом TradioGroup

Виберіть у меню на сторінці компонентів Standard піктограму  і помістіть її в потрібне місце форми. На формі з'явиться окреслений лінією чистий прямокутник із заголовком RadioGroup1. Замініть заголовок (Caption) на U(x). Для того щоб розмістити на компоненті кнопки, необхідно властивість Columns установити рівним одиниці. Двічі клацніть по правій частині Items мишею, з'явиться рядковий редактор списку заголовків кнопок. Наберіть три рядки з іменами: у першої  cos(x), у другийsin(x), у третьої - tg(x), натисніть ОК.

Зверніть увагу на те, що в тексті програми з'явилася змінна RadioGroup1 типу TRadioGroup, Тепер при натисканні однієї з кнопок групи в змінній цілого типу RadioGroup1.ItemIndex буде знаходитися номер натиснутої клавіші, що використовується в приведеній програмі.

Створення оброблювачів подій FormCreate і ButtonClick

Процедури - оброблювачі подій FormCreate і ButtonClick створюються аналогічно тому, як і в другій лабораторній роботі. Текст процедур приведений нижче. Запустите програму і переконаєтеся в тому, що всі гілки алгоритму виконуються правильно. Форма приведена на рис. 1. Текст програми приведений нижче.

Рис. 1

unit unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ExtCtrls;

type

 TForm1 = class(TForm)

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Memo1: TMemo;

   Button1: TButton;

   CheckBox1: TCheckBox;

   RadioGroup1: TRadioGroup;

   Label5: TLabel;

   procedure Button1Click(Sender: TObject);

   procedure FormCreate(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

 Edit1.Text := '0,1';   // Початкове значення Х

 Edit2.Text := '0,356';  // Початкове значення Y

 Edit3.Text := '0'; // Початкове значення Z

 Memo1.Clear;           //Очищення вікна редактори Memo1

// Виведення рядка в багаторядковий редактор Memol

Memo1.Lines.Add('Ла6.раб.N3. Ст.гр. 2ЭК Іванов А.А.');

end;

procedure TForm1.Button1Click(Sender: TObject);

 var  x, y, z, a, u, ma : Extended;

begin

 x := StrToFloat(Edit1.Text);

//Зчитується значення X

 Memo1.Lines.Add('Х = '+Edit1.Text);

// Виведення Х в вікно Memol

 Y := StrToFloat(Edit2.Text);

// Зчитується значення Y

 Memo1.Lines.Add('Y ='+Edit2.Text);

// Виведення Y у вікно Memol

 Z := StrToFloat(Edit3.Text);

// Зчитується значення Z

 Memo1.Lines.Add('Z = '+Edit3.Text);

 //Перевірка номера натиснутої кнопки і вибір відповідної їй функції

 case RadioGroup1.ItemIndex of

   0: u := cos(x);

   1: u := sin(x);

   2: u := sin(x)/cos(x);

 end;

 // Виведення U у вікно Memol

Memo1.Lines.Add('U = ' + FloatToStr(U, fffixed,8,2));

//Перевірка стану кнопки CheckBox1

 if CheckBox1.Checked then

 begin

   u := abs(u);

   y := abs(y);

   z := abs(z)

 end;

//Знаходження максимального з трьох чисел

 if u>y then ma := u else ma := y;

 if z>ma then ma := z;

 if Checkbox1.checked then

 Memo1.Lines.Add('maxabs=' + FloatToStrF(ma,fffixed,8,2))

 else

Memo1.Lines.Add('max=' + FloatToStrF(ma, fffixed,8,2));

end;

end.

Індивідуальні завдання.

Виберіть індивідуальне завдання з нижчеподаного списку. У якості f(x) використовувати sh(x), х2; е . Відредагуйте вид форми і текст програми відповідно до завдання.

  1.  a=   
  2.  

  1.  

  1.  

  1.       
  2.  7
  3.  7.
  4.  
  5.  
  6.  
  7.  
  8.      
  9.  
  10.  
  11.  r=max(min(f(x),y),z).
  12.  р=   
  13.  

  1.  

  1.  

  1.       
  2.  7
  3.  
  4.  
  5.  
  6.  
  7.  
  8.      
  9.  
  10.  
  11.  7
  12.  
  13.  
  14.  =   
  15.  

  1.  


 

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

22590. Екологічні права і обовязки громадян 18.98 KB
  Громадяни мають право брати участь в обговоренні проектів законодавчих актів матеріалів щодо розміщення будівництва і реконструкції об'єктів які можуть негативно впливати на стан навколишнього природного середовища та внесення пропозицій до державних та господарських органів установ та організацій з цих питань. Кожен громадянин України має право на участь у розробці та здійсненні заходів щодо охорони навколишнього природного середовища раціонального і комплексного використання природних ресурсів. Громадяни можуть об'єднуватися у...
22591. Адміністративні правовідносини 57 KB
  Основні ознаки адміністративних правовідносин: вони виникають на основі адміністративноправових норм; характеризуються наявністю сторін що іменуються суб'єктами адміністративного права; за змістом включають в себе адміністративні права владного характеру і юридичні обов'язки; є видом суспільних відносин державних органів фізичних або юридичних осіборганізацій і спільностей; здійснення суб'єктивних прав або додержання юридичних обов'язків у правовідносинах контролюється і забезпечується державою; Групувати адміністративні правовідносини...
22592. Права та форми власності на землю 64 KB
  Земля в Україні може перебувати у приватній комунальній та державній власності. Суб'єкти права власності на землю. а громадяни та юридичні особи на землі приватної власності; б територіальні громади які реалізують це право безпосередньо або через органи місцевого самоврядуванні на землі комунальної власності; в держава яка реалізує це право через відповідні органи державної влади на землі державної власності.
22593. Цивільне - правові угоди та договори 33.93 KB
  Угоди укладають як юридичні так і фізичні особи. Угоди бувають односторонніми для виникнення такої угоди достатньо волевиявлення однієї сторони; двосторонніми для виникнення угоди необхідні зустрічні волевиявлення двох сторін; багатосторонніми для їх виникнення необхідне волевиявлення трьох і більше сторін. Деякі угоди можуть бути як платними такі безоплатними наприклад договір схову.
22594. Договір найму жилого приміщення 30.71 KB
  Договір найму жилого приміщення в будинках що належать громадянам на правах особистої власності укладається з власником будинку. Предметом договору найму жилого приміщення в будинках державного і громадського житлового фонду є окрема квартира чи інше ізольоване житлове приміщення а також одноквартирний жилий будинок. Не можуть бути самостійним предметом договору найму: жиле приміщення яке хоча і є ізольованим але розмір якого менший від установленого для надання одній особі; частина кімнати або кімнат з'єднаних з іншою кімнатою...
22595. Контролер локальних дисків 63.5 KB
  Програмування контролера НГМД 765 і мікросхеми прямого доступу до пам'яті 8237. Мікросхема контролера НГМД 765 фірми NEC управляє мотором і головками накопичувача на дискетах і обробляє потоки даних що направляються в або з дискових секторів. Один контролер встановлений на платі адаптора дисків може обслуговувати до чотирьох НГМД. За винятком випадків пов'язаних із захистом від копіювання програмістам не доводиться програмувати мікросхему контролера НГМД напряму.
22596. Імітаційна модель процесора 97.5 KB
  Команда як послідовність деяких дій над даними виконується по тактам мікропрограма команди. Команда має вигляд: Код команди 1й операнд 2й операнд . Найчастіше результат команди заноситься за місцем першого операнда. Формат операндів закладається у формат команди.
22597. Визначення швидкодії обчислювальної системи 80 KB
  2; текстові операції 0.2; файлові операції 0.35; операції сортування 0.15; текстові операції 0.
22598. Робота з регістрами CMOS-memory 45.5 KB
  Приведемо тут тільки короткі зведення: Номер регістра Використання 10H тип накопичувача НГМД 12H тип накопичувача фіксованого диска 14H периферія 15H пам'ять на системній платі молодший байт 16H пам'ять на системній платі старший байт 17H загальна пам'ять молодший байт 18H загальна пам'ять старший байт 30H пам'ять понад 1 мегабайту молодший байт 31H пам'ять понад 1 мегабайту старший байт Кожний з трьох каналів мікросхеми таймера 8253 8254 для AT складається з трьох регістрів. Доступ до кожної групи з трьох регістрів здійснюється...