-
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
-
汇编程序
汇编程序
- 2022-03-05 10:02:25下载
- 积分：1
-
单片机播放音乐程序，这首曲子是刘德华的“天意”，实验通过，非常好听。...
单片机播放音乐程序，这首曲子是刘德华的“天意”，实验通过，非常好听。-Singlechip playing music, this song is Andy Lau
- 2022-04-17 06:49:22下载
- 积分：1
-
我对汇编语言学习一些，在此提供一些源码，大家可试一下。...
我对汇编语言学习一些，在此提供一些源码，大家可试一下。-I have to learn some assembly language, in this to provide some source code, we can try.
- 2022-09-12 21:35:03下载
- 积分：1
-
asp网上购物系统 论文ASPeshplunwenyuanma
asp网上购物系统 论文ASPeshplunwenyuanma-ASPeshplunwenyuanma
- 2022-03-24 03:53:08下载
- 积分：1
-
易语言的一个小代码! 很不错的!大家都支持一下吧
易语言的一个小代码! 很不错的!大家都支持一下吧-Easy language to a small code! Very good! U.S. support yourself
- 2022-01-22 07:01:58下载
- 积分：1
-
此程序为基于MATLAB的PSPICE仿真，非常实用，适用于初学者使用...
此程序为基于MATLAB的PSPICE仿真，非常实用，适用于初学者使用-This procedure for the PSPICE simulation based on MATLAB is very useful for beginners to use
- 2022-02-02 02:37:15下载
- 积分：1
-
VC++
VC++ -VC++ VC++
- 2023-01-21 12:00:03下载
- 积分：1
-
具有关机记忆功能的定时器程序，工厂生产流水线用。
具有关机记忆功能的定时器程序，工厂生产流水线用。-With memory function timer shutdown procedures, factory production lines to use.
- 2022-08-09 05:58:27下载
- 积分：1
-
simple 8PCSLED water lights, easier to get started, one will see
较简单的8PCSLED流水灯，容易上手，一看就会-simple 8PCSLED water lights, easier to get started, one will see
- 2022-07-19 11:17:57下载
- 积分：1
