投稿日 | : 2004/05/03(Mon) 10:16 |
投稿者 | : おじん |
URL | : |
タイトル | : 正多角形を描きたいのですが |
下記のコード(多角形の場合は要修正)で各点の座標を求めようとしましたが
見た目、正しくありません(各点は円上にあるはず...なのに?)。
どこが間違っているのおしえてください。
(FormにPictureBoxをひとつ貼り付けて、、、)
Private Sub Form_Load()
Dim pi#, X#, Y#, s&
pi = 180 / 3.1415926535
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
Picture1.Scale (-1.5, 1.5)-(1.5, -1.5)
Picture1.Circle (0, 0), 1, vbRed
' For s = 30 To 421 Step 60
For s = 30 To 31 Step 60 '第一点だけ計算・表示するため
X = Cos(pi * s): Y = Sin(pi * s)
Picture1.Circle (X, Y), 0.03, vbBlack
Next s
End Sub
このコード例で(コメントを付けている)点(X,Y)が左下になることも
分かりません。右上になると思うのですが。なぜでしょうか?
よろしくお願いいたします。