跪求VB和磅秤的通信,我搞了4天没有搞定,明天是最后的一天了.要不就违约了.跪求VB和磅秤的通信.

Question

Text1.Text = Instring
兄弟
返回的数据是字符串么？

Answer 1

说明书在:http://www.chinahengqi.com/technic/XK3190-A9.pdf可以下载到.
谢谢大家了.

Answer 2

你看看像下边这么写行不行呢？-----------------------------------------------------------------------'数据读取及显示模块：
Private Sub Command1_Click()
Dim Instring As String                   '变量定义Dim InByte() as byte
MSComm1.InputMode = comInputModeBinaryMSComm1.Output = Chr(2) + Chr(65) + Chr(66) + Chr(48) + Chr(51) + Chr(3) '计算机发送指令ASCII：02为开始,65(A)地址为A,66(B)取毛重,48异或高4为,51异或底4为,3结束
                                          '读A（01）地址称重仪表的毛重值
Do While MSComm1.InBufferCount < 14      '等待接收全部数据
   DoEvents
Loop
InByte= MSCcomm1.Input                 '取重量数据并显示
Text1.Text =""
For i = 0 to Ubound(InByte)
   Text1.Text = Text1.Text & " " & right("00" & hex(InByte(i)),2)
next i 
End Sub

Answer 3

哇，SOS帖还没分哦。
牛。你应该去找 串口通讯技术