Ведущий
рассылки: Сёмин Герман Сергеевич akaFerrUM
Привет всем, кто принялся
изучать VisualBasic. Вы
знаете, что рассылка выходит каждую субботу,
а я её рассылаю чуть ли ни каждый день.
Такого больше не будет, т.к. те уроки я писал
заранее и я не мог не
удержатся их все разослать, т.е. теперь
рассылка будет выходить строго по
расписанию (в каждую субботу). Мы прошли уже
пять уроков изучили операторы условия (If…Then)
и на этом мы изучим “всего лишь” знаки
равно, не равно, больше, меньше и другие.
Может это и очень легко, но очень важно.
Когда вы соберётесь писать свою программу
вы не сможете без них обойтись. Как всегда
будет приведён пример программы.
Называться она будет …. не знаю …
пусть “Sravnenie”
Урок – 6
“Sravnenie”
Все эти знаки, как вы уже
наверняка догадались, называются знаками
сравнения.
Существуют
они для проверки условий.
Сравнивать
можно слова, имена, числа и всё что угодно. С
помощью них можно узнать, равны ли числа или
строки, в каком соотношении они находятся
друг к другу и т.п.
Ниже приведена таблица знаков:
=
Знак
равно.
<>
Знак не равно.
>
Знак больше\меньше
<
Знак больше\меньше
>=
Больше и\или
равно.
<=
Меньше и\или
равно.
Сейчас мы их разберём по порядку:
Условие
“равно” используется, когда нужно
сравнить два оператора и узнать, совпадают
ли их значения.
Например:
If
x = 1 Then
MsgBox “Значение
x
равно3”
Endif
Оцените всю прелестьVisualBasic, те
кто знает английский язык, те увидят, что
приведённый выше код очень легко можно
прочитать без знания VisualBasic:
Если значение х равно 3, то
вывести диалоговое окно.
Условие
“ не равно” используется, когда нужно
сравнить два оператора и узнать, не совпадают ли их значения.
Условие
“ больше или меньше”
– понятно, что применяется при сравнивании
переменных или операторов(“кто больше, а
кто меньше”)
Условие
больше\меньше или равно совмещает в
себе два условия – равно и больше или
меньше.
Для примера я приведу маленький
пример, дабы сократить размеры выпуска.
Программы будет проверять введённой
пользователем число и сравнивать это число
с тройкой.
Перенесите
на форму кнопку и свойство Captionзадайте “Принять число” (без кавычек).
Name можно
неменять.
Дважды
щелкнем на кнопку и напишем код:
Private
Sub Command1_Click()
Dimx, yAsInteger‘Объявим две переменных(xбудем
сравнивать с y)
x
= 3’сразу присвоим значение переменной x
y
= InputBox("введите ваше число:")’yприравниваем к
введённому пользователем числу
If
y = x Then ‘ Еслиy равенx
MsgBox
"Вы ввели число, равное 3"’Выводим
сообщение
End
If
Ify > xThen‘ Если yбольше x
MsgBox
"Вы ввели число, большее чем 3"’Выводим
сообщение
End
If
Ify < xThen‘ Если yменьше x
MsgBox
"Вы ввели число, меньшее чем 3"’Выводим
сообщение
End
If
End
Sub
Сохраните и
запустите проект и посмотрите, что у вас
получилось.
Ну вот и всё. Урок
закончен. Пишите мне обо всём, что вы не
понимаете – я обязательно отвечу!!! В скором
времени мы применим все полученные знания
при создании одной игры. Да и пишите письма
понятней – распишите свою проблему, а то
Пишут: “Тут, блин,
проблема, блин, помоги, блин…” – такие
письма сразу выкидываю. И я не могу вам
сразу ответить, подождите и вы наверняка
получите ответ.