2015-05-14
242
Массив объектов. Вы уже использовали массив объектов в л.р.8 Вспомните, что массив объектов — это группа объектов, имеющих одинаковое имя (свойство Name), тип и общую процедуру обработки. В массив может входить до 32768 объектов. Порядковый номер элемента называется индексом и записывается в скобках сразу после имени массива. Объекты, входящие в массив, имеют свойство lndex. Это свойство равно порядковому номеру элемента массива. Использование массивов объектов часто позволяет значительно упростить программный код.
ЗАВДАННЯ 12.2. Постановка задачи: СОЗДАТЬ ПРИЛОЖЕНИЕ — КАЛЬКУЛЯТОР. В ОТЛИЧИЕ ОТ КАЛЬКУЛЯТОРА, СОЗДАННОГО В Л.Р.4, ДАННЫЙ КАЛЬКУЛЯТОР ДОЛЖЕН ИМЕТЬ ОДНО ПОЛЕ ДЛЯ ВВОДА ЧИСЕЛ И ВЫДАЧИ РЕЗУЛЬТАТА (РИС. 12.7). ТЕКСТОВОЕ ПОЛЕ ДОЛЖНО БЫТЬ ЗАБЛОКИРОВАНО ДЛЯ ВВОДА ТЕКСТА И НЕПРАВИЛЬНОГО НАБОРА ЧИСЕЛ.
Рис 12.7
Замечание Ранее Вы уже создавали калькулятор. Единственная цель данного проекта — показать, что использование массива объектов позволяет значительно сократить программный код. Для усложнения задания в проекте предложено сделать одно поле (как у настоящего калькулятора) и установить защиту от ввода текста и неправильного набора чисел в текстовом поле.
Напомним, что процедуры выполнения арифметических операций выглядят так:
Private Sub cmdPlus_ Click()
X= Val(txtX.Text)
Y=Val(txtY.Text)
Rezult = Х + Y
txtRezult.Text = Str(Rezult)
End Sub
Private Sub cmdMinus_ Click()
Х = Val(txtX.Text)
Y = Val(txtY.Text)
Rezult = Х – Y
txtRezult.Text = Str(Rezult)
End Sub
В процедурах, которые выполняются при щелчке по кнопкам <+>, <->, <*> и по другим кнопкам, большая часть кода одинакова, отличается лишь одна строка. Зададимся целью минимизировать программный код, используя массив командных кнопок. Если увеличить количество выполняемых операций (добавить кнопки), то эффект от использования массива будет более значительным. При этом можно использовать проект, выполненный в Л Р.4 или создать новый.
