求助,在win7下的串口通信问题
本人算是不会任何高级编程语言,请各位老大不要因为我问的问题低级嘲笑我。因为需要非常简单的控制下位设备,我就在网上查了点VB的资料。
用了一个下午做了一个“四个按钮,一个文本框”的小工程,通过RS232串口发送4个指令,下位机也算正常工作了,虽然文本框里没收到下位机发过来的反馈,不过心里还是非常高兴的。后来我就离开了电脑,等回来后发现程序崩溃,然后再打开后,报错,串口被占用。用任务管理器一看,那个我命名的“工程1.exe”的小软件还在运行,而且还结束不掉。
程序在公司电脑上,没弄回来,我在照着原来的改改:
Private Sub Command1_Click()
MSComm1.Output = A
End Sub
-----
Private Sub Command2_Click()
MSComm1.Output = B
End Sub
-----
Private Sub Command3_Click()
MSComm1.Output = C
End Sub
-----
Private Sub Command4_Click()
MSComm1.Output = D
End Sub
-----
Private Sub Form_Load()
= 1
MSComm1.Settings = "9600,E,7,2"
'MSComm1.InBufferSize = 8
'MSComm1.OutBufferSize = 8
MSComm1.Handshaking = comNone
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Dim buf$
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
Text1.Text = "empty"
Else
Text1.Text = buf
End If
End Sub
请各位大侠指教下:
1.为什么端口被占用
2.为什么TEXT不能收到东西呢,里面既没有A、B、C、D,也没有empty。我看资料里说是什么事件驱动,怎么改呢?
[ 本帖最后由 outhearth 于 2015-5-25 23:24 编辑 ]