转速测量系统
通过单片机采集转速数据，通过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 
VB 上位机与单片机
【关闭窗口】