单片机和PC机的通讯.docVIP

VB的MSCOMM控件做单片机和PC机的通讯时遇到一个问题：PC机发送的数据大于15时，单片机接收到的数据就会出 悬赏分：0 - 解决时间：2009-6-23 11:49 我用VB的MSCOMM控件做单片机和PC机的通讯时遇到这样的一个问题：PC机发送的数据大于15时，单片机接收到的数据就会出错，不知道为什么会这样，希望好心人帮忙看看。谢谢了 PC机代码： Private Sub Command1_Click() Dim b As Integer b = Val(Text1.Text) If MSComm1.PortOpen = False Then MSComm1.PortOpen = True 打开串口 End If MSComm1.OutBufferCount = 0 MSComm1.Output = Chr(CInt(b)) Text2.Text = End Sub Private Sub Command2_Click() MSComm1.PortOpen = False Unload Me End Sub Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.InBufferSize = 40 MSComm1.InBufferCount = 0 MSComm1.InputMode = comInputModeBinary MSComm1.Settings = 9600,n,8,1 MSComm1.RThreshold = 1 MSComm1.InputLen = 0 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If End Sub 51单片机代码： shumaguan_dataport data p0 ;数码管数据口 shumaguan_bit1 bit p2.5 ;数码管1位控制口 shumaguan_bit2 bit p2.6 ;数码管2位控制口 shumaguan_bit3 bit p2.7 ORG 0000H ljmp main org 0023h ljmp uart0 org 0030h main: MOV SP,#60H MOV TMOD, #20H; ；T1工作模式2 MOV TH1, #0fdH MOV TL1, #0fdH ; ；波特率9600HZ setb TR1 setb ea setb es ; setb et1 MOV PCON,#00H ; ；SMOD=0 MOV SCON,#50H ;；串行方式1 mov 30h,#00h la2: lcall display sjmp la2 uart0:; setb tr1 jnb ri,$; ; ；等待接收完毕 clr ri MOV A,SBUF ; ；接收联络信号 mov 30h,a lcall delay mov sbuf,a jnb ti,$ clr ti reti display:;显示///////////////////////////////////////// mov dptr,#tabl1 mov a,30h mov b,#100 div ab movc a,@a+dptr mov shumaguan_dataport,a clr shumaguan_bit1 lcall delay setb shumaguan_bit1 mov a,b mov b,#0ah div ab movc a,@a+dptr mov shumaguan_dataport,a clr shumaguan_bit2