Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8. Тема: Программирование графики
|
|
Тема: Программирование графики
Цель: Получить навыки использования графических методов
Порядок выполнения 1 часть
1. Откройте новый проект.
2. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командная кнопка | Name | CmdResult |
| Caption | Пять точек | |
| Графическое окно | Name | Pic1 |
| Width | ||
| Height | ||
| BackColor | черный |
3. В окне кода процедуры обработки события Click для объекта CmdResult набрать
pic1.Scale (-10, 10)-(10, -10) 'назначить объекту новую систему координат
pic1.DrawWidth = 10 'изменим размеры точки
pic1.ForeColor = vbWhite ' цвет точек - белый
pic1.PSet (0, 0) 'вывод точек
Pic1.PSet (-5, -5)
Pic1.PSet (5, 5)
Pic1.PSet (-5, 5)
Pic1.PSet (5, -5)
4. Проверьте работу программы
5. Измените программу для вывода а) четырех точек; б) шести точек (самостоятельно)
6. Результат показать преподавателю. 2 часть
7. Откройте новый проект.
8. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командные кнопки | Name | CmdFlag |
| Caption | Флаг России | |
| Name | CmdStart | |
| Caption | Пуск |
9. В окне кода процедуры обработки события Click для объекта CmdFlag набрать
Cls
Line (2000, 2000)-(4000, 2500), vbWhite, BF
PSet (2000, 2200)
Print " Да Здравствует РОССИЯ! "
Line (2000, 2500)-(4000, 3000), vbBlue, BF
Line (2000, 3000)-(4000, 3500), vbRed, BF
Line (2000, 2000)-(2000, 4000)
10. В окне кода процедуры обработки события Click для объекта CmdStart набрать
Cls
Line (200, 200)-(2200, 200), vbBlue 'вывод тонкой горизонтальной линии
DrawWidth = 6 'вывод толстой вертикальной линии
Line (200, 400)-(200, 2000), vbRed
DrawWidth = 3 'вывод наклонного отрезка средней толщины
Line (600, 1400)-(1200, 500), vbGreen
Line (1600, 2000)-(400, 1500),, B 'прямоугольник незакрашенный
Line (3000, 1400)-(2200, 500), vbCyan, BF 'прямоугольник закрашенный
11. Проверьте работу программы.
12. Самостоятельно измените программу так, чтобы она рисовала флаги Франции (вертикальные полосы - синяя, белая, красная), Германии (горизонтальные полосы – черная, красная, желтая)
Часть
13. Откройте новый проект.
14. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командные кнопки | Name | Cmd1 |
| Caption | Круг и эллипсы | |
| Name | Cmd2 | |
| Caption | Дуга, сектор круга, сектор эллипса | |
| Графические окна | Name | Pic1 |
| Height | ||
| Width | ||
| Name | Pic2 | |
| Height | ||
| Width |
15. В окне кода процедуры обработки события Click для объекта набрать Cmd1
Pic1.Scale (0, 30)-(16, 0)
Pic1.ForeColor = QBColor(7) 'установим цвет линии
Pic1.FillStyle = 0 'установим стиль заполнения (сплошной)
Pic1.Circle (8, 25), 4 'вывод окружности
Pic1.FillColor = QBColor(7) 'установим цвет заполнения и линии
Pic1.ForeColor = QBColor(0)
Pic1.Circle (8, 16), 5.5,,,, 0.5 'овал горизонтальный
Pic1.Circle (8, 6.5), 4.5,,,, 1.5 'овал вертикальный
16. В окне кода процедуры обработки события Click для объекта набрать Cmd2