C51 LCD1602 VB上位机实现简单通信

设计基本原理主要功能:上位机和下位机连接好后握手,如果成功,上位机就可以发字符串让下位机的LCD 显示出来,如果没有握手就不显示上位机发来的内容.下位机设计:主程序首先初始化串口和LCD,然后进入一个死循环,这个循环往LCD写dataArray这个数组中的数据,因此只要改变了这个数组中的第0-31位的内容就相当于改变了屏幕上显示的内容. 当串口发来消息的时候,执行中断号为4(串口中断)的服务子程序.这时候还不能让上位机往下位机传字符串,因此需要判断是否已经握手,判断的标志就是dispEn (display enable),如果等于0说明还没有握手,就把用户发来的数据当成是控制字control,如果是等于1说明之前已经握过手了,就把用户发来的数据放到dataArray中.最后判断控制字是否是握手,如果control等于0x00是就握手信号,然后回复0x01.然后把dispEn=1,最后把控制字control改掉(因为下一次中断可能已经不是握手信号了)上位机设计:由于已经把端口号写在vb程序中了,所以要改端口号的话要进vb的代码中把mPort = 4 中的4 改为自己需要的串行端口号.然后运行程序,打开端口,此时没有和下位机握手,所以输入数据后单击发送是没有反应的,所以需要先单击握手按钮,向传哭发送0x00,然后延时800毫秒等待回复,然后接收数据,如果回复的是0x01那就表明握手成功,如果没有回复那就是握手失败.用户点击发送信息,上位机把字符串拆分成字符来发送一次发送一个字符,每个字符发送延时30毫秒避免因为连续发送而造成的乱码.a) 原理框图b) 硬件电路原理图AT89C521~8：I/OP1口（P1.0~P1.7）；9：复位脚（RST/Vpd）；10~17：I/OP3口（P3.0=RXD，P3.1=TXD，P3.2=-INT0，P3.3=-INT1，P3.4=T0，P3.5=T1，P3.6=-WR，P3.7=-RD）主要是此引脚；18、19：晶振（18=XTAL2，19=XTAL1）；20:地（Vss）；21~28：I/OP2口（P2.0~P2.7)；29：-PSEN；30：ALE/-PROG；31：-EA/Vpp32~39：I/OP0口（P0.7~P0.0）；40：+5V电源。

MAX232第一部分是电荷泵电路。

由1、2、3、4、5、6脚和4只电容构成。

功能是产生+5v和-5v两个电源，提供给RS-232串口电平的需要。

第二部分是数据转换通道。

由7、8、9、10、11、12、13、14脚构成两个数据通道。

其中13脚（R1IN）、12脚（R1OUT）、11脚（T1IN）、14脚（T1OUT）为第一数据通道。

8脚（R2IN）、9脚（R2OUT）、10脚（T2IN）、7脚（T2OUT）为第二数据通道。

TTL/CMOS数据从T1IN、T2IN输入转换成RS-232数据从T1OUT、T2OUT送到电脑DB9插头；DB9插头的RS-232数据从R1IN、R2IN输入转换成TTL/CMOS数据后从R1OUT、R2OUT输出。

第三部分是供电。

15脚GND、16脚VCC（+5v）。

LCD16022. 软件设计a) 流程图b) 代码 (请参照代码附录第10页)调试连线装载下位机程序后开始调试。

打开下位机电源，在输出文本框中输入字母abc，点发送没反应。

点击握手按钮后，在接收文本框中显示握手成功后再点击发送按钮，LCD上显示出字母"abc"。

每点击一次就发送一次，LCD第一行被字母填满后会自动跳到第二显示，第二行也填满后会重新跳到第一行来继续显示，如此循环。

如果下位机电源没打开就向下位机发送握手，则会在接收文本框中显示握手失败。

发送的字母和数字，还有符号都能正确显示。

发送中文则显示为乱码。

代码附录下位机#include <reg51.h>#define uint unsigned int#define uchar unsigned charsbit RS = P2^6; //lcd命令数据状态口sbit RW = P3^6; //lcd读写口sbit E = P2^5; //lcd使能口uchar dispEn=0; //表示是否能把数据显示出来的状态,如果是1才能显示发来的内容,如果是0就要先握手uchar control; //上位机发来的不是数据的东西(比如握手请求)就存在这个变量uchar current=0; //数组下标,用来表示当前写入数据数组的第几个uchar dataArr[32]={"hello hx waiting for shake hand"};code uchar shOKStr[32]=("shake hand succesful");void lcd_init();void lcd_command(uchar); //lcd命令字写入void lcd_dataArr(uchar); //lcd显示数据写入void delay(uchar); //延时void displayArray(uchar *arr[]) ; //显示一个数组的内容void clearDataArr(); //清空显示数组void serial_init(void);void serial(void);// LCD 初始化void lcd_init(){lcd_command(0x38);lcd_command(0x38);lcd_command(0x08); // 显示开关lcd_command(0x01); // 清除LCD的显示内容lcd_command(0x06);lcd_command(0x0c);delay(2);}// LCD 指令void lcd_command(uchar l_data){RS=0;RW=0;E=1;P0=l_data;E=0;delay(2);RW=1;}// LCD 数据void lcd_data(uchar l_data){RS=1;RW=0;E=1;P0=l_data;E=0;delay(2);RW=1;}// 延时void delay(uchar i){uchar j;while(i--){j=128;while(j--);}}// 串口中断服务程序，从RI判断接收中断，TI判断发送中断，由软件清除void serial() interrupt 4 using 1{while(RI==0); //等待接收RI=0;if(current==32)current=0;//如果写到数组结尾就从头开始if(dispEn==1){dataArr[current]=SBUF; //如果已经握手成功就把SBUF送数据数组current++;}if(dispEn==0){control=SBUF; //如果没有握手成功就把SBUF送控制字符}if(control==0x00) //如果控制字符是握手00,那就回复01表示接受{SBUF=0x01; //发送回上位机说明握手接受while(TI==0);TI=0;for(current=0;current<32;current++) //显示握手成功dataArr[current]=shOKStr[current];dispEn=1; //我收过后可以接受数据了control = 0x01; //清除}}// 显示控制void displayArray(uchar arr[]){uchar i=0;lcd_command(0x80); //写第一行for(i=0;i<16;i++){lcd_data(arr[i]);}lcd_command(0xc0); //写第二行for(i=16;i<32;i++){lcd_data(arr[i]);}}void clearDataArr(){for(current=0;current<32;current++)dataArr[current]=" ";}// 初始化串口void serial_init(void){TMOD=0x20;TH1=0xf3; //2400波特TL1=0xf3;SCON=0xd8; //方式3PCON=0x00;TR1=1;ES=1;//打开串口中断EA=1;//允许中断RI=0;TI=0;}// 主函数void main(void){serial_init();lcd_init();delay(20000);while(1){displayArray(dataArr);//processmsg();}}上位机Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时函数Private Sub clear_receivetext_Click()receivetext.Text = ""End SubPrivate Sub clear_sendtext_Click()sendtext.Text = ""End SubPrivate Sub close_Click()MSComm1.PortOpen = False '关闭串口Label3 = "当前状态:关闭"End SubPrivate Sub Command1_Click()End SubPrivate Sub clr_Click()On Error Resume Next '简单的错误处理If MSComm1.PortOpen = False ThenMsgBox "串口已关闭"End IfMSComm1.Output = Chr(255) '用FF代表清屏MSComm1.InputMode = comInputModeText '设置接受模式是文本接受，还是二进制接受End SubPrivate Sub Form_Load()Label3 = "当前状态:关闭"End SubPrivate Sub open_Click()mPort = 4 '使用串行端口4MSComm1.Settings = "2400,N,8,1" '设置波特率等MSComm1.InputLen = 0 '清空从接收缓存器中读到的字符MSComm1.PortOpen = True '打开端口Label3 = "当前状态:打开"End SubPrivate Sub receive_Click()receivetext.Text = MSComm1.Input '实现将接受到的数据以文本形式写到接收部分的窗体内这是核心代码。