求上位机自发自收代码

[beater1987]

本人有一个RS232，要实现上位机的自发自收，求高手帮忙~

[东方之珠]

http://www.pudn.com/downloads36/sourcecode/comm/com_port/detail111287.html
http://www.qqgb.com/Program/VB/VBJQ/Program_182720.html

[zdingyun]

LZ的机器有1个RS232的COM口,找个RS232母头,将它的2与3脚短接,再使用MSCOMM控件,编写收发代码,就能自发自收了.

Option Explicit
    Dim sj As String

Private Sub Command1_Click()
    Dim strSend As String
    strSend = "本人有一个RS232，要实现上位机的自发自收，求高手帮忙~"
    MSComm1.Output = strSend
End Sub

Private Sub Form_Load()
    MSComm1.InputMode = comInputModeText
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case 2
            sj = sj & MSComm1.Input
            Text1.Text = sj
    End Select
End Sub

[xieming19831985]

chenjl1031
人才,你能不能不发网址,直接贴出来啊

[贝隆]

把串口的2-3短连就可实现你发什么该串口就收什么。很简单

[mokton]

可不么就这么调试就可以了，不过一定要一个程序单独调试，要是多个程序都要用串口只有一个口的话就不够了哦。
要是离我近的话可以送你一个2、3孔接好的母头。