求助VB读温控表的版本号为什么没反应
请教各位大虾，小弟刚接触VB与485的通讯知识，现在我做了个简单的VB程序，读温控表的版本号。温控表往来通讯都以ASCII码实现。温控表通讯协议里读版本号的命令为“&0000+回车”，温控表应回复“!00007.2+回车” 。现在我在VB里添加了两个文本框Text1和Text2,分别用来发送和接受命令内容，另外添加了两个命令按钮Command1和Command2,分别用来发送和接收命令。我在Text1文本框中输入“&0000”接着点击Command1发送命令，可是点击Command2却没有接收到返回数据，请教各位大虾问题到底出在哪儿？我的程序如下：
Private Sub Command1_Click()
MSComm1.Output = Text1 + Chr(13)
End Sub
Private Sub Command2_Click()
Text2 = MSComm1.Input
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 0
MSComm1.PortOpen = True
If MSComm1.PortOpen Then
Shape1.FillColor = vbGreen
Label1 = "通讯正常"
Else
Shape1.FillColor = vbRed
Label1 = "通讯失败"
End If
End Sub
Private Sub MSComm1_OnComm()
Tex
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
