Question

单片机与VB通信的问题！！！高手请进

最近在搞单片机与VB的通信，电路板上有一个数码管分别是个位和十位，VB界面有一个发送口text1，和接收口taxt2还有一个发送按钮，谁能帮我设计一个程序：在VB界面text1输入数据（如：AB），点击发送，单片机能接收到并显示“AB”，AB还能从单片机返回到VB界面text2中并显示AB。
我用的是MSComm控件，请高手赐教，小弟在线等~~~~
////////能解决问题者追加20分//////////
这个只是程序的一部分，这程序只有接收数据，没有返回（发送）程序，谁能帮我写一个返回程序，需要整个程序的米我下，我百度Hi一直在线的，谢谢了

void intrr() interrupt 4 //串口接中断
{
jieshou=SBUF;
RI=0;

gewei=jieshou&0x0f;
shiwei=(jieshou&0xf0)>>4;

P1=~jieshou;
}

void main()
{
P2=0XFF;
chushi_comm();
while(1)
{
xuan_gewei=0;
P0=daima[gewei];
delay();
P0=0XFF;
xuan_gewei=1;

xuan_shiwei=0;
P0=daima[shiwei];
delay();
P0=0XFF;
xuan_shiwei=1;

}
}

Answer 1

VB程序：
Option Explicit

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "发送字符不能为空"
Else
MSComm1.Output = Text1.Text
End If
End Sub

Private Sub Form_Load()
On Error Resume Next
MSComm1.CommPort = 1 '这个根据你计算机的串口号更改
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0 '一次读取缓冲区全部内容
MSComm1.InBufferSize = 100
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 100
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
Text2.Text = Text2.Text & MSComm1.Input
End If
End Sub
51单片机程序：
#include<reg52.h>
#define uchar unsigned char
uchar a,flag;
void main()
{
TMOD=0x20;
TH1=0xfd;
TL1=0xfd;
TR1=1;
SM0=0;
SM1=0;
REN=1;
EA=1;
ES=1;
PCON=0x80;
while(1)
{
if(flag==1)
{
ES=0;
flag=0;
SBUF=a;
while(!TI);
TI=0;
ES=1;
}
}
}

void serial() interrupt 4
{
a=SBUF;
flag=1;
RI=0;
}

测试通过的

Answer 2

接口通讯协议如何?