如何用VB的MSCOMM做在一个程序中实行通讯发送接收呢？ 点击：2015 | 回复：9
发表于：2002-11-15 14:19:00
4楼
谢谢大家，我做两个程序，一个将COMMPORT=1，另一个将COMMPORT=2，然后同时打开
这两个程序，此时一个程序点击发送，另一个按接收是可以收到的，问题是我想把两个程序合成一个程序，在一个程序内发送与接收。请各位高手出出点子，两个程序代码如下：
第一个程序 FORM1
Private Sub cmdexit_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub cmdreceive_Click()
Dim buf$
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
txtreceive.Text = Empty
Else
txtreceive.Text = buf
End If
End Sub
Private Sub cmdsend_Click()
MSComm1.Output = Trim(txtsend.Text)
End Sub
Private Sub CLS_Click()
txtsend = ""
txtreceive = ""
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.PortOpen = True
End Sub
第二个程序FORM2
Private Sub cmdexit_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub cmdreceive_Click()
Dim buf$
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
txtreceive.Text = Empty
Else
txtreceive.Text = buf
End If
End Sub
Private Sub cmdsend_Click()
MSComm1.Output = Trim(txtsend.Text)
End Sub
Private Sub CLS_Click()
txtsend = ""
txtreceive = ""
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.PortOpen = True
End Sub
发表于：2002-12-03 13:48:00
6楼
private sub form_load()
mscomm1.commport=1
mscomm2.commport=2
mscomm1.portopen=true
mscomm2.portopen=true
end sub
private sub cmdsend_click()
mscomm1.output=trim(txtsend.text)
end sub
private sub cmdreceive_click()
receive.text=mscomm2.input
end sub
我试过了，你再试一试，有问题，在联系。
热门招聘
相关主题
- 串口如何判断坏了？
[2546] - xArrow组态软件[3123]
- TRACE MODE 6 – 管控一体化整...[2041]
- 基于qt类库通用组态软件[4219]
- 用组态王打包时缺少kingtree...[2924]
- 普通PC能代替工控機嗎?[2609]
- 232串口与485串口通信程序有...[2100]
- 期盼完全开放自动化软件平台[2954]
- 组态王6.52中画面切换是哪个...[2180]
- 数控营销的小醋坛子[3155]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
