КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
Лабораторное занятие № 5
|
|
|
|
End Sub
End If
End Select
Private Sub Text1_KeyPress(KeyAscii As Integer)
End Sub
Сброс
End Sub
Option Explicit
' Общая процедура инициализации меток
Sub Сброс()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
Label5.Visible = False
Label6.Visible = False
Label7.Visible = False
' Вызов общей процедуры
Private Sub Command1_Click()
'Нажатие на клавишу
Dim dn% 'Объявление переменной день недели
If Text1 <> "" Then 'Если информация введена, тогда
dn = CInt(Text1) 'она присваивается переменной dn,
Select Case dn 'которая используется для анализа
Case 1 'Понедельник
Label1.Visible = True
Case 2 'Вторник
Label2.Visible = True
Case 3 'Среда
Label3.Visible = True
Case 4 'Четверг
Label4.Visible = True
Case 5 'Пятница
Label5.Visible = True
Case 6 'Суббота
Label6.Visible = True
Case 7 'Воскресенье
Label7.Visible = Tr ue
Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.
Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 06 Дни недели).
Ознакомьтесь с программным кодом.
Определите, какие новые элементы управления использованы в этом проекте.
Закройте Visual Basic без сохранения проекта.
Вопросы для самоконтроля:
- Что такое переменные и область их определения?
- Какие бывают массивы (статические, динамические массивы)?
- Как объявить переменную или массивов?
- Создайте программный код, содержащий одномерный массив из пяти элементов.
- Какие конструкции языка позволяют изменить порядок операций?
- Охарактеризуйте конструкции языка, позволяющие неоднократно повторять операции.
- Создайте программный код с использованием конструкции If … Then.
- Создайте программный код с использованием конструкции Select Case.
- Создайте программный код с использованием циклической конструкции.
- УПРАВЛЕНИЕ ПРОГРАММОЙ ПО СОБЫТИЯМ
Программный код Visual Basic состоит из процедур обработки событий. Основными событиями являются события щелчка мыши, перемещение мыши, события клавиатуры. Список событий активного объекта можно просмотреть в Редакторе кода.
Цель занятия: ознакомить студентов с основными событиями Visual Basic.
Задание 1. События щелчка мыши Click
Создайте новый проект. Разместите на форме элемент управления Image1 и управляющую кнопку Command1 (рис. 28).
Присвойте свойству Visible объекта Image1 значение False.
Рис. 28. Окно формы Событие щелчка мыши.
Используя свойство Picture объекта Image1, выберите из Фотогаллереи файл Teksture.jpg (VB Учебные \ Фотогаллерея \ Текстура).
Чтобы картинка полностью вписывалась в объект Image1, установите значение свойства Stretch – True.
Создайте код приведённый ниже.
Обратите внимание на то, что событие щелчка мыши свойственно не только объекту управляющей кнопке Command1, но и изображению размещённому в окне Image1.
|
|
|
|
|
Дата добавления: 2014-12-27; Просмотров: 394; Нарушение авторских прав?; Мы поможем в написании вашей работы!