Question

VB用串口发送的数据，在单片机怎么写程序也是发送同样的数据？

VB程序Private Sub Command1_Click()
Dim W(1) As Byte
W(0) = Int(1)
MSComm1.Output = W
MSComm1.OutBufferCount = 0 '情空发送缓冲区
End Sub
那么请问单片机怎么写程序也串口发送同样的数据？其实我主要是要用电脑VB的串口发送的数据和单片机发送的数据相同就可以了，给个例子都可以。谢谢

Answer 1

不同的单片机不一样，单片机是直接操作硬件的，要对特殊功能寄存器进行设置，不同的单片机寄存器不同，主要工作就是设置波特率，串口设置，串口中断程序，以及CRC校验程序（CRC校验可以没有），51单片机貌似不支持硬件奇偶校验，奇偶校验程序要自己写，程序不复杂但是要比VB长得多，因为单片机没有系统。。。

追问

我使用AT89S52的单片机，怎么写？现在我的程序是void main(void)
{int i; TMOD=0x20; //TMOD=0010 0000B，定时器T1工作于方式2
SCON=0x40; //SCON=0100 0000B，串口工作方式1
PCON=0x00; //PCON=0000 0000B，波特率9600
TH1=0xfd; TL1=0xfd; TR1=1; //启动定时器T1
while(1) {Send(i); }}void Send(unsigned char dat)
{SBUF=dat;while(TI==0) ;TI=0;
}

Answer 2

C51单片机的程序：
1、初始化程序：
TMOD=0X20; TH1=0Xfd; TL1=0Xfd;SM0=0; SM1=1; REN=1; TR1=1; EA=1; ES=1;
2、发送程序：
void comdata_send()//串口发送数据
{
unsigned char i;
SBUF=0x2A;
while(!TI);
TI=0;
}
3、接收数据：
void comdata_receive() interrupt 4
{ if(RI)
{ RI=0;
RS485_data=SBUF;
}
}
VB程序：
1、初始化程序：
MSComm1.CommPort = 1 '串口号
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText
MSComm1.RThreshold = 1 '接收中断允许
MSComm1.SThreshold = 1 '发送中断允许
MSComm1.PortOpen = True
2、接收发送程序：(FunNum = 1,接收，2时发送）

Dim buf$
Dim st As String
FunNum = FunNum + 1
If FunNum = 3 Then FunNum = 1
If FunNum = 1 Then
If MSComm1.InBufferCount > 0 Then
MSComm1.InputLen = 1
buf = MSComm1.Input '取得缓冲区内的首字符
End If
End If
If FunNum = 2 Then
st = "*"
MSComm1.Output = Trim(st)
End If

追问

请问：如果vb和单片机都要求发送相同数字1，怎么改？

追答

主要的程序给你了，你自己修改一下吧！

追问

谢谢你的程序。我试过了，用VB发送到单片机是可以的。现在我想用另一个单片机也可以发送，也就是说电脑VB可以控制，手动单片机也可以发送，两个发送控制器。怎么搞不了呢？

追答

这个问题涉及到通讯协议的制定，不然就会出现，单片机发送的数据，电脑能接收到，另一台单片机也能接收到，就会搞不清楚是发送给单片机的还是电脑的。最简单的方法就是给每台设备定义一下地址。单片机1的地址为02，单片机2的地址为03，电脑的地址为01，当检测到01是，就是发送数据给电脑，02，就是发送数据给单片机1,03就是发送数据给单片机2,。如果你就是编着玩，上述方法是最简单有效的，如果其他用途，复杂了，按相关通信协议进行。