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

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

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

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

• Second
• Seek
• Sgn
• Shell
• Sin
• Space
• Spc
• Sqr
• Str
• StrComp
• StrConv
• String
• Switch

---S---

Second(time) - Возвратит количество секунд, содержащихся в параметре time.

Пример:

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

Seek(filenumber) - Возвращает Long, содержащее текущую read/write позицию в файле, открытом оператором Open.

Пример:

' Определение типа должно находится в стандартном модуле

Type Record ' Тип, определённый пользователем
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record ' Объявляем переменные
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Повторяем, пока не конец файла
Get #1, , MyRecord ' Читаем следующую запись
Debug.Print Seek(1) ' Выводим в окно Debug текущий номер записи.
Loop
Close #1 ' Закрываем файл

Sgn(number) - Возвращает знак числа number.

Пример:

Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12
MyVar2 = -2.4
MyVar3 = 0
MySign = Sgn(MyVar1) ' Возвратит 1.
MySign = Sgn(MyVar2) ' Возвратит -1.
MySign = Sgn(MyVar3) ' Возвратит 0.

Shell(pathname[,windowstyle]) - Запускает программу и возвращает ID программной задачи (program task ID). Если была ошибка, возвратит 0. Параметр windowstyle определяет стиль открытия программы. Может принимать следующие значения:

vbHide Окно будет скрыто
vbNormalFocus Окно получает фокус и отображается без искажений размера
vbMinimizedFocus Окно, после запуска автоматически минимизируется и получает фокус
vbMaximizedFocus Окно разворачивается на весь экран и получает фокус
vbNormalNoFocus Тоже, что и vbNormalFocus, но окно не получает фокуса.
vbMinimizedNoFocus Тоже, что и vbMinimizedFocus, но окно не получает фокуса.

Пример:

Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' Запускаем калькулятор

Sin(number) - Возвращает Double значение, содержащее синус числа number.

Пример:

Dim MyAngle, MyCosecant
MyAngle = 1.3 ' Определяем угол в радианах
MyCosecant = 1 / Sin(MyAngle) ' Вычисляем косеконс

Space(number) - Возвращает строку, состоящую из number пробелов.

Пример:

Dim MyString

' MyString содержит 10 пробелов.
MyString = Space(10)

' Вставляем 10 пробелов между двумя строками
MyString = "Hello" & Space(10) & "World"

Spc(n) - Используется вместе с оператором Print # или Print для задания отступа.

Пример:

Open "TESTFILE" For Output As #1 ' Открываем файл для записи
Print #1, "10 пробелов между этим местом"; Spc(10); "и этим."
Close #1 ' Закрываем файл

или

Debug.Print Spc(30); "Перед этой строкой 30 пробелов..."

Sqr(number) - Возвращает корень числа number.

Пример:

Dim MySqr
MySqr = Sqr(4) 'Возвратит 2.
MySqr = Sqr(23) 'Возвратит 4.79583152331272.
MySqr = Sqr(0) 'Возвратит 0.
MySqr = Sqr(-4) 'Генерирует ошибку (корень из отрицательного числа).

Str(number) - Возвращает строку, представляющую число.

Пример:

Dim MyString
MyString = Str(459) ' Возвратит "459".
MyString = Str(-459.65) ' Возвратит "-459.65".
MyString = Str(459.001) ' Возвратит "459.001".

StrComp(string1, string2[, compare]) - Сравнивает две строки. Возвращает:

-1, если string1 < string2
0, если string1 = string2
1, если string > string2
Null, если string1 или string2 содержит Null.

Параметр compare определяет тип сравнения. Может быть одним из следующих значений:

vbBinaryCompare - по умолчанию, бинарное сравнение
vbTextCompare - сравнивает строки без учёта регистра
vbDatabaseCompare - используется в базах данных Microsoft Access.

Пример:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD"
MyStr2 = "abcd"
MyComp = StrComp(MyStr1, MyStr2, 1) ' Возвратит 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Возвратит -1.
MyComp = StrComp(MyStr2, MyStr1) ' Возвратит 1.

StrConv(string, conversion) - Конвертирует строку в формат, заданный параметром conversion. Этот параметр может принимать одно из следующих значений:

vbUpperCase - Конвертирует строку в верхний регистр
vbLowerCase - Конвертирует строку в нижний регистр
vbProperCase - Конвертирует первую букву каждого слова в верхний регистр
vbUnicode - Конвертирует строку в формат Unicode, используя кодовую страницу, заданную в системе.
vbFromUnicode - Конвертирует строку из формата Unicode в нормальный формат, используя кодовую страницу, заданную в системе.

Пример:

MyForm.Caption = StrConv("visual BASIC", vbUpperCase)
' сконвертирует строку в верхний регистр

String(number, character) - Возвращает строку, состоящую из number числа символов character.

Пример:

Dim MyString
MyString = String(5, "*") ' Возвратит "*****".
MyString = String(5, 42) ' Возвратит "*****".
MyString = String(10, "ABC") ' Возвратит "AAAAAAAAAA".

Switch(expr-1, value-1[, expr-2, value-2 … [, expr-n,value-n]]) - Возвращает первое значение, условие которого выполняется.

expr-1, expr-2, ... - условия.
value-1, value-2, ... - значения.

Пример:

Функция MatchUp возвратит строку "Italian", если CityName будет равно "Rome",
или строку "English", если CityName будет равно "London" и т.д.

Function MatchUp (CityName As String)
Matchup = Switch(CityName = "London", "English", CityName _
= "Rome", "Italian", CityName = "Paris", "French")
End Function

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