Pic1.Scale (0, 30)-(16, 0)

Часть

Line (600, 1400)-(1200, 500), vbGreen

Line (200, 400)-(200, 2000), vbRed

Cls

Line (2000, 2000)-(2000, 4000)

Line (2000, 3000)-(4000, 3500), vbRed, BF

Line (2000, 2500)-(4000, 3000), vbBlue, BF

PSet (2000, 2200)

Line (2000, 2000)-(4000, 2500), vbWhite, BF

Cls

Pic1.PSet (5, -5)

Pic1.PSet (-5, 5)

Pic1.PSet (5, 5)

Pic1.PSet (-5, -5)

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 8

End Select

End Select

Select Case nv

End Select

Select Case nm

Select Case s

Case 1 'определяем массу

m = p * v

Case 0 'мг

m = m * 1000000

Case 1 'г

m = m * 1000

TxtZm.Text = m

Case 2 'определяем объем

v = m / p

Case 0 'куб мм

v = v * 1000000

Case 1 'куб см

v = v * 1000

TxtZv.Text = v

Case 3 'определяем плотность

p = m / v

TxtZp.Text = p

9. Проверьте работу программы

Тема: Программирование графики

Цель: Получить навыки использования графических методов

Порядок выполнения 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) 'вывод точек

4. Проверьте работу программы

5. Измените программу для вывода а) четырех точек; б) шести точек (самостоятельно)

6. Результат показать преподавателю. 2 часть

7. Откройте новый проект.

8. Установите на форме следующие объекты и измените им свойства:

Объект	Свойство	Значение
Командные кнопки	Name	CmdFlag
Caption	Флаг России
Name	CmdStart
	Caption	Пуск

9. В окне кода процедуры обработки события Click для объекта CmdFlag набрать

Print "Да Здравствует РОССИЯ!"

10. В окне кода процедуры обработки события Click для объекта CmdStart набрать

Line (200, 200)-(2200, 200), vbBlue 'вывод тонкой горизонтальной линии

DrawWidth = 6 'вывод толстой вертикальной линии

DrawWidth = 3 'вывод наклонного отрезка средней толщины

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.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

Дата добавления: 2014-12-25