小弟初学vb，要实现一个2台单片机互相通讯的功能，现在已经实现了可以发送的功能，但是接受功能不能实现，希望大家看看我的程序错在哪里？谢谢各位大侠Option ExplicitPrivate Sub Command1_Click()MSComm1.OutBufferCount = 0MSComm1.Output = Text1.TextEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()MSComm1.CommPort = 3MSComm1.Settings = "9600,n,8,1"MSComm1.PortOpen = TrueEnd SubPrivate Sub Mscomm1_Oncomm()Select Case MSComm1.CommEventCase comEvReceiveText2.Text = MSComm1.InputMSComm1.InBufferCount = 0End SelectEnd Sub 作者：jily专家分：1520  会员信息 发短消息   所属BLOG 发表时间：2005-9-23 9:31:00    　第 1 楼   Private Sub Mscomm1_Oncomm()Select Case MSComm1.CommEventCase comEvReceiveText2.Text =Text2.Text + MSComm1.Input'这里要这么写，不然看不到接收内容MSComm1.InBufferCount = 0End SelectEnd Sub

评论