Как нарисовать круг через PSet? - VB
Формулировка задачи:
Не получается нарисовать окружность методом PSet. Мне это нужно, чтобы гибче, чем в Cirсle, контролировать градусную меру дуги. А может, это получится другим способом?
Заранее спасибо.
Решение задачи: «Как нарисовать круг через PSet?»
textual
Листинг программы
Private Sub Command1_Click() d = 100 Picture1.Scale (-d, d)-(d, -d) Picture1.Cls For k% = 1 To 200 r% = 50 f! = Rnd * 6.28 Picture1.PSet (r * Cos(f), r * Sin(f)), _ RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д