Информатика. Индришенок В.И - 18 стр.

UptoLike

-18-
Пример:
'Просто линии и прямоугольники:
Private Sub Command1_Click()
'Изображение тонкого красного горизонтального отрезка:
Line(200,200) -(2200,200), 255
'Изображение толстого голубого вертикального отрезка:
DrawWidth=4
Line(200,400) -(200,1400), vbCyan
'Изображение красного наклонного отрезка средней толщины:
DrawWidth=2
Line(200,1800) -(2000,1100), vbRed
'Изображение незакрашенного прямоугольника цвета, установленного по _
умолчанию:
Line(1400,1000) -(400,500), , B
'Изображение красного закрашенного прямоугольника:
Line(1600,500) -(2400,1000), 255, BF
End Sub
Метод Circle
[
ИмяОбъекта.]Circle(X,Y),Радиус[,Цвет[,Угол1_
,Угол2[,КоэффициентСжатия]]]
Здесь
(X,Y)координаты центра. Цветвыражение, опреде-
ляемое также как для методов, описанных выше.
Угол1 и
Угол2
начальный и конечный углы дуги или сектора. Углы за-
дают в радианах в интервале от 0 до 2
π. Нулевой угол соответст-
вует горизонтальной оси, направленной вправо. Если перед нену-
левым значением угла стоит знак "" (минус), то это означает, что
должна быть нарисована дуга, а не сектор. При рисовании дви-
жение «пера» происходит всегда от
Угла1 к Углу2, причем не-
зависимо от соотношения между ними и против часовой стрелки.
Если угли не заданы, то рисуется полный круг или эллипс.
КоэффициентСжатияэто положительное число, большее или
меньшее единицы. Сжатие происходит вертикали.
УПРАЖНЕНИЕ 3. ПРОГРАММИРОВАНИЕ ГРАФИКИ
Задание 3.1. Напишите программу-анимацию, изображаю-
щую на экране подъем флага.
Указания:
Для рисования флага воспользуйтесь методом Line:
                                -18-

Пример:
'Просто линии и прямоугольники:
Private Sub Command1_Click()
'Изображение тонкого красного горизонтального отрезка:
Line(200,200) -(2200,200), 255
'Изображение толстого голубого вертикального отрезка:
DrawWidth=4
Line(200,400) -(200,1400), vbCyan
'Изображение красного наклонного отрезка средней толщины:
DrawWidth=2
Line(200,1800) -(2000,1100), vbRed
'Изображение незакрашенного прямоугольника цвета, установленного по _
умолчанию:
Line(1400,1000) -(400,500), , B
'Изображение красного закрашенного прямоугольника:
Line(1600,500) -(2400,1000), 255, BF
End Sub
М е т о д Circle
[ИмяОбъекта.]Circle(X,Y),Радиус[,Цвет[,Угол1_
,Угол2[,КоэффициентСжатия]]]
Здесь (X,Y) – координаты центра. Цвет – выражение, опреде-
ляемое также как для методов, описанных выше. Угол1 и
Угол2 – начальный и конечный углы дуги или сектора. Углы за-
дают в радианах в интервале от 0 до 2π. Нулевой угол соответст-
вует горизонтальной оси, направленной вправо. Если перед нену-
левым значением угла стоит знак "–" (минус), то это означает, что
должна быть нарисована дуга, а не сектор. При рисовании дви-
жение «пера» происходит всегда от Угла1 к Углу2, причем не-
зависимо от соотношения между ними и против часовой стрелки.
Если угли не заданы, то рисуется полный круг или эллипс.
КоэффициентСжатия – это положительное число, большее или
меньшее единицы. Сжатие происходит вертикали.
УПРАЖНЕНИЕ 3. ПРОГРАММИРОВАНИЕ ГРАФИКИ
З а д а н и е 3 . 1 . Напишите программу-анимацию, изображаю-
щую на экране подъем флага.
Указания:
‰ Для рисования флага воспользуйтесь методом Line: