VB二段码一次串口发送
当按commmand1时，“H96 H01 H03 HA0”，这数据在哪能另时存储下，等
当按commmand2时，“H95 H02 H04 HA0”。8位数据能同时发送串口。
因为在按下command1后，程序不要求何时按下command2.
我自己考虑这样，按command1时，将数据存在文本框内，等command2按下再一起发送，有更好的方法吗？谢！
使用一个数组变量来保存。
另外 H96?是 &H96 吧。
VB code:
Option Explicit
Dim bytHex() As Byte
Private Sub Command1_Click() '1命令－得到设备当前频率
ReDim bytHex(1 To 8) As Byte
bytHex(1) = &H96
bytHex(2) = &H1 H03 HA0
bytHex(3) = &H3
bytHex(4) = &HA0
End Sub
Private Sub Command2_Click() '2命令－得到设备当前温度
bytHex(5) = &H95
bytHex(6) = &H2
bytHex(7) = &H4
bytHex(8) = &HA0
MSComm1.Output = strSend
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 'PortNo
MSComm1.Settings = "9600,n,8,1"
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
MSComm1.InputLen = 0
End Sub
留个记号
写得匆忙，修正错误：
VB code:
Option Explic
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
