Поиск: Рекомендуем: Почему я выбрал профессую экономиста Почему одни успешнее, чем другие Периферийные устройства ЭВМ Нейроглия (или проще глия, глиальные клетки) Категории: Астрономия Биология География Другие языки Интернет Информатика История Культура Литература Логика Математика Медицина Механика Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Транспорт Физика Философия Финансы Химия Экология Экономика Электроника

Главная О нас Популярное ТОП Новые страницы Случайная страница Контакты FAQ ЗАКАЗАТЬ РАБОТУ Оконные диалоги. Обработка ошибок ⇐ Предыдущая123456Следующая ⇒ Диалог это подпрограмма, используемая для ввода или вывода данных ü диалоги находятся в двух библиотеках Dialogs и Windows ü диалоги имеют входные и выходные параметры ü при вызове диалога появляется окно с изображением входных параметров ü ввод (если он предусмотрен) осуществляется в специальной строке ü окно закрывается нажатием кнопки на его поверхности ü обычно диалоги являются функциями, имена которых возвращают важную информацию   Рассмотрим некоторые диалоги библиотеки Dialogs. Функция InputBox(заголовок, текст, начальное значение): результат ввода Все три параметра являются строковыми. Например, следующий вызов функции S:=InputBox('Ввод','Введите целое число','3'); приведёт к появлению окна В центре окна расположена строка ввода. Ввод завершается нажатием одной из кнопок. Результатом ввода служит строка, которая является значением функции.   Процедура ShowMessage('текст') Выводит строку на экран, например, ShowMessage('Вы ввели число 3') организует следующее окно Кнопка служит для закрытия окна.   Процедура ShowMessagePos('текст', X, Y) Делает то же, размещая на экране окно по координатам (X, Y)   При работе с диалоговыми окнами проходится менять тип данных от строковых к числовым и наоборот. Это сопряжено с ошибками, которые завершаются аварийной остановкой программы. В Delphy существуют особые программные структуры, позволяющие «отловить» и обработать ошибку, не останавливая программы. Одна из них образует конструкцию с ключевыми словами Try (попытка), Except (исключение), End (завершение)   Словом Try пишется перед тем фрагментом программы, в котором предполагается возникновение ошибки, а Except после него. Если ошибка произойдёт в одном из операторов между Try и Except, то управление будет передано секции между Except и End (это блок обработки ошибки). Затем программа продолжится от End. Если ошибки не произойдёт, то по достижении Except управление перейдёт сразу к End. program Dialog; //================================== //Использование оконного ввода/вывода // Обработка ошибок //================================== {$APPTYPE CONSOLE} uses Dialogs, //Подключение оконных диалогов //InputBox, ShowMessage, ShowMessagePos SysUtils; Var S:String; i:Integer; begin S:=InputBox('Ввод','Введите целое число',S); Try //Готовимся к появлению ошибки i:=StrToInt(S); //Здесь место возможной ошибки ShowMessage('Вы ввели число '+IntToStr(i)); Except //Начало блока обработки ошибок ShowMessage('Вы ввели не правильное данное'); End; //Конец блока End.

Библиотека Windows содержит функцию

MessageBox(0, текст, заголовок, значки и кнопки): номер нажатой кнопки

Первым параметром является 0. Два других являются символьными массивами особого типа PChar. Последний параметр содержит двоичный код с информацией о размещении значков и кнопок в окне. Значением функции служит число с номером нажатой кнопки. Например, вызов функции с параметрами

i:=MessageBox(0, 'Нажмите одну из кнопок', 'Выбор варианта',

MB_ICONQUESTION+

MB_YESNOCANCEL+

MB_DEFBUTTON2);

образует окно

Включение иконки и набора кнопок с одной выделенной определяются значением последнего параметра.

Эта функция вернёт значение, соответствующее номеру нажатой кнопки.

Ниже приводится информация для задания параметров и анализа значения функции.

Пример использования диалога.

Билет №21:

Класс

Что такое класс

ü это структура подобная записи, объединяющая в одно целое данные (свойства) и подпрограммы (методы) их обработки

ü процесс объединения свойств и методов в один класс называется инкапсуляцией

Как описывается класс

1. Класс имеет заголовок (интерфейс), в котором указываются имя класса, перечисляются его свойства и методы. Структура заголовка такова
   Type
   имя класса = Class
   свойства
   заголовки методов
   End;
   Свойства перечисляются в виде переменных с указанием типов (без слова Var). Заголовки методов пишутся без кода так же, как в разделе Inteface модуля (исключительно заголовки процедур и функций)
2. Ниже интерфейсной части размещаются полные тексты методов. Текст метода начинается дублем его заголовка, однако, перед именем метода подписывается через точку имя класса.
   Внутри методов доступны все свойства класса по своим именам

Как используется класс

1. Чтобы воспользоваться описанным классом, необходимо сформировать переменные этого класса. Такие переменные называются объектами и описываются в разделе Var при помощи имён.
2. В каждом классе имеется два особых метода – конструктор и деструктор, первый чтобы выделить, а второй – освободить память, занимаемую объектом. Перед использованием объекта необходимо вызвать конструктор, а по окончании работы – деструктор.
3. Доступ к свойствам и методам объектов осуществляется по именам объектов, где через точку пишутся имена соответствующих свойств или методов.

Пример разработки и использования класса

Program Sampl_Class;

{Использование класса для работы с матрицами}

{$APPTYPE CONSOLE}

Uses

SysUtils;

//===============================================

Type

TMat= //Имя класса

Class //ИНТЕРФЕЙС КЛАССА

m:Array Of Array Of Real; //Свойство "матрица"

Constructor Create(h:Integer=1; w:Integer=1); //КОНСТРУКТОР

Procedure Put(p:Array Of Real); //Метод ввода данных

Procedure Wrt(k:Integer=5; p:Integer=2); //Метод вывода матрицы

Procedure Add(a:TMat); //Метод сложения матриц

Destructor Destroy; override; //ДЕСТРУКТОР

End;

//=============================================== ОПИСАНИЕ МЕТОДОВ КЛАССА

//Конструктор служит для создания объекта.

//Он резервирует память и формирует начальные значения переменных

//

//ВХОД: h-высота матрицы m, w-ширина матрицы

//-----------------------------------------------

Constructor TMat.Create(h:Integer=1; w:Integer=1);

Begin

Inherited Create; //Вызываем старый конструктор

SetLength(m,h,w); //Задаём размеры матрицы

End;

//-----------------------------------------------

//Процедура заполнения матрицы m данными из массива

//ВХОД: одномерный массив данных p

//-----------------------------------------------

Procedure TMat.Put(p:Array Of Real);

Var i,j,k:Integer;

Begin

k:=0;

For i:=0 To High(m) Do //Цикл по высоте матрицы

For j:=0 To High(m[i]) Do //Цикл по ширине матрицы

Begin

m[i,j]:=p[k]; Inc(k); //Последовательно копируем

End; //данные

End;

//-----------------------------------------------

//Процедура вывода матрицы m на экран

//ВХОД: k-символов на элемент, p-ширина дробной части

//-----------------------------------------------

Procedure TMat.Wrt(k:Integer=5; p:Integer=2);

Var

i,j:Integer;

Begin

For i:=0 To High(m) Do //Цикл по высоте матрицы

Begin

For j:=0 To High(m[i]) Do //Цикл по ширине

Write(m[i,j]:k:p,' '); //Выводим значение с пробелом

WriteLn; //Перевод строки

End;

End;

//-----------------------------------------------

//Процедура прибавления к m другой матрицы

//ВХОД: прибавляемая матрица a

//-----------------------------------------------

Procedure TMat.Add(a:TMat);

Var

i,j:Integer;

Begin

For i:=0 To High(m) Do //Цикл по высоте матрицы

For j:=0 To High(m[i]) Do //Цикл по ширине

m[i,j]:=m[i,j]+a.m[i,j]; //Прибавляем элемент

End;

//-----------------------------------------------

//Деструктор служит для разрушения объекта

//Он освобождает память, занятую объектом

//-----------------------------------------------

Destructor TMat.Destroy;

Begin

Inherited Destroy; //Вызываем старый деструктор

SetLength(m,0); //Разрушаем массив

End;

//===============================================

//РАЗДЕЛ ОПЕРАТОРОВ

//===============================================

Var

a,b:TMat; //Описываем объекты

Begin

a:=TMat.Create(3,3); //Формируем объект a

a.Put([1,2,3,4,5,6,7,8,9]); //Заполняем данными

a.Wrt(7,2); //Выводим на экран

WriteLn; //Переводим строку

b:=TMat.Create(3,3); //Формируем объект b

b.Put([5,5,5,5,5,5,5,5,5]);

B.Wrt(7,2);

WriteLn;

a.Add(b); //Складываем a = a + b

a.Wrt(); //Выводим результат на экран

a.Free; b.Free; //Разрушаем объекты

ReadLn;

End.

Билет №22:

Графический вывод на экран

Что такое контекст устройства (DC – Device Context)

ü это структура, содержащая описание графического устройства и средств построения изображений

ü устройствами могут быть: экран (или его часть), принтер, область памяти и др.

ü средствами построения служат инструменты: перья, кисти, шрифты, палитры и пр.

ü главнейшими свойствами инструментов являются: цвет и стиль, а также режим инструмента (принцип смешивания и способ масштабирования изображений)

ü контекст должен создаваться перед началом графических построений, а затем – разрушаться

Что такое канва

ü это класс TCanvas, представляющий абстрактное графическое устройство, которое обеспечивает однообразие методов вывода независимо от типа устройства

ü область графических построений определяется первой четвертью координатной плоскости (ось OX направлена слева направо, а OY - сверху вниз)

ü для удобства программирования класс TCanvas включает все инструменты, а также их свойства

ü TCanvas отвечает за создание и удаление вспомогательных графических объектов (кроме контекста DC)

Дата добавления: 2016-10-06; Мы поможем в написании ваших работ!; просмотров: 352 | Нарушение авторских прав

Лучшие изречения:

Начинайте делать все, что вы можете сделать – и даже то, о чем можете хотя бы мечтать. В смелости гений, сила и магия. © Иоганн Вольфганг Гете
==> читать все изречения...

1535 - | 1375 -