山东群英会开奖结果

(玩电子) 电子技术学习与研究
当前位置:单片机教程网 >> MCU设计实例 >> 浏览文章

VB 上位机与单片机

作者:佚名   来源:本站原创   点击数:x  更新时间:2014年08月21日   【字体:

 转速测量系统
通过单片机采集转速数据,通过USB口发送到PC,并产生曲线图。

单片机程序:
//---------------------串口初始化----------------------------

void initSerial()
{    
     TMOD=0x20;    //定时器1置为方式2
     TH1=0xfd;     
     TL1=0xfd;               //设置波特率位9600
 SCON = 0x50; // 设定串行口工作方式
     PCON &= 0x00; // 波特率不倍增
     TR1=1;
     REN=1;
     SM0=0;
     SM1=1;
     EA=1;
     ES=1;
}

//---------------------------发送程序---------------------------------------------
void send_char(void)
// 传送十六位的蝯转速数据,低位在前
{
unsigned i=0;

while (i < 6)
{
SBUF =zhuansu_char[i];
while (!TI);      // 等特数据传送
TI = 0;         // 清除数据传送标志
i++;
}
}
//----------------------主程序------------------------
void main()
  {          
         uchar receive;
         lcdrs=0;
 init();                 //中断初始化
         initSerial();            //通信初始化
         lcdinit();              //液晶显示初始化
 write_project_title();
     while(1)
          {
         
              write_project_data(zhuansu);
              if (RI)          // 是否有数据到来
            {
     RI = 0;
     receive = SBUF;
       if (receive == 's')             // 是否开始采集转速
          {
         send_char();     // 传送采集的转速
                        }
               }
      }
}



VB界面如下:
 


调试后的结果是:
 


VB程序如下:
'定义窗体级变量
'在显示、绘图等过程中使用
Dim datazhuansu(200) As Single                   ' 用于存储转速采样值
Dim num As Integer                            ' 用于存储采样值个数
'-----------------------------------------------
'     转速采集
'-----------------------------------------------
Private Sub CmdStart_Click()                    ' 开始采集
    Timer1.Enabled = True
End Sub
'-----------------------------------------------
'     停止采集
'-----------------------------------------------
Private Sub CmdStop_Click()   ' 停止采集
          Timer1.Enabled = False
    End Sub
'串口初始化
'在窗体的Load事件中加入下列代码对串口进行初始化:
'-----------------------------------------------
'    载入窗体
'-----------------------------------------------
Private Sub Form_Load()
    MSComm1.CommPort = 1                                      ' 设置串口
    MSComm1。InputMode = comInputModeBinary                    ' 二进制输入模式
    MSComm1。RThreshold = 1                                    ' 接收1个字符触法OnComm 事件
    MSComm1。SThreshold = 1                                    ' 发送1个字符触法OnComm 事件
    MSComm1.Settings = "9600,n,8,2"                           ' 设置波特率
    MSComm1。PortOpen = True                                    ' 打开串口
    Call ScaleSys                                             ' 绘制坐标系
   
    CmdStop。Enabled = False
    End Sub
'-----------------------------------------------
'    接收触法事件
'-----------------------------------------------
'获取转速测量值并显示
'每发送一次指令,触发下面事件,返回数据串
Private Sub MSComm1_OnComm()
    Dim Inbyte() As Byte                         ' 接收数据暂存
    Dim buffer As String                         ' 转速数据缓冲
    Dim datasu2a, datasu2b As String         ' 两字节进制转速数据
    Dim datasu2 As String                      ' 十六进制转速数据
       If num > 199 Then             ' 接收个数判断
        Call renew                ' 接收完毕
           End If
      '读取仪表返回数据串
    Select Case MSComm1.CommEvent
        Case comEvReceive
              Inbyte = MSComm1.Input              ' 接收转速数据
              For i = LBound(Inbyte) To UBound(Inbyte)          ' 把接收的数据安十六进制格式放入缓冲中
            buffer = buffer + Hex(Inbyte(i)) + Chr(32)
        Next i
    End Select
         '获取十进制测量数据
    If Len(Trim(Mid(buffer, 1, 2))) = 1 Then
        datazhuansu(num) = Val("&H" & Mid(buffer, 3, 3) & Str("0") & Mid(buffer, 1, 2)) * 0。0625
    Else
        datazhuansu(num) = Val("&H" & Mid(buffer, 3, 3) & Mid(buffer, 1, 2)) * 0.0625
    End If
      '获取十六进制测量数据
    If Len(Trim(Mid(buffer, 1, 2))) = 1 Then
        datasu2a = Str("0") & Trim(Mid(buffer, 1, 2))
    Else
        datasu2a = Mid(buffer, 1, 2)
    End If
        If Len(Trim(Mid(buffer, 4, 2))) = 1 Then
        datasu2b = Str("0") & Trim(Mid(buffer, 3, 2))
    Else
        datasu2b = Mid(buffer, 4, 2)
    End If
    datasu2 = datasu2a & " " & datasu2b
    
   '显示测量转速值
   If datazhuansu(num) <> 0 Then
        zhuansuText = datasu2
        Call draw                                       ' 调用绘曲线过程
          End If
   End Sub
'-----------------------------------------------
'    转速曲线绘制
'-----------------------------------------------
'绘制转速实时变化曲线
Private Sub draw()
    Picture1.DrawWidth = 2                                  ' 设置线宽
    Picture1.DrawStyle = vbSolid
       For i = 1 To num - 1
        X1 = (i - 1): Y1 = datazhuansu(i - 1)
        X2 = i: Y2 = datazhuansu(i)
        Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0)         ' 绘制转速曲线
    Next i
    End Sub
'-----------------------------------------------
'    刷新绘图区
'-----------------------------------------------
Private Sub renew()
    If num = 0 Then Exit Sub
        zhuansuText.Text = "":
    Picture1.Cls
    Call ScaleSys
    For i = 0 To num - 1
        datazhuansu(i) = 0
    Next i
    num = 0
    Counter = 0
  
End Sub
'-----------------------------------------------
'    定时发送采集标志
'-----------------------------------------------
'每隔 x ms向仪表发送读数据命令串
'每台仪表有一个仪表号,PC机通过仪表号来识别网上的多台仪表
'程序中仪表号(即地址代号)要与仪表设定值一致,否则不能返回数据。

Private Sub Timer1_Timer()
    MSComm1.Output = "s"           ' 发送开始标志
    End Sub
'-----------------------------------------------
'    卸载窗体
'-----------------------------------------------
Private Sub Cmdquit_Click()
    Unload Me    ' 卸载窗体
    End Sub
'-----------------------------------------------
'    建立图像坐标系
'-----------------------------------------------
Sub ScaleSys()               ' 坐标系
    Picture1.AutoRedraw = True                              ' 自动重绘有效
    Picture1.DrawWidth = 1                                  ' 线宽1个像素
    Picture1.ScaleMode = vbPixels                           ' 像素为单位
    Picture1。Scale (0, 125)-(200, -50)                      ' 坐标系
    Picture1.DrawStyle = vbDot                              ' 点线
    ' 横坐标
    Picture1.Line (0, 0)-(200, 0), RGB(130, 130, 130)
    Picture1.Line (0, 25)-(200, 25), RGB(130, 130, 130)
    Picture1.Line (0, 50)-(200, 50), RGB(130, 130, 130)
    Picture1.Line (0, 75)-(200, 75), RGB(130, 130, 130)
    Picture1.Line (0, 100)-(200, 100), RGB(130, 130, 130)
    Picture1.Line (0, -25)-(200, -25), RGB(130, 130, 130)
    ' 纵坐标
    Picture1。Line (25, 125)-(25, -50), RGB(130, 130, 130)
    Picture1.Line (50, 125)-(50, -50), RGB(130, 130, 130)
    Picture1.Line (75, 125)-(75, -50), RGB(130, 130, 130)
    Picture1.Line (100, 125)-(100, -50), RGB(130, 130, 130)
    Picture1.Line (125, 125)-(125, -50), RGB(130, 130, 130)
    Picture1.Line (150, 125)-(150, -50), RGB(130, 130, 130)
    Picture1.Line (175, 125)-(175, -50), RGB(130, 130, 130)
    
End Sub

 
发表评论】【告诉好友】【收藏此文】【关闭窗口

文章评论

山东群英会开奖结果相关的文章

北京两步彩官网 北京赛车pk10玩法 pk10玩法 北京赛车pk10玩法 欢乐生肖官方网站 北京赛车pk10赔率最高的平台 聚发彩票注册 北京赛车 北京赛车pk10玩法 北京赛车怎么玩