4.代码编写Main
函数开始对寄存器进行初始化操作:TMOD = 0x20;TMOD = 0x20;SCON = 0x50;SCON = 0x50;TH1 = 0xFA;
或者TH1 = 0xFD;PCON = 0x80;PCON = 0x00;TR1 = 1;TR1 = 1;
发送数据代码(在程序相应位置写上):SBUF=
变量; //
在相应的位置写上此代码,讲需要发送的数据先送到SBUF
寄存器中while(
ti==0); //
等到数据发送完再进行下一句代码TI=0; //TI
为传送结束标志,必须软件置零
Private Sub Form_Load()MSComm1.Settings= "9600,n,8,1" '
设置波特率和发送字符格式MSComm1.CommPort= 4 '
设置通讯串口MSComm1.InputLen= 0 '
设置或返回一次从接收缓冲区中读取字节数,0
表示一次读取所有数据MSComm1.InBufferSize= 512 '
设置接收缓冲区512ByteMSComm1.InBufferCount= 0MSComm1.OutBufferSize= 512 '
设置发送缓冲区512ByteMSComm1.OutBufferCount= 0MSComm1.RThreshold= 1 '
每个字符到接收缓冲区都触发接收事件MSComm1.SThreshold= 1MSComm1.PortOpen= True '
打开串口End SubPrivate Sub MSComm1_OnComm()SelectCase MSComm1.CommEvent '
设置oncomm
事件,读取片机内存的值Case comEvReceiveinputsignal = MSComm1.InputText13.Text = Asc(inputsignal) '
单片机内存的值用Text
显示出Case ElseEnd Selectr =Val(Text13.Text) '
将得到的数据赋给需要的变量,val
为数值转换函数,将text
内的内容转换成数值类型End Sub
如果只是对单片机串口通信功能进行测试,可从网上下载测试工具,如:comdebug.exe
,commix.exe
,scomv21.exe
,Terminal.exe
,将单片机与PC
通过rs232
串口线连接即可测试。