-
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
-
MSP430C_p120 routines to more information please contact me.
MSP430C_p120例程如要更多资料请联系我.-MSP430C_p120 routines to more information please contact me.
- 2023-03-24 16:30:03下载
- 积分:1
-
68013 FIFO通信与安装,你也有时间来看看!
68013与fifo通信设置,还请各位有时间看看!-68,013 fifo communication with the setup, you also have time to look at!
- 2022-07-07 07:57:58下载
- 积分:1
-
运行可执行程序testword.exe,出现菜单主界面,按回车键出现由26个字母组成的乱序行,这时其中任一字母落下,在键盘上敲入该字母,如果输入正确,字母消失;...
运行可执行程序testword.exe,出现菜单主界面,按回车键出现由26个字母组成的乱序行,这时其中任一字母落下,在键盘上敲入该字母,如果输入正确,字母消失;按ESC键返回主界面;按空格见暂停;按‘E’退出。 -running executable testword.exe, there main menu interface, press the Enter key emerging from the 26 letters of the alphabet disorder OK, then any one of the letters fall into nice in the letter, if the importation is correct, the letters disappeared; According to the ESC key to return to the main interface; See box suspended by ; according to "E" withdrawal.
- 2022-07-26 09:35:33下载
- 积分:1
-
汇编语言实验作业,调试正确的语法分析.帮助有需要的朋友少走弯路...
汇编语言实验作业,调试正确的语法分析.帮助有需要的朋友少走弯路-assembly language experiment operations, debugging correct grammar analysis. Help the needy friends detours!
- 2022-06-28 13:24:09下载
- 积分:1
-
Thiller
辕马-Thiller
- 2022-01-21 05:31:58下载
- 积分:1
-
获取CPU频率和名字
获取CPU频率和名字-access to the CPU frequency and name
- 2022-02-05 21:06:47下载
- 积分:1
-
0到99秒的计时,误差极小,不同一般的DELAY哦.
0到99秒的计时,误差极小,不同一般的DELAY哦.-0-99 seconds of the time, the error is very small and different from other DELAY oh.
- 2022-08-25 15:19:00下载
- 积分:1
-
C51 Collection procedures, source code, including 16 M
c51程序集锦,源程序,包含16进制-10进制互换程序.c
24c01-24c16读写驱动程序.c
51单片机实用程序库.txt
.......
等-C51 Collection procedures, source code, including 16 M-10 M swap procedures. c24c01-24c16 driver to read and write. c51 Singlechip utility library. txt ....... etc.
- 2022-03-22 13:19:49下载
- 积分:1
-
With 51 drives LED, keyboard, stepper motors to control the rise and fall flag
用51驱动LED,键盘,步进电机,使其来控制旗子的升降-With 51 drives LED, keyboard, stepper motors to control the rise and fall flag
- 2023-05-12 11:10:03下载
- 积分:1