Введение в Visual Basic

Практическая работа 1. Освоение среды разработки

1. Стартовать Visual Basic,
2. создать проект типа Standard.EXE, вывести в окно Visual Basic (если их нет) окна: свойства, проводник проекта, панель элементов управления (использовать меню Вид или соответствующие кнопки панели Стандартная),

   cоздание на форме элементов управления
3. сделать двойной щелчок на пиктограмме А (Label - метка) панели элементов управления,
4. увеличить размер формы (во весь экран) и метки до размера формы,
5. восстановить размер формы,

   работа со свойствами
6. свойству Name элемента управления Label присвоить значение lbl1,
7. свойству Caption присвоить значение "A Happy New Millennium !",
8. использовать свойство Font: маркировать свойство Font элемента управления Label, сделать щелчок на символах <:>, выводится диалоговое окно, выбрать шрифт Arial, размер 72, сделать щелчок на кнопке OK,
9. используя свойство BackColor выбрать, например, жeлтый цвет,
10. используя свойство ForeColor, выбрать, например, красный цвет,
11. свойству Alignment - выравнивание присвоить значение 2-Center (текст переместить в центр),
12. из списка объектов окна свойств выбрать Form,
13. свойству Caption присвоить значение "Практика 1",
14. свойству WindowsState присвоить значение 2-Мaximized (это вызовет увеличение размера формы до размера экрана после старта проекта),

    старт/остановка выполнения/сохранение проекта
15. стартовать проект (меню Запуск/кнопка Запуск панели Стандартная/клавиша F5),
16. остановить выполнение проекта (меню Запуск Остановка/кнопка Остановка панели Стандартная),
17. сохранить проект (меню Файл Сохранить Form1 Как: Сохранить Проект Как:),

    работа с графикой
18. сделать 2 щелчка на пиктограмме Image панeли элементов управления,
19. охватить созданным объектом-прямоугольником букву А,
20. в окне свойств для объекта Image свойству Stretch присвоить значение True (размер вставленного рисунка, см. следующий пункт, становится равным размеру Image),
21. маркировать щелчком свойство Picture объекта Image, после щелчка на кнопке <:> выбрать в диалоговом окне каталог Icons, затем - каталог Elements, далее - файл Sun.ico, сделать щелчок на его имени, далее - OK,

    копирование графики
22. вставить в буквы р рисунок Face05.ico, для этого на форме создать ещe один элемент управления Image с рисунком Face05.ico, подобно тому, как было сделано ранее. Маркировать второй объект Image.
23. использовать меню Правка Копировать или контекстное меню, затем меню Правка Вставить. На вопрос: "Хотите, чтобы объект стал элементом массива ?", ответить: "Нет" , копия объекта появится в верхнем левом углу формы,
24. перетащить рисунки на буквы p и увеличить объекты так, чтобы заполнить букву,
25. стартовать проект, рис. 1.5.,
26. остановить выполнение,
27. сохранить проект, используя кнопку Сохранить Проект панели Стандартная.

Рис. 1.5. Освоение среды разработки

Практическая работа 2. Создание процедуры

Расматривается процедура, реализующая эффект движения объекта. Он может быть реализован с помощью 2-х элементов управления PictureBox (в данном случае они должны быть элементами массива объектов (массив из 2-х элементов)), содержащих графические объекты-кадры. Здесь в качестве источника графических объектов служат файлы Bfly1 и Bfly2 (бабочки с развeрнутыми и сложенными крыльями), используется элемент управления Image в качестве объекта для демонстрации движения, элемент управления Timer обеспечивает старт процедуры через установленный временной интервал. Используется также элемент управления CommandButton для остановки выполнения проекта.

Код обеспечивает размещение на экране поочерeдно с периодом 0,1 - 0,2 сек 2-х отличающихся кадров Bfly1 и Bfly2. При таком временном интервале пользователь не замечает смены кадров и создаeтся эффект движения объекта. Последовательность действий:

• создать на форме контейнер - объект PictureBox,
• создать массив объектов из 2-х элементов PictureBox, для этого вывести контекстное меню (щелчок правой клавишей мыши на объекте), затем использовать команду контекстного меню Копировать, затем - команду контекстного меню Вставить, на вопрос "Хотите, чтобы объект стал элементом массива?" ответить "Да". Копия объекта появится в верхнем левом углу формы, а в выпадающем списке окна свойств, вверху теперь имеется 2 элемента управления PictureBox, их идентификаторы: Picture1(0) и Picture1(1) - это элементы массива PictureBox, массив состоит из 2-х элементов, индексация проводится с 0,
• свойствам Picture объектов PictureBox присвоить значения Bfly1 и Bfly2 соответственно, см. практика 1, п. 21, при этом в контейнерах PictureBox появятся объекты-бабочки, рис. 1.6.,
  

  
  Рис. 1.6. Вид формы
• создать на форме объект Image, рис. 1.6., слева,
• создать на форме объект Timer,
• создать на форме объект CommandButton, код которого обеспечит завершение выполнения программы,
• задать свойства элементов управления, табл. 1.1.

  Таблица 1.1. Свойства элементов управления

  Объект, свойство	Значение свойства	Комментарий
  Timer
  Name	Timer1
  Interval	200
  Image
  Name	Image1
  Stretch	-1	' True - размеры картинки станут равными размерам объекта Image
  PictureBox
  Name	Picture1(0)	' первый элемент массива объектов
  Picture	(Bitmap)	' вставлен рисунок
  Visible	0	' False - кадр невидим для пользователя
  PictureBox
  Name	Picture1(1)	' второй элемент массива объектов
  Picture	(Bitmap)	' вставлен рисунок
  Visible	0	' False - кадр невидим для пользователя
  CommandButton
  Name	Command1
  Caption	End

  Для того, чтобы поместить i-кадр на экран, нужно свойству Picture объекта Image ( Image.Picture ) присвоить значение свойства Picture1₍₁₎. Picture, а реализующая элементарную анимацию программа представлена ниже.
• ввести код, данный ниже, затем стартовать проект; для остановки выполнения сделать щелчок на командной кнопке.

(General) (Declarations)
Dim i As Integer ' инструкция описания переменной, см. ниже

Private Sub Form_Load()
i = 0
End Sub

Rem присвоить значение индексу элемента массива Picture1(i)
Private Sub Timer1_Timer()
Rem свойству Picture элемента управления Image присвоить
Rem значение свойства Picture элемента управления Picture
Image1.Picture = Picture1(i).Picture
i = i + 1
If i = 2 Then i = 0 
End Sub

Private Sub Command1_Click()
End ' закончить выполнение программы
End Sub

Пояснения. При загрузке формы в память начинает выполняться процедура Form_Load(), где номеру кадра i присваивается значение 0. Сразу же начинает выполняться процедура Timer_Timer(): на экран Image выводится кадр с индексом 0 (бабочка - Bfly1), следующая строка кода увеличивает номер кадра (i= i +1). В следующей строке проводится поверка номера кадра и если он не равен 2, то на экран выводится второй кадр кадр (i=1, бабочка - Bfly2). При повторном выполнении кода переменной i присваивается значение 0 и происходит смена кадра, рис. 1.7. - бабочка машет крыльями.

Рис. 1.7. Бабочка машет крыльями