Как нарисовать круг через 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.857 из 5
Похожие ответы