通讯中单个ASC码大于127的字符如何发送 [使用MScomm控件来进行串口通讯]由于要编写工控通讯测试,要人工调节发送字节与字节之间的时间空隙。所以发送的时候不能用字节数组一口气都发送出去,需要一个字符一个字符的发。那么发送比如 E1这个值该如何处理? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用二进制模式发送。&HE1 也是一个字节。 Private Sub Command3_Click() If MSComm1.PortOpen Then MSComm1.PortOpen = False MSComm1.Settings = "9600,n,8,1" MSComm1.CommPort = 1 MSComm1.PortOpen = True Dim a(127) As Byte Dim b(0) As Byte Dim i As Integer For i = 0 To 127 a(i) = 128 + i Next For i = 0 To 127 b(0) = a(i) MSComm1.Output = b ys 0.01 Next End SubPrivate Sub ys(ByVal t As Single) Dim t1 As Single t1 = Timer While Timer - t1 < t DoEvents Wend End Sub 解决了,定义一个中间数组 Dim temp(0) As Byte For i = 0 To longth - 1 temp(0) = bytSendByte(i) frmMain.ctrMSComm.Output = temp Sleep (intervalset) Next i多谢 chinaboyzyq VB程序在XP下的打印问题 怎么样指定大小保存图片呢 vb format函数问题 请问如何打开一个CSV文件,然后把数据写入DATAGRID中? 怎样判断一个字符串Str1是否是一个合法的已存在的目录? 求助:工具栏隐藏 为什么我用VB编的程序在XP下换一台电脑就不好用了? VB 如何取得随机数 关于Access和SQL之间的转换 救命啊,我装了winamp MP3播发器后 VB 就用不了。 如何将richtext中内容写入到sql2000数据库中? vb中怎么通过winsock控件发送自定义的结构体数据
用二进制模式发送。&HE1 也是一个字节。
Private Sub Command3_Click()
If MSComm1.PortOpen Then MSComm1.PortOpen = False
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
Dim a(127) As Byte
Dim b(0) As Byte
Dim i As Integer
For i = 0 To 127
a(i) = 128 + i
Next
For i = 0 To 127
b(0) = a(i)
MSComm1.Output = b
ys 0.01
Next
End SubPrivate Sub ys(ByVal t As Single)
Dim t1 As Single
t1 = Timer
While Timer - t1 < t
DoEvents
Wend
End Sub
Dim temp(0) As Byte
For i = 0 To longth - 1
temp(0) = bytSendByte(i)
frmMain.ctrMSComm.Output = temp
Sleep (intervalset)
Next i多谢 chinaboyzyq