上位机制作过程单片机51vb上位机超简单

合集下载

VB编写的简单的上位机

一个简单的用VB编写的上位机程序自己想做一个简单上位机，却发现相关的资料很少，于是在做出来之后把自己的这样一个简单程序上传，给新入门的朋友一个借鉴学习的资料。

窗口布局用到的MSComm控件的基本属性（必用）CommPort：设置或返回串口通信的串口号（COM口）设置格式是：mPort[=value]，其中object为控件名，如MSComm1；value的合法值是整形的数据，例如1,2……比如mPort=1（默认值），表示我们将用COM1口进行通信COM口可以通过鼠标右击“我的电脑（计算机）”图标，在弹出的快捷菜单中选择“管理”，弹出如下图左边的对话框左键点击“设备管理器”可以看到上图右边对话框左键点击设备管理器可以看到如上图右边视图其中的就是当前连接到计算机的可用串口了Settings：以字符串的形式设置或返回串口通信参数。

设置格式：mPort[=value]其中object为控件名，如MSComm1；Value需为一字符串，由四个设置值组成其格式为：“波特率，奇偶校验，数据位，停止位”Portopen：设置或返回串口状态，若其已经打开，则返回TRUE，否则返回FALSE 设置格式：object.Portopen[=value]其中object为控件名，如MSComm1；value为一逻辑值，若为TRUE，则打开，否则关闭注意：如果串口不是打开（关闭），而对它进行关闭（打开）将会出错RThreshold：该属性为一阀值。

当接收缓冲区中字符数达到该值时，MSComm 控件设置Commevent属性为ComEvReceive，并产生OnComm事件。

用户可在OnComm事件处理程序中进行相应处理。

若Rthreshold属性设置为0，则不产生OnComm事件。

例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将Rthreshold设置为1。

这样接收缓冲区中接收到一个字符，就产生一次OnComm事件。

上位机快速开发教程

上位机快速开发教程上位机是指运行在PC端，对下位机进行控制、监测和数据处理的软件。

在工业控制和自动化领域中，上位机起到了重要的作用。

为了满足快速开发上位机的需求，下面将介绍一个简单易用的上位机开发工具，LabVIEW。

LabVIEW是一种图形化编程语言，它使用数据流的方式来表示程序的执行。

LabVIEW可以通过拖拽模块、线缆和面板，来构建块状的程序结构，使得程序的开发和维护变得非常简单。

要快速开发一个上位机，首先需要了解LabVIEW的基本概念和操作步骤。

LabVIEW的开发环境包括一个Block Diagram和一个Front Panel。

Block Diagram是用于编写程序的地方，Front Panel是程序的用户界面。

在Block Diagram中，可以拖拽需要的模块和函数来构建程序。

LabVIEW中的模块被称为Virtual Instrument(VI)，包括了输入、输出、控制和数据处理等功能。

通过将模块连接起来，可以实现复杂的功能。

在Front Panel中，可以添加用户界面的控件和显示元素。

LabVIEW提供了丰富的控件库，如按钮、滑块、图表等，可以根据实际需求选择使用。

通过将控件和显示元素与Block Diagram中的模块关联起来，可以实现用户界面和程序逻辑的交互。

除了基本的模块和控件，LabVIEW还提供了一些工具和函数来方便程序的开发。

例如，可以使用Error Handling函数来处理程序运行过程中可能出现的错误；可以使用SubVI来封装一些常用的功能，方便重复使用。

LabVIEW还支持多线程编程，可以同时执行多个任务，提高程序的效率和响应速度。

通过将程序分为多个模块，并使用Queue或Notifiers等数据结构来进行数据交互，可以实现多线程编程。

LabVIEW还支持与硬件设备的通信和控制。

通过使用相应的硬件库和函数，可以实现与传感器、执行器等设备的数据交互和控制。

总之，LabVIEW是一种非常强大且易用的上位机开发工具。

自己用VB编制的上位机（MSComm控件）

自己用VB编制的上位机（MSComm控件）本人初学者，许多地方显得粗糙笨拙，但总算是成功了，不过自我感受VB真的很简单，我大致学了两三个星期就可以了。

本文只同向我一样的初学者分享一下经验，毕竟咱不是专业的。

下面开始。

上位机可方便地实现与单片机之间进行信息传递交互，能够更加容易对机械手臂进行控制，实现操作可视化，更加直观，保存重要数据等功能。

我们利用Visual Basic 6.0(以下简称VB)来编制上位机，VB 是一种功能强大、简单易学的程序设计语言。

它不但保留了原先Basic 语言的全部功能，而且还增加了面向对象程序设计功能。

它不仅可以方便快捷地编制适用于数据处理、多媒体等方面的程序，而且利用ActiveX控件MSComm还能十分方便地开发出使用计算机串口的计算机通信程序。

本实验涉及控制六路舵机，所以需要编制上位机实现一次向下位机传输含有六个数据的数组，同时接受来自下位机的数组，并显示。

整个过程可分为如下几个过程：一：VB是面向对象的语言，首先需要绘制程序界面该上位机大致分为左边的功能部分与右边的可视化调节部分。

功能部分有端口选择，用以选择合适的端口进行串口通信，波特率选择，打开与关闭端口，动作设置等。

为了便于布局，应用frame控件建立区域，再将控件拖到frame 区域中，对于功能相同的控件来说，建立控件组的方式会使编程避免重复繁琐，例如HScrollbar控件，先向frame区域内拖入一个HScrollbar控件，再复制，粘贴到frame区域内部，则提示是否建立控件组，点击确定即可。

这样便为后续编程带来很大的方便。

调节部分运用Hscrollbar控件来粗略调节度数，设定按钮与文本框配合来精确调节输出度数。

用右列文本框实时读取舵机当前角度。

用optionbutton控件来选择hscrollbar的步进精度，这里分为0.1度与1度两个不同的选项。

由于一组optionbutton中在程序运行中只能有一个处于选中状态，根据本程序要求，每一横列的两个optionbutton为一组，这样就需要frame控件，在同一个frame区域里的optionbutton默认为一组。

上位机界面编程

首先，我们来大概的回忆一下单片机的串口通信。

8051单片机的串行接口由数据缓冲寄存器SBUF、移位寄存器、串行控制寄存器SCON组成。

8051单片机的串行接口是一个可编程的全双工通信接口，通过软件编程可以作为通用异步接收和发送器使用，也可作为同步移位寄存器,还可实现多机通信。

其帖格式有8位、10位和11位，通过T1或T2设置各种波特率。

1.1 串行口工作原理在发送和接收数据前，先对串行口进行初始化设置，要明确串行口的工作方式、波特率等。

1．发送数据发送数据，由累加器A送入发送缓冲寄存器SBUF，在发送控制器控制下组成帧结构，并自动以串行方式从TXD输出，每发送完一帧TI置位，可以通过中断方式或查询方式来了解数据的发送情况。

值得注意的是TI只能用软件复位。

2．接收数据单片机每接收完一帧数据，RI置位，通过中断或查询方式来了解数据的接收情况，然后用MOV A，SBUF指令，将接收缓冲寄存器(SBUF)的值送累加器A。

RI与TI一样，也只能用软件复位。

1.2串行口工作方式8051单片机通过编程可选择4种串行通信工作方式。

1.方式0在方式0下，串行口用作同步移位寄存器，以8位数据为1帧，先发送或接收最低位，每个机器周期发送或接收1位，其波特率为fosc/12。

串行数据由RXD端输入或输出，同步移位脉冲由TXD端送出。

方式0数据发送与接收是无起始位和停止位，先发送或接收最低位，数据格式为：—D0 D1 D2 D3 D4 D5 D6 D72.方式1在方式1下，串行口为10位通用异步接口，数据格式为：——0 D0 D1 D2 D3 D4 D5 D6 D 7 1 ——发送数据：当执行MOV SBUF，A指令，CPU将1字节的数据写入发送缓冲寄存器SBUF，数据从引脚TXD端输出，当发送完1帧数据后，TI标志置1，可用中断或查询方式来了解数据发送情况，TI只有通过软件复位。

接收数据：接收时，先使REN置1，使串行口处于允许接收状态，RI标志为0，串行口采样到RXD由1到0时，确认是起始位0，就开始接收1帧数据。

VB写上位机

一．打开Visual Basic6.0并设置上位机大小打开Visual Basic6.0,在出现的界面中用鼠标单击，然后点击打开，出现图1-1，图 1-1单击最大化后，在“属性窗口”中找到“Height”、“ScaleHeight”、“ScaleWidth”、“top”、“Width”,并分别填入“9690”“8910”“9390”“360”“9480”。

二．代码编辑器的基本代码输入在界面内找到“视图”，单击，在下拉选项中选择“代码窗口”，单击后出现图1-2，此图就是代码编辑器，在这里填写上位机的代码。

接下来在图1-2中填入如下代码：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByV al hwnd As Long, ByV al lpOperation As String, ByV al lpFile As String, ByV al lpParameters As String, ByV al lpDirectory As String, ByV al nShowCmd As Long) As LongPublic data As SinglePublic temp As SinglePublic flag As BytePrivate Sub Form_Load()Form.WindowState = 0If MSComm1.PortOpen = True Then MSComm1.PortOpen = FalseCombo1.AddItem "COM1"Combo1.AddItem "COM2"Combo1.AddItem "COM3"Combo1.AddItem "COM4"MSComm1.InBufferSize = 8MSComm1.OutBufferSize = 2MSComm1.RThreshold = 4MSComm1.SThreshold = 1MSComm1.InputLen = 0MSComm1.InputMode = comInputModeTextMSComm1.InBufferCount = 0End Sub图1-2三．建立菜单项在“工具”菜单中选择“菜单编辑器”选项，出现图1-3.1.在图1-3中的“标题框”和“名称框”分别填入“文件”、“File”，然后单击“下一个”。

C51LCD1602VB上位机实现简单通信.

设计基本原理主要功能:上位机和下位机连接好后握手,如果成功,上位机就可以发字符串让下位机的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电源。

基于51单片机的温度测试系统 VB上位机

简介：这是我学完51单片机的第一个作品，单片机型号为89c52，时钟芯片用的是DS1302，温度传感器用的是DS18B20，USB供电，掉电后时钟芯片继续工作，且已经设置好的温度上下限和闹钟数据不会丢失。

上位机是用VB语言写的，只是一个模型，从上位机上可以观察当前温度值以及温度上下限，以后会更加完善其功能。

下面是下位机程序和上位机程序，程序比较长，而且下位机程序的键盘部分写得有点麻烦。

下位机程序：/***************************************************************************************作者：江苏科技大学电子信息科学与技术二班吴亚迪注：此程序可以实现万年历闹钟温度测定温度超过上下限发出警报断电后时钟不停，且已设好的温度上下限和闹钟数据不会丢失****************************************************************************************/#include<reg52.h>#define uchar unsigned char#define uint unsigned intuchar code table[]="20 / / DAY- ";uchar code table1[]=" : : ";uchar code table2[]="0123456789";uchar code table3[]=" alarm clock ";sbit ds_clk=P3^6;sbit ds_io=P3^7;sbit ds_rst=P1^4;sbit lcdrs=P1^0;sbit lcdrw=P1^1;sbit lcden=P1^2;sbit scl=P3^2;sbit sda=P3^3;sbit ACC_7=ACC^7;sbit P34=P3^4;bit alarm=0;//闹钟标志位bit stop_alarm=0;//停止闹钟标志位uchar i,j;uchar th,tl; //温度上下限uint th1,th2,tl1,tl2;uchar min,hour,sec; //闹钟时分秒uint min1,min2,hour1,hour2,sec1,sec2;void delay(uint i){uint j;for(;i>0;i--)for(j=0;j<110;j++);}/***********************************************************************************************DS1302部分**************************************************************************************************/ char s,s1,s2; //时钟秒char m,m1,m2; //分char h,h1,h2; //时char day; //星期char date,date1,date2;//日期char mon,mon1,mon2; //月char year,year1,year2;//年void write_ds(uchar add,uchar date ) //向ds1302指定地址写数据{uchar i,temp;ds_rst=0;ds_clk=0;ds_rst= 1;for ( i=8; i>0; i-- ){ds_clk = 0;temp = add;ds_io= temp&0x01;add >>= 1;ds_clk = 1;}for ( i=8; i>0; i-- ){ds_clk = 0;temp = date;ds_io =temp&0x01;date >>= 1;ds_clk = 1;}ds_rst= 0;}uchar read_ds(uchar add ) //ds1302指定地址读数据{unsigned char i,temp,date1;ds_rst=0;ds_clk=0;ds_rst= 1;for ( i=8; i>0; i-- ){ds_clk = 0;temp = add;ds_io=temp&0x01;add >>= 1;ds_clk = 1;}for ( i=8; i>0; i-- ) //这里要注意{ACC_7=ds_io;ds_clk = 1;ACC>>=1;ds_clk = 0;}ds_rst=0;date1=ACC;return date1;}void init_ds() //初始化ds1302{write_ds(0x8e,0x00); //关闭写保护write_ds(0x80,0x22); //初始化秒write_ds(0x82,0x59); //分write_ds(0x84,0x23); //时write_ds(0x86,0x21); //日write_ds(0x88,0x05); //月write_ds(0x8a,0x06); //星期write_ds(0x8c,0x11); //年write_ds(0x8e,0x80); //开写保护}void read_all() //读s，m，h，date，mon，year，day{s=read_ds(0x81);s1=s/16;s2=s%16;m=read_ds(0x83);m1=m/16;m2=m%16;h=read_ds(0x85);h1=h/16;h2=h%16;date=read_ds(0x87);date1=date/16;date2=date%16;mon=read_ds(0x89);mon1=mon/16;mon2=mon%16;day=read_ds(0x8b);year=read_ds(0x8d);year1=year/16;year2=year%16;}/***********************************************************************************************1602部分**************************************************************************************************/ void write_com(uchar com) //写命令{lcdrs=0;lcden=0;P0=com;delay(5);lcden=1;delay(5);lcden=0;}void write_date(uchar date)//写数据{lcdrs=1;lcden=0;P0=date;delay(5);lcden=1;delay(5);lcden=0;}void init_1602() //初始化1602{lcdrw=0;write_com(0x01);write_com(0x38);write_com(0x0f);write_com(0x06);for(i=0;i<16;i++){write_date(table[i]);delay(10);}write_com(0x80+0x40);for(i=0;i<16;i++){write_date(table1[i]);delay(10);}write_com(0x80+0x40+0x0e);write_date(0xdf);delay(10);write_date('c');}/***********************************************************************************************EEPROM部分**************************************************************************************************/void delay1(){ ; ; }void init()//初始化总线{sda=1;delay1();scl=1;delay1();}void start()//开始函数{sda=1;delay1();scl=1;delay1();sda=0;delay1();}void stop()//停止函数{sda=0;delay1();scl=1;delay1();sda=1;delay1();}void respons()//应答{uchar i;sda=1;delay1();scl=1;while(sda==1&&i<250) i++;scl=0;delay1();}void write_byterom(uchar date)//向eeprom中写一字节数据{uchar i;for(i=0;i<8;i++){date=date<<1;scl=0;delay1();sda=CY;delay1();scl=1;delay1();}scl=0;delay1();}uchar read_byterom()//从eeprom中读一字节数据{uchar i,temp;scl=0;delay1();for(i=0;i<8;i++){scl=1;delay1();temp<<=1;temp|=sda;scl=0;delay1();}return temp;}void write_add(uchar add,uchar date)//指定地址写数据{start();write_byterom(0xa0);respons();write_byterom(add);respons();write_byterom(date);respons();stop();}uchar read_add(uchar add)//指定地址读数据{uchar temp;start();write_byterom(0xa0);respons();write_byterom(add);respons();start();write_byterom(0xa1);respons();temp=read_byterom();stop();return temp;}/***********************************************************************************************ds18b20部分**************************************************************************************************/ sbit DQ=P3^5;void delay2(uchar i){while(i--);}void init_ds18b20()//初始化ds18b20{uchar i;DQ=1;delay2(8);DQ=0;delay2(80);DQ=1;while(DQ==1&&i<255) i++;delay2(35);delay2(20);}void write_byte(uchar dat)//向ds18b20中写一字节{uchar i;for(i=0;i<8;i++){DQ=1;delay2(1);DQ=0;delay2(1);DQ=dat&0x01;delay2(5);DQ=1;dat>>=1;delay2(4);}}uchar read_byte()//从ds18b20中读一字节{uchar i,dat=0;for(i=0;i<8;i++){DQ=1;delay2(1);DQ=0;dat>>=1;DQ=1;if(DQ)dat=dat|0X80;delay2(4);}return dat;}uchar read_temp() //读温度函数{uchar a,b,c;init_ds18b20();write_byte(0xcc);write_byte(0x44);init_ds18b20();write_byte(0xcc);write_byte(0xbe);a=read_byte();b=read_byte();c=(b<<4)|(a>>4);return c;}uchar read_th()//读上限函数{uchar a,b,c;init_ds18b20();write_byte(0xcc);write_byte(0x44);init_ds18b20();write_byte(0xcc);write_byte(0xbe);a=read_byte();b=read_byte();c=read_byte();return c;}uchar read_tl()//读下限函数{uchar a,b,c;init_ds18b20();write_byte(0xcc);write_byte(0x44);init_ds18b20();write_byte(0xcc);write_byte(0xbe);a=read_byte();b=read_byte();a=read_byte();c=read_byte();return c;}/***********************************************************************************************键盘部分（P2^0~P2^3）**************************************************************************************************/void keyscan(){uchar temp,num1,num2;temp=P2;temp&=0x0f;if(temp!=0x0f) //消抖{delay(5);if(temp!=0x0f){temp=P2;temp&=0x0f;if(temp==0x0e){num1=1;write_ds(0x8e,0x00);write_ds(0x80,s|0x80);//禁止写保护while(temp==0x0e)//松手检测{temp=P2;temp&=0x0f;}while(1){temp=P2;temp&=0x0f;if(temp==0x0e){delay(5);temp=P2;temp&=0x0f;if(temp==0x0e){num1++;}}while(temp==0x0e)//松手检测{temp=P2;temp&=0x0f;}if(num1==1){write_com(0x80+0x40+0x08); write_com(0x0f);//光标闪烁temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测 {temp=P2;temp&=0x0f;}s=read_ds(0x81);s1=s/16;s2=s%16;s2+=1;if(s2==10){s1+=1;}if(s1==6) s1=0;write_com(0x80+0x40+0x07);write_date(table2[s1]);write_date(table2[s2]);write_ds(0x80,s1*16+s2);//向ds1302中写入秒 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}s=read_ds(0x81);//读ds1302秒s1=s/16;s2=s%16;s2-=1;if(s2==-1){s2=9;s1-=1;}if(s1==-1) s1=5;write_com(0x80+0x40+0x07);write_date(table2[s1]);write_date(table2[s2]);write_ds(0x80,s1*16+s2);}}}if(num1==2){write_com(0x80+0x40+0x05);write_com(0x0f);temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}m=read_ds(0x83);//从ds1302中读分m1=m/16;m2=m%16;m2+=1;if(m2==10){m2=0;m1+=1;}if(m1==6) m1=0;write_com(0x80+0x40+0x04);write_date(table2[m1]);write_date(table2[m2]);write_ds(0x82,m1*16+m2);//向ds1302中写入分 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}m=read_ds(0x83);m1=m/16;m2=m%16;m2-=1;{m2=9;m1-=1;}if(m1==-1) m1=5;write_com(0x80+0x40+0x04);write_date(table2[m1]);write_date(table2[m2]);write_ds(0x82,m1*16+m2);}}}if(num1==3){write_com(0x80+0x40+0x02);write_com(0x0f);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}h=read_ds(0x85);//从ds1302中读时 h1=h/16;h2=h%16;h2+=1;if(h2==10){h2=0;h1+=1;}if(h2==4&&h1==2){h2=0;h1=0;}write_com(0x80+0x40+0x01);write_date(table2[h1]);write_date(table2[h2]);write_ds(0x84,h1*16+h2);//向ds1302中写入时 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}h=read_ds(0x85);h1=h/16;h2=h%16;h2-=1;if(h2==-1){h2=9;h1-=1;}if(h2==9&&h1==-1){h2=3;h1=2;}write_com(0x80+0x40+0x01);write_date(table2[h1]);write_date(table2[h2]);write_ds(0x84,h1*16+h2);}}}if(num1==4){write_com(0x80+0x0f);write_com(0x0f);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}day=read_ds(0x8b);//从ds1302中读星期day+=1;if(day==8){day=1;}write_com(0x80+0x0f);write_date(table2[day]);write_ds(0x8a,day);//向ds1302中写入星期 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}day=read_ds(0x8b);day-=1;if(day==0){day=7;}write_com(0x80+0x0f);write_date(table2[day]);write_ds(0x8a,day);}}}if(num1==5){write_com(0x80+0x09);write_com(0x0f);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}date=read_ds(0x87);//从ds1302中读日期date1=date/16;date2=date%16;date2+=1;if(date2==10){date2=0;date1+=1;}if(date2==2&&date1==3){date2=0;date1=0;}if(date1==0&&date2==0){date1=0;date2=1;}write_com(0x80+0x08);write_date(table2[date1]);write_date(table2[date2]);write_ds(0x86,date1*16+date2);//向ds1302中写入日期 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}date=read_ds(0x87);date1=date/16;date2=date%16;date2-=1;if(date2==-1){date2=9;date1-=1;}if(date2==9&&date1==-1){date2=1;date1=3;}if(date1==0&&date2==0){date1=3;date2=1;}write_com(0x80+0x08);write_date(table2[date1]);write_date(table2[date2]);write_ds(0x86,date1*16+date2); }}}if(num1==6){write_com(0x80+0x06);write_com(0x0f);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}mon=read_ds(0x89);//从ds1302中读月mon1=mon/16;mon2=mon%16;mon2+=1;if(mon2==10){mon2=0;mon1+=1;}if(mon2==3&&mon1==1){mon2=0;mon1=0;}if(mon1==0&&mon2==0){mon1=0;mon2=1;}write_com(0x80+0x05);write_date(table2[mon1]);write_date(table2[mon2]);write_ds(0x88,mon1*16+mon2);//向ds1302中写入月 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}mon=read_ds(0x89);mon1=mon/16;mon2=mon%16;mon2-=1;if(mon2==-1){mon2=9;mon1-=1;}if(mon2==9&&mon1==-1){mon2=2;mon1=1;}if(mon1==0&&mon2==0){mon1=1;mon2=2;}write_com(0x80+0x05);write_date(table2[mon1]);write_date(table2[mon2]);write_ds(0x88,mon1*16+mon2); }}}if(num1==7){write_com(0x80+0x03);write_com(0x0f);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}year=read_ds(0x8d);//从ds1302中读年year1=year/16;year2=year%16;year2+=1;if(year2==10){year2=0;year1+=1;}if(year1==9){year1=0;}write_com(0x80+0x02);write_date(table2[year1]);write_date(table2[year2]);write_ds(0x8c,year1*16+year2);//向ds1302中写入年 }}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}year=read_ds(0x8d);year1=year/16;year2=year%16;year2-=1;if(year2==-1){year2=9;year1-=1;}if(year1==-1){year1=7;}write_com(0x80+0x02);write_date(table2[year1]);write_date(table2[year2]);write_ds(0x8c,year1*16+year2); }}}if(num1==8) //修改上限{write_com(0x80+0x40+0x0d); write_com(0x0f);delay(10);write_com(0x80+0x40+0x09); write_com(0x0e);write_date('T');write_date('H');write_com(0x80+0x40+0x0d); write_com(0x0f);th=read_th();write_com(0x80+0x40+0x0b);if(th>=100){write_date('-');th=~th+1;}else write_date(' ');th1=th/10;th2=th%10;write_date(table2[th1]);write_date(table2[th2]);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测{temp=P2;temp&=0x0f;}tl=read_tl();th=read_th();th+=1;if(th==100){th=157;}if(th==256){th=0;}init_ds18b20(); //写上下限 write_byte(0xcc);write_byte(0x4e);write_byte(th);write_byte(tl);}}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测 {temp=P2;temp&=0x0f;}th=read_th();tl=read_tl();th-=1;if(th==256){th=255;}if(th==156){th=99;}init_ds18b20(); //写上下限write_byte(0xcc);write_byte(0x4e);write_byte(th);write_byte(tl);}}}if(num1==9) //修改下限{write_com(0x80+0x40+0x0d); write_com(0x0f);delay(10);write_com(0x80+0x40+0x09); write_com(0x0e);write_date('T');write_date('L');write_com(0x80+0x40+0x0d); write_com(0x0f);tl=read_tl();write_com(0x80+0x40+0x0b); if(tl>=100){write_date('-');tl=~tl+1;}else write_date(' ');tl1=tl/10;tl2=tl%10;write_date(table2[tl1]);write_date(table2[tl2]);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测 {temp=P2;temp&=0x0f;}tl=read_tl();th=read_th();tl+=1;if(tl==100){tl=157;}if(tl==256){tl=0;}init_ds18b20(); //写上下限 write_byte(0xcc);write_byte(0x4e);write_byte(th);write_byte(tl);}}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测 {temp=P2;temp&=0x0f;}th=read_th();tl=read_tl();tl-=1;if(tl==256){tl=255;}if(tl==156){tl=99;}init_ds18b20(); //写上下限write_byte(0xcc);write_byte(0x4e);write_byte(th);write_byte(tl);}}}if(num1==10){write_com(0x80+0x40+0x09); write_com(0x0e);write_date(' ');write_date(' ');write_date(' ');init_ds18b20(); //拷贝上下限write_byte(0xcc);write_byte(0x48);num1=0;write_ds(0x80,s&0x7f);write_ds(0x8e,0x80);//开启写保护 break;}}}if(temp==0x07)//闹钟设定{delay(5);if(temp==0x07){while(temp==0x07){temp=P2;temp&=0x0f;}if(alarm==1){P34=1;alarm=0;stop_alarm=1;}else{num2=1;while(1){temp=P2;temp&=0x0f;if(temp==0x07){delay(5);temp=P2;temp&=0x0f;if(temp==0x07){num2++;}}while(temp==0x07)//松手检测{temp=P2;temp&=0x0f;}if(num2==1)//按下第一次显示上次设定的时间 {write_com(0x80);for(i=0;i<16;i++){write_date(table3[i]);delay(10);}write_com(0x80+0x40+0x0c);write_date(' ');write_date(' ');write_date(' ');write_date(' ');hour=read_add(1);hour1=hour/10;hour2=hour%10;min=read_add(7);min1=min/10;min2=min%10;sec=read_add(4);sec1=sec/10;sec2=sec%10;write_com(0x80+0x40+0x01); write_date(table2[hour1]);write_date(table2[hour2]);write_com(0x80+0x40+0x04); write_date(table2[min1]);write_date(table2[min2]);write_com(0x80+0x40+0x07); write_date(table2[sec1]);write_date(table2[sec2]);}if(num2==2)//按下第二次设定秒 {write_com(0x80+0x40+0x08); write_com(0x0f);delay(100);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测 {temp=P2;temp&=0x0f;}sec++;if(sec==60) sec=0;}}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测 {temp=P2;temp&=0x0f;}sec--;if(sec==255) sec=59;}}}sec1=sec/10;sec2=sec%10;write_com(0x80+0x40+0x07); write_date(table2[sec1]);write_date(table2[sec2]);if(num2==3)//按下第三次设定分 {write_com(0x80+0x40+0x05); write_com(0x0f);delay(100);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测 {temp=P2;temp&=0x0f;}min++;if(min==60) min=0;}}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测 {temp=P2;temp&=0x0f;}min--;if(min==255) min=59;}}}min1=min/10;min2=min%10;write_com(0x80+0x40+0x04); write_date(table2[min1]);write_date(table2[min2]);if(num2==4)//按下第四次设定时 {write_com(0x80+0x40+0x02); write_com(0x0f);delay(100);temp=P2;temp&=0x0f;if(temp==0x0d){delay(5);if(temp==0x0d){while(temp==0x0d)//松手检测 {temp=P2;temp&=0x0f;}hour++;if(hour==24) hour=0;}}else if(temp==0x0b){delay(5);if(temp==0x0b){while(temp==0x0b)//松手检测{temp=P2;temp&=0x0f;}hour--;if(hour==255) hour=23;}}}hour1=hour/10;hour2=hour%10;write_com(0x80+0x40+0x01);write_date(table2[hour1]);write_date(table2[hour2]);if(num2==5) //按下第五次向eeprom中写入时分（秒省略），并退出循环 {write_add(7,min);delay(10);write_add(1,hour);write_com(0x80);for(i=0;i<16;i++){write_date(table[i]);delay(10);}write_com(0x80+0x40+0x0e);write_date(0xdf);write_date('c');break;}}}}}}}}/***********************************************************************************************主函数部分**************************************************************************************************/ void main(){uchar temp;init();init_1602();init_ds();temp=read_temp();delay(100);while(1)//循环检测{read_all();keyscan();write_com(0x80+0x40+0x01);write_date(table2[h1]);write_date(table2[h2]);write_com(0x80+0x40+0x04);write_date(table2[m1]);write_date(table2[m2]);write_com(0x80+0x40+0x07);write_date(table2[s1]);write_date(table2[s2]);write_com(0x80+0x02);write_date(table2[year1]);write_date(table2[year2]);write_com(0x80+0x05);write_date(table2[mon1]);write_date(table2[mon2]);write_com(0x80+0x08);write_date(table2[date1]);write_date(table2[date2]);write_com(0x80+0x0f);write_date(table2[day]);temp=read_temp();th=read_th();tl=read_tl();//*********************************************************************************温度上限先检测及报警write_com(0x80+0x40+0x0b);if(temp<128) //查看温度是否超过上下限{if((th>128)||(th<128&&temp>=th)||(tl<128&&temp<=tl)){P34=0;delay(1000);P34=1;}}if(temp>128) //temp>128时温度取反后加一，查看温度是否超过上下限{if((th>128&&temp>=th)||(tl>128&&temp<=tl)||(tl<128)){P34=0;delay(1000);P34=1;}write_date('-');temp=~temp+1;}else write_date(' ');write_date(table2[temp/10]);write_date(table2[temp%10]);min=read_add(7);delay(5);hour=read_add(1);delay(5);//***********************************************************************************闹钟检测及报警if((min==m1*10+m2)&&stop_alarm){}else if((min==m1*10+m2)&&(hour==h1*10+h2)&&(!stop_alarm)) //闹钟{alarm=1;}if((min!=m1*10+m2)&&stop_alarm){stop_alarm=0;}if(alarm==1){P34=0;delay(30);P34=1;delay(100);P34=0;delay(30);P34=1;delay(100);P34=0;delay(30);P34=1;delay(100);P34=0;delay(30);P34=1;delay(100);}//*************************************************************************************************** }}上位机程序（VB语言）：Option ExplicitDim i%Dim buf$Private Sub Form_Load()mPort = 2MSComm1.PortOpen = TrueMSComm1.RThreshold = 1MSComm1.InBufferCount = 0MSComm1.InputMode = comInputModeTextText1.FontSize = 10End SubPrivate Sub MSComm1_OnComm() Select Case mEvent Case comEvReceivebuf = Trim(Str(Asc(MSComm1.Input))) i = i + 1If i = 1 ThenText1.Text = bufEnd IfIf i = 2 ThenText2.Text = bufEnd IfIf i = 3 Theni = 0Text3.Text = bufEnd IfEnd SelectEnd Sub上位机运行图片：。

用VB开发PC与单片机通信的上位机程序

串口通信是MCU跟PC通信经常用到的一种通信方式，做界面、写上位机程序的编程语言、编译环境有不少，诸如VB、VC++，Delphi、LABVIEW等等，不过无论黑猫还是白猫，能够抓到老鼠的就是好猫，用VB无疑是最快速最简便的，实现的功能也足够强大，足以满足我们的基本需要了。

我最近用VB写出了一个用于数据采集的串口上位机程序，实现数据的接收和实时绘图，这里和大家分享一下，让大家也体验一下单片机和PC通信的乐趣。

整个程序只需要不到30行程序，我将会给这30行程序加上最为详备的注释，这样即使你从未使用VB制作过上位机程序，也能照猫画虎的编写出属于自己的上位机程序。

一，制定设计思路首先，我们要制定一下自己的串口通讯协议，为了方便设计，通讯协议中将采用字符型数据（遵循ASCII字符集）进行传输，一共5个字节数据，下位机按照从第一字节到第五字节的顺序以1 符号位2 百位3 十位4 个位注释：1，符号符，+（2B）或—（2D），表示数据的正负2,3,4，百位，十位，和个位数字5，结束符，用大写字母A（41）表示接着，我们就要明确设计思路了，这个程序的设计将采用Microsoft Visual Basic 6.0（以下简称VB6.0）作为m，通过编译环境，运用串口通讯控件MSCom计时器控件实现以查询方式编写的串口数据的接收和实时绘图。

二，程序界面设计(1)创建一个标准EXE工程：启动VB6.0，在自动弹出的“新建工程”窗口中单击“标准EXE”图标，然后单击“打开”按钮即可创建一个标准EXE工程。

将弹出的窗体的Caption属性设置为串口通讯与实时绘图程序。

[attachment=1364699](1)添加串口通信控件MSComm：VB的串口通信控件MSComm并不会主动出现在工具箱中，当我们需要MSComm控件时，首先要把它加入工具箱中，选择“工程”菜单下的“部件...”子菜单，在弹出的“部件”对话框中，在“控件”选项卡属性中选中“Microsoft Comm Control 6.0”，单击“确定”按钮后，在工具箱中就出现了一个形似电话的图标，这就是MSComm控件，选择MSComm控件的图标，将它添加到适当位置，采用默认名称MSComm1。

VB编写的上位机程序

VB编写的上位机程序Dim state As Integer '电机状态Dim addr As Integer '从机地址变量Dim speed As Integer '速度变量'Dim num1 As StringPublic wholechar As StringDim RTUcrc As StringDim Inbyte() As BytePublic Buffer As String 'Private Sub Combo1_Click()'Dim temp1 As Single'temp1 = Val(Combo1.Text) '取角度值'num1 = Str(temp1 / 0.9)End SubPrivate Sub Combo2_Click()num2 = Val(Combo2.Text)num2 = num2 * 2End SubPrivate Sub Combo3_Click()speed = Val(Combo3.Text)End SubPrivate Sub Combo4_Click()addr = V al(Combo4.Text)End SubPrivate Sub Command1_Click()MSComm1.Settings = "9600,n,8,1"MSComm1.InBufferSize = 12 '设置MSComm1接收缓冲区为4字节MSComm1.OutBufferSize = 20 '设置MSComm1发送缓冲区为2字节MSComm1.InputMode = comInputModeBinary '设置接收数据模式为二进制形式MSComm1.InputLen = 6 '设置Input 一次从接收缓冲读取字节数为6 MSComm1.RThreshold = 1MSComm1.SThreshold = 0MSComm1.InBufferCount = 0 '清除接收缓冲区MSComm1.OutBufferCount = 0 '清除发送缓冲区If MSComm1.PortOpen = False ThenMSComm1.PortOpen = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueIf Err ThenMsgBox "串口通信无效"End IfEnd IfEnd SubPrivate Sub Command2_Click()Dim hexchrlen%, Hexchr As String, hexcyc As Integer, hexmid As Byte, hexmiddle As String Dim hexchrgroup() As Byte, i As IntegerShape1(0).FillStyle = 1Shape1(1).FillStyle = 1Shape1(2).FillStyle = 1Shape1(3).FillStyle = 1hexchrlen = Len(wholechar)For hexcyc = 1 To hexchrlen '检查Text1文本框内数值是否合适Hexchr = Mid(wholechar, hexcyc, 1)If InStr("0123456789ABCDEFabcdef", Hexchr) = 0 ThenMsgBox "无效的数值，请重新输入", , "错误信息"Exit SubEnd IfNextReDim hexchrgroup(1 To hexchrlen) As ByteFor hexcyc = 1 T o hexchrlen Step 2 '将文本框内数值分成两个、两个i = i + 1Hexchr = Mid(wholechar, hexcyc, 2)hexmid = Val("&H" & CStr(Hexchr))hexchrgroup(i) = hexmid'MSComm1.Output = CStr(hexmid)NextMSComm1.Output = hexchrgroupTimer1.Enabled = TrueEnd SubPrivate Sub Command3_Click()MSComm1.PortOpen = FalseEndEnd SubPrivate Sub Form_Load()For i% = 0 To 20Combo2.AddItem Str(i)Next iCombo2.T ext = "0"For j# = 0.9 To 180.9 Step 0.9Combo1.AddItem Left(CStr(j), 5)Next jCombo1.T ext = "0"For k% = 80 To 255Combo3.AddItem Str(k)Next kCombo3.T ext = "0"Combo4.AddItem "00"Combo4.AddItem "01"Combo4.AddItem "02"Combo4.AddItem "03"Combo4.AddItem "04"Combo4.AddItem "05"Combo4.AddItem "06"Combo4.AddItem "07"Combo4.AddItem "08"Text1.Text = Space(5) + "欢迎使用该控制软件" + Chr(13) + Chr(10) _ + Space(9) + "请打开串口！" + Chr(13) + Chr(10) + Space(9) + _"作者：戚金毅" + Chr(13) + Chr(10) + Space(9) + "班级：电子301班"Option1(0).Value = FalseOption1(1).Value = FalseOption1(2).Value = FalseOption1(3).Value = FalseOption2(0).Value = TrueOption2(1).Value = FalseFor i% = 0 To 3Shape1(i).FillStyle = 1Shape1(i).FillColor = QBColor(4)Next iCommand1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = True/doc/fe10044893.html,mPort = 1Timer1.Enabled = FalseTimer1.Interval = 40 '25End SubPrivate Sub MSComm1_OnComm()Dim Hexchr As String, i As IntegerDim j As Integer, string2 As StringDim k As IntegerDim e(6) As Byte, string3 As StringInbyte = MSComm1.Input '十六进制显示For k = LBound(Inbyte) T o UBound(Inbyte)e(k) = Val(Hex(Inbyte(k)))Next kIf Val(e(1)) = 6 ThenText1.Text = " 成功发送！"Select Case stateCase 1Shape1(0).FillStyle = 0Shape1(1).FillStyle = 1Shape1(2).FillStyle = 1Shape1(3).FillStyle = 1Case 2Shape1(0).FillStyle = 1Shape1(1).FillStyle = 0Shape1(2).FillStyle = 1Shape1(3).FillStyle = 1Case 4Shape1(0).FillStyle = 1Shape1(1).FillStyle = 1Shape1(2).FillStyle = 0Shape1(3).FillStyle = 1Case 8Shape1(0).FillStyle = 1Shape1(1).FillStyle = 1Shape1(2).FillStyle = 1Shape1(3).FillStyle = 0End SelectFor j = 1 To 4If e(j) < 16 ThenText2.Text = Text2.Text & "0" & e(j) & " " ElseText2.Text = Text2.Text & e(j) & " "End IfNext jTimer1.Enabled = FalseElseFor m% = 0 To 3Shape1(m).FillStyle = 1Next mText1.Text = "未成功发送，请再次发送！" Command2.Enabled = TrueEnd IfEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case IndexCase 0state = 1Call incorporateCall checkCommand2.Enabled = TrueCase 1state = 2Call incorporateCall checkCommand2.Enabled = TrueCase 2state = 4Call incorporateCall checkCommand2.Enabled = TrueCase 3state = 8Call incorporateCall checkCommand2.Enabled = TrueEnd SelectEnd SubPrivate Sub Option2_Click(Index As Integer) Select Case IndexCase 0/doc/fe10044893.html,mPort = 1Case 1/doc/fe10044893.html,mPort = 2End SelectEnd SubPrivate Sub incorporate()Dim fcode As String, datalen As StringDim raddr As String, state1 As StringDim speed1 As String, addr1 As StringDim num1 As String '角度变量Dim num2 As String '圈数变量Dim anglenum1%, anglenum2%temp! = Val(Combo1.Text)temp2% = temp / 0.9anglenum1 = Len(CStr(Hex(Val(temp2))))'anglenum1 = Len(num1)Select Case anglenum1Case 0Exit SubCase 1num1 = "0" & CStr(Hex(Val(temp2)))Case 2num1 = CStr(Hex(Val(temp2)))End Selectanglenum2 = Len(CStr(Hex(Val(Combo2.Text)))) Select Case anglenum2Case 0Exit SubCase 1num2 = "0" & CStr(Hex(Val(Combo2.T ext))) Case 2num2 = CStr(Hex(Val(Combo2.Text)))End Selectfcode = "0" & Hex(6)datalen = "0" & Hex(5)raddr = Hex(48)state1 = "0" & Hex(state)speed1 = Hex(speed)addr1 = "0" & Hex(addr)Text1.Text = addr1 & fcode & datalen _& raddr & state1 & speed1 & num1 & num2wholechar = Text1.TextEnd SubPrivate Sub check()Dim CRC() As ByteDim d(9) As ByteDim string1 As StringDim j As Integer, chrlength As Integer, temp As Stringstring1 = wholecharchrlength = Len(string1)For j = 0 To chrlength / 2temp = Mid(string1, j * 2 + 1, 2)d(j) = Val("&H" & temp)Next jRTUcrc = CRC16(d) '调用CRC16计算函数，CRC（0）为高位，CRC（1）为低位wholechar = wholechar & RTUcrcEnd SubPrivate Function CRC16(data() As Byte) As StringDim CRC16Lo As Byte, CRC16Hi As ByteDim CL As Byte, CH As ByteDim CRCLo As String, CRCHi As StringDim SaveHi As Byte, SaveLo As ByteDim i As IntegerDim Flag As IntegerCRC16Lo = &HFFCRC16Hi = &HFFCL = &H1CH = &HA0For i = 0 To UBound(data)CRC16Lo = CRC16Lo Xor data(i)For Flag = 0 To 7SaveHi = CRC16HiSaveLo = CRC16LoCRC16Hi = CRC16Hi \ 2CRC16Lo = CRC16Lo \ 2If ((SaveHi And &H1) = &H1) Then CRC16Lo = CRC16Lo Or &H80End IfIf ((SaveLo And &H1) = &H1) Then CRC16Hi = CRC16Hi Xor CHCRC16Lo = CRC16Lo Xor CLEnd IfNext FlagNext iIf Len(Hex(CRC16Hi)) = 1 Then CRCHi = "0" + Hex(CRC16Hi) Else CRCHi = Hex(CRC16Hi)End IfIf Len(Hex(CRC16Lo)) = 1 Then CRCLo = "0" + Hex(CRC16Lo) Else CRCLo = Hex(CRC16Lo)End IfCRC16 = CRCLo + CRCHi End Function Private Sub Timer1_Timer()Text1.Text = "该从机不存在！"For j% = 0 To 3Shape1(j).FillStyle = 1Next jTimer1.Enabled = FalseEnd Sub。

VB编写上位机 MSComm控件

上位机可方便地实现与单片机之间进行信息传递交互，能够更加容易对机械手臂进行控制，实现操作可视化，更加直观，保存重要数据等功能。

我们利用Visual Basic 6.0(以下简称VB)来编制上位机，VB是一种功能强大、简单易学的程序设计语言。

它不但保留了原先Basic语言的全部功能，而且还增加了面向对象程序设计功能。

它不仅可以方便快捷地编制适用于数据处理、多媒体等方面的程序，而且利用ActiveX控件MSComm还能十分方便地开发出使用计算机串口的计算机通信程序。

本实验涉及控制六路舵机，所以需要编制上位机实现一次向下位机传输含有六个数据的数组，同时接受来自下位机的数组，并显示。

整个过程可分为如下几个过程：一：VB是面向对象的语言，首先需要绘制程序界面该上位机大致分为左边的功能部分与右边的可视化调节部分。

功能部分有端口选择，用以选择合适的端口进行串口通信，波特率选择，打开与关闭端口，动作设置等。

为了便于布局，应用frame控件建立区域，再将控件拖到frame区域中，对于功能相同的控件来说，建立控件组的方式会使编程避免重复繁琐，例如HScrollbar控件，先向frame区域内拖入一个HScrollbar控件，再复制，粘贴到frame 区域内部，则提示是否建立控件组，点击确定即可。

这样便为后续编程带来很大的方便。

调节部分运用Hscrollbar控件来粗略调节度数，设定按钮与文本框配合来精确调节输出度数。

用右列文本框实时读取舵机当前角度。

用optionbutton控件来选择hscrollbar的步进精度，这里分为0.1度与1度两个不同的选项。

这样就可以如上图所示的状态显示，否则真能选中其中的一个。

VB上位机程序编写

控件一、控件地主要属性、事件、地属性：设置或返回串口号. 如设成（默认值），表示对进行操作.：以字符串地形式设置或返回串口通信参数.包括串口通讯地比特率，奇偶校验，数据位长度、停止位等.其默认值是“”，表示串口比特率是，不作奇偶校验，位数据位，个停止位.：设置或返回串口状态.值为时打开串口，值为时关闭串口.：设置或返回接收数据地类型.若值为，则表示以文本形式读取；值为，则表示以二进制形式读取.：设置或返回一次从接收缓冲区中读取字节数.：设置或返回接收缓冲区地大小，缺省值为字节.：设置或返回接收缓冲区中等待计算机接收地字符数. 当将其值设为时，则输入寄存器将被清空.：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读.：设置或返回发送缓冲区地大小，缺省值为字节.：设置或返回发送缓冲区中等待计算机发送地字符数.当将其值设为时，则输出寄存器将被清空.：向发送缓冲区发送数据，该属性设计时无效，运行时只读.：该属性为一阀值.当接收缓冲区中字符数达到该值时，控件设置属性为，并产生事件.用户可在事件处理程序中进行相应处理.若属性设置为，则不产生事件.例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将设置为.这样接收缓冲区中接收到一个字符，就产生一次事件.：该属性亦为一阀值.当发送缓冲区中字符数小于该值时，控件设置属性为，并产生事件.若属性设置为，则不产生事件.要特别注意地是仅当发送缓冲区中字符数小于该值地瞬间才产生事件，其后就不再产生事件.例如设置为，仅当发送缓冲区中字符数从降为时，控件设置属性为，同时产生事件，如发送缓冲区中字符始终为，则不会再产生事件.这就避免了发送缓冲区中数据未发送完就反复发生事件.：这是一个非常重要地属性.该属性设计时无效，运行时只读.一旦串口发生通信事件或产生错误，依据产生地事件和错误，控件为属性赋不同地代码，同时产生事件.用户程序就可在事件处理程序中针对不同地代码，进行相应地处理.属性地代码、常数及含义参见后文、地事件除了公共事件之外，只有一个事件.当属性值变化时将发生事件，指示发生一个通讯事件或错误.当我们设置属性值为时，将使得捕获事件无效.电子桌牌优势智能液晶电子桌牌：是一款新颖地显示、会徽会标、与会者姓名和职务以及可实现多种会议服务功能地会议桌面终端设备.它外形美观大方，完全取代了传统塑料、纸质或铜制桌牌，是会议桌面显示设备地一大创新，同时也是集多种会议功能一体地新型产品终端.本产品与传统桌牌相比，具有信息化程度高、可反复使用地特点.它外型美观时尚、稳重中彰显尊贵、人名显示清晰明亮，是现代信息化会议地理想工具. 文档来自于网络搜索席媒无线智能液晶电子桌牌在供电方面：内置高容量聚合物锂电池（毫安时）供电、确保会议时间达到个小时以上，从而摒弃了电源线、通讯线等一切连接线缆，最终脱离了常规会议类产品必须集成化地束缚，完全没有了布局及手拉手使用地限制. 文档来自于网络搜索席媒无线智能液晶电子桌牌在通讯方面：采用全新地无线设计理念无线联网方式，电子桌牌通过无线基站与控制服务器进行网络通讯，完全实现了后台一人集中操控信息编辑及收发，免去了通过盘或刷卡一个一个桌牌信息导入地苦恼，真正做到了产品任意摆放，内容随意更换，并且即摆即用地要求. 文档来自于网络搜索席媒无线智能液晶电子桌牌在显示方面精心选材：采用高亮度（流明）、高分辨率（*）数字真彩屏，显示文字图形清晰亮丽，背景模板可自定义更换，整个无线桌牌系统还可以与自动化办公系统对接. 文档来自于网络搜索席媒无线智能液晶电子桌牌在终端操作方面：采用正面彩屏为触控屏式，这样便于操作会议功能（人员签到、呼叫服务、投票表决、计时服务、同声传译等）及查看相关会议信息.后台软件系统一人便可轻松完成会场布局安排，人名及会标和背景选择等信息发送. 文档来自于网络搜索席媒无线智能液晶电子桌牌在互动方面：短消息收发、呼叫服务、信息发布通知等充分体现产品地互动性，增添了会议地娱乐性和人性化. 文档来自于网络搜索席媒无线智能液晶电子桌牌在集控方面：利用有线或无线网络，后台一人便可集中控制和管理整个系统运行，操作简单，易学. 文档来自于网络搜索考虑到有些高档机密会议室必须具备信号干扰器，屏蔽系统地因素，杭州席媒也开发了有线型智能液晶电子桌牌，通过有线控制主机集中供电和通讯，依托高智能化地系统软件实现人性化多样会议系统服务功能.从而克服了无法使用等特点. 文档来自于网络搜索编辑本段产品功能文档来自于网络搜索人名显示参会人员姓名、职称、会徽会标、会议主题显示会议签到触摸点击按键，后台自动记录签到者和签到时间会议内容会议查询服务（会议日程安排表、会议布置安排、会议主题、会议用餐安排、会议社会调查、会议内容网上发布等）文档来自于网络搜索呼叫服务呼叫茶水、音响设备、麦克、笔、纸、紧急情况等投票服务对事件满意度进行表决或对候选人进行选举计时服务发言计时及提醒功能日期和时间即时显示日期和时间．概述多功能电子桌牌需要和上位机通信，才能实现桌牌地下载更新和广播信息地接收显示等功能，上位机软件由高级编程语言（）编写. 继承了语言简单易学地优点，又增加了许多新地功能，它采用面向对象与事件驱动地程序设计思想，使编程变得更加方便、快捷，使用既可以开发个人或小组使用地小型工具，又可以开发多媒体软件，数据库应用程序，网络应用程序等大型软件，是国内外最流行地程序设计语言之一.地推出标志着可视化编程时代地到来，具有划时代地意义.文档来自于网络搜索其特点有以下几点：（）可视化地设计平台在中，需要什么样地界面或工具，放置相应地对象（控件）即可，所见即所得，特别方便.文档来自于网络搜索（）面向对象地设计方法按钮、文本框、图片框、列表框、窗口、屏幕、打印机等都是程序中地对象.在中编程者将这些对象采用搭积木地方式就可以构建出程序，这就使程序设计变得轻松有趣.文档来自于网络搜索（）事件驱动地编程机制中程序地执行是由事件来驱动.程序员不必设计程序执行地过程顺序，只要设计出当某一事件发生时要执行地代码即可.这样，就大大提高了编程地效率.文档来自于网络搜索（）易学易用由于发源于，所有地简单易用地特性被很好地保留下来，不需要有较多地计算机专业知识即可轻松上手.文档来自于网络搜索（）使用方便，功能完备地编程工作轻松有趣，中提供了很宽松地编程环境.上位机软件设计中要实现和桌牌地数据通信，控件是必不可少地.该控件易学易用,只有约个属性和事件,可以从地联机帮助中找到它地全部资料.控件为应用程序提供串行通讯功能,其处理通讯地方式为事件查询方式和驱动方式两种.这里仅简述它地主要属性及事件，下面以表示在窗体上设置地控件地名称为例进行说明.文档来自于网络搜索上位机软件设计地一些总结收藏文档来自于网络搜索很多时候，我们需要把硬件设备测量地数据输入计算机，以能够有一个更好地数据表示和一个更好地人机界面，比如说对于一个测井系统，井下测量设备通过各种各样地传感器测得地下地各种信号，通过电缆传输给地面地测量装置.地面测量装置地功能主要是对传感器测来地各种信号进行转换，比如对模拟信号进行采样、对脉冲信号进行计数等.但地面测量装置对数据地表现往往有很大地局限性，比如只能在很小地液晶品上显示实时地曲线，事后无法进行回放分析等.这些时候，往往借助价格相对低廉地来更丰富、更直观地表达数据！文档来自于网络搜索这类系统地需求往往是固定地，但系统开发出来后地维护，和大多数地软件一样，如果设计编码做地不好，维护起来也不是一件令人开心地事情，对于未从事开发地维护人员更是如此！以下根据个人地经验总结一些在设计开发过程中地一些原则！文档来自于网络搜索、设计此类系统往往分为数据输入输出和转换（从下位机取得数据、设置下位机运行状态、原始值和工程值之间地转换）、数据处理（往往和行业有关地转换）、数据表示（为了让专业人员或操作工更直观地对系统状态进行判断）.文档来自于网络搜索设计时可以将这三部分独立开来，通过参数定义交互地方式.三个部分地设计和编码可以独立开来，只要遵从事先约定地数据交换协议即可.这样做可以使开发过程分阶段或在不同地组员之间进行分工而不互相依赖，可以方便地编写测试而不等待其他模块提供数据.比如对于数据输入输出模块，它只需保证能正确地和下位机交换数据并转化为事先约定地格式即可；对于中间数据处理模块，它只负责对于这对于事先约定地数据格式进行正确地处理即可，这部分往往和行业背景有关、所用地软件只涉及语言本身而没有其他复杂地软件方法，很多行业相关地人员往往足以担任；数据表现部分，往往包含数据地存取、绘图、打印等操作，它只依赖于事先定一地数据格式，并不依赖于其他两部分（当然这只是对于开发而言、系统运行时当然依赖于前两者提供地数据）.文档来自于网络搜索、数据地定义数据是整个软件工作地基础，一切地软件活动都是围绕数据而展开，因此定义数据时一定要不厌其烦对其进行说明，对它们代表地实际意义、将对其进行何种处理、确定地以及能够预料到地说明均应当进行记录.文档来自于网络搜索、对于方法最起码地，要说明该方法操作何种数据、函数功能是什么.、对于此类软件，不可避免地要使用一些全局地变量，可以借用组态软件中有关数据字典地概念，对这些全局变量进行统一管理，对其何处初始化、何处修改等尽量进行说明！文档来自于网络搜索、牢记两点：以后要维护；封装.、建议在每个文件创建时进行规范，注明该模块创建人、时间、模块功能等，对于版权信息，那是项目以外地问题，虽个人情况决定！文档来自于网络搜索上位机上位机是指人可以直接发出操控命令地计算机，一般是，屏幕上显示各种信号变化（液压，水位，温度等）.下位机是直接控制设备获取设备状况地计算机，一般是单片机之类地.上位机发出地命令首先给下位机，下位机再根据此命令解释成相应时序信号直接控制相应设备.下位机不时读取设备状态数据（一般为模拟量），转换成数字信号反馈给上位机.简言之如此，实际情况千差万别，但万变不离其宗：上下位机都需要编程，都有专门地开发系统. 文档来自于网络搜索在概念上控制者和提供服务者是上位机被控制者和被服务者是下位机也可以理解为主机和从机地关系但上位机和下位机是可以转换地两机如何通讯，一般取决于下位机.一般是支持地.但是下位机一般具有更可靠地独有通讯协议，购买下位机时，会带一大堆手册光盘，告诉你如何使用特有协议通讯，里面会举大量例子，一般对编程人员而言一看也就那么回事，使用一些新地罢了.多语言支持功能模块，一般同时支持数种高级语言为上位机编程. 文档来自于网络搜索通常上位机和下位机通讯可以采用不同地通讯协议，可以有地串口通讯，或者采用串行通讯，当用计算机和通讯地时候不但可以采用传统地形式地串行通讯，还可以采用更适合工业控制地双线地通讯，采用封装好地程序开发工具就可以实现和上位机地通讯.当然可以自己编写驱动类地接口协议控制上位机和下位机地通讯. 文档来自于网络搜索。

用VB编写上位机实例

标签：无标签VB编写上位机实例用VB编写上位机实例16:14:22 UTC+0800Sun Apr 1 2007用编写第一个串口通信上位机程序Visual 是一个可视化窗口环境的编程软件，目前使用Visual 可以快速简单编写单片机中的串口通信上位机程序。

下面我们以一个完整的通信试验为例子完成如何用Visual 编写单片机串口通信程序。

打开安装好后的Visual 主程序界面。

选择“标准EXE”。

如图1显示，建立Visual Basic的编程环境。

图1在菜单的[工程]选项中选择[部件]，如图2。

把Visual Basic的串口通信控件Microsoft Comm control 调入工作菜单。

图2在打开[部件]对话框中，选择Microsoft Comm control 的选项框，点击[确定]。

图3图3可以在图示3中可以看通信控件Microsoft Comm control 的文件是在C:\WINNT\system32\文件。

如果大家在首次调用通信控件Microsoft Comm control 控件时无法在控件对话框中找到，请直接在系统目录中搜索名为文件。

然后通过浏览加入VB的工作界面中。

添加完控件回到编程界面。

如下图4。

图4通过右边的菜单把一些必要的控件放在窗体中。

然后点击窗体中的Timer控件按F4弹出属性窗口进行设置。

其具体设置如下：Timer定时器控件设置属性，（通过按F4键可弹出此窗口）Mscomm通信控件参数属性设置（通过单击控件的右键属性可弹出此窗口）本文用到的其他控件：CommandButton控件和TextBox控件按默认属性设置不变。

以上设置完成，回到编程窗体区中，任意双击。

会显示Visual Basic的程序窗体的Load事件程序。

在代码窗口中输入：Private Sub Form_Load()= True'窗体的加载时，就打开通信端口，通信端口的参数也可以在此指定='窗体的加载时，同时定时器控件事件End Sub这样设置目的是当程序在打开是，首先打开通信控件MSComm，注意这里的串口通信参数中的波特率设置是默认参数的。

单片机上位机编程语言 -回复

单片机上位机编程语言-回复"单片机上位机编程语言"是指在单片机与上位机之间进行数据传输和控制的编程语言。

它是一种用于编写上位机程序的语言，可以实现单片机与上位机之间的通信和数据交互。

以下将详细介绍单片机上位机编程语言的基本概念、常用语言及其编写步骤。

首先，我们来了解一下单片机和上位机的概念。

单片机是一种集成了处理器、存储器和各种外设接口的微型计算机系统，它通常用于控制和监控各种电子设备。

而上位机是指具备较高计算性能的电脑，负责对单片机进行程序编写、数据交互和结果展示等任务。

在单片机与上位机之间进行数据传输和控制时，我们需要使用一种编程语言来实现二者之间的通信。

常见的单片机上位机编程语言有C/C++、Python、LabVIEW等。

本文将以C语言为例，详细介绍单片机上位机编程语言的编写步骤。

步骤一：准备开发环境与工具首先，我们需要在电脑上安装单片机编程环境和软件开发工具。

常用的开发环境有Keil、IAR等。

同时，我们还需要准备好单片机的开发板、仿真器和下载线等硬件设备。

步骤二：编写上位机程序在编写上位机程序前，我们需要先明确程序的功能以及与单片机之间的数据交互方式。

通常，上位机程序主要包括与单片机进行通信、发送控制指令、接收传感器数据、显示结果等功能。

在C语言中，我们可以使用串口通信来实现单片机与上位机之间的数据传输。

例如，我们可以使用`printf`函数向串口发送控制指令，使用`scanf`函数接收传感器数据。

同时，我们还可以使用图形界面库或者网络通信库来实现结果的可视化展示。

步骤三：编写单片机程序在编写单片机程序前，我们需要了解单片机的硬件资源和外设接口的使用，以及单片机与上位机之间的通信方式。

通常，单片机程序主要包括初始化外设、配置通信接口、接收控制指令、发送传感器数据等功能。

在C语言中，我们可以使用单片机的IO口、定时器、串口等外设接口来实现与上位机的通信。

例如，我们可以使用串口接口来接收上位机发送的指令，使用IO口来控制外设的开关状态，使用定时器来定时采集传感器数据等。

利用上位机修改单片机点阵显示内容的程序

利用上位机修改单片机点阵显示内容的程序【写手稿】：利用上位机修改单片机点阵显示内容的程序1. 引言通过单片机控制点阵显示屏幕已经成为现代电子设备中常见的功能之一。

然而，对于点阵的内容修改，传统的方法需要通过编程修改单片机程序。

为了更加便捷地修改点阵显示内容，可以利用上位机与单片机进行通信，实现实时修改显示内容的功能。

本文将介绍利用上位机修改单片机点阵显示内容的程序，并探讨其优势和应用场景。

2. 上位机与单片机通信上位机通常指的是个人电脑或其他具备处理能力的终端设备。

利用串口通信或者无线通信方式，上位机可以与单片机进行数据交互。

为了实现上位机修改单片机点阵显示内容的程序，我们需要在单片机端编写相应的程序来接收上位机发送的指令，并将其转化为点阵显示的内容。

3. 单片机程序设计为了实现上位机修改点阵显示内容的功能，我们需要先编写单片机程序来接收上位机发送的指令。

这一部分的程序设计包括以下几个方面：- 串口通信配置：设置单片机的串口通信参数，包括波特率、数据位、停止位等。

- 数据接收与解析：通过串口接收上位机发送的指令，并解析其中的内容。

- 显示内容更新：根据接收到的指令内容，更新点阵显示的内容。

- 错误处理机制：考虑到通信可能出现错误的情况，需要设计一套错误处理机制，例如校验机制，用于确保数据的准确性。

4. 上位机程序设计为了实现点阵显示内容的实时修改，我们需要设计一个上位机程序来发送指令给单片机。

这一部分的程序设计涉及以下几个方面：- 用户界面设计：设计一个直观友好的用户界面，用于输入要显示的内容和发送指令。

- 数据打包与发送：根据指定的通信协议，将用户输入的内容进行打包，并通过串口或者无线通信方式发送给单片机。

- 错误处理机制：考虑到通信可能出现错误的情况，需要设计一套错误处理机制，例如重发机制或者超时机制。

5. 实际应用场景上位机修改单片机点阵显示内容的程序在实际应用中可广泛应用于各种领域，例如：- 广告牌和宣传屏幕：通过上位机即时修改点阵显示内容，可以轻松更换宣传信息，提高广告牌的灵活性和实效性。

基于51单片机的上位机通讯系统课程设计说明书

目录摘要 0 (1) (1) (1)1.3 设计思路 (1) (2) (2) (2) (3)2.2.1 +5V电源原理及设计 (3) (4) (5)2.2.4 RS-232接口电器特性 (5) (8) (8)3.2 主控制部分――AT89C52单片机简介 (9) (16) (16)5.课程设计总结 (31)参考文献 (33)摘要随着人们生活水平的不断提高,单片机控制无疑是人们追求的目标之一，它所给人带来的方便也是不可否定的，要为现代人工作、科研、生活、提供更好的更方便的设施就需要从单片机技术入手，一切向着数字化控制，智能化控制方向发展。

现代化集中管理需要对现场数据进行统计、分析、制表、打印、绘图、报警等,同时,又要求对现场装置进行实时控制，完成各种规定操作，达到集中管理的目的。

加之单片机的计算能力有限，难以进行复杂的数据处理。

因此在功能比较复杂的控制系统中，通常以PC机为上位机，单片机为下位机，由单片机完成数据的采集及对装置的控制，而由上位机完成各种复杂的数据处理及对单片机的控制。

本文介绍了一种基于AT89C52 单片机与上位机通信系统, 并对其工作原理及软、硬件的设计和实现方法进行了详细的阐述。

在单片机的输入输出控制中，除直接接上小键盘和LCD显示等方法外，一般都通过串口和上位机PC进行通信，后面一种方法由于PC机拥有强大的数据处理功能以及友好的控制界面并且能实现远程控制所以显得尤为有用。

此系统可以由上位机控制，通过串口操作单片机模块实现其相应功能。

本次设计就是来完成由上位机通过串口控制来实现，以发光二极管的发光状态模拟开关电路的通断，用上位机的DOS命令对其进行控制。

并用LED屏显示程序的传输。

关键字AT89C52单片机；上位机；串口通信；开关电路.1)通过单片机课程设计，熟练掌握汇编语言的编程方法，将理论联系到实践中去，提高我们的动脑和动手的能力。

2)通过上位机通信系统的设计，了解上位机通信系统的工作原理和简单的程序编写，最终提高我们的逻辑思维能力。

基于VB的上位机程序设计说明

3 基于VB6.0的上位机程序设计内部培训资料（不得转载）随着嵌入式系统在电子领域应用的不断深入，可视化的单片机控制与检测系统越来越成为单片机技术的应用热点。

广泛应用到工业自动化生产、交通、医疗、教育和各种自动控制等领域，如心电监护、全方位视频跟踪监视。

在这些复杂的数字系统中，计算机被称为上位机，通过上位机和相关的软件实现传感信号的检测和对外部设备的控制。

利用计算机实现可视化的控制系统包括上位机程序设计、接口设计和单片机系统设计。

单片机相比较计算机而言又叫下位机，是直接对检测对象测量和控制的系统，有时也把接口与下位机设计在在一个系统中统称接口电路。

基于计算机基础的上位机程序可以提高复杂的单片机控制系统的人机交互功能。

本项目设计的内容是一个简单的温度检测系统，上位机程序用来检测和显示单片机系统发送的数据，下位机是一个简单的温度检测系统，通过USB接口虚拟一个串口传输数据，上位机程序实时显示温度，并通过曲线的形式描绘出温度的变化过程。

上位机程序VB6.0设计，程序执行后，上位机程序要定时向下位机即单片机系统发送指令，下位机在接到命令后就开始发送温度信息。

上位机显示的温度曲线要能准确的表示当时的温度，误差不能超过5%，能过显示的温度范围在20摄氏度到80摄氏度之间。

上位机程序两次接收的温度数据间隔控制在在1秒钟左右，能够显示的温度曲线的总时间在2分钟左右。

3.1 VB简单认识VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows 环境下的各类应用程序。

今天我们以VB6.0为基础，简单的认识VB，然后我们就可以利用VB这个强大的开发工具去开发我们需要的各类程序。

3.1.1 VB6.0基本操作在Visual Basic安装成功之后，安装程序自动在【开始】菜单中建立Visual Basic 6.0的程序组和程序项。

51CTO下载-VB开发上位机软件入门教程

内容：西安科技大学科技创新实验班 VB开发上位机软件入门教程作者：苗瑞日期：2009-12-13网站：/bbs在我们平时做东西时，经常要将系统采集的数据交给计算机来处理，这样可以更方便的分对数据进行分析和管理，比如将数据绘制成各种图表和曲线可直观显示现场的情况，还可以将它存储起来，方便以后的查询。

VB是Windows下简单、易学、高效的应用软件开发工具，它里面有一个串口控件MSComm，可以很方便的与我们的微处理器的串口进行连接通信。

这个技能也应该是创新班的同学必须学会的，下面我就先教大家如何先把单片机串口发送上来的数据接收到，下一步再考虑分析数据的问题。

在这里首先要介绍一下MSComm控件的主要属性和事件。

●Commport：设置或返回串口号。

●Settings：以字符串的形式设置或返回串口通信参数，比如波特率等。

●Portopen：设置或返回串口状态，True为打开。

●InputMode：设置或返回接收数据的类型，0表示文本，1表示二进制。

●Inputlen：设置或返回一次从接收缓冲区中读取字节数，0表示所有。

●InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

●InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。

●Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。

●OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。

●OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。

●Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。

●DSRHolding：传回DSR脚位状态。

高为True，低为False。

●CTSHolding：传回通信端口的CTS脚位状态●CDHolding：传回通信端口的DCD脚位状态。

●Rthreshold：该属性为一阀值。

当接收缓冲区中字符数达到该值时，MSComm控件设置Commevent属性为ComEvReceive，并产生OnComm事件。