На главную страничку учебника Visual Basic

Стандартные функции VB (H-I)

Описание ф-ций, встроенных в Visual Basic 5, начинающихся с букв H до I

Список функций, описанных в этом разделе:

• Hex
• Hour
• IIf
• Input
• InputBox
• InStr
• Int
• IsArray, IsDate, IsEmpty, ...

---H---

Hex (number) - возвращает строку, содержащую шестнадцатиричное значение числа параметра.

Пример:

Dim MyHex
MyHex = Hex(5) ' Возвратит 5.
MyHex = Hex(10) ' Возвратит A.
MyHex = Hex(459) ' Возвратит 1CB.

Hour (time) - возвращает количество часов из параметра типа Time.

Пример:

Dim MyTime, MyHour
MyTime = #4:35:17 PM# ' Присваиваем время
MyHour = Hour(MyTime) ' MyHour содержит 16.

IIf (expr, truepart, falsepart) - возвращает одну из 2-х строк, которая совпадёт с выражением условия. Практически аналог оператора ? в C и Java.

Пример:

В этом примере ф-ция CheckIt возвратит строку "Large", если TestMe > 1000, в противном случае возвратит "Small".

Function CheckIt (TestMe As Integer)
CheckIt = IIf(TestMe > 1000, "Large", "Small")
End Function

Input (number, [#]filenumber) - используется для работы с файлами. Считывает одну компоненту файла.

Пример:

После запуска такой программы в окошке Immediate вы увидите символы, содержащиеся в файле TESTFILE. Ф-ция EOF возвращает True если достигнут конец файла при чтении.

Dim MyChar
Open "TESTFILE" For Input As #1
Do While Not EOF(1) 'Запускаем цикл до тех пор,
' пока не будет достигнут конец файла...
MyChar = Input(1, #1) 'Получаем один символ
Debug.Print MyChar ' Печатаем в окно Immediate
Loop
Close #1 'Закрываем файл

InputBox (prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) - выводит окно с запросом на ввод значения. Параметры такие же, как и у функции MsgBox.

Пример:

Выводим окно с заголовком "ВНИМАНИЕ", запросом "Введите пароль", в окошке будет выделенный текст "Значение_по_умолчанию". Координаты появления окна - 100,100pix.

Form1.Caption = InputBox("Введите пароль", _
"ВНИМАНИЕ", "Значение_по_умолчанию", 100, 100)

InStr ([start, ]string1, string2[, compare]) - возвращает номер позиции первого вхождения строки string2 в строку string1.

Пример:

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' Строка, в которой будем искать
SearchChar = "P" ' Строка для поиска

' Текстовое сравнение начиная с 4-ой позиции. Возвратит 6.
MyPos = Instr(4, SearchString, SearchChar, 1)

' Бинарное сравнение начиная с 1-ой позиции. Возвратит 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' Бинарное по умолчанию. Последний параметр опущен. Возвратит 9.
MyPos = Instr(SearchString, SearchChar)

' Возвратит 0, т.е. строка не найдена.
MyPos = Instr(1, SearchString, "W")

Int (number) - Если number < 0, то округляет его до ближайшего целого. Иначе выделяет целую часть number.

Пример:

Dim MyNumber
MyNumber = Int(99.8) ' Возвратит 99.
MyNumber = Int(-99.8) ' Возвратит -100.
MyNumber = Int(-99.2) ' Возвратит -100.

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

IsArray(varname) - Возвратит True, если varname (имя переменной) является массивом. Иначе False. Переменная может быть и типом Variant. Пример, я думаю, здесь не нужен.

IsDate(expression) - если expression - дата, то возвратит True, иначе False.

IsEmpty(expression) - если переменная пуста (т.е. либо ей присвоено значение Empty, либо значение ещё не задано после объявления переменной) то возвратит True, иначе False.

IsError(expression) - Возвратит True, если переменная содержит ошибочные данные.

Пример:

Dim ReturnVal, MyCheck
ReturnVal = UserFunction()
MyCheck = IsError(ReturnVal) ' возвратит True.

IsMissing(argname) - Возвратит True, если аргументы не заданы. Здесь нужен пример:

Dim ReturnValue
'В следующих строках вызывается процедура, определённая пользователем
ReturnValue = ReturnTwice() ' Возвратит Null.
ReturnValue = ReturnTwice(2) ' Возвратит 4.

' Определение функции, вызываемой выше
Function ReturnTwice(Optional A)
If IsMissing(A) Then
' Если аргументы пропущены, возвратит Null.
ReturnTwice = Null
Else
' Если аргумент задан, то возвратит квадрат этого аргумента
ReturnTwice = A * 2
End If
End Function

IsNull(expression) - немного отличается от IsEmpty. А именно тем, что возвратит False, если переменной ещё не присвоено значение после определения. Пример:

Dim MyVar, MyCheck
MyCheck = IsNull(MyVar) ' Возвратит False.

MyVar = ""
MyCheck = IsNull(MyVar) ' Возвратит False.

MyVar = Null
MyCheck = IsNull(MyVar) ' Возвратит True.

IsNumeric(expression) - Возвращает True, если expression является числовым значением.

Пример:

Dim MyVar, MyCheck
MyVar = "53" ' Задаём значение
MyCheck = IsNumeric(MyVar) ' Возвратит True.

MyVar = "459.95" ' Задаём значение
MyCheck = IsNumeric(MyVar) ' Возвратит True.

MyVar = "45 Help" ' Задаём значение
MyCheck = IsNumeric(MyVar) ' Возвратит False.

IsObject(identifier) - Возвращает True, если переменная объектного типа. Пример:

Dim MyInt As Integer, YourObject, MyCheck
Dim MyObject As Object
Set YourObject = MyObject ' Задаём ссылку на объект
MyCheck = IsObject(YourObject) ' Возвратит True.
MyCheck = IsObject(MyInt) ' Возвратит False.

На главную страничку учебника Visual Basic