Программирование на языке VBS. Работа с окнами сообщений и ввода данных

Цель работы

Освоение основ написания и выполнения программы на языке VBS.

Учебные вопросы

1. Создание простейшей программы.

2. Синтаксис и примеры использования функции MsgBox.

3. Синтаксис и примеры использования функции InputBox.

Краткое изложение учебного материала по теме

1 Создание простейшей программы

Программа на языке Visual Basic Scripting Edition(VBS) состоит из инструкций языка (statement) в виде текстовых строк.

В русском языке инструкции языка программирования обычно назы- вают операторами языка, хотя это не совсем точно: операторами в англий- ских первоисточниках называют символы для обозначения математиче- ских, логических и строковых операций (=, +, -, /, and, or, eqv, & и пр.). Да- лее будет использоваться традиционная русская терминология с использо- ванием слова операторы для обозначения инструкций языка.

Текст программы можно написать в любом простейшем редакторе, сохраняющем файлы в кодировке ASCII, например, в стандартных про- граммах Windows Блокнот или WordPad.

Существуют также специализированные редакторы, предназначен- ные для написания в них программ.

Далее воспользуемся редактором Блокнот, как наиболее доступным. Для создания простейшей программы делаем следующее:

1) запускаем Блокнот;

2) пишем в Блокноте строку: MsgBox "Привет!" (это имя функции с аргу- ментом – текстовым значением (константой) между апострофами; имя MsgBox – сокращение от английского выражения Message Box, которое дословно можно перевести, как «коробка сообщений», в системе Win- dows – окно сообщений;

3) сохраняем текстовый файл с именем Prg1.vbs;

4) двойным щелчком мыши запускаем файл на исполнение.

Результат работы этой программы – диалоговое окно в системе Win- dows (Windows-форма), показанное на рисунке 12.1.

Рисунок 12.1 – Пример работы простейшей программы на языке VBS, исполняемой системой Windows Based Script Host

2 Синтаксис и примеры использования функции MsgBox

При выполнении этой программы используется стандартная функция языка VBS для вывода сообщений в окно Windows со следующим полным

синтаксисом (здесь и далее в описании синтаксиса в квадратных скобках [ ]

приводятся необязательные элементы, элементы в скобках < >должны быть заменены конкретными значениями):

где:

p – переменная, которой присваивается код нажатой кнопки;

Сообщение – аргумент функции, текст в диалоговом окне;

Кнопки и значок – стандартные переменные (приведены далее в таблице 1.1), определяющие кнопки, значок и номер кнопки по умолча- нию в окне (например, vbYesNoCancel + vbInformation + vbDe- faultButton3 или 3+64+512);

Заголовок окна – надпись на заголовке окна (например, «Мое первое окно»);

Справка, раздел – имя файла справки и идентификатор раздела, связан- ного с данным окном.

Дополним текст в файле Prg1.vbs указанными дополнительными па- раметрами (текст пишем в одну строку или используем знак под- черкивания _в конце первой строки для продолжения текста функции на следующей строке):

MsgBox "Привет!", vbYesNoCancel + vbInformation _

+ vbDefaultButton3, "Мое первое окно","tst.hlp",1

Окно запущенной программы будет иметь вид, показанный на ри- сунке 1.3.

Рисунок 12.2 – Пример использования функции MsgBox

с заданием набора кнопок, иконки и раздела справки

Функция MsgBoxвозвращает значение нажатой в окне кнопки (например 6, если нажата кнопка Yes (Да), либо другие значения для кнопок vbNo, vbCancelи пр., см. далее таблицу 12.1).

Таблица 12.1 – Константы диалоговых окон

Для определения кода нажатой в окне MsgBoxкнопки следует ис- пользовать следующий синтаксис функции: слева нужно написать пере- менную, которой будет присвоено возвращаемое функцией значение, далее следует написать символ присваивания (=) и справа от него функцию, у ко- торой аргументы написаны в круглых скобках:

btn = MsgBox("Привет!", vbYesNoCancel + vbInformation _

+ vbDefaultButton3, "Мое первое окно")

Диалоговое окно будет иметь тот же вид, что и раньше (только без кнопки Справка , см. рисунок 12.2), но после нажатия кнопки в окне пере- менная btnбудет иметь значение, соответствующее нажатой кнопке.

Если Вы желаете написать в окне Сообщение и Заголовок окна, про- пустив второй аргумент (Кнопки и значок), после первого аргумента следу- ет поставить 2 (ДВЕ!)запятые:

MsgBox "Сегодня я написал свою первую программу на VBS!" _

, , "Окно сообщений студента Вани Иванова"

3 Синтаксис и примеры использования функции InputBox

Еще одна функция языка, позволяющая открывать окно для ввода пользователем с клавиатуры строки текста (максимальная длина строки 256 символов):

где новые параметры функции (по сравнению с MsgBox):

p – переменная, которой присваивается значение, введенное в поле ввода окна InputBox;

Стр.умолч. – строковое значение в поле ввода, которое будет показано по умолчанию при открытии окна;

X, Y – координаты левого верхнего угла окна в единицах twips(1440 twips = 1 дюйм, 567 twips = 1 см) по отношению к левому верх- нему углу экрана; если координаты не указаны, окно выводится примерно в центре экрана.

Дополним программу вводом данных с клавиатуры в окне InputBox :

S = InputBox(vbLF & "Напишите строку текста:", _

"Окно ввода. Студент Ваня Иванов", , 4000, 2000)

Const N = 1.15e-15 'числовая константа Const FIO = "Иванов Иван Иванович" 'текстовая константа Const Data_r = #05-13-1988 06:30:00# 'константа дата/время Const Time_r = #06:30:00# 'константа дата/время

Как видно из примера, для числовых констант разделителем целой и дробной части является точка, можно использовать экспоненциальный вид чисел (1.15e-15 = 1.15×10-15). Значения строковых констант следует писать между двумя кавычками (" "), даты и времени – между двумя знаками ре- шетки (# #).

В языке VBS существует достаточно большое количество предопре- деленных констант, которые сгруппированы по категориям:

• Date Format Constants – определяют форматы дат и времени (например, vbGeneralDate – дата и время выводятся в формате, определяемом реги- ональными настройками системы);

• MsgBox Constants – используются в функции MsgBoxи других диалоговых окнах (см. таблицу 13.1);

• String Constants – определяют скрытые символы, используемые для ма- нипуляции со строками:

- vbCr – возврат каретки (Chr(13), переход в начало следующей стро- ки);

- vbLf – новая строка (Chr(10));

- vbCrLf – новая строка (Chr(13) + Chr(10));

- vbNewLine – новая строка (Chr(10) или Chr(13) + Chr(10));

- vbNullChar – символ с нулевым значением (Chr(0));

- vbNullString – строка с нулевым значением (Chr(0));

- vbTab – горизонтальная табуляция (Chr(9)) ;

- vbVerticalTab – вертикальная табуляция (Chr(11)) ;

• VarType Constants – определяют форматы для различных подтипов (vbEmpty, vbNull, vbInteger, vbLong, vbSingle, vbSingle, vbCurrency, vbDate, vbString, vbObject, vbError, vbBoolean, vbVariant, vbDataObject, vbDecimal, vbByte, vbArray);

• и многие другие.

3 Переменные в алгоритмическом языке

Все переменные в языке VBS имеют один тип – Variant и во время ис- пользования могут хранить данные разных подтипов.

Для объявления переменных могут служить выражения:

Dim X, Y, Z

Не нашли, что искали? Воспользуйтесь поиском по сайту: