首页| JavaScript| HTML/CSS| Matlab| PHP| Python| Java| C/C++/VC++| C#| ASP| 其他|
购买积分 购买会员 激活码充值

您现在的位置是:虫虫源码 > 其他 > vb 分形树

vb 分形树

  • 资源大小:5.08 kB
  • 上传时间:2021-06-30
  • 下载次数:0次
  • 浏览次数:1次
  • 资源积分:1积分
  • 标      签: 汇编语言 vb

资 源 简 介

  Dim xs As Integer   Dim ys As Integer   Dim alph As Single   Dim lng As Single   Dim m As Integer   Const PI As Single = 3.14159265 Private Function tree(x As Integer, y As Integer, angle As Single, length As Single, n As Integer)     Dim x0 As Integer   Dim y0 As Integer   Dim alpha As Single   Dim beita As Single   Dim leng As Single   BackColor = vbWhite     If n > 0 Then     x0 = x + Cos(angle) * length     y0 = y - Sin(angle) * length     picture1.Line (x, y)-(x0, y0), vbbrake     alpha = angle - PI / 8     beita = angle + PI / 8     leng = 2 * length / 3         Call tree(x0, y0, alpha, leng, n - 1)  &nbs

文 件 列 表

2_13
MSSCCPRJ.SCC
picture1.frm
Project1.vbp
Project1.vbw
tree1.exe

相 关 资 源

您 可 能 感 兴 趣 的

同 类 别 推 荐

VIP VIP
0.141569s