Процедуры-функции

Процедура-функция — это последовательность выражений VBScript, заключенных между операторами Function и End Function. Процедуры-функции аналогичны подпрограммам, но, в отличие от них, способны возвращать значение. Процедура-функция может принимать аргументы (константы, переменные или выражения), передаваемые ей вызывающей процедурой. Если она не имеет аргументов, определяющий ее оператор Function должен содержать пустые скобки. Процедуpa-функция возвращает значение, присваивая его своему имени в одном или нескольких операторах. Тип возвращаемого значения — всегда Variant.

Пример Здесь объявляется процедура-функция, проверяющая значение даты. Затем показан пример вызова этой функции:

Function Validate(myDate)

If IsDate(myDate)

Then Validate = True

Else Validate = False

End If

End Function

'Событийная процедура, вызываемая при нажатии пользователем кнопки cmdTest

Sub cmdTestDate_OnClick()

Results = Validate(myDate)

End Sub

Теперь Вы создадите Web-страницу, с которой мы будем работать в следующих упражнениях этого занятия.

> Создание Web-узла в Microsoft Frontpage 98

1. Запустите Frontpage 98.
2. Выберите Create a New Frontpage Web и нажмите ОК.
3. Выберите One Page Web, измените название на Exercise9 и нажмите ОК.

> Редактирование главной страницы

4. Дважды щелкните значок Home Page, чтобы открыть редактор Frontpage Editor.
5. В меню Insert выберите команду Form Field и щелкните One Line Textbox.
6. Правой кнопкой мыши щелкните кнопку Submit и выберите Form Field Properties.




7. Измените свойство Name на btnSquareIt.
8. Измените свойство Value/Label на Square.
9. Измените свойство Button Type на Normal и нажмите кнопку ОК.
10. Щелкнув кнопку Reset, удалите ее клавишей Delete.
11. Правой кнопкой мыши щелкните кнопку Square и выберите Form Properties.
12. 9. Измените имя Form Name на Form1 и нажмите кнопку ОК.

> Добавление сценария VBScript к главной странице

13. Поместите курсор рядом с кнопкой Square на форме.
14. В меню Insert выберите команду Advanced, Script.
15. Введите приведенный ниже код и нажмите кнопку ОК:
    
    Function SquareIt(Num)
    
    Squarelt = (Num * Num)
    
    End Function
    
    
16. Правой кнопкой мыши щелкните кнопку Square и выберите в меню команду Script Wizard.



17. В дереве объектов раскройте объект Form1, а затем — объект btnSquareIt.



18. Щелкните событие btnSquareIt OnClick и нажмите кнопку Code View в ниж ней части диалогового окна.



19. Введите приведенный ниже код для события OnClick и нажмите кнопку ОК:
    
    Dim Result
    
    On Error Resume Next
    
    Result = SquareIt(T1.Value)
    
    MsgBox T1.Value & " в квадрате = " & Result
    
    > Проверка
    
    
    
    1. Сохранив страницу, в меню File выберите пункт Preview in Browser.
    
    
    
    2. Когда Web-страница появится в окне Internet Explorer, введите в текстовое поле целое число и нажмите кнопку Square. Введенное число будет обработано созданной Вами функцией Squarelt, а результат работы функции появится в окне сообщений.
       
       
    3. Закройте Internet Explorer и Frontpage 98.
    
    
    
    Содержание раздела
    
    

    ---

    
    
    
    
    

    ---