-
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
-
6502写24c
6502写24c-6502 was 24c
- 2022-02-02 15:26:34下载
- 积分:1
-
详见压缩文件,关于屏幕窗口程序的汇编语言
详见压缩文件,关于屏幕窗口程序的汇编语言-See compressed file, a window on the screen of the assembly language program
- 2022-02-02 03:22:37下载
- 积分:1
-
This is a performance management system for students, some function is not perfe...
这是一个学生成绩管理系统,有部分功能还不完善,以后会慢慢更新的:)-This is a performance management system for students, some function is not perfect, the future will gradually updated :)
- 2022-08-15 03:03:44下载
- 积分:1
-
汇编dos系统功能调用,用户输入10学号,程序按照一定规则进行回显...
汇编dos系统功能调用,用户输入10学号,程序按照一定规则进行回显-compilation dos system function, the user 10 school, according to a certain procedure rules to significantly
- 2022-07-08 06:29:10下载
- 积分:1
-
编译原理大操作。语言编译器实现。大歌剧院…
编译原理大作业。C语言编译器的实现。附大作业的doc文档说明部分。-compiler principles large operations. C language compiler achieved. A large operations doc file narrative.
- 2022-04-20 09:02:23下载
- 积分:1
-
IBM PC Assembly Language Programming: Fifth Edition
IBM PC 汇编语言程序设计:第五版 -IBM PC Assembly Language Programming: Fifth Edition
- 2022-04-14 14:31:04下载
- 积分:1
-
LPC764 produced motorcycle with EFI system program source
用LPC764制作的摩托车电喷系统程序源码-LPC764 produced motorcycle with EFI system program source
- 2022-03-20 09:58:16下载
- 积分:1
-
pci1730卡输出例程
PCI1730卡输出例程
- 2022-07-28 09:40:52下载
- 积分:1
-
这是本人编写的万年历,内容简洁,只有三十条代码左右.
这是本人编写的万年历,内容简洁,只有三十条代码左右.-This is my prepared by the calendar, concise, only about 30 code.
- 2022-03-22 10:19:33下载
- 积分:1