VB 如何编写 PPI 协议串口控制单片机 LED

# VB 如何编写 PPI 协议串口控制单片机 LED

## 一、概述

PPI（Point-to-Point Interface）是工业控制中常见的通信协议，常用于PLC与设备间的数据交互。本文介绍如何通过VB6.0编写串口程序，利用PPI协议控制单片机端的LED灯开关。

## 二、硬件准备

1. **硬件清单**
   - 计算机（带COM口或USB转串口）
   - 单片机开发板（如STC89C52）
   - MAX232电平转换芯片
   - LED灯及限流电阻

2. **电路连接**
   - 单片机串口通过MAX232与PC串口连接
   - LED连接单片机P1.0引脚

## 三、VB6串口通信实现

### 1. 添加MSComm控件
在VB6工程中引用`Microsoft Comm Control 6.0`：
```vb
' 在窗体上添加MSComm控件
MSComm1.CommPort = 1       ' COM1端口
MSComm1.Settings = "9600,N,8,1"  ' 波特率9600
MSComm1.PortOpen = True    ' 打开串口

2. PPI协议帧格式

典型PPI指令帧结构：

| 起始符 | 地址域 | 功能码 | 数据域 | 校验码 | 结束符 |

示例控制指令（简化版）：

Dim cmd As String
cmd = Chr(&H68) + Chr(&H1) + Chr(&H7) + "LED_ON" + Chr(&H16)

3. 数据发送函数

Sub SendPPICommand(cmd As String)
    MSComm1.Output = cmd
    DoEvents
    Delay 200  ' 延时200ms等待响应
End Sub

Sub Delay(ms As Long)
    Dim t As Long
    t = GetTickCount
    Do While GetTickCount - t < ms
        DoEvents
    Loop
End Sub

四、单片机端程序（C51示例）

#include <reg52.h>

void UART_Init() {
    SCON = 0x50;
    TMOD = 0x20;
    TH1 = 0xFD;
    TL1 = 0xFD;
    TR1 = 1;
}

void main() {
    UART_Init();
    while(1) {
        if(RI == 1) {
            RI = 0;
            if(SBUF == 'LED_ON') P1_0 = 0;  // LED亮
            if(SBUF == 'LED_OFF') P1_0 = 1; // LED灭
        }
    }
}

五、完整VB控制示例

Private Sub cmdLEDOn_Click()
    SendPPICommand Chr(&H68) + Chr(&H1) + Chr(&H7) + "LED_ON" + Chr(&H16)
End Sub

Private Sub cmdLEDOff_Click()
    SendPPICommand Chr(&H68) + Chr(&H1) + Chr(&H7) + "LED_OFF" + Chr(&H16)
End Sub

六、注意事项

1. 需确保双方波特率、校验位等参数一致
2. 工业PPI协议需严格遵循西门子通信规范
3. 实际应用中建议添加超时重发机制
4. 可通过串口调试助手先测试通信链路

七、扩展应用

本方案可扩展为： - 多LED控制 - 传感器数据采集 - 工业设备状态监控

通过VB的友好界面与PPI协议的可靠性，可快速构建小型工控系统。 “`

（注：实际PPI协议较为复杂，本文为简化教学示例，实际工业应用需参考具体设备协议文档）