Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................


Выпуск 19
По страницам сайта Visaul PROGS
или Изучение VISUAL BASIC


Теперь 363 человек подписалось на рассылку.

ВНИМАНИЕ - всем у кого есть свои сайты или странички!
Я создаю раздел ::друзья::
Разместив у себя ссылку на мой сайт и прислав мне письмо след. содержания:
Имя владельца
Название проекта
Мой сайт посвящен этому
Ссылка на ваш сайт - здесь
У вас есть шанс попасть в начало списка, т.к. пока он пуст,
вы можете оказаться под номером 1.2.3.
Следовательно, шанс что на ваш сайт пройдут посетители будет больше.
Письма будут сортироваться по времени прихода письма ко мне
Конкурс открыт!


Объявление Желаете разместить объявление в рассылке или у вас интересная новость, тогда пишите, рассмотрим.
Тематика, не обязательно программирование - новости, юмор, интересное, статьи на любую тему.


В гостевой было замечание многие ссылки не работают - особенно на статьи так что ж вы молчите напишите на почту и я буду проверять - с какой страницы на какую нет перейти. А так ошибки и останутся ошибками

У кого все нормально работает - к вам большая просьба напишите мне нужно понять у какого процента посетителей сайт работатет не коректно

[Друзья] [Архив рассылки] [Архив новостей] [Пособие] [Agent] [Карта сайта]
 

Уроки VB
Следующий урок в следующем выпуске

Урок № 11. Выражения

Итак, рассмотрим каждый случай подробно:

  1. Здесь, переменной типа Boolean - bRes присваивается значение выражения (c > b). Т.е. Visual Basic сравнивает эти переменные, и смотрит, c > b? Если да, то значение этого выражения сравнения - True. Если же нет, то False.
  2. То же самое, только bRes будет содержать значение False, т.к. c больше b, а не меньше, как указано в выражении.
  3. Здесь происходит сравнение значений переменных a и c. Т.е. a больше или равно c? В нашем случае a = 234, c = 1000, значит не больше и не равно (меньше). bRes будет содержать False.
  4. b сравнивается с числом 4. Вспомните, ведь 4 - это тоже выражение, со значением 4! Т.к. b > 4, то bRes = False.
  5. Здесь также происходит сравнение переменной b с числом, 5. Но на этот раз одно из условий выполнени, а именно b = 5! Значит bRes = True.
  6. Очевидно, что b <> a. Стало быть bRes должно быть равно True!? Да, так оно и есть... ;)
  7. Обратите внимание на этот пример. После выполнения этой строчки, bRes будет равно True! Здесь выражение Not (a = b) вычисляется следующим образом: сначала Visual Basic сравнивает значения a и b. После того, как VB убедится в том, что a <> b (т.е. False), он вычисляет выражение:
    Not (False). Оператор Not - это булев оператор отрицания. Он инвертирует значение. В данном случае из False получается True. (на более низком уровнем, могу добавить, что оператор Not инвертирует все биты операнда, в данном случае, т.к. False в VB - это 0, а True - FFFF, то значение выражения - True).
  8. Здесь ничего особенно не происходит. bRes = False. Почему? Пусть это будет вашим домашним заданием :).

Ну и последний пример, который иллюстрирует применение выражений сравнения. Сделаем так, чтобы переменной a присвоилось значение 234, если
c = b, и 100, если c <> b:

If c = b Then a = 234
If c <> b Then a = 100

А можно так:

If c = b Then
    a = 234
End If

If c <> b Then
    a = 100
End If

Оба этих варинта абсолютно эквивалентны, но теряется наглядность. Лучше использовать следующий вариант:

If c = b Then
    a = 234 ' строчка #1
Else
    a = 100 ' строчка #2
End If

Здесь конструкция If выполнит строчку #1 тогда и только тогда, когда c будет равно b. Если же они не будут равны, то выполниться строчка #2. Подробнее всё это мы рассмотрим далее.

Итак, с выражениями, я думаю, мы окончательно разобрались. Теперь, если вы запомнили, что такое константа, переменная и выражение, то можно ехать дальше.

Арифметические операторы
Следующий оператор в следующем выпуске

оператор Imp

Используется для совершения логической импликации двух выражений.

Синтаксис:

результат = выражение1 Imp выражение2

результат обязателен; Любая числовая (включая Boolean) переменная
выражение1 обязательно; Любое выражение
выражение2 обязательно; Любое выражение

Замечания:

Следующая таблица показывает как работает оператор Imp:

Если выражение1 =
, а выражение2 =
То результат =
True True True
True False False
True Null Null
False True True
False False True
False Null True
Null True True
Null False Null
Null Null Null

Для битов оператор Imp работает следующим образом (смотреть слева направо)

0 0 1
0 1 1
1 0 0
1 1 1

Примеры:

Dim A, B, C, D, MyCheck
A = 10: B = 8: C = 6: D = Null
MyCheck = A > B Imp B > C ' Возвратит True.
MyCheck = A > B Imp C > B ' Возвратит False.
MyCheck = B > A Imp C > B ' Возвратит True.
MyCheck = B > A Imp C > D ' Возвратит True.
MyCheck = C > D Imp B > A ' Возвратит Null.
MyCheck = B Imp A ' Возвратит -1

Функции Visual Basic
Я попытаюсь рассмотреть все

Функция Command

Command

Функция 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

Категория
Функции обработки системных параметров

..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:
рц альтернатива пенза отзывы

...:::Design by Mystf0rse 2005-2010 year:::...