29-原创VB上位机控制数码管

29-原创VB上位机控制数码管，很经典适合学习

#include 
#include 
unsigned char tmp;
void send_char（unsigned char txd）;
main（）
{
	TMOD = 0x20;			// 定时器1工作于8位自动重载模式 用于产生波特率
	TH1 = 0xFD;				// 波特率9600
	TL1 = 0xFD;
	SCON = 0x50;			// 设定串行口工作方式
	PCON &= 0xef;			// 波特率不倍增	
	TR1 = 1;				// 启动定时器1
	IE = 0x0;				// 禁止任何中断
	P2=0x7f;
	while（1）
	{
	
		if（RI）						// 是否有数据到来
		{
			RI = 0;
			tmp = SBUF;				// 暂存接收到的数据
			P0 = tmp;				// 数据传送到P0口
			send_char（tmp）;			// 回传接收到的数据
		}		
	}
}
void send_char（unsigned char txd）
// 传送一个字符
{
	SBUF = txd;
	while（!TI）;				// 等特数据传送
	TI = 0;					// 清除数据传送标志
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2011-09-03 09:31  29-原创VB上位机控制数码管\
     文件       33636  2009-08-05 10:58  29-原创VB上位机控制数码管\frmMain.frm
     文件         906  2009-08-05 10:58  29-原创VB上位机控制数码管\frmMain.frx
     文件         906  2009-08-05 16:57  29-原创VB上位机控制数码管\LEDCOMM.vbp
     文件          49  2009-08-05 16:57  29-原创VB上位机控制数码管\LEDCOMM.vbw
     文件      103744  1998-06-24 00:00  29-原创VB上位机控制数码管\MSCOMM32.OCX
     文件         346  2009-08-01 15:04  29-原创VB上位机控制数码管\MSSCCPRJ.SCC
     目录           0  2011-09-03 09:31  29-原创VB上位机控制数码管\下位机程序\
     文件        2378  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest
     文件         703  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest.c
     文件         219  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest.hex
     文件          46  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest.lnp
     文件        2428  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest.LST
     文件        3506  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest.M51
     文件        2496  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest.OBJ
     文件        1188  2011-04-09 09:51  29-原创VB上位机控制数码管\下位机程序\comtest.Opt
     文件           0  2011-04-09 09:29  29-原创VB上位机控制数码管\下位机程序\comtest.plg
     文件        1669  2011-04-09 09:51  29-原创VB上位机控制数码管\下位机程序\comtest.Uv2
     文件        1238  2009-08-05 13:09  29-原创VB上位机控制数码管\下位机程序\comtest_Opt.Bak
     文件        2142  2009-07-14 13:46  29-原创VB上位机控制数码管\下位机程序\comtest_Uv2.Bak
     文件         116  2009-08-05 13:11  29-原创VB上位机控制数码管\下位机程序\实验指导.txt
     文件       94208  2011-05-17 12:52  29-原创VB上位机控制数码管\数码管控制系统.exe