![]() |
| [ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ] |
|
Выпуск 19
ВНИМАНИЕ - всем у кого есть свои сайты или странички!
У кого все нормально работает - к вам большая просьба напишите мне нужно понять у какого процента посетителей сайт работатет не коректно
Следующий урок в следующем выпуске Итак, рассмотрим каждый случай подробно:
Ну и последний пример, который иллюстрирует применение выражений сравнения.
Сделаем так, чтобы переменной a присвоилось значение 234, если If
c = b Then a = 234 А можно так: If
c = b Then If
c <> b Then Оба этих варинта абсолютно эквивалентны, но теряется наглядность. Лучше использовать следующий вариант: If
c = b Then Здесь конструкция If выполнит строчку #1 тогда и только тогда, когда c будет равно b. Если же они не будут равны, то выполниться строчка #2. Подробнее всё это мы рассмотрим далее. Итак, с выражениями, я думаю, мы окончательно разобрались. Теперь, если вы запомнили, что такое константа, переменная и выражение, то можно ехать дальше. Следующий оператор в следующем выпуске Используется для совершения логической импликации двух выражений. Синтаксис: результат = выражение1 Imp выражение2 результат обязателен; Любая числовая (включая Boolean) переменная Замечания: Следующая таблица показывает как работает оператор Imp:
Для битов оператор Imp работает следующим образом (смотреть слева направо) 0 0 1 Примеры: Dim
A, B, C, D, MyCheck Я попытаюсь рассмотреть все Функция CommandCommand Функция Command применяется для запуска приложения с различными опциями с использованием командной строки Возвращаемое значениеФункция возвращает параметры командной строки,указанные в строке запуска программы(в окне запуска программы или в окне свойств ярлыка в поле Объект Пример' Пример передачи аргументов командной строки в функцию,
' которая возвращает их в переменной типа Variant,
' содержащей массив
Function GetCommandLine(Optional MaxArgs)
' Объявляем переменные
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
' Проверка наличия MaxArgs
If IsMissing(MaxArgs) Then MaxArgs = 10
' Задание корректной размерности массива
ReDim ArgArray(MaxArgs)
NumArgs = 0: InArg = False
' Получаем аргументы командной строки
CmdLine = Command()
CmdLnLen = Len(CmdLine)
' Анализ всех символов командной строки
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
' Проверка наличия пробела или табуляции
If (C < > " " And C < > vbTab) Then
' пробел и табуляция не обнаружены
' Проверка наличия аргумента
If Not InArg Then
' Начало нового аргумента
' Проверка количества аргументов
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
' Добавляем символ к текущему аргументу
ArgArray(NumArgs) = ArgArray(NumArgs) & C
Else
' Если найден символ пробела или табуляции,
' устанавливаем флаг InArg flag в False
InArg = False
End If
Next I
' Меняем размер массива
ReDim Preserve ArgArray(NumArgs)
' Возвращает массив в качестве имени функции
GetCommandLine = ArgArray()
End Function
КатегорияФункции обработки системных параметров |
|
|
|
|
>>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! |
>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью >>>Если вы хотите задать вопрос пишите--------> Мне нужна помощь |
|
|
|
|
|
|