すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub アルキメデスの螺旋描画マクロ()     Const ARUKPAIV = 3.141592653589 　　'π     Const ARUKRADI = ARUKPAIV / 180　     'π/180     Const ARUKLEFT = 100　　　　　　　      '描画開始位置Ｘ     Const ARUKTOPP = 100　　　　　　　　   '　　　　　　Ｙ     '     Const ARUKVPIT = 30                             '横-間隔     Const ARUKHPIT = 30                             '縦-間隔     Const ARUKCOLS = 8                              '横/描画数     Const ARUKROWS = 5                            '縦/描画数     '     Const ARUKEANG = 360 * 5                    '終点角度(°)     Const ARUKAVAL = 0.5                           '係数Ａ(サイズ)    '     Const ARUKLNWT = 1.5                          '線の太さ     '---------------------------