-
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
-
创建结构体，以birthday，学号、姓名为数据成员。赋值并输出。...
创建结构体，以birthday，学号、姓名为数据成员。赋值并输出。-Create a structure to birthday, school number, name of data members. Assignment and output.
- 2023-04-06 19:30:03下载
- 积分：1
-
18b20 thermal temperature other... .... ... ... .. ... ... ... ...
pic18f4.. ....
18b20 thermal temperature other... .... ... ... .. ... ... ... ...
pic18f4.. . .... ... ... -18b20 thermal temperature other... .... ... ... .. ... ... ... ...
pic18f4.. . .... ... ... ...
- 2022-02-12 18:39:18下载
- 积分：1
-
基于51的数字时钟汇编设计，最基础的部分，采用动态显示。
基于51的数字时钟汇编设计，最基础的部分，采用动态显示。-Based on 51 digital clock assembly design, the most basic part of the dynamic display.
- 2023-03-05 03:50:04下载
- 积分：1
-
Cutting graphics computer graphics processing is very important aspect, the proc...
图形的裁剪是计算机图形处理中很重要的环节，本程序介绍了这一功能。-Cutting graphics computer graphics processing is very important aspect, the procedures introduced this feature.
- 2022-01-28 05:01:09下载
- 积分：1
-
100
100点温度值采集，并且可以进行摄氏温度和华氏温度的转换-100-point temperature value acquisition, and can be carried out Celsius and Fahrenheit temperature conversion
- 2022-04-14 22:08:07下载
- 积分：1
-
source code for alarming
source code for alarming
- 2022-02-06 17:46:02下载
- 积分：1
-
a good master boot drives to read and write the procedures. Suitable for improve...
一个很好的读写硬盘主引导区的程序.
适合于改进后做一键还原及BOOTMANAGER
等软件.
-a good master boot drives to read and write the procedures. Suitable for improvement after doing a bond reduction and BOOTMANAGER software.
- 2022-07-07 18:02:54下载
- 积分：1
-
pic16f877a和LCD1602显示网址和电话
pic16f877a和LCD1602显示网址和电话
- 2022-02-06 07:07:21下载
- 积分：1
-
汇编源码 写注册用源码 可自定义皮肤 ASM源码
汇编源码 写注册用源码 可自定义皮肤 ASM源码-Compilation of source code was registered with the source code can be customized skin
- 2022-02-20 08:27:22下载
- 积分：1
