昆仑通态MCGSPRO串口接收工具_mcgspro串口数据收发驱动

一.演示和用途

用途：用于调试串口接收数据的正确性

二.驱动代码

'———————————————————————
'驱动脚本：采集函数脚本，MCGS将定时调用这个函数
'这个函数需要完成从设备获取数据，并将数据根据协议
'进行解析，最后赋值到相应通道上的功能。
'这部分是注释，请在下面编辑采集脚本的内容：
'———————————————————————
DIM Return as INTEGER
dim ByteReg as byte
dim READ(512) as byte
dim i as integer
dim RecCount as integer

DIM LenStr as STRING
DIM DataPackStr as STRING
DIM PackStr as STRING
DIM PackHEX as STRING

dim 时间 as integer
DIM TimeStr as STRING

时间=!TimeGetCurrentTime()
TimeStr=!TimeI2Str(时间,"%Y-%m-%d %H:%M:%S")

i=1
RecCount = 0
PackHEX =""
PackStr =""
DataPackStr =""
WHILE(i<=512)

Return =!DevReadByte(ByteReg,10)
IF  Return <0 THEN Return=!DevReadByte(ByteReg,10)

IF  Return = 0 THEN 
	READ[i] = ByteReg
	IF ByteReg<=15 THEN
	PackHEX =PackHEX +"0"+!I2Hex(ByteReg)+" "
	ELSE
	PackHEX =PackHEX +!I2Hex(ByteReg)+" "
	ENDIF
	IF (i mod 26)=0 THEN PackHEX=PackHEX+!Chr(13)+!Chr(10)
	
	RecCount = RecCount + 1
	i=i+1
ELSE
	i=513
ENDIF

ENDWHILE

IF RecCount =0 THEN exit

LenStr = !Format(RecCount ,"000")

!ByteArr2Str(READ,PackStr ,RecCount )

DataPackStr =""
DataPackStr = "[Time:"+TimeStr+" Len:"+LenStr +"] "+PackStr
!Trace(DataPackStr )
!SetStrDataValueByName("Rec_Str",DataPackStr)

DataPackStr =""
DataPackStr = "[Time:"+TimeStr+" Len:"+LenStr +"] "+PackHEX 
!Trace(DataPackStr )
!SetStrDataValueByName("HEX_Str",DataPackStr)

写事件=1-写事件
!SetIntChannelValueByName("写事件",写事件)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

源码文件gitee地址