すべてのカテゴリ

Option Explicit Option Base 0 Public Sub Test1()     Const CIRCXPOS = 200　　　　　　　    '輪の中心位置　X     Const CIRCYPOS = 160 　　　　　　　　'　　　            Y     Const CIRCRADI = 50　　　　　　　　   '輪の半径     '     Const PETACONT = 12 　　　　　　　　 '花びらの数     Const PISTRADI = 20                            'めしべの半径     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, intAng As Integer     Dim intXp As Integer, intYp As Integer, dblRd As Double     Dim sngBas(0 To 6, 0 To 1) As Single    Dim sngWrk(0 To 6, 0 To 1) As Single     '     '花びらのベジェ曲線ベースデータ     sngBas(0, 0) = 30: sngBas(0, 1) = 0     sngBas(1, 0) = 0: sngBas(1, 1) = 25     sngBas(2, 0) = 0: