2.Заполнить и очистить страницу «Анкета потребителя».

3.Добавить в HTML-текст Web-страницы «Анкета потребителя» тэги для написания программы на языке VBScript.

4.Создать для Web-страницы «Анкета потребителя» заголовок

спомощью функции Document.Write языка VBScript.

5.Преобразовать форму на Web-странице «Анкета потребителя», создав дополнительные элементы управления в соответствии с интерфейсом на рис. 14.3 и задав имена используемым для обработки элементам управления.

6.Создать программу для процедуры обработки события командной кнопки «Информация о товаре».

7.Создать на Web-странице «Анкета потребителя» новую форму «Заказ товара» в соответствии с интерфейсом на рис. 14.5.

8.Создать программу для процедуры обработки события командной кнопки «Информация о заказе».

9.Заполнить анкеты и выполнить программы для их обработ-

ки.

14.3.Контрольные вопросы

1.Назначение и возможности языка HTML.

2.Общая структура гипертекстового документа.

3.Назначение и общая структура форм.

4.Типы элементов управления, размещаемых на форме.

5.Принципы создания динамических Web-страниц.

6.Назначение и особенности языка VBScript.

7.Основные конструкции языка VBScript.

8.Назначение тэга <script>.

9.Структура программы на языке VBScript в HTML- документе.

10.Диалоговый ввод информации в языке VBScript.

11.Вывод информации в языке VBScript.

12.Как вывести сообщение на экран в несколько строк?

13.Как задаются и используются имена элементов управления на форме в программах на языке VBScript?

14.Использование функции Document.Write.

15.Структура процедуры обработки события в сценарии языка

VBScript.

125

ПРИЛОЖЕНИЕ А. ПРИМЕРЫ РАЗРАБОТКИ ПРИЛОЖЕНИЙ

А1. Cоздание приложения «Секундомер»

А1.1. Общие сведения

Вграфической среде Windows средствами системы программирования VB нетрудно создать свое работающее приложение типа простых приложений Часы, Калькулятор, Картотека и т. п. При разработке нового приложения прежде всего необходимо продумать его пользовательский интерфейс, т. е. способ размещения и представления элементов управления в окне приложения. Затем разработать алгоритм и программный код для выполнения всех операций, для которых приложение разрабатывается.

Вэтоv разделе необходимо разработать приложение, выполняющее роль секундомера с пользовательским интерфейсом, представленным на рис. A1.1. При этом для размещаемых на окне формы элементов управления будут использоваться следующие свойства (более подробно см. в прил. А2).

1) для текстовых окон TextBox:

Name – имя объекта, используемое в программном коде, Font – выбор типа шрифта для символов в текстовом окне, ForeColor – цвет символов, выводимых в текстовое окно, BackColor – цвет фона текстового окна,

Text – текст, выводимый в текстовое окно; 2) для меток Label:

Caption – заголовок окна метки,

Font – выбор типа шрифта для окна метки, ForeColor – цвет символов, выводимых в окно метки, BackColor – цвет фона окна метки,

Alignment – способ выравнивания заголовка в окне метки; 3) для таймера Timer:

Interval – частота повторения действия (для n повторений в секунду необходимо задать его значение равным 1000/n);

4) для командных кнопок CommandButton: Caption – заголовок командной кнопки,

Font – выбор типа шрифта для заголовка командной кнопки.

126

Timer

Label

TextBox

CommandButton

Рис. A1.1. Примерный интерфейс приложения «Секундомер»

A1.2. Задание для выполнения на компьютере

1.Создать в окне формы пользовательский интерфейс в соответствии с предложенным на рис. A1.1.

2.Выбрать для всех элементов управления в окне формы соответствующие размеры, цвета и шрифты.

3.Для того чтобы элемент управления Timer вырабатывал событие каждую секунду, необходимо в окне Properties установить значение его свойства Interval равным 1000 (т.е. 1 раз в секунду)

4.Перейти в окно View Code для написания программного кода и в соответствующей процедуре Timer1_Timer() для объекта Timer записать строку кода:

Text1.Text = Format(Now, «hh:mm:ss»)

Здесь свойству Text текстового окна с именем Text1 (Text1 – значение свойства Name по умолчанию для первого текстового окна, созданного на форме) присваивается значение функции Now, отформатированное в свою очередь функцией Format. При выполнении этой строки кода в текстовое окно в соответствии с установленным будет выводиться

127

текущее время в формате «часы:минуты:секунды» с двумя цифрами для каждой единицы времени.

5.Запустить приложение, нажав кнопку запуска Start на пиктографической линейке – в первом текстовом окне должен идти отсчет времени в секундах, причем элемент управления Timer в окне приложения будет невидимым.

6.Объявить используемые переменные t1 (начальное время), t2 (конечное время) и t3 (промежуток времени) в разделе General программного кода, чтобы их значения были доступны во всех процедурах на форме:

Dim t1, t2, t3

Здесь не указывается тип переменных, значит, им будет присвоен произвольный тип Variant (фактически в переменных будут храниться данные типа date)

7.Для командной кнопки «СТАРТ» в соответствующей ей процедуре Command1_Click() записать следующие операторы:

t1 = Now

Text2.Text = Format(t1, «hh:mm:ss»)

Здесь в первой строке производится запись начального времени в переменную t1, во второй строке – свойству Text объекта Text2 присваивается значение переменной t1 в формате «hh:mm:ss», т.е. в текстовое окно text2 выводится время старта в часах, минутах и секундах.

8.Запустить снова создаваемое приложение и пощелкать по кнопке «СТАРТ» в форме – в верхнем текстовом окне должен возникать отсчет начального времени.

9.Аналогично предыдущему пункту ввести для командной кнопки «СТОП» в соответствующей ей процедуре Command2_Click() следующие операторы:

t2 = Now

t3 = t2 – t1

Text3.Text = Format(t2, «hh:mm:ss») Text4.Text = Format(t3, «hh:mm:ss»)

10.Записать для командной кнопки «СБРОС» в процедуре Command3_Click() следующие операторы:

Text2.Text = «»

128

Text3.Text = «»

которые очистят соответствующие текстовые окна.

11.Запустить опять приложение и поработать с ним, нажимая кнопки «СТАРТ», и через какой–то промежуток времени «СТОП» – секундомер должен работать.

12.Изменить внешний вид окна приложения, используя для различных элементов управления свойства Font, BackColor, ForeColor, Aligment и др.

13.Сохранить проект приложения в своем каталоге.

14.Создать exe–файл для проекта приложения и сохранить его.

15.Выйти из среды системы программирования VB и запустить на выполнение разработанное приложение «Секундомер» как exe–файл из окна Проводника.

А1.3. Контрольные вопросы

1.Назначение элемента управления Timer.

2.Свойство Interval элемента управления Timer, его параметры.

3.Назначение и основные свойства текстовых окон TextBox.

4.Назначение и основные свойства окон меток Label.

5.Значения функции Now, основные форматы для ее значений.

129

A2. Массивы элементов управления

A2.1. Общие сведения

Кроме массивов числовых и текстовых данных, в системе программирования VB можно использовать и массивы объектов control array (массив элементов управления), например, массив командных кнопок, текстовых окон и т.п. Такие массивы удобно использовать в том случае, когда на форме размещаются функционально однотипные элементы управления.

Рассмотрим, как используется массив командных кнопок при разработке приложения «Калькулятор».

Для того чтобы создать массив объектов на форме, необходимо создать первый объект и скопировать его в буфер обмена. Затем выполнить операцию вставки этого элемента из буфера обмена, после которой на экране появится диалоговое окно с запросом: Do you want to create a control array? (хотите ли вы создать массив элементов управления?).

Если теперь подтвердить создание массива элементов управления выбранного типа (control array) нажатием на клавишу ввода либо щелчком мыши по кнопке Ok, то на форме появится такой же элемент управления, однако в его имени в скобках появится номер – номер элемента массива Command1(1). При этом, начальная командная кнопка становится первым элементом массива командных кнопок Command1 с номером 0 – Command1(0). Вставляя аналогичным образом из буфера обмена новые экземпляры командной кнопки Command1 можно получить соответственно элементы массива Command1(2), Command1(3) и т.д. Теперь на форме можно выбирать подходящие элементы управления как элементы массива по их номеру, а сам номер элемента массива объектов использовать в качестве переменной в программном коде.

А2.2. Задание для выполнения на компьютере

1.Создать на форме пользовательский интерфейс приложения, соответствующий представленному на рис. А2.1.

2.Для кнопок с цифрами от 0 до 9 создать массив объектов, как описано выше, использовав первую командную кнопку Command1(0) для цифры 0, а все остальные соответственно копированием ее через буфер обмена.

130