-
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
-
内置T6963C控制器的LCD实用显示子程序
内置T6963C控制器的LCD实用显示子程序-built T6963C LCD display subroutine practical
- 2023-06-08 14:35:03下载
- 积分：1
-
用传输矩阵法计算光子晶体的透射率随入射光入射角的变化的程序,程序由matlab所编,文件解压后能看到程序写在word文档中,并附带图,感觉很有用...
用传输矩阵法计算光子晶体的透射率随入射光入射角的变化的程序,程序由matlab所编,文件解压后能看到程序写在word文档中,并附带图,感觉很有用-use of the transfer matrix method photonic crystals transmission rate versus incidence angle changes in the procedures, procedures as in Matlab, documents unpacked to see the word written procedures for documentation and ancillary map feeling useful
- 2022-03-15 22:07:59下载
- 积分：1
-
这是读写AT24C02串行E2PROM读写这是24…
这是AT24C02串行E2PROM的读写 -This is the read and write AT24C02 serial E2PROM This is the read and write AT24C02 Serial E2PROM
- 2022-03-02 21:06:24下载
- 积分：1
-
usinf pic16c57 to achive copy machine for pic16c65/66(programmer)
usinf pic16c57 to achive copy machine for pic16c65/66(programmer)-usinf pic16c57 to achive copy machine for p ic16c65/66 (programmer)
- 2022-11-13 03:20:03下载
- 积分：1
-
中断列表(4) 712K
中断列表(4) 712K-suspended list (4) 712K
- 2023-01-13 03:20:03下载
- 积分：1
-
IPOD wire Procedure (IPOD AND IPHONE information read out of the songs displayed...
IPOD 线控程序(将IPOD AND IPHONE 的歌曲信息读出来显示的LCD 屏幕上) 适应于 所有的 苹果 MP3 和手机的机型-IPOD wire Procedure (IPOD AND IPHONE information read out of the songs displayed on the LCD screen) to adapt to all Apple MP3 and mobile phone models
- 2022-07-26 14:13:33下载
- 积分：1
-
430产生38kzh波形，430产生38kzh波形
430产生38kzh波形，430产生38kzh波形-430 have 38kzh waveform 430 generated waveform 38kzh
- 2022-12-16 09:45:03下载
- 积分：1
-
ADuc812的各种功能程序的例子!很有参考价值
ADuc812的各种功能程序的例子!很有参考价值
- 2022-03-12 20:21:03下载
- 积分：1
-
单
单片机液晶显示，可以作为参考源程序，希望有用-Single-chip liquid crystal display can be used as a reference source, I hope useful
- 2022-08-07 09:21:04下载
- 积分：1
