|
|
|
Supreme Being
участник
Last Login: 17.06.2000 2:39
Сообщ.: 257,
Visits: 2 861
|
|
Не получается нарисовать окружность методом PSet. Мне это нужно, чтобы гибче, чем в Cirсle, контролировать градусную меру дуги. А может, это получится другим способом?
Заранее спасибо.
|
|
|
|
|
новичок
участник
Last Login: 14.05.2000 5:59
Сообщ.: 7,
Visits: 78
|
|
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
|
|
|
|