PowerBasic发送RTU

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

 

posted @ 2015-05-13 15:40  稻草人Seven  阅读(148)  评论(0编辑  收藏  举报