模拟放烟火的程序
从地面放到空中,爆炸后消失
FB源码(VFB源码,在勇芳编程群里下载)
Const Pi = 4 * Atn(1)
Dim Shared As Double TwoPi = 8 * Atn(1)
Dim Shared As Double RtoD = 180 / Pi
模拟放烟火的程序
从地面放到空中,爆炸后消失
FB源码(VFB源码,在勇芳编程群里下载)
Const Pi = 4 * Atn(1)
Dim Shared As Double TwoPi = 8 * Atn(1)
Dim Shared As Double RtoD = 180 / Pi