- ·上一篇文章:PowerBasic实现的16进制字符串和Asc字符串的转换
- ·下一篇文章:已经没有了
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
PowerBasic发送RTU