我想编一个上海耀华XK3190-D9与计算机通信的程序
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "1200,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub mscomm1_OnComm()
On Error Resume Next
Dim strInput, strData As String
Dim positionW, positionN As Integer
If MSComm1.CommEvent = comEvReceive Then
strInput = MSComm1.Input
Print strInput
positionW = InStrRev(strInput, "B")
strbagwet = Mid(strInput, positionW - 7, 6)
'strbagwet = bagwetrecord(strInput)
txtW1.Text = Val(strbagwet)
Else
MSComm1.PortOpen = False
End If
End Sub
程序编完了，不显示呀
有虽有好方法吗？告诉一下，非常感谢！！
[解决办法]
还没解决啊 ? 我帮你吧, 我是专业做秤的.
QQ:138449666
耀华是专业制造表头的,在我们这行业中大半也都是使用他们的表头
他们的表头大小秤种类数十种, 我几乎都接过,质量是不错, 但是太没规范,你要用别的型号来写代码是不实际的,因为他们的通讯协议千百种, 呵呵,我可懒得做笔记了, QQ上帮你免费搞定吧
如已搞定请不用加我
