-
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
-
opfdsgfsdertg tuyhderfgsfsdafasd
opfdsgfsdertg tuyhderfgsfsdafasd
- 2022-05-21 07:19:08下载
- 积分:1
-
万年历程序
从1302中读出的数据放在67H(高两位年)66H(低两位年)65H(月)64H(星期)63H(日)
62H(小时)61H(分钟)60H(...
万年历程序
从1302中读出的数据放在67H(高两位年)66H(低两位年)65H(月)64H(星期)63H(日)
62H(小时)61H(分钟)60H(秒)57H(农历月)56H(农历日)
显示缓冲单元7CH-7BH(4CH-4BH)(年低位),7AH-79H(4AH-49H)月,78H(48H)星期,
77H-76H(47H-46H)日,75H-74H(45H-44H)小时,73H-72H(43H-42H)分钟,71H-70H(41H-40H)秒 5EH-5DH(55H-54H)农历年,5CH-5BH(53H-52H)农历月,5AH-59H(51H-50H)农历日
闰月标志为F0,定时器T1为调整时候闪烁用。
1302在设置调整时间后,要改为禁止写入状态,否则在上电复位的时候就发生误写入,使时间值加1分钟
次程序中的段码表只适用于该特殊的硬件,具体的段码表由具体的硬件决定
-Calendar program read from the 1302 data on the 67H (two-year high) 66H (two-year low) 65H (month) 64H (Week) 63H (date) 62H (hours) 61H (minutes) 60H (second) 57H (Lunar Month) 56H (Lunar date) shows a buffer unit 7CH-7BH (4CH-4BH) (year low), 7AH-79H (4AH-49H) month, 78H (48H) Week, 77H-76H (47H-46H) Day , 75H-74H (45H-44H) hours, 73H-72H (43H-42H) minutes, 71H-70H (41H-40H) second 5EH-5DH (55H-54H) Lunar New Year, 5CH-5BH (53H-52H) Lunar month, 5AH-59H (51H-50H) Lunar Leap Day logo for F0, adjust the timer T1 is used when flashing. 1302 adjust at set time, the status should be cha
- 2022-08-09 16:37:13下载
- 积分:1
-
汇编控制扬声器演奏音乐
汇编控制扬声器演奏音乐-Series loudspeakers playing music control
- 2023-01-05 03:45:03下载
- 积分:1
-
PC的地下
Pc Underground - Assembly Language - The True Language Of Programmers-Pc Underground- Assembly Language- The True Language Of Programmers
- 2022-09-10 15:55:11下载
- 积分:1
-
MCD1 real one, to light a LED and continuously put out 3 seconds after the real...
MCD1实战一,点亮一个LED并持续3秒后熄灭
该实战的目的作为学习和应用MCD1在线调试工具套件,进行项目的软件和硬件
联合调试的范例程序,也就是当做一个用户程序实例,而演示板暂时充当用户电
路的角色。这样就构成了一个软件、硬件齐全的自制项目模拟环境。
本程序实现的功能是,把端口RC的8条引脚全部设置为输出模式,并从RC0输出高电平
从而点亮RC0口的一个LED,持续3秒后LED熄灭.
该程序可用于PIC16F87X(A)所有系列-MCD1 real one, to light a LED and continuously put out 3 seconds after the real purpose for learning and application debugging MCD1 online suite of tools to carry out the project software and hardware examples of joint commissioning procedures, that is, as a user instance, and the demonstration user circuit board to serve as a temporary role. This constitutes a software, hardware, a full range of home-made simulation environment projects. Realize the function of this procedure is that the 8-port RC pin all set to output mode and high output from the RC0 so I RC0 a lit LED, continuous 3 seconds after the LED goes out. The program can be used to PIC16F87X ( A) All Series
- 2022-03-05 02:28:25下载
- 积分:1
-
DSP16 10进制转换的程序(111111111111)
dsp16到10进制转化的程序
(111111111111)-dsp16 to 10 hex conversion program (111111111111)
- 2022-03-19 09:07:14下载
- 积分:1
-
Intel instruction set compilation
Intel 汇编指令集-Intel instruction set compilation
- 2022-03-02 07:06:55下载
- 积分:1
-
用2051制的绕线机[5位数+可预置数+减速+可逆计数器
用2051制的绕线机[5位数+可预置数+减速+可逆计数器-By 2051 the system of winding machine [5 median+ Can preset number+ Deceleration+ CNTR
- 2022-07-26 18:12:41下载
- 积分:1
-
一个显示系统时间的程序!!因为用了BIOS中断~所以不能在win下使用哦...
一个显示系统时间的程序!!因为用了BIOS中断~所以不能在win下使用哦-time the procedure! ! Because of the disruption to the BIOS can not win in the use of oh
- 2022-03-03 23:26:26下载
- 积分:1