Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Использование языка VBScript позволяет упростить процесс создания скриптов при разработке сайтов.
Целью лабораторной работы является изучение некоторых полезных объектов языка VBScript, способов их использования и приобретение навыков в написании и отладке специальных программ при WEB-дизайне.
Конкретные задания на работу выделены в тексте курсивом.
VBScript является подмножеством языка Microsoft Visual Basic for Applications (сокращенно – VBA), поставляемого с Microsoft Office и Visual Basic. Основные синтаксические принципы VBScript как языка программирования:
Прежде чем начинать знакомиться с VBScript, сравним две одинаковые, простые программы на Java Script и VBScript. Суть программ: вводим текст в верхнее поле, нажимаем кнопку "Скопировать" и текст копируется в нижнее поле.
|
Java Script <FORM NAME=forma> <INPUT TYPE="text" NAME="text1"><BR> <INPUT TYPE="text" NAME="text2"><BR> <INPUT TYPE="button" NAME="knopka" VALUE="Скопировать" OnClick=copyfun()> </FORM> <SCRIPT LANGUAGE="JavaScript"> function copyfun() { var copytext; copytext=document.forma.text1.value; document.forma.text2.value=copytext; } </SCRIPT> |
VBScript <FORM NAME=forma> <INPUT TYPE="text" NAME="text1"><BR> <INPUT TYPE="text" NAME="text2"><BR> <INPUT TYPE="button" NAME="knopka" VALUE="Скопировать" OnClick=copyfun()> </FORM> <SCRIPT LANGUAGE="VBScript"> sub copyfun dim copytext copytext=document.forma.text1.value document.forma.text2.value=copytext end sub </SCRIPT> |
Как видно, различий практически нет. Java Script поддерживает только функции, VBScript и функции и процедуры (подпрограммы). Так же следует еще раз отметить, что VBScript в отличие от Java Script не чувствителен к регистру символов, т.е. для него что copyfun(), что CoPYfuN() – одно и тоже.
Используя VBScript можно проверять правильность заполнения форм, автоматически генерировать HTML-страницы и многое другое. VBScript интегрирован с браузерами WWW и приспособлен к работе с управляющими элементами ActiveX и другими объектами, встраивамыми в активные HTML-документы.
Скрипты - это текстовые файлы, поэтому в принципе можно обойтись любым текстовым редактором, вроде Notepad. Если запомнить текстовый файл со скриптом с расширением htm или html, то при его запуске он будет автоматически обрабатываться браузером.
Задание 1.
Заполните два файла текстами представленных выше программ и убедитесь в их идентичной работе.
Поставим задачу, написать программу, которая бы случайным образом загадывала число от 1 до 100, и предлагала Вам его угадать. При неправильном предположении, программа должна выводить сообщение о том, больше загаданное число или меньше. Ведется подсчет попыток. В случае победы выводится поздравление.
Код типичной страницы с VBScript программой будет выглядеть примерно так:
<html>
<head>
<title>Угадай число</title>
</head>
<body bgcolor="white" text="black">
... HTML код формы взаимодействия с VBScript программой ...
<script language="VBscript">
... VBScript программа ...
</script>
</body>
</html>
Рассмотрим особенности реализации двух «вставок»: HTML кода формы взаимодействия c VBScript программой и самой программы.
HTML код формы взаимодействия с VB программой будет иметь вид:
<FORM NAME=ugadai>
<INPUT TYPE="button" NAME="begin" VALUE="Загадать число">
<BR><BR>
Ваш вариант:<BR>
<INPUT TYPE="text" NAME="chislo">
<BR>
<INPUT TYPE="button" NAME="but" VALUE="Угадал?">
</FORM>
Браузер интерпретирует представленный код в виде, представленном на рисунке 1.
Рис.1. Интерпретация HTML кода формы взаимодействия с VBScript программой
VBScript программа представлена ниже:
<!--******************* угадай число ************************-->
<script language="vbscript"><!--
dim a ' определяем переменные
dim p
dim v
sub begin_onclick ' процедура срабатывающая при нажатии (onclick)
' кнопки с именем begin
randomize ' включение генератора случайных чисел
a=int(rnd(1)*100+1) ' присваивание переменной (a) случайного значения
p = 1 ' обнуление счетчика
alert "Число загадано!" ' вывод сообщения в отдельном окне
end sub ' конец процедуры
sub but_onclick ' процедура срабатывающая при нажатии (событие onclick) 'кнопки с именем but
v = document.ugadai.chislo.value
' переменной (v) присваивается значение
' содержащееся в поле ввода формы
' путь: document (просто эта html страница).форма с именем ugadai.
' объект- поле для ввода с именем chislo. свойство value
v=cint(v) ' поскольку поле для ввода содержит текстовую
' информацию, то переменную (v) надо преобра-
' зовать в целочисленный тип (функция cint)
if a = v then
document.write"<center>Победа за "&p&" ходов.</center>"
end if
' оператор document.write выводит содержащуюся
' в кавычках информацию в новое окно браузера
' как html код.
p = p + 1
alert "Не угадал. Попробуй еще!"
end sub
--></script>
Если внимательно изучить приведенный код, то думается многое станет ясным. Обсудим некоторые вопросы, которые могут возникнуть по ходу осмысления программы:
1. Что бы произошло, если бы мы в начале скрипта не объявили переменные? Тогда бы значение переменной "a" заданной в процедуре "sub begin_onclick" не было "видно" в других процедурах (например "sub but_onclick" ). Это упущение приведет или к ошибке, или к тому, что значению "a" не будет ничего присвоено. Можно также воспользоваться оператором "public a" вместо "dim a" тогда значение "a" станет видным во всех открытых на данный момент документах, это актуально при фреймовой структуре.
Во многих случаях переменные можно и не объявлять, если тело программы находится в одной процедуре.
2. Что такое эти процедуры? Процедура это общее название функций или подпрограмм. Имеет синтаксис:
sub name_событие ....... end sub.
name - это имя процедуры, например мы написали, что кнопка "загадать число" называется "chislo", значит подпрограмма sub chislo_onclick выполнится при нажатии на эту кнопку. Событие - то, что может "случиться" в окне браузера. Например "onclick" означает, что процедура выполнится, при нажатии на кнопку, предварительно заданную в форме (как в нашем случае). Существует несколько видов событий. Из самых распространенных можно отметить: window_onload - запускается при полной загрузке документа:
<Script language="VBscript"><!--
Sub window_onload
Alert "Добро пожаловать на мою домашнюю страницу!"
end sub
--></Script>
При загрузке документа появится окошко с данной надписью и кнопкой ОК
Событие onmouseover - возникает при наведении указателя мыши на гиперссылку.
Наведите на эту ссылку указатель мыши
Пример:
<a href="http://wanderfly.da.ru/" name="link">
Наведите на эту ссылку указатель мыши</a>
<script language="vbscript"><!--
sub link_onmouseover
alert "ссылка"
end sub
--></script>
Разумеется, данный пример Вы можете использовать только как шутку на ссылку "xxx", потому что нажать на нее невозможно:) Но если поменять alert "ссылка" на status="Моя домашняя страница", то это сообщение появится в строке статуса.
Задание 2.
Проверьте, как работают два последних скрипта.
Каков полный синтаксис операторов указывающих как "добраться" до данных в поле ввода?
x = top.имя_фрейма.document.имя_формы.имя_объекта_text_box.value
Таким образом, можно добраться до любых данных в окне браузера, даже если они расположены в другом фрейме.
Приведем основные операторы и функции VBscript:
|
СИНТАКСИС |
ПРИМЕР |
ОПИСАНИЕ |
Операторы работы с массивами.
|
Dim имя_массива (индексы) |
dim a(10),b(20,30) |
Объявление массива |
|
Erase имя_массива |
erase a |
Очистка содержимого массива |
Операторы присваивания.
|
переменная = значение |
a=137 a=b c="привет" |
Присваивание |
|
Set переменная = объект |
set a=document.forma1 |
Присваивание переменной значени ссылки на объект. |
Комментарии.
|
' комментарии |
' текст |
|
|
Rem комментарии |
rem текст |
|
Константы Boolean.
|
переменная = False |
if a=false then ... |
Значение типа boolean равное 0 |
|
переменная = True |
if a=true then ... |
Значение типа boolean равное -1 |
Функции.
|
Abs (число) |
a = abs(-1.34) ... a=1.34 |
Абсолютное значение числа |
|
Asc (символ) |
a = asc("s") ... a=115 |
ANSI код символа |
|
Chr (число) |
a = chr(115) ... a="s" |
Символ соответствующий коду |
|
Fix (число) |
a = fix(-1.5) ... a=-1 |
Целое число, округление |
|
Int (число) |
a = int(-1.5) ... a=-2 |
Целое число, округление |
|
Hex (число) |
a = hex(543) ... a="21F" |
Шестнадцатиричное представление |
|
Oct (число) |
a = oct(543) ... a="1037" |
Восьмеричное представление |
|
Sgn (число) |
a = sgn(-1.3) ... a=-1 |
Знак числа |
|
Date |
a = date ... a=
|
Текущая дата |
|
Day(выражение) |
a = day(date) ... a=
|
День |
|
' комментарии |
' текст |
|
|
Rem комментарии |
rem текст |
|
Константы Boolean.
|
переменная = False |
if a=false then ... |
Значение типа boolean равное 0 |
|
переменная = True |
if a=true then ... |
Значение типа boolean равное -1 |
Функции.
|
Abs (число) |
a = abs(-1.34) ... a=1.34 |
Абсолютное значение числа |
|
Asc (символ) |
a = asc("s") ... a=115 |
ANSI код символа |
|
Chr (число) |
a = chr(115) ... a="s" |
Символ соответствующий коду |
|
Fix (число) |
a = fix(-1.5) ... a=-1 |
Целое число, округление |
|
Int (число) |
a = int(-1.5) ... a=-2 |
Целое число, округление |
|
Hex (число) |
a = hex(543) ... a="21F" |
Шестнадцатиричное представление |
|
Oct (число) |
a = oct(543) ... a="1037" |
Восьмеричное представление |
|
Sgn (число) |
a = sgn(-1.3) ... a=-1 |
Знак числа |
|
Date |
a = date ... a=
|
Текущая дата |
|
Day(выражение) |
a = day(date) ... a=
|
День |
|
Time |
a = time ... a= Начало формы Конец формы |
Время |
|
Timer |
a = timer ... a= Начало формы Конец формы |
Количество секунд истекших после полуночи |
|
Now |
a = now ... a= Начало формы Конец формы |
Дата и время |
|
Hour(выражение), |
a = hour(now) ... и т.д. |
Час |
|
Atn (число) |
a = atn(0.37) |
Арктангенс |
|
Tan (число) |
a = tan(0.37) |
Тангенс |
|
Cos (число) |
a = cos(0.37) |
Косинус |
|
Sin (число) |
a = sin(0.37) |
Синус |
|
Exp (число) |
a = exp(0.37) |
Экспонента |
|
Log (число) |
a = log(0.37) |
Логарифм |
|
Sqr (число) |
a = sqr(0.37) |
Квадратный корень |
|
Rnd (число) |
a = rnd(1) |
Случайное число 0..1 |
|
Randomize |
Randomize |
Установка генератора случайных чисел в исходное состояние |
Операторы используемые в выражениях
|
Привожу просто список, надеюсь все и так ясно: |
Текстовые Функции
|
Instr (начало, строка, искомая подстрока) |
If Instr(1,mail,@) then ... |
Возвращает номер символа в строке с которого начинается исходная подстрока |
|
Lcase (строка) |
a=Lcase("ПРивЕТ") ... a="привет" |
Преобразование символов строки в строчные буквы |
|
Ucase (строка) |
a=Ucase("ПРивЕТ") ... a="ПРИВЕТ" |
Преобразование символов строки в заглавные буквы |
|
Left (строка,N символов) |
a=Left("Привет",3) ... a="При" |
Левая часть строки длинной N символов |
|
Right (строка,N символов) |
a=Right("Привет",3) ... a="вет" |
Правая часть строки длинной N символов |
|
Len (строка) |
a=Len("Привет") ... a=6 |
Длина строки |
|
Ltrim (строка) |
a=Ltrim(" Привет ",) a="Привет " |
Удаляет начальные пробелы |
|
Rtrim (строка) |
a=Rtrim(" Привет ",) a=" Привет" |
Удаляет конечные пробелы |
|
Trim (строка) |
a=Ttrim(" Привет ",) a="Привет" |
Удаляет начальные и конечные пробелы |
|
Mid (строка, начало, N символов) |
a=Mid("Привет",3,2) a="ве" |
Часть строки с позиции "начало" и длиной N символов |
|
Left(строка,N символов) |
a=Left("Привет",3) a="При" |
Левая часть строки длинной N символов |
|
Space (N) |
a=Space(5) |
Строка из N пробелов |
|
String (N символов, символ) |
a=String(5,"A") a="AAAAA" |
Строка из N символов |
|
Ltrim (строка) |
a=Ltrim(" Привет ",) a="Привет " |
Удаляет начальные пробелы |
Ветвление и циклы
|
Call имя_событие |
Call but_onclick |
Вызов подпрограммы |
|
Do |
Do |
Выполняет код хотя бы один раз, пока условие не будет истинным |
|
Do |
Do |
Выполняет код хотя бы один раз, пока условие справедливо |
|
Do Until условие |
Do Until a>=5 |
Повторяет выполнение кода, пока условие не станет истинным |
|
Do While условие |
Do While a<5 |
Повторяет выполнение кода, пока условие справедливо |
|
For счетчик=начало To конец Step шаг |
For i=1 to 5 |
Цикл (заметьте: пишется "next" а не "next i") |
|
IF условие Then |
IF a>1 Then alert"больше" |
Выполнение кода при выполнении условия |
|
Select Case X |
Select Case X |
Выборочное выполнение кода при совпадении значения |
|
While условие |
While a<5 |
Выполнение кода пока условие истинно |
Oбъявление функций и процедур
|
Dim переменная |
Dim a |
Объявление переменной |
|
Sub имя_событие |
Sub but_onclick |
Подпрограмма |
|
Function имя(параметры) |
Function(x,y) |
Функция |
|
Exit ... |
Exit Do (For, Function, Sub) |
Досрочный выход |
Веб страница с активным содержимым, всегда делится как бы на две части: Первая, это html код самой страницы содержащий необходимые элементы управления (ссылки, кнопки, формы для ввода информации и т.д.), и Вторая, сценарии на скрипте, которые начинают работать при различных событиях происходящих с элементами управления. Это можно назвать главной отличительной особенностью программ для веб страниц, от обычных исполняемых приложений.
Рассмотрим основные приемы вызова сценариев, или процедур.
Сценарий вызываемый неявно:
<html>
<head>
<script language="VBScript">
Sub but_onclick
Alert "Здравствуй мир!"
End sub
</script>
</head>
<body>
<form>
<input type="button" name="but">
</form>
</body>
</html>
Такой способ самый простой. Указываем имя оператором name="имя" в теге характеризующим элемент управления, это же "имя" пишем в вызываемой процедуре и через знак подчеркивания пишем событие, которое должно произойти для исполнения сценария.
Вызов сценария определяемый в элементе управления:
<html>
<head>
<script language="VBScript">
Sub scenariy
Alert "Здравствуй мир!"
End sub
</script>
</head>
<body>
<form>
<input type="button" name="but" _
onclick="scenariy" language="VBScript">
</form>
</body>
</html>
Такой способ используется в Java Script. Среди его преимуществ, перед первым методом можно отметить то, что один и тот же сценарий можно вызывать из разных элементов управления.
Автоматический вызов сценария:
<html>
<body>
<script language="VBScript">
Alert "Здравствуй мир!"
</script>
</body>
</html>
Код программы в этом случае выполнится сразу после загрузки документа.
Вызов из другой процедуры:
<html>
<head>
<script language="VBScript">
Sub but_onclick
Call butalert("Здравствуй мир!")
End Sub
Sub butalert(a)
Alert a
End Sub
</script>
</head>
<body>
<form>
<input type="button" name="but" _
onclick="scenariy" language="VBScript">
</form>
</body>
</html>
Задание 3.
Написать программу, которая бы случайным образом загадывала число от 1 до 1000, и предлагала его угадать. При неправильной попытке, программа должна выводить сообщение о том, больше или меньше загаданное число по отношению к введенному. Программа должна вести подсчет попыток. В случае победы выводится поздравление и количество попыток, за которое «загаданное» компьютером число угадано.
Запустить программу в браузере и продемонстрировать ее работу.