关于vb的串行通信

Question

近期做一个vb的串行通信设计，但是对这一写不是太了解。不知道哪位能给一些代码参考一下？
另外，能不能在一台电脑上实现串行通信？怎么设置？
谢谢

Answer 1

在一台电脑上调试,最好有2个串口,如果仅一个,只能将该RS232用母头把2-3短接,自己发自己收.Option Explicit
    Dim sj As StringPrivate Sub Command1_Click()
    mscomm1.output = "近期做一个vb的串行通信设计"
End SubPrivate Sub Form_Load()
    mscomm1.Settings = "9600,n,8,1"
    mscomm1.InputMode = comInputModeText
    mscomm1.RThreshold = 1 '当接收缓冲区到达1-8字节产生1次OnComm事件
    mscomm1.CommPort = 1
    mscomm1.PortOpen = True
End SubPrivate Sub MSComm1_OnComm()
    Select Case mscomm1.CommEvent
        Case 2
        sj = sj & mscomm1.Input
        Text1 = Mid(sj, 2, 4)
    End Select
End Sub

Answer 2

 sj = sj & mscomm1.Input
        Text1 = Mid(sj, 2, 4)
这两句是什么意思？谢谢

Answer 3

Option Explicit
    Dim sj As StringPrivate Sub Command1_Click()
    mscomm1.output = "近期做一个vb的串行通信设计"
End SubPrivate Sub Form_Load()
    mscomm1.Settings = "9600,n,8,1"
    mscomm1.InputMode = comInputModeText
    mscomm1.RThreshold = 1 '当接收缓冲区到达1字节产生OnComm事件
    mscomm1.CommPort = 1
    mscomm1.PortOpen = True
End SubPrivate Sub MSComm1_OnComm()
    Select Case mscomm1.CommEvent
        Case 2
        sj = sj & mscomm1.Input
        Text1 = sj
    End Select
End Sub

Answer 4

这是我在http://zhidao.baidu.com/question/90509394.html答复网友代码的一部分,复制过来应该删除而未删除留下的.所以在3楼处作了修改.