通用串口通信操作模块分享

whilacier

分享若干年前做的一个串口操作软件源码，从远软件中提取出来这个串口操作的基本模块。
该软件基于PCOMM.DLL进行封装。
本来还有个线程的读写，但是现在懒得修改这部分，所以就没有把线程部分放进去（因为还需要改动一下），所以使用的同学请自行进行上层的封装吧。
这个模块只是实现了对串口的读写操作，数据以字节数组的形式进行传递和返回。

  

窗口程序集名	保 留	保 留	备 注
CommUtil, , 公开, 基于PCComm DLL的串口操作类
变量名	类 型	数组	备 注
port	整数型		端口
baud	整数型		波特率
parity	文本型		校验 n e o s m
databit	整数型		数据位默认8
stopbit	整数型		停止位默认1
pccomm_baud	整数型		传递给PCComm中的参数2
pccomm_mod	整数型		传递给PCComm中的参数3

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

sio_close (port)

子程序名	返回值类型	公开	备 注
初始化	整数型
参数名	类 型	参考	可空	数组	备 注
port1	整数型
baud1	整数型
parity1	文本型
databit1	整数型
stopbit1	整数型

port ＝ port1
baud ＝ baud1
parity ＝ parity1
databit ＝ databit1
stopbit ＝ stopbit1
判断 (baud ＝ 9600)
pccomm_baud ＝ 12
判断 (baud ＝ 2400)
pccomm_baud ＝ 9
判断 (baud ＝ 4800)
pccomm_baud ＝ 10
判断 (baud ＝ 7200)
pccomm_baud ＝ 11
判断 (baud ＝ 19200)
pccomm_baud ＝ 13
判断 (baud ＝ 38400)
pccomm_baud ＝ 14
pccomm_baud ＝ 12

pccomm_mod ＝ 计算pccommmod值 (databit, stopbit, parity)
返回 (sio_ioctl (port, pccomm_baud, pccomm_mod))

子程序名	返回值类型	公开	备 注
应用新串口参数	整数型
参数名	类 型	参考	可空	数组	备 注
pccomm_baud1	整数型
pccomm_mod1	整数型

返回 (sio_ioctl (port, pccomm_baud1, pccomm_mod1))

子程序名	返回值类型	公开	备 注
计算pccommmod值	整数型
参数名	类 型	参考	可空	数组	备 注
pdatabit	整数型
pstopbit	整数型
pparity	文本型

变量名	类 型	静态	数组	备 注
databittmp	整数型
stopbittmp	整数型
paritytmp	整数型

判断 (pdatabit ＝ 5)
databittmp ＝ 0
判断 (pdatabit ＝ 6)
databittmp ＝ 1
判断 (pdatabit ＝ 7)
databittmp ＝ 2
判断 (pdatabit ＝ 8)
databittmp ＝ 3
databittmp ＝ 3

判断 (pstopbit ＝ 1)
stopbittmp ＝ 0
判断 (pstopbit ＝ 2)
stopbittmp ＝ 4
stopbittmp ＝ 0

判断 (pparity ＝ “n”)
paritytmp ＝ 0
判断 (pparity ＝ “e”)
paritytmp ＝ 24
判断 (pparity ＝ “o”)
paritytmp ＝ 8
判断 (pparity ＝ “m”)
paritytmp ＝ 40
判断 (pparity ＝ “s”)
paritytmp ＝ 56
paritytmp ＝ 0
返回 (位或 (paritytmp, databittmp, stopbittmp))

子程序名	返回值类型	公开	备 注
打开串口	整数型		非0：失败 0：成功

返回 (sio_open (port))

子程序名	返回值类型	公开	备 注
关闭串口	整数型		非0：失败 0：成功

返回 (sio_close (port))

子程序名	返回值类型	公开	备 注
写串口	整数型		0:失败 1:成功 2:超时
参数名	类 型	参考	可空	数组	备 注
buf	字节型				要写入串口的字节数组
rtnlen	整数型				要接收的字节数
timeout	整数型				超时时间单位毫秒
recvbuf	字节型				需接收的字节数组
whenrecv	文本型				接收到返回字节时的时间

变量名	类 型	静态	数组	备 注
loopcnt	整数型
inbuflen	整数型			接收缓冲区中的字节数
rtn	整数型			函数返回值

sio_open (port)
' 写串口数据
应用新串口参数 (pccomm_baud, pccomm_mod)
sio_putb_x_ex (port, buf, 取数组下标 (buf, ), 0)
rtn ＝ 1
' 收串口数据
loopcnt ＝ 1
如果真 (rtnlen ＞ 0)
重定义数组 (recvbuf, 假, rtnlen)
判断循环首 (loopcnt ＞ 0)
延时 (1)
inbuflen ＝ sio_iqueue (port)
如果真 (inbuflen ＞ 0)
whenrecv ＝ 取毫秒级时间文本 ()
如果真 (inbuflen ≥ rtnlen)
' 收到了需要返回的字节数了
sio_read (port, recvbuf, rtnlen)
rtn ＝ 1
跳出循环 ()

loopcnt ＝ loopcnt ＋ 1
如果真 (loopcnt × 1 ＞ timeout)  ' 超时
rtn ＝ 2
跳出循环 ()

判断循环尾 ()

返回 (rtn)

子程序名	返回值类型	公开	备 注
读串口	整数型
参数名	类 型	参考	可空	数组	备 注
recvbuf	字节型				返回字节数组

变量名	类 型	静态	数组	备 注
buflen	整数型

buflen ＝ sio_iqueue (port)
如果 (buflen ＞ 0)
' 有数据
重定义数组 (recvbuf, 假, buflen)
sio_read (port, recvbuf, buflen)
返回 (buflen)
返回 (0)

子程序名	返回值类型	公开	备 注
取毫秒级时间文本	文本型

变量名	类 型	静态	数组	备 注
时间b	系统时间_

GetLocalTime (时间b)
返回 (到文本 (时间b.年) ＋ “-” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.月), 2) ＋ “-” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.日), 2) ＋ “ ” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.小时), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.分), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.秒), 2) ＋ “:” ＋ 取文本右边 (“00” ＋ 到文本 (时间b.毫秒), 3))

.版本 2<br /> <br /> .程序集 CommUtil, , 公开, 基于PCComm DLL的串口操作类<br /> .程序集变量 port, 整数型, , , 端口<br /> .程序集变量 baud, 整数型, , , 波特率<br /> .程序集变量 parity, 文本型, , , 校验 n e o s m<br /> .程序集变量 databit, 整数型, , , 数据位默认8<br /> .程序集变量 stopbit, 整数型, , , 停止位默认1<br /> .程序集变量 pccomm_baud, 整数型, , , 传递给PCComm中的参数2<br /> .程序集变量 pccomm_mod, 整数型, , , 传递给PCComm中的参数3<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> sio_close (port)<br /> <br /> <br /> .子程序 初始化, 整数型, 公开<br /> .参数 port1, 整数型<br /> .参数 baud1, 整数型<br /> .参数 parity1, 文本型<br /> .参数 databit1, 整数型<br /> .参数 stopbit1, 整数型<br /> <br /> port ＝ port1<br /> baud ＝ baud1<br /> parity ＝ parity1<br /> databit ＝ databit1<br /> stopbit ＝ stopbit1<br /> <br /> .判断开始 (baud ＝ 9600)<br />     pccomm_baud ＝ 12<br /> .判断 (baud ＝ 2400)<br />     pccomm_baud ＝ 9<br /> .判断 (baud ＝ 4800)<br />     pccomm_baud ＝ 10<br /> .判断 (baud ＝ 7200)<br />     pccomm_baud ＝ 11<br /> .判断 (baud ＝ 19200)<br />     pccomm_baud ＝ 13<br /> .判断 (baud ＝ 38400)<br />     pccomm_baud ＝ 14<br /> .默认<br />     pccomm_baud ＝ 12<br /> .判断结束<br /> <br /> pccomm_mod ＝ 计算pccommmod值 (databit, stopbit, parity)<br /> 返回 (sio_ioctl (port, pccomm_baud, pccomm_mod))<br /> <br /> <br /> .子程序 应用新串口参数, 整数型, 公开<br /> .参数 pccomm_baud1, 整数型<br /> .参数 pccomm_mod1, 整数型<br /> <br /> 返回 (sio_ioctl (port, pccomm_baud1, pccomm_mod1))<br /> <br /> <br /> .子程序 计算pccommmod值, 整数型<br /> .参数 pdatabit, 整数型<br /> .参数 pstopbit, 整数型<br /> .参数 pparity, 文本型<br /> .局部变量 databittmp, 整数型<br /> .局部变量 stopbittmp, 整数型<br /> .局部变量 paritytmp, 整数型<br /> <br /> .判断开始 (pdatabit ＝ 5)<br />     databittmp ＝ 0<br /> .判断 (pdatabit ＝ 6)<br />     databittmp ＝ 1<br /> .判断 (pdatabit ＝ 7)<br />     databittmp ＝ 2<br /> .判断 (pdatabit ＝ 8)<br />     databittmp ＝ 3<br /> .默认<br />     databittmp ＝ 3<br /> .判断结束<br /> <br /> .判断开始 (pstopbit ＝ 1)<br />     stopbittmp ＝ 0<br /> .判断 (pstopbit ＝ 2)<br />     stopbittmp ＝ 4<br /> .默认<br />     stopbittmp ＝ 0<br /> .判断结束<br /> <br /> .判断开始 (pparity ＝ “n”)<br />     paritytmp ＝ 0<br /> .判断 (pparity ＝ “e”)<br />     paritytmp ＝ 24<br /> .判断 (pparity ＝ “o”)<br />     paritytmp ＝ 8<br /> .判断 (pparity ＝ “m”)<br />     paritytmp ＝ 40<br /> .判断 (pparity ＝ “s”)<br />     paritytmp ＝ 56<br /> .默认<br />     paritytmp ＝ 0<br /> .判断结束<br /> 返回 (位或 (paritytmp, databittmp, stopbittmp))<br /> <br /> <br /> .子程序 打开串口, 整数型, 公开, 非0：失败 0：成功<br /> <br /> 返回 (sio_open (port))<br /> <br /> <br /> .子程序 关闭串口, 整数型, 公开, 非0：失败 0：成功<br /> <br /> 返回 (sio_close (port))<br /> <br /> .子程序 写串口, 整数型, 公开, 0:失败 1:成功 2:超时<br /> .参数 buf, 字节型, 参考 数组, 要写入串口的字节数组<br /> .参数 rtnlen, 整数型, , 要接收的字节数<br /> .参数 timeout, 整数型, , 超时时间单位毫秒<br /> .参数 recvbuf, 字节型, 参考 数组, 需接收的字节数组<br /> .参数 whenrecv, 文本型, 参考, 接收到返回字节时的时间<br /> .局部变量 loopcnt, 整数型<br /> .局部变量 inbuflen, 整数型, , , 接收缓冲区中的字节数<br /> .局部变量 rtn, 整数型, , , 函数返回值<br /> <br /> sio_open (port)<br /> <br /> ' 写串口数据<br /> 应用新串口参数 (pccomm_baud, pccomm_mod)<br /> sio_putb_x_ex (port, buf, 取数组下标 (buf, ), 0)<br /> <br /> rtn ＝ 1<br /> <br /> ' 收串口数据<br /> loopcnt ＝ 1<br /> .如果真 (rtnlen ＞ 0)<br />     重定义数组 (recvbuf, 假, rtnlen)<br />     .判断循环首 (loopcnt ＞ 0)<br />         延时 (1)<br />         inbuflen ＝ sio_iqueue (port)<br />         .如果真 (inbuflen ＞ 0)<br />             whenrecv ＝ 取毫秒级时间文本 ()<br />         .如果真结束<br />         .如果真 (inbuflen ≥ rtnlen)<br />             ' 收到了需要返回的字节数了<br />             sio_read (port, recvbuf, rtnlen)<br />             rtn ＝ 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         loopcnt ＝ loopcnt ＋ 1<br /> <br />         .如果真 (loopcnt × 1 ＞ timeout)  ' 超时<br />             rtn ＝ 2<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> 返回 (rtn)<br /> <br /> <br /> <br /> <br /> .子程序 读串口, 整数型, 公开<br /> .参数 recvbuf, 字节型, 参考 数组, 返回字节数组<br /> .局部变量 buflen, 整数型<br /> <br /> <br /> buflen ＝ sio_iqueue (port)<br /> .如果 (buflen ＞ 0)<br />     ' 有数据<br />     重定义数组 (recvbuf, 假, buflen)<br />     sio_read (port, recvbuf, buflen)<br />     返回 (buflen)<br /> .否则<br />     返回 (0)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 取毫秒级时间文本, 文本型, 公开<br /> .局部变量 时间b, 系统时间_<br /> <br /> GetLocalTime (时间b)<br /> 返回 (到文本 (时间b.年) ＋ “-” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.月), 2) ＋ “-” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.日), 2) ＋ “ ” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.小时), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.分), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (时间b.秒), 2) ＋ “:” ＋ 取文本右边 (“00” ＋ 到文本 (时间b.毫秒), 3))

源码下载地址：
串口操作模块.7z (41.7 KB, 下载次数: 23)

前天 09:27 上传

点击文件名下载附件

wgqxj

谢谢分享

please

感谢分享，支持开源！！！

查过

感谢分享，很给力！~

豆豆灰常开心

全都是大佬~

胖子葛格

感谢大神分享~！

小虎来了

感谢分享啊

一指温柔

共同努力，共同进步

year1970

感谢分享

haiyiang22

感谢分享，要是有多点工控对接易语言的知识就好了