-
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
- 2022-01-24 19:06:52下载
- 积分：1
-
This is a clock program, everyone gets advice on thank you
这是一个时钟程序，请大家指点一下，谢谢大家-This is a clock program, everyone gets advice on thank you
- 2022-08-11 10:05:05下载
- 积分：1
-
This is a compilation process. For inquiries string. Want to have friends to rea...
这是一个汇编程序.用于查询字符串.希望有同好能阅读并优化这个程序.-This is a compilation process. For inquiries string. Want to have friends to read and optimization of this process.
- 2022-03-19 03:19:09下载
- 积分：1
-
汇编语言实现的控制小键盘的小程序，输入字母数字时能在小键盘上显示出来...
汇编语言实现的控制小键盘的小程序，输入字母数字时能在小键盘上显示出来-Assembly language to achieve the control of a small keyboard applet, enter the alphanumeric keyboard can be displayed in a small out
- 2023-08-24 06:40:04下载
- 积分：1
-
微波炉的代码说明 LCD显示 生产机型 名厂定制
微波炉的代码说明 LCD显示 生产机型 名厂定制-microwave ovens code shows LCD production aircraft manufacturers Customization
- 2022-06-27 13:46:05下载
- 积分：1
-
PIC程序
PIC程序-PIC procedure
- 2022-01-23 10:35:46下载
- 积分：1
-
Do you want to know which day you are born, this is WIN32 made the calculation o...
你想知道你是哪天生的，这个是WIN32编的计算你的出生有多少天了-Do you want to know which day you are born, this is WIN32 made the calculation of your birth how many days the
- 2022-03-05 20:19:57下载
- 积分：1
-
本公司高人设计的程序的头部分,很经典,原程序有2万多行
本公司高人设计的程序的头部分,很经典,原程序有2万多行-Expert design of the Company during the first part of the procedure, it is classic, the original procedures are more than 20,000 line
- 2022-11-16 12:15:03下载
- 积分：1
-
对汇编语言的基本入门知识,你可以学号汇编语言
对汇编语言的基本入门知识,你可以学号汇编语言-you are so smart.and you a
- 2023-01-13 15:45:04下载
- 积分：1
-
不错的资料哦，可以更好的学习c#
不错的资料哦，可以更好的学习c#-good information Oh, we can better learning c#
- 2022-06-29 19:10:50下载
- 积分：1
