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

利用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   "" ;
        }
    }
}