如何制作脚踏开关 (四个按钮)

最新推荐文章于 2025-07-06 14:04:11 发布

原创最新推荐文章于 2025-07-06 14:04:11 发布 · 1.8k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #vb

本文介绍了一个利用RS232串口通信的示例，通过DTR、DSR、CTS等信号线的交互实现通信状态监测。包括了VB和C++两种语言的实现方式。

AI助手已提取文章相关产品：

利用RS232的DTR(4脚,输出)、DSR(6脚,输入)和CTS(8脚,输入)

注：这里还可以用RTS(7脚)来代替DTR，而作为输入的还可以用DCD(1脚,输入)和Ring(9脚,输入)

下面的例子运行后，用一导线短接4脚和1脚、4脚和6脚、4脚和8脚、4脚和9脚。
   VB脚本：

Option Explicit

Private Sub Form_Load()

MSComm1.PortOpen = True

MSComm1.DTREnable = True

End Sub

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent

Case comEvCD ' Change in the CD line.

Debug.Print "CD"

Case comEvCTS ' Change in the CTS line.

Debug.Print "CTS"

Case comEvDSR ' Change in the DSR line.

Debug.Print "DSR"

Case comEvRing ' Change in the Ring Indicator.

Debug.Print "Ring"

End Select

End Sub

C++脚本:(用的victor 控件)

AnsiString __fastcall Victor_CommDevice::CommDeviceCommNotify(int SBtn, bool Test)
{
    //动态结构体赋值
    stcom->CTS = CurCommDevice->CTS;
    stcom->DCD = CurCommDevice->DCD;
    stcom->DSR = CurCommDevice->DSR;
    stcom->Ring = CurCommDevice->Ring;
    if ((stcom->CTS || stcom->DCD || stcom->DSR || stcom->Ring) && !down)
    { //每次按下只处理一次事件
        down = true;
        try
        {
            if (SBtn == 1)
            {
                ComFlag = "CTS+DCD+DSR+RLSD";
                Process();
            }
            else if (SBtn > 1)
            {
                if (stcom->CTS)
                {
                    ComFlag = "CTS";
                    CTS_Process();
                }
                if (stcom->DCD)
                {
                    ComFlag = "DCD";
                    DCD_Process();
                }
                if (stcom->DSR)
                {
                    ComFlag = "DSR";
                    DSR_Process();
                }
                if (stcom->Ring)
                {
                    ComFlag = "Ring";
                    RLSD_Process();
                }
                if(Test)
                {
                    return ComFlag;
                }
            }
        }
        catch (Exception& e)
        {
            PMSGDLG->ShowErrorMsg("无法指定的重载函数! 错误原因： " + e.Message);
            if(Test)
            {
                return "";
            }
            Abort();
        }
    }
    else if (!stcom->CTS && !stcom->DCD && !stcom->DSR && !stcom->Ring)
    { //弹开或者其它自动还原数据
        down = false;
        if(Test)
        {
            return "";
        }
    }
}

您可能感兴趣的与本文相关内容