在线等:有一个电子秤,我用了com1连接,用附件中超级终端没显示重量.不知道为什么?
解决方案 »
- 请教一个关于MSFgrid控件的大小的设置
- 用cdo保存这个网页出现乱码,网页内容正常
- 请问在VB中如何用TREEVIEW控件分级显示SQL数据库记录
- 请问可以将WORD文档转化为RTF格式吗?
- [1000分全部送]我注册了不下10个ID,这次来个大的。大不了我再注册4个ID
- 用VB做好的数据库程序只能用其自带的打包程序吗?
- open "com1" for output as #1 是什么意思---------在先等待
- 控件制作参数返回问题,立即给分!
- ActiveX高手帮忙!
- 如何将TextBox.enabled = false的情况下,更改字体的颜色,使之不是反灰色
- 在线等:有一个电子秤,我用了com1连接,用附件中超级终端没显示重量.不知道为什么?
- 这是一个很猥琐的问题
Dim vText As String
Dim mCount As Integer
Dim mWT As Single
MSComm1.Settings = "2400,n,8,1"
MSComm1.PortOpen = True
mWT = 0 Do While True
If MSComm1.InBufferCount >= 15 Then
vText = MSComm1.Input
mCount = InStr(vText, "ST,GS,+")
mWT = Val(Mid(vText, mCount + 7, 7))
If mWT > 1 Then
Get_WT = mWT
Exit Do
End If
End If
Loop
MSComm1.PortOpen = False
此外MsComm控件通常通过MsComm控件OnComm事件来实现接收.
LZ可在此链接下在VB的串口调试软件工程http://www.vbgood.com/viewthread.php?tid=83700