|
[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ 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Категория Функции обработки системных параметров |
|
|
|
>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью >>>Если вы хотите задать вопрос пишите--------> Мне нужна помощь |
|
|
|