-
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
-
双字节转BCD码
双字节转BCD码-two-bit BCD switch
- 2022-02-12 20:56:10下载
- 积分:1
-
In the editing interface to create the necessary controls and Properties Lieuten...
在编辑界面创建所需的控件,并于Properties中将ID,Caption按表填好,给复选和编辑框控件连接变量,对消息处理函数加入指定代码。-In the editing interface to create the necessary controls and Properties Lieutenant ID, Caption completed table to check and edit the control box to connect variables, on the message processing function by adding the specified code.
- 2022-06-18 21:26:55下载
- 积分:1
-
红外遥控码形检测,通过串口发送数据到PC机
9600,n,8,1,每位+1表示14us...
红外遥控码形检测,通过串口发送数据到PC机
9600,n,8,1,每位+1表示14us-Infrared remote control code type detection, through the serial port to send data to the PC-9600, n, 8,1, each+1 that 14us
- 2022-03-14 23:39:24下载
- 积分:1
-
一个ADC0809的程序,很有用的,不放试一试
一个ADC0809的程序,很有用的,不放试一试-a ADC0809 procedures useful, link test
- 2022-02-13 21:16:13下载
- 积分:1
-
LCD 240* 128 T6963C C51 (1: the main program)
LCD 240*128 T6963C C51程序(1:主程序)-LCD 240* 128 T6963C C51 (1: the main program)
- 2023-02-06 00:30:04下载
- 积分:1
-
- 2022-02-14 05:30:25下载
- 积分:1
-
串口键盘的程序
串口键盘的程序 -serial keyboard procedures
- 2023-01-14 02:55:04下载
- 积分:1
-
写汇编代码实现一个圆形的先入先出(FIFO)缓冲器…
To write assembly code to implement a circular First In First Out (FIFO) buffer in the data memory of PIC18F452 microcontroller, using the microcontroller’s direct addressing mode and indirect addressing mode.
This code serves as an assembly program template. For detailed information, refer to the PIC18F452 datasheet, MPLAB IDE user guide, as well as MPASM user guide on the course web page.
- 2023-03-23 22:05:04下载
- 积分:1
-
这是一个无线遥控发射芯片的解码源程序,希望大家借鉴使用...
这是一个无线遥控发射芯片的解码源程序,希望大家借鉴使用-This is a wireless remote control to launch source decoder chips, I hope everyone from the use of
- 2022-05-14 15:49:30下载
- 积分:1