在线求救+裸体跪求! MSCOMM的问题!高手请进来坐!

Question

我是菜鸟.看了很多MSCOMM的知识仍然不成功.哪位高手能给出一个实际的简单的能用的例子!感激不尽
1.我用一根串口线将我的电脑上的两个RS232接口连起来.
希望给出的一个非常简单的例子,能够将TEXT1里的东西传到TEXT2里就行.2.还有个问题:怎么判别我的COM1和COM2已经成功的连接上了?多谢各位了!小第在线等!!!谢谢!

Answer 1

Private Sub Command1_Click()
    If MSComm2.PortOpen Then
        MSComm2.RThreshold = Len(Text1.Text)
    End If
    If MSComm1.PortOpen = False Then
        MSComm1.PortOpen = True
        MSComm1.Output = Text1.Text
    End If
End SubPrivate Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm2.CommPort = 2
    
End SubPrivate Sub MSComm2_OnComm()
    Text2.Text = MSComm2.Input
End Sub大概如此

Answer 2

在我的Blog上有一个完整的示例
http://blog.csdn.net/yefanqiu   【叶帆源码】－ [009]串口通信示例