VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/05/03(Mon) 10:16
投稿者： おじん
ＵＲＬ：
タイトル： 正多角形を描きたいのですが

下記のコード（多角形の場合は要修正）で各点の座標を求めようとしましたが
見た目、正しくありません（各点は円上にあるはず．．．なのに？）。
どこが間違っているのおしえてください。
（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)が左下になることも
分かりません。右上になると思うのですが。なぜでしょうか？
よろしくお願いいたします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -