轉速測量系統
通過單片機采集轉速數據，通過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

相關文章