891
社区成员
PB代码,请大虾帮忙翻译成VB的,重分酬谢!!
$PBExportHeader$nv_compression_untitle.sru
$PBExportComments$Compression NVO(无头信息)
forward
global type nv_compression_untitle from nonvisualobject
end type
end forward
global type nv_compression_untitle from nonvisualobject
end type
global nv_compression_untitle nv_compression_untitle
type prototypes
/* Win32 declarations */
function integer compress (ref blob dest, ref long DestLen, ref blob src, long srcLen) library "zlib.dll"
function integer uncompress (ref blob dest, ref long DestLen, ref blob src, long srcLen) library "zlib.dll"
/* Win16 declarations */
function integer compress16 (ref blob dest, ref long DestLen, ref blob src, long srcLen) alias for compress library "zlib16.dll"
function integer uncompress16(ref blob dest, ref long DestLen, ref blob src, long srcLen) alias for uncompress library "zlib16.dll"
end prototypes
type variables
boolean ib_Win32
end variables
forward prototypes
public function integer of_selectfile (ref string as_filename)
public function integer of_getfilename (string as_filename, ref string as_file, ref string as_dir)
public function string of_getfilename (string as_filename)
public function integer of_readfile (string as_filename, ref blob abl_data)
public function integer of_uncompressfile (string as_filename)
public function integer of_compressfile (string as_filename)
public function long of_writefile (string as_filename, ref blob abl_data)
public function integer of_uncompress (ref string as_indicator, ref blob abl_data, ref blob abl_res)
public function integer of_alloc (long al_len, ref blob abl_data)
public function integer of_compress (string as_indicator, ref blob abl_data, ref blob abl_res)
end prototypes
public function integer of_selectfile (ref string as_filename);/*
returns : integer (1=ok,-1=error)
arg1 : string as_FileName (FileName of he selected file)
This function selects a filename.
string ls_docname, ls_named
integer li_Value
/* get a filename with the standard dialog box */
li_value = GetFileOpenName("Select File", &
+ ls_docname, ls_named )
if li_Value <= 0 then return -1
/* return the selected filename */
as_filename = ls_named
return 1
end function
$PBExportComments$Compression NVO(无头信息)
forward
global type nv_compression_untitle from nonvisualobject
end type
end forward
global type nv_compression_untitle from nonvisualobject
end type
global nv_compression_untitle nv_compression_untitle
type prototypes
/* Win32 declarations */
function integer compress (ref blob dest, ref long DestLen, ref blob src, long srcLen) library "zlib.dll"
function integer uncompress (ref blob dest, ref long DestLen, ref blob src, long srcLen) library "zlib.dll"
/* Win16 declarations */
function integer compress16 (ref blob dest, ref long DestLen, ref blob src, long srcLen) alias for compress library "zlib16.dll"
function integer uncompress16(ref blob dest, ref long DestLen, ref blob src, long srcLen) alias for uncompress library "zlib16.dll"
end prototypes
type variables
boolean ib_Win32
end variables
forward prototypes
public function integer of_selectfile (ref string as_filename)
public function integer of_getfilename (string as_filename, ref string as_file, ref string as_dir)
public function string of_getfilename (string as_filename)
public function integer of_readfile (string as_filename, ref blob abl_data)
public function integer of_uncompressfile (string as_filename)
public function integer of_compressfile (string as_filename)
public function long of_writefile (string as_filename, ref blob abl_data)
public function integer of_uncompress (ref string as_indicator, ref blob abl_data, ref blob abl_res)
public function integer of_alloc (long al_len, ref blob abl_data)
public function integer of_compress (string as_indicator, ref blob abl_data, ref blob abl_res)
end prototypes
public function integer of_selectfile (ref string as_filename);/*
returns : integer (1=ok,-1=error)
arg1 : string as_FileName (FileName of he selected file)
This function selects a filename.
string ls_docname, ls_named
integer li_Value
/* get a filename with the standard dialog box */
li_value = GetFileOpenName("Select File", &
+ ls_docname, ls_named )
if li_Value <= 0 then return -1
/* return the selected filename */
as_filename = ls_named
return 1
end function
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
woods 2006-10-09
好麻烦！哈哈
xiaowen01 2006-10-09
主要是上方这几句
xiaowen01 2006-10-09
of_alloc(4,abl_res)
blobedit(abl_res,1,ll_Srclen)
lbl_temp = blobmid(lbl_Temp,1,ll_DestLen)
abl_res = lbl_temp + abl_res
blobedit(abl_res,1,ll_Srclen)
lbl_temp = blobmid(lbl_Temp,1,ll_DestLen)
abl_res = lbl_temp + abl_res
xiaowen01 2006-10-09
接上:
public function integer of_getfilename (string as_filename, ref string as_file, ref string as_dir);String ls_filename
Long ll_pos,ll_pos_act
ls_filename = as_filename
If Pos(ls_filename,'\') <= 0 Then Return -1
DO
ll_pos_act = ll_pos
ll_pos = Pos(ls_filename,'\',ll_pos + 1)
LOOP WHILE ll_pos > 0
as_file = Right(ls_filename,Len(ls_filename) - ll_pos_act)
as_dir = Left(ls_filename,ll_pos_act)
end function
public function string of_getfilename (string as_filename);Long ll_pos
ll_pos = Pos(as_filename,'.')
If ll_pos > 0 Then Return Left(as_filename,ll_pos - 1) Else Return as_filename
end function
public function integer of_readfile (string as_filename, ref blob abl_data);/*
SetPointer(HourGlass!)
blob lbl_temp
long ll_file
/* open the file */
ll_file = fileopen(as_filename,streammode!)
if ll_File <= 0 then
messagebox('Error reading file',as_filename)
return -1
end if
/* read the whole file */
do while fileread(ll_file,lbl_temp) > 0
abl_data += lbl_temp
loop
fileclose(ll_file)
/* return the binair data */
return 1
end function
public function integer of_uncompressfile (string as_filename);blob lbl_org
blob lbl_dest
if of_Readfile(as_Filename,lbl_org) < 0 then return -1
/* uncompress it */
if of_unCompress(as_FileName,lbl_Org,lbl_Dest) < 0 then return -1
/* write it */
if of_WriteFile(as_FileName,lbl_dest) < 0 then return -1
return 1
end function
public function integer of_compressfile (string as_filename);/*
string ls_filename
blob lbl_org
blob lbl_dest
/* read file */
if of_Readfile(as_Filename,lbl_org) < 0 then return -1
/* compress file */
if of_Compress(as_FileName,lbl_Org,lbl_Dest) < 0 then return -1
/* write compressed file */
if of_WriteFile( mid(as_FileName, 1, len(as_filename) - 3 ) + 'zli',lbl_dest) < 0 then return -1
return 1
end function
public function long of_writefile (string as_filename, ref blob abl_data);/*
Function : nv_Compression::of_writefile
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (-1=error, >=0 number of bytes written)
arg1 : string as_FileName (Filename of the file to write)
arg2 : ref blob abl_data (source data)
This function writes the contents of the abl_data blob to disk
with the specified filename.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
long ll_file
long ll_written
long ll_tot
long ll_writ
/* Open or create the file in replace mode */
ll_file = fileopen(as_filename,streammode!,write!,lockwrite!,replace!)
if ll_File <= 0 then
messagebox('Error writing file',as_filename)
return -1
end if
/* write the contents to that file */
ll_tot = len(abl_data)
do while true
ll_writ = filewrite(ll_file,blobmid(abl_data,ll_written+1) )
if ll_writ = 0 then exit
ll_written += ll_writ
if ll_Written >= ll_tot then exit
loop
/* don't forget to close the file */
fileclose(ll_file)
/* return the number of bytes written */
return ll_written
end function
public function integer of_uncompress (ref string as_indicator, ref blob abl_data, ref blob abl_res);/*
Function : nv_Compression::of_uncompress
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (1=ok,-1=error)
arg1 : ref string as_Indicator (indicator to indicate the data)
arg2 : ref blob abl_data (source data)
arg3 : ref blob abl_res (compressed destination data)
This function uncompresses the blob abl_data and returns the uncompressed
blob and the indicator through the arguments by reference.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
/* the function uncompresses the compressed data */
blob lbl_result
integer li_Ret
blob lbl_Src
long ll_SrcLen
long ll_DestLen
/* 16bit variables */
blob lbl_temp
blob lbl_data[]
long ll_begin[]
long ll_end[]
long ll_len[]
long ll_SegMents
long ll_SegMent
/* in 32bit mode, we presume we have 1 chunk only */
if ib_Win32 then
ll_srcLen = FileLength(as_indicator)
ll_destlen = long(blobmid(abl_data,len(abl_data) - 3,4))
as_indicator = of_getfilename(as_indicator) + ".txt"
/* allocate memory for the uncompress proces */
of_Alloc(ll_DestLen,abl_res)
// lbl_Src = blobmid(abl_data,256 + 13)
lbl_Src = blobmid(abl_data,1)
ll_Srclen = len(lbl_Src)
//
/* uncompress the comporessed chunk */
li_Ret = uncompress(abl_res,ll_DestLen,lbl_Src,ll_Srclen)
if li_Ret <> 0 then
messagebox('Error Uncompresssing',li_Ret)
return -1
end if
/* return the uncompressed data */
return 1
end if
end function
public function integer of_alloc (long al_len, ref blob abl_data);/*
Function : nv_Compression::of_Alloc
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (1=ok, -1=error)
arg1 : long al_len (number of bytes to allocate)
arg2 : ref blob abl_data (blob to hold the data)
This function allocates the specified amount of memory and
stores the allocation in a blob variable which is passed
by reference.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
/* in 32bit mode, we can allocate in one go */
if ib_Win32 then
abl_data = blob(space(al_len))
return 1
else
/* in 16bit mode, we allocate in chunks of 64K if size is bigger than 60000 bytes */
if al_len > 60000 then
blob{65535} lbl_Chunk
do while true
abl_data += lbl_Chunk
if len(abl_data) >= al_len then exit
loop
abl_data = blobmid(abl_data,1,al_len)
return 1
else
abl_data = blob(space(al_len))
return 1
end if
end if
return 0
end function
public function integer of_compress (string as_indicator, ref blob abl_data, ref blob abl_res);/*
Function : nv_Compression::of_compress
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (1=ok,-1=error)
arg1 : string as_Indicator (indicator to indicate the data)
arg2 : ref blob abl_data (source data)
arg3 : ref blob abl_res (compressed destination data)
This function compresses the blob abl_data and returns the compressed blob with the indicator.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
/* 32bit variables */
long ll_OrigLen
blob lbl_Temp
long ll_DestLen
long ll_SrcLen
integer li_ret
blob lbl_Src
/* 16bit variables */
blob lbl_Temp16[]
long ll_Segments
long ll_Segment
long ll_begin
long ll_DestLen16[]
long ll_Chunk = 60000
/* in 32bit mode, we can compress in 1 chunk */
if ib_Win32 then
ll_OrigLen = len(abl_data)
ll_Srclen = ll_OrigLen
ll_DestLen = ll_SrcLen + (ll_SrcLen*0.01) + 12
/* Allocate memory for the compress process */
of_alloc(ll_DestLen,lbl_Temp)
li_Ret = compress( lbl_Temp, ll_DestLen, abl_Data, ll_srcLen)
if li_ret <> 0 then
messagebox('Error compressing', li_ret)
return -1
end if
/* Allocate memory for the 'prefix'*/
of_alloc(4,abl_res)
blobedit(abl_res,1,ll_Srclen)
lbl_temp = blobmid(lbl_Temp,1,ll_DestLen)
abl_res = lbl_temp + abl_res
return 1
end if
end function
on nv_compression_untitle.create
call super::create
TriggerEvent( this, "constructor" )
end on
on nv_compression_untitle.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
event constructor;environment lenv_Env
GetEnvironment(lenv_Env)
ib_Win32 = not lenv_Env.win16
return 0
end event
public function integer of_getfilename (string as_filename, ref string as_file, ref string as_dir);String ls_filename
Long ll_pos,ll_pos_act
ls_filename = as_filename
If Pos(ls_filename,'\') <= 0 Then Return -1
DO
ll_pos_act = ll_pos
ll_pos = Pos(ls_filename,'\',ll_pos + 1)
LOOP WHILE ll_pos > 0
as_file = Right(ls_filename,Len(ls_filename) - ll_pos_act)
as_dir = Left(ls_filename,ll_pos_act)
end function
public function string of_getfilename (string as_filename);Long ll_pos
ll_pos = Pos(as_filename,'.')
If ll_pos > 0 Then Return Left(as_filename,ll_pos - 1) Else Return as_filename
end function
public function integer of_readfile (string as_filename, ref blob abl_data);/*
SetPointer(HourGlass!)
blob lbl_temp
long ll_file
/* open the file */
ll_file = fileopen(as_filename,streammode!)
if ll_File <= 0 then
messagebox('Error reading file',as_filename)
return -1
end if
/* read the whole file */
do while fileread(ll_file,lbl_temp) > 0
abl_data += lbl_temp
loop
fileclose(ll_file)
/* return the binair data */
return 1
end function
public function integer of_uncompressfile (string as_filename);blob lbl_org
blob lbl_dest
if of_Readfile(as_Filename,lbl_org) < 0 then return -1
/* uncompress it */
if of_unCompress(as_FileName,lbl_Org,lbl_Dest) < 0 then return -1
/* write it */
if of_WriteFile(as_FileName,lbl_dest) < 0 then return -1
return 1
end function
public function integer of_compressfile (string as_filename);/*
string ls_filename
blob lbl_org
blob lbl_dest
/* read file */
if of_Readfile(as_Filename,lbl_org) < 0 then return -1
/* compress file */
if of_Compress(as_FileName,lbl_Org,lbl_Dest) < 0 then return -1
/* write compressed file */
if of_WriteFile( mid(as_FileName, 1, len(as_filename) - 3 ) + 'zli',lbl_dest) < 0 then return -1
return 1
end function
public function long of_writefile (string as_filename, ref blob abl_data);/*
Function : nv_Compression::of_writefile
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (-1=error, >=0 number of bytes written)
arg1 : string as_FileName (Filename of the file to write)
arg2 : ref blob abl_data (source data)
This function writes the contents of the abl_data blob to disk
with the specified filename.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
long ll_file
long ll_written
long ll_tot
long ll_writ
/* Open or create the file in replace mode */
ll_file = fileopen(as_filename,streammode!,write!,lockwrite!,replace!)
if ll_File <= 0 then
messagebox('Error writing file',as_filename)
return -1
end if
/* write the contents to that file */
ll_tot = len(abl_data)
do while true
ll_writ = filewrite(ll_file,blobmid(abl_data,ll_written+1) )
if ll_writ = 0 then exit
ll_written += ll_writ
if ll_Written >= ll_tot then exit
loop
/* don't forget to close the file */
fileclose(ll_file)
/* return the number of bytes written */
return ll_written
end function
public function integer of_uncompress (ref string as_indicator, ref blob abl_data, ref blob abl_res);/*
Function : nv_Compression::of_uncompress
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (1=ok,-1=error)
arg1 : ref string as_Indicator (indicator to indicate the data)
arg2 : ref blob abl_data (source data)
arg3 : ref blob abl_res (compressed destination data)
This function uncompresses the blob abl_data and returns the uncompressed
blob and the indicator through the arguments by reference.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
/* the function uncompresses the compressed data */
blob lbl_result
integer li_Ret
blob lbl_Src
long ll_SrcLen
long ll_DestLen
/* 16bit variables */
blob lbl_temp
blob lbl_data[]
long ll_begin[]
long ll_end[]
long ll_len[]
long ll_SegMents
long ll_SegMent
/* in 32bit mode, we presume we have 1 chunk only */
if ib_Win32 then
ll_srcLen = FileLength(as_indicator)
ll_destlen = long(blobmid(abl_data,len(abl_data) - 3,4))
as_indicator = of_getfilename(as_indicator) + ".txt"
/* allocate memory for the uncompress proces */
of_Alloc(ll_DestLen,abl_res)
// lbl_Src = blobmid(abl_data,256 + 13)
lbl_Src = blobmid(abl_data,1)
ll_Srclen = len(lbl_Src)
//
/* uncompress the comporessed chunk */
li_Ret = uncompress(abl_res,ll_DestLen,lbl_Src,ll_Srclen)
if li_Ret <> 0 then
messagebox('Error Uncompresssing',li_Ret)
return -1
end if
/* return the uncompressed data */
return 1
end if
end function
public function integer of_alloc (long al_len, ref blob abl_data);/*
Function : nv_Compression::of_Alloc
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (1=ok, -1=error)
arg1 : long al_len (number of bytes to allocate)
arg2 : ref blob abl_data (blob to hold the data)
This function allocates the specified amount of memory and
stores the allocation in a blob variable which is passed
by reference.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
/* in 32bit mode, we can allocate in one go */
if ib_Win32 then
abl_data = blob(space(al_len))
return 1
else
/* in 16bit mode, we allocate in chunks of 64K if size is bigger than 60000 bytes */
if al_len > 60000 then
blob{65535} lbl_Chunk
do while true
abl_data += lbl_Chunk
if len(abl_data) >= al_len then exit
loop
abl_data = blobmid(abl_data,1,al_len)
return 1
else
abl_data = blob(space(al_len))
return 1
end if
end if
return 0
end function
public function integer of_compress (string as_indicator, ref blob abl_data, ref blob abl_res);/*
Function : nv_Compression::of_compress
Author : Eric-Jan Aling, Cypres Informatisering bv
Date : 21-09-1998
returns : integer (1=ok,-1=error)
arg1 : string as_Indicator (indicator to indicate the data)
arg2 : ref blob abl_data (source data)
arg3 : ref blob abl_res (compressed destination data)
This function compresses the blob abl_data and returns the compressed blob with the indicator.
Revision record
Date Author Modification
------ ---------- ------------------
21-09-98 EALI1 Initial revision
*/
SetPointer(HourGlass!)
/* 32bit variables */
long ll_OrigLen
blob lbl_Temp
long ll_DestLen
long ll_SrcLen
integer li_ret
blob lbl_Src
/* 16bit variables */
blob lbl_Temp16[]
long ll_Segments
long ll_Segment
long ll_begin
long ll_DestLen16[]
long ll_Chunk = 60000
/* in 32bit mode, we can compress in 1 chunk */
if ib_Win32 then
ll_OrigLen = len(abl_data)
ll_Srclen = ll_OrigLen
ll_DestLen = ll_SrcLen + (ll_SrcLen*0.01) + 12
/* Allocate memory for the compress process */
of_alloc(ll_DestLen,lbl_Temp)
li_Ret = compress( lbl_Temp, ll_DestLen, abl_Data, ll_srcLen)
if li_ret <> 0 then
messagebox('Error compressing', li_ret)
return -1
end if
/* Allocate memory for the 'prefix'*/
of_alloc(4,abl_res)
blobedit(abl_res,1,ll_Srclen)
lbl_temp = blobmid(lbl_Temp,1,ll_DestLen)
abl_res = lbl_temp + abl_res
return 1
end if
end function
on nv_compression_untitle.create
call super::create
TriggerEvent( this, "constructor" )
end on
on nv_compression_untitle.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on
event constructor;environment lenv_Env
GetEnvironment(lenv_Env)
ib_Win32 = not lenv_Env.win16
return 0
end event
JAVA上百实例源码以及开源项目 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java文件传输实例不可错过，Java网络编程技能的提升很有帮助。 Java聊天程序，包括服务端和...
matlab模糊控制工具箱使用和模糊控制pid实例参考 ∆ki EC NB NM NS ZO PS PM PB E NB NB NB NM NM NS ZO ZO NM NB NB NM NS NS ZO ZO NS NB NM NS NS ZO PS PS ZO NM NM NS ZO PS PM PM PS NM NS ZO PS PS PM PB PM ZO ZO PS PS PM PB PB PB ZO ZO PS PM PM PB PB ...
MATLAB 粒子群算法，例题与常用模版 补入门知识：把手动实现PSO的代码保存为PSO.m，把function F=fitness(x)和后面4行代码保存为fitness.m。 然后再在命令行输入内容。 9. 自适应权重法 function[xm,fv] = PSO_adaptation(fitness,N,c1,c2,wmax,wmin,M...
Proteus常用元件对照表 SW-PB 按钮 THERMISTOR 电热调节器 TRANS1 变压器 TRANS2 可调变压器 TRIAC 三端双向可控硅 TRIODE 三极真空管 VARISTOR 变阻器 ZENER 齐纳二极管 当然了，熟记上面的内容并不能保证你能熟练找到需要的器件...
stm32学习（二）STM32F103ZET6内部资源讲解 当你想使用某个 IO 口用作其他用处的时候，请先看看开发板的原理图，该 IO 口是否有连接在开发板的某个外设上，如果有，该外设的这个信号是否会对你的使用造成干扰，先确定无干扰，再使用这个 IO。比如 PB8 就不...
RC522（RFID模块）实践总结 驱动代码； 出现问题及解决方法； 1.RC522模块和M1卡要点介绍： MFRC522简化功能框图； MFRC522与主机SPI通讯引脚配置； MFRC522与M1卡的通讯原理； M1卡存储结构与指令； MFRC522简化功能框图...
STM32学习笔记（1）——STM32基础知识 昨天调录入系统的stm32程序的时候遇到了一个问题，stm32的GPIO总有三个端口不能工作，查询之后发现是PB3 PB4 PA15 ，查看端口功能发现是JTAG的下载端口，又查资料发现这个端口在初始化端口时钟后默认是作为下载...
基于Python的人脸识别考勤系统 基于Python的人脸识别考勤系统 Python源文件： 基于Python3.7编程环境开发 需要安装 tkinter pil face_recognition ...源代码链接： 链接: https://pan.baidu.com/s/16uyAqdUbCNbBwR45q1Zoag 提取码: pb4c
数据结构—— 一元多项式的运算（相加，相减，相乘）【C语言实现】 Link AddPolyn(Link pa, Link pb)//pa,pb均指向头结点 //两个多项式相加得一个新多项式，并且返回新多项式的头结点的指针 { Link newp, p, q, s, pc; float sum; p = pa->next; q = pb->next; newp=...
STM32—驱动HC-SR04超声波测距模块 SysTick_Config函数源代码如下： static __INLINE uint32_t SysTick_Config(uint32_t ticks) { /* 判断ticks 是否超出装填值和重装值的最大值 */ if (ticks > SysTick_LOAD_RELOAD_Msk) return (1); /* 配置 装载...
RC522应用总结 公司需要做刷卡模块，因此选了RC522做demo程序。下面就RC522知识做简要的总结。 本人使用stm32的硬件spi接口搭建工程，相关的配置如下： spi配置： 引脚配置 SDA -------PA4 ...//PB12--NSS PB13--SCK PB14--...
java编程实现将两个有序单链表LA，LB合并成新的LA 问题分析：本题要求利用原有的单链表... 插入过程中引入3个指针pa，pb，pc，其中pa，pb分别指向LA，LB中当前待比较的结点，pc指向新链表的当前最后一个结点。pa，pb初始值指向LA，LB的首结点，pc初始值指向LA头结点...
DHT11温湿度采集数据代码解析 /**********改变data引脚定义即可，例如我这里引脚为PB5*******************/ #define GPIO_PORT_THTB GPIOB #define RCC_THTB_PORT RCC_APB2Periph_GPIOB #define THTB_DATA_PIN GPIO_Pin_5 #define THTB_DATA...
verilog 入门教程 请注意连续赋值语句是如何对电路的数据流行为建模的；这种建模方式是隐式而非显式的建模方式。此外,连续赋值语句是并发执行的，也就是说各语句的执行顺序与其在描述中出现的顺序无关。 图2-3 连续赋值...
单链表的创建算法 单链表有带头结点和不带头结点之分。 上图为没有头结点的单链表，下图为带有头结点的单链表： 1.单链表的初始化，即建立一个空链表。 //不带头结点的单链表的初始化 void LinkedListInit...
数据结构—— 一元多项式的表示及相加（C语言单链表实现） 代码比较简单，没有完全按照严蔚敏版《数据结构（C语言版）》上39页到43页上的要求，只是实现了简单功能，且此代码输入多项式时只能按升幂的顺序输入（因为没有写多项式排序的函数） 个人感觉此代码短小精悍，且易...
