すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub ベルヌーイの螺旋描画マクロ()    Const BERNPAIV = 3.141592653589　　　　'π    Const BERNRADI = BERNPAIV / 180　　　　 'π/180    Const BERNCXPT = 160                               '描画開始位置    Const BERNCYPT = 180    '    Const BERNEANG = 360 * 5                        '終点角度(°)    Const BERNAVAL = 5                                  '係数Ａ(サイズ)    Const BERNBVAL = 0.1 　　　　　　　　　 　'係数Ｂ    '    Const BERNLNCL = &HD30094                     '線の色(紫)   Const BERNLNWT = 1.5　　　　　                '線の太さ    '---------------------------------------------------------------------------    Dim Ip As Integer    Dim sngPlp(BERNEANG, 1) As Single    Dim sngSit As Single, sngRad As Single