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.  


 

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

26279. Учет архивных документов 70 KB
  10 Роль учета: Одним из важнейших направлений деятельности государственных и муниципальных архивов является осуществление государственного учёта архивных документов. Учёт одновременно является средством обеспечения сохранности документов их адресного поиска а также создаёт возможность для разработки и использования информационных справочников. На основе данных учётных документов рассчитываются штатная численность сотрудников архивов площади и оборудование необходимые для хранения документов и осуществляется финансирование.
26280. Обеспечение сохранности документов 48 KB
  Обеспечение сохранности документов до середины 30х гг. понималось в комплексе с другими направлениями сбор концентрация в архивах использование документов когда комплектование и использование документов оформляются как самостоятельное направление проблема обеспечения сохранности включала учет и организацию хранения документов. она связывалась с эвакуацией и реставрацией документов.
26281. Система НСА к архивным документам 19.24 KB
  Назначение СНСА. Понятие первичная информация вторичная информация СНСА архива СНСА АФ РФ Архивный справочник отражение вопросов связанных с НСА в законодательных и нормативнометодических актах РФ в 1990е 2000е годы. Требования предъявляемые к СНСА к документам государственных муниципальных архивов. СНСА это комплекс взаимосвязанных и взаимодополняемых архивных справочников о составе и содержании архивных документов создаваемых на единой методической основе для поиска архивных документов и архивной информации в целях...
26282. Организация документов АФ РФ и других архивных документов в архиве 62 KB
  Организация документов АФ РФ и других архивных документов в архиве Архивы в зависимости от их функций и подчиненности можно разделить на две группы: государственные и ведомственные. Государственные архивы учреждения которые осуществляют собирание хранение и организацию архивных документов в целях их всестороннего использования. Наиболее ценная часть документов архива по истечении срока хранения в ведомстве передается на постоянное хранение в государственный архив. Архивный фонд Российской Федерации это исторически сложившаяся и...
26283. Документационное обеспечение управления как отрасль деятельности 16.88 KB
  Документационное обеспечение управления как отрасль деятельности ДОУ отрасль деятельности занимающаяся организацией работы с документами начиная с их создания либо получения в организации до их исполненения либо отправления. Наряду с термином делопроизводство в последнее время употребляется и синонимичный ему термин документационное обеспечение управления ДОУ. ДОУ включает в себя две составные части: 1 документирование обеспечение своевременного и грамотного создания документов; 2 организация работы с документами организация...
26284. Правовое и нормативно-методическое регулирование доу в РФ в 1990-2000 гг 131 KB
  Подобные правила закрепляются в актах 4 уровней: федеральный уровень уровень органов государственной власти субъектов Российской Федерации уровень органов местного управления уровень органов управления организаций и их объединениями. Например: по положению в системе нормативных актов по уровню управления: закон распоряжение и т. В соответствии с уровнями управления источниками норм и правил делопроизводства являются: законодательство РФ законодательство субъектов РФ нормативные акты органов местного самоуправления...
26285. ДОКУМЕНТ: ПОНЯТИЕ, ФУНКЦИИ, СВОЙСТВА 20.56 KB
  здесь нашла отражение прежде всего информационная сущность документа. Этот же ГОСТ определяет реквизит как обязательный элемент оформления официального документа. Добавлении в определение функции документа. Управление документами.
26286. Документирование управленческой деятельности 105.5 KB
  Сила свойство официального документа сообщаемое ему действующим законодательством компетенцией издавшего его органа и установленным порядком документирования.302003 Унифицированные системы документации. Унифицированная система организационнораспорядительной документации. Распространяется на организационнораспорядительные документы относящиеся к Унифицированной системе организационнораспорядительной документации УСОРД постановления распоряжения приказы решения протоколы акты письма и др.
26287. Системы документации 34.5 KB
  Системы документации. ОРД сисма плановой документации первичноучётная документация отчётностатистическая докия трудовая бухгалтерская финансоворасчётная внешнеторговая Ещё есть корпоративные системы документации совокупность доков которые предназначены для реализации управленческих функций в определённой сфере деятельности или корпорации. На первых порах существовала единая система документации которая по мере развития специализации систем управления утратила свою целостность т. Система коммерческой документации бухучёта...