main.c

运用VB编写的串口通讯程序

// 单片机串行口发送/接收程序，每接收到字节即发送出去
// 和微机相接后键入的字符回显示在屏幕上
// 可用此程序测试
//
#include <reg51.h>

#define XTAL 11059200    // CUP	晶振频率
#define baudrate 9600    // 通信波特率

void main(void)
{
	unsigned char c;

	TMOD = 0x20;   // 定时器1工作于8位自动重载模式, 用于产生波特率
	TH1=(unsigned char)(256 - (XTAL / (32L * 12L * baudrate)));
	TL1=(unsigned char)(256 - (XTAL / (32L * 12L * baudrate)));                // 定时器0赋初值

	SCON = 0x50;
	PCON = 0x00;			
	
	TR1 = 1;
	IE = 0x00;				// 禁止任何中断

	while(1)
	{
		while(RI == 0);
		RI = 0;
		c = SBUF;            // 从缓冲区中把接收的字符放入c中

		SBUF = c;            // 要发送的字符放入缓冲区 
		while(TI == 0);
		TI = 0;
	}
}