Этап написания программного кода:
P
rivate
Sub Command1_Click()
Shape1.BackStyle = 1
Shape2.BackStyle = 0
Shape3.BackStyle = 0
End Sub
Private Sub Command2_Click()
Shape1.BackStyle = 0
Shape2.BackStyle = 1
Shape3.BackStyle = 0
End Sub
Private Sub Command3_Click()
Shape1.BackStyle = 0
Shape2.BackStyle = 0
Shape3.BackStyle = 1
End Sub
Этот проект можно решить другим способом.
Этап создания экранной формы:
На форме размещены:
- графическое окно(Picture Box) для установки объектов Shape;
- кнопки для выполнения действий приложения.
Э тап написания программного кода:
Контуры светофора прорисовываются сразу после запуска приложения. Для этого в процедуре Form -изменено событие - установлено Activate. Событие Activate вызывается в тот момент, когда форма становится активной (получает фокус).
Private Sub Command1_Click()
Picture1.FillColor = &H8000000F
Picture1.FillStyle = 0
Picture1.Circle (600, 1800), 400, RGB(255, 255, 0)
Picture1.Circle (600, 3000), 400, RGB(0, 255, 0)
Picture1.FillColor = QBColor(12)
Picture1.FillStyle = 0
Picture1.Circle (600, 500), 400, RGB(255, 0, 0)
End Sub
Private Sub Command2_Click()
Picture1.FillColor = &H8000000F
Picture1.FillStyle = 0
Picture1.Circle (600, 500), 400, RGB(255, 0, 0)
Picture1.Circle (600, 3000), 400, RGB(0, 255, 0)
Picture1.FillColor = QBColor(14)
Picture1.FillStyle = 0
Picture1.Circle (600, 1800), 400, RGB(255, 255, 0)
End Sub
Private Sub Command3_Click()
Picture1.FillColor = &H8000000F
Picture1.FillStyle = 0
Picture1.Circle (600, 1800), 400, RGB(255, 255, 0)
Picture1.Circle (600, 500), 400, RGB(255, 0, 0)
Picture1.FillColor = QBColor(10)
Picture1.FillStyle = 0
Picture1.Circle (600, 3000), 400, RGB(0, 255, 0)
End Sub
Сохранить проект. Данную задачу мы решили двумя разными способами. В первом случае при помощи управляющего объекта Shape. Во втором случае при помощи графического окна(Picture Box), используя графические методы. В результате работы получается один и тот же проект.
Отладка программы. Задания по вариантам:
Создать проект, в котором вид геометрической фигуры изменяется при помощи переключателей.
Создать проект, в котором можно при помощи переключателей прорисовывать флаги различных стран.
Создайте проект, на котором прорисовывается идеалистическая картина: трава, на траве дом с окном. На форме располагаются два переключателя, один задает день(светлое небо и на небе солнце), а другой ночь(темное небо и на небе месяц).
Создать проект, в котором прорисовывается вид: смайлик улыбающийся и смайлик грустящий. А изменяется при помощи переключателей.
Создать проект игральная кость: шесть переключателей (1,2,3,4,5,6) каждый из которых прорисовывает соответствующую грань игральной кости.
Создать проект, который по нажатию кнопки будет прорисовывать слово ( при помощи графических примитивов) СТОП.
Создать проект, который по нажатию кнопки будет прорисовывать слово ( при помощи графических примитивов) СЕНО.
Создать проект, который по нажатию кнопки будет прорисовывать число 345.
Создать проект, который по нажатию кнопки будет прорисовывать число 578.
Создать проект, который по нажатию кнопки будет прорисовывать число 890.
Создайте проект, на котором два переключателя, один прорисовывает слово СОН, а другой СЫН.
Создайте проект, на котором два переключателя, один прорисовывает слово СНЕГ, а другой БЕГ.
Создать проект, который по нажатию кнопки будет прорисовывать Креманку с тремя шариками мороженного.
Создать проект, который по нажатию кнопки будет прорисовывать сердце проколотое стрелой.
Создать проект, который по нажатию кнопки будет прорисовывать «Масяню».