Оператор Select Case

Оператор с условием Select Case также, как условный оператор, применяется для выборы альтернативы. Этот оператор наиболее эффективен, когда условие ветвления зависит от значения одной переменной. Также целесообразно его использовать в том случае, когда значений переменной может быть не 2 или 3, а значительно больше. Если в таких случаях использовать оператор IF, то получится довольно громоздкая конструкция.

Структура Select Case работает с единственной оцениваемой переменной (или выражением), которая проверяется однажды, наверху структуры. Затем VB сравнивает значение этой переменной или выражения для каждого Case структуры. Если встречается совпадение, то выполняется группа операторов, стоящая после этого Case.

Select Case ИмяПеременной

Case Значение1

ПоследовательностьОператоров1

Case Значение2

ПоследовательностьОператоров2

…..

[Case ЗначениеN

ПоследовательностьОператоровN]

[Case Else

ПоследовательностьОператоров]

End Select

При проверке условия VB останавливается на первом совпавшем значении и выполняет только этот блок. Поэтому при определении проверочных условий следует обратить особо внимание на последовательность блоков.

В качестве параметра Значение можно:

- Перечислить несколько значений через запятую Case 1,3,5

- Указать область абсолютного значения Case 1 to 10

- Указать область относительного значения Case Is >=1

В случае, если не совпало ни одно из значений, выполняется последовательность операторов после слов Case Else. Следует заметить, что этот блок является не обязательным элементом оператора Select Case. Количество же блоков Case >= 1 и не ограничено.

Задание1. С помощью оператора – переключателя переделать домашнее задание. На форме объект Shape и два ComboBox. При их помощи выбирается вид фигуры и цвет. В списке значений используйте только слова, без числовых значений.

Выполните программу с использованием Select Case и сравните ее с домашним заданием.

Задание2. Тестирующийся при приеме на работу может получить баллы от 0 до 10. Ему надо выдать одно из 3 сообщений: - при количестве баллов n < 5 – “Вы не приняты”; - при n = 5 – 8 - “Дополнительное тестирование”; при n = 9 или 10 - “Вы приняты”. Используйте три разных формы задания проверки условия. Для выбора баллов примените Комбинированное Окно, а для выдачи сообщения – Метку.

Функции задания цвета rgb и qbColor

При установке цвета элемента управления можно использовать цвета, предоставляемые операционной системой. В этом случае, когда пользователи приложения изменяют значения системных цветов на своих компьютерах, эти изменения автоматически отражаются в приложении. Иногда это удобно, а иногда наоборот. Системные цвета устанавливаются в Окне Свойств во всех свойствах, определяющих цвет во вкладке System. Изначально свойства многих объектов имеют системные цвета.

Упражнение1. Задайте форме цвет Рабочего Стола (Desktor), Текстовому Окну – цвет Window Background. Поставьте Командную кнопку, свойства ее не меняйте. Попробуйте изменить настройки компьютера и понаблюдайте, как изменились объекты в Вашем приложении. (Настройки компьютера верните потом).

Несистемные цвета в VB можно задавать с помощью длинного целого числа, с помощью констант VB и с помощью функций QBColor и RGB.

Значения встроенных констант цвета				функция QBColor
Имя константы	Значение	Цвет		Аргумент	Цвет	Аргумент	Цвет
VbBlack	0	черный		0	черный	8	Темно-серый
VbRed	255	красный		1	синий	9	Ярко-синий
VbGreen	65280	зеленый		2	зеленый	10	Ярко-зеленый
VbYellow	65535	желтый		3	сине-зеленый	11	Голубой
VbBlue	16711680	голубой		4	красный	12	Ярко-красный
VbMagenta	16711935	фиолетовый		5	фиолетовый	13	Ярко-Фиолетовый
VbCyan	16776960	коричневый		6	коричневый	14	Желтый
VbWhite	16777215	белый		7	серый	15	Белый

Функция QBColor(аргумент) – определяет один из шестнадцати основных. Аргумент может принимать значения 0-15, в зависимости от которого выдается значение функции – число типа Long. Например: frm1.BackColor = QBColor(12) - форма станет красной.

Функция RGB(R,G,B) – это функция трех аргументов. R,G и B могут принимать значения 0-255. Число, определяющее цвет, можно представить как сумму трех слагаемых R + 256G + 256²B. Количество значений, которое может принимать функция = 256³, это свыше 16 миллионов цветов. Не все системы могут точно их отображать, необходимо это учитывать. Именно столько цветов могут использовать графические методы VB. Аргумент R(Red) определяет количество красного в смеси трех цветов, G(Green) – количество зеленого, В(Blue) – количество синего. Каждый цвет – это смесь этих трех оттенков. Если все аргументы равны, то в зависимости от значения, это будут оттенки черного, серого, белого цвета; чем меньше значение аргументов, тем темнее цвет.

Например:

RGB(0,0,0) - черный;

RGB(255,255,255) - белый;

RGB(255,255,0) – желтый;

RGB(200,50,30) - цвет красного оттенка;

RGB(0,0,100) - темно-синий.

Задание3. На форме поместите три текстовых окошка с тремя метками рядом и командную кнопку. В окошки заносятся значения R, G, B. По нажатии на кнопку меняется цвет круга.

Задание4. На форме те же окошки и три метки. По нажатии на метку соответствующий аргумент начинает увеличиваться на 1. (использовать таймер) и одновременно меняется цвет круга, используются постоянные значения двух других аргументов. Когда значение аргумента доходит до 255, он обнуляется. При нажатии на другую кнопку, изменение предыдущего выбранного аргумента прекращается, начинает изменяться новый аргумент. Нажатием на кнопку ‘СТОП’ процесс останавливается на выбранном цвете.

Домашнее задание.

1. На форме Shape, три текстовых окна, кнопка ‘СТОП’. Значения в текстовых окнах меняется так: пробегают все 256 значений одного цвета, это окошко обнуляется, а в следующем прибавляется единица; когда во втором наберется 256, оно обнулится, а единичка прибавится в следующее. Так пробегут все цвета, на понравившемся можно остановить таймер.

2. Цвет Shape меняется как в предыдущем задании, но нет кнопки ‘СТОП’. Размер формы = размеру Shape. Нет или не видны текстовые окна. Второй таймер сменяет циклически 7 разных фигур Shape. (Применить оператор SELECT CASE). Программа заканчивается при нажатии мышкой на Shape.

Контрольные вопросы:

1. Объясните, в каких случаях лучше применить условный оператор IF_ELSE, а в каких – SELECT CASE.

2. Какие способы задания цвета Вы знаете?

3. Переменную какого типа можно использовать для хранения номера цвета и почему?

4. Какие аргументы в функции RGB надо задать, чтобы получить серый цвет?

УРОК 15

Цель урока. Изучение графических методов. Научить студентов устанавливать собственную систему координат и рисовать с помощью программирования простейшие геометрические фигуры и графики.