当前位置:K88软件开发文章中心编程全书编程全书03 → 文章内容

PowerBasic发送RTU

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2019-1-6 13:02:42

RTU的好处就是在同样的波特率下,可比ASCII方式传送更多的数据

最近发现powerBasic制作dll很方便,就尝试着用它来做一个底层通信,但是可能是我不太了解这种语言,发现Udp Send只能发送字符串

所有就使用了迂回战术发送16进制的字符串了

代码是在UDPClnt.bas的基础上修改的。希望有人指导下

'程序片段
Buffer ="10000112456789abcdefAC"
Buff_len=Len(Buffer)\2
ReDim bytBuff(buff_len)

'转成Byte数组
For bytList=0 To buff_len-1
  bytBuff(bytList)=Val( "&H" + Mid$(BUFFER,BYTLIST*2+1,2))
Next bytlist

Buffer=Nul$(0)
'重新转成字符串
For bytList=0 To buff_len-1
  Buffer=Buffer & Chr$(bytBuff(bytList))
Next BYTLIST
Udp Send hUdp, At bip, %UPort, Buffer


PowerBasic发送RTU