すべてのカテゴリ

Option Explicit Option Base 0 ' Const CNS_PAI As Double = 3.14159265358979 　　'π ' Const SIERCXPT As Integer = 250　　　   '描画開始位置Ｘ Const SIERCYPT As Integer = 250 　　　  '                  Ｙ Const SIERLENG As Integer = 10             '辺の長さ Const SIERORDR As Integer = 3              '次数 ' Const SIERLNCL As Long = 2263842       '線の色(緑)Const SIERLNWT As Single = 1.5 　　　　'線の太さ '--------------------------------------------------------------------------- Public p_intDxp As Integer 　　　　　　　'描画位置Ｘ(変数) Public p_intDyp As Integer 　　　　　　　'　　　   Ｙ(変数) Public p_intAng As Integer　　　　　　    '描画角度 '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*Public Sub シェルピンスキー曲線描画マクロ() 'Wac?aw Sierpi?