ПРАКТИЧЕСКАЯ РАБОТА №7

Переключатели

Получение навыков программирования графических объектов и изучение функций переключателя.

Задание. Составить программу, которая позволяет изменить начертание и цвет геометрической фигуры, типа квадрат, овал, круг, используя стандартный элемент управления «фигура» - Shape.

1. Запустите Visual Basic с помощью меню Window/Пуск/Программы. Если программа уже работает, то открыть новый проект Project.

2. Для создания приложения необходимо использовать следующие объекты управления:

      Shape1 - фигура;
      Label1 - метка;
      Command1 - командная кнопка;
      Frame1 - рамка;
      Option1 - переключатель;
      Option2 - переключатель;
      Option3 - переключатель;
      Option4 - переключатель;
      Option5 - переключатель;
      Option6 - переключатель.

Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных. Причем, прежде чем перенести переключатели, входящие в группу «Цвет», необходимо перенести на форму рамку. Далее, выбрав на панели инструментов очередной переключатель, нарисовать его внутри рамки.

3. В работе следует использовать следующие свойства Properties:

     Label1 Caption ='ФИГУРА'
     Command1 Caption ='OK'
     Option1 Caption = 'Квадрат'; Value = True
     Option2 Caption = 'Овал'; Value = True
     Option3 Caption = 'Круг'; Value = True
     Option4 Caption = 'Красный'; Value = True
     Option5 Caption = 'Желтый'; Value = True
     Option6 Caption = 'Синий'; Value = True
     Frame1 Caption = 'Цвет'; Value = True
     form1 Caption ='Переключатели'

Рис. 4.13. Результат работы переключателей

Shapel        backStyle= 1 - Opacue
                     backColor= ButtonFace
                     BorderStyle= 0 Transparent

4. Набрать программный код в соответствии с приведенным ниже текстом

Option Explicit
Private Sub Option1_Click()
Shape1.Shape = 1
End Sub
     Private Sub Option2_Click()
     Shape1.Shape = 2
     End Sub
           Private Sub Option3_Click()
           Shape1.Shape = 3
           End Sub
    Private Sub Option4_Click()
    Shape1.backColor = vbRed
    End Sub
Private Sub Option5_Click()
Shape1.backColor = vbYellow
End Sub
    Private Sub Option6_Click()
    Shape1.backColor = vbBlue
    End Sub
           Private Sub Command1_Click()
           End
           End Sub

5. Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы пользователь, поочередно активизируя переключатели для цвета и фигуры, получит разные варианты изменения фигуры (рис. 4.13).

6. Для завершения выполнения программы необходимо нажать кнопку «ОК» (или значок «закрыть» на форме) или выполнить команду Run/End.

7. Сохранить файл программы и файл формы с соответствующими расширениями .bas и .frm.

8. Задание. Добавьте для фигуры другие варианты, измените цвета, измените свойства заполнения фигуры (например, тип начертания) и повторите запуск приложения.