Question

请教一下关于VB与51单片机传送数据的问题

我想用VB通过串口送一个数字给单片机（STC89C52），单片机再通过数码管显示出来。但是单片机只能正确显示0—15这几个数字，后面的就乱了，比如发送"16"，数码管上却显示"48"，发送"17”，数码管上显示"49”...发送“148”，数码管上又显示"112"。不知道为什么，求大神指点指点，谢谢了！！！
下面是我的VB程序

Private Sub Command1_Click()If Text1.Text = "" Then
n% = MsgBox("请输入数据", 64, "错误")
Else
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(Text1.Text)
End If
End Sub
Private Sub Command2_Click()End
End Sub
Private Sub Command3_Click()If Command3.Caption = "打开串口" Then
MSComm1.PortOpen = True
Command3.Caption = "关闭串口"
Else
MSComm1.PortOpen = False
Command3.Caption = "打开串口"
End If
End Sub
Private Sub Form_Load()MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferSize = 40
MSComm1.InBufferCount = 0
MSComm1.Settings = "19200,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
End Sub
单片机（STC89C52）程序
#include<reg52.h>#define uchar unsigned char
int receivedata;
sbit dula=P2^6;
sbit wela=P2^7;
uchar code table[]={
0x3f,0x06,0x5b,0x4f,
0x66,0x6d,0x7d,0x07,
0x7f,0x6f,0x77,0x7c,
0x39,0x5e,0x79,0x71,
0x76,0x79,0x38,0x3f,0};
void display(int temp);
void delay(int x)
{
int a,b;
for(a=x;a>0;a--)
for(b=120;b>0;b--);
}
void main(){
TMOD=0x21;
TH1=0xfd;
TL1=0xfd;
TR1=1;
SM0=0;
SM1=1;
REN=1;
EA=1;
ES=1;
PCON=0x80;
while(1)
display(receivedata);
}
void serial() interrupt 4{
receivedata=SBUF;
RI=0;
}
void display(int temp)
{
unsigned char ge,shi,bai,qian,wan;
wan=temp/10000;
qian=(temp%10000)/1000;
bai=(temp%1000)/100;
shi=(temp%100)/10;
ge=temp%10;

dula=1;
P0=table[wan];
dula=0;
P0=0xff;
wela=1;
P0=0xfe;
wela=0;
delay(1);
dula=1; P0=table[qian];
dula=0;
P0=0xff;
wela=1;
P0=0xfd;
wela=0;
delay(1);

dula=1;
P0=table[bai];
dula=0;
P0=0xff;
wela=1;
P0=0xfb;
wela=0;
delay(1);

dula=1;
P0=table[shi];
dula=0;
P0=0xff;
wela=1;
P0=0xf7;
wela=0;
delay(1);
dula=1; P0=table[ge];
dula=0;
P0=0xff;
wela=1;
P0=0xef;
wela=0;
delay(1);
}

Answer 1

VB程序 与 单片机程序，没有问题，是波特率 误差的问题
该 VB 程序 发送 范围是 0 - 128 ，> 128 时发送 的 为 0 。

单片机 波特率 和 晶振 有关，与 PC 通讯一定要用 11.0592 MHz 的晶振
如果 用 6.000MHz 或者 12.000MHz 的 一般都 会有一定 的误差
就是 这个 误差 会 引起通讯 数据 失真。

Answer 2

你的问题应该出在VB的程序中，在发送按钮的过程中，请做如下修改：
找到
MSComm1.Output = Chr(Text1.Text)

并修改为
MSComm1.Output = Val(Text1.Text)

并在窗体中把MSComm1这个控件发送模式设置为二进制发送模式即可。

追问

输入1 点发送出现错误

不知道是不是单片机程序的问题

追答

您MSComm控件的发送方式有没有改成二进制发送？

追问

改了啊 MSComm1.InputMode = comInputModeBinary

追答

干脆把val去掉试试看，我在外面没法帮你试验。

Answer 3

不要连接，发送两个字节的接收器就行了，还有两个字节
如传感器发送数据和hfff对HF和＆HFF
二进制模式
的REDIM律政司司长（1）作为字节
SJ（0）=？
SJ（1）=？
MSComm1.OutBufferCount = 0
MSComm1.Output = SJ

Answer 4

你可以把单片机和上位机的波特率设低点试试最好是9600 或者以下

追问

设置为9600还是一样