如何监测接在串口的一个电器设备的开关信号？(100分)

qj_chen · 2002-06-04

我想在串口接一个电器设备的开关信号，用来自动监测设备的开或关的状态， 请教我该将开关信号接在串口的哪一只脚？监测串口的哪个通信事件？能提供几段 代码供我学习吗？

emonster · 2002-06-04

串口是不能直接接电器设备的开关信号的。应该用并口。你可以用iocomp,portlib之类的控件 来控制，9x下也可直接写端口程序控制。你可以查一查以前的贴子有代码的。

SupermanTm · 2002-06-05

建议加个单片机到串行口，用串口协议来控制，兼容性好点，又可靠

tsedlinux · 2002-06-05

我也想学学 帮你顶一下

qj_chen · 2002-06-05

我是这样设想的，用CreatFike()函数打开串口，用SetCommMask()函数指定串口事件 类型，当电器设备向串口的某一只脚（如RXD或DTR或DSR或RTS或CTS或DELL)发送一个电平 变化信号时（从高电平到低电平或从低电平到高电平），向系统发一个消息。我的设想不 知是否行得通？如果可行，应该使用串口的哪一只脚？在SetCommMask()函数中指定那种类 型的事件？（EV_BREAK或EV_RING或EV_RLSD等等）怎样写代码？     请不吝赐教。

emonster · 2002-06-05

你查查串口输出信号格式就知道不可能直接使用了。

qj_chen · 2002-06-06

谢谢诸位了，我学到不少东西。既然不能直接使用串口，那能不能变通一下，让串口自己 发数据给自己，也就是从TXD脚经过外接的开关到RXD脚，不断的发送数据。一旦接收到数 据就向系统发出消息。这样不知行否？串口的接收和发送是否能同时进行？怎样才能让串 口不断的发送数据？请指教。

御键飞天 · 2002-06-06

你的设想是可以的，计算机串口九针定义:     1.DCD  载波检测     2.RXD  接收数据     3.TXD  发送数据     4.DTR  数据终端就绪     5.GND  信号地     6.DSR  数据设备就绪     7.RTS  请求发送     8.CTS  清除发送     9.RI   振铃指示     使用SetCommMask(...,ev_rxchar)将串口事件设为接收，创建一线程监视此事件，    如有一个电平变化信号发送到RXD，便发送一个消息，给其他线程处理。

御键飞天 · 2002-06-06

看看是否可行？ unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; const   WM_CommNotify=WM_User+100;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }     procedure Comminitialize;     procedure MsgCommProcess(var Message:Tmessage); Message Wm_CommNotify;   public     { Public declarations }   end;   TComm=Class(TThread)   protected     procedure Execute;override;   end; var   Form1: TForm1; implementation {$R *.dfm} var   hCom,Post_Event:THandle;   lpOL

Overlapped; procedure TForm1.Comminitialize; //串行口初始化; var   lpDCB:TDcb; begin   hCom:=CreateFile('COM2',Generic_Read or Generic_Write,0,nil,Open_Existing,                    File_Attribute_Normal or File_Flag_Overlapped,0); //打开串行口;   if hCom=Invalid_handle_Value then   else  begin     setupcomm(hcom,4096,4096); //设置输入,输出缓冲区皆为4096字节;     getcommstate(hcom,lpdcb);  //获取串行口当前默认设置;     lpDCB.baudrate:=2400;     lpDCB.StopBits:=1;     lpDCB.ByteSize:=8;     lpDCB.Parity:=EvenParity;  //偶校验;     SetCommState(hcom,lpdcb);     SetCommMask(hcom,ev_rxchar);//指定串行口事件为接收到字符；   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   Comminitialize;   Post_Event:=CreateEvent(nil,true,true,nil); //创建同步事件；   TComm.Create(False);                        //创建串行口监视线程； end; { TComm } procedure TComm.Execute; var   dwEvtMask

word;   Wait:Boolean; begin   FillChar(lpOL,SizeOf(TOverlapped),0);   while True do   begin     dwEvtMask:=0;     Wait:=WaitCommEvent(hcom,dwevtmask,lpol);      //等待串行口事件；     if Wait then     begin       WaitForSingleObject(Post_Event,INFINITE);    //等待同步事件置位；       ResetEvent(Post_Event);                      //同步事件复位；       PostMessage(Form1.Handle,WM_COMMNOTIFY,0,0); //发送消息；     end;   end; end; procedure TForm1.MsgCommProcess(var Message:Tmessage); begin   ShowMessage('......'); //设备打开或关闭； end; end.

cook · 2002-06-06

如果你的这个串口还用来和这个下位机通讯的话， 那么他上电的时候发一报文你就可以知道了。 如果这个串口只是用来检测该装置是不是开了 那么你只要把他的RTS和电源中一个电平相当的 地方连起来，当他上电的时候你就可以检测到RTS信号了。

qj_chen · 2002-06-06

按cook先生的提示检测RTS的电平，直接用“御键飞天”提供的程序行吗？是否需要将   SetCommMask(hcom,ev_rxchar);//指定串行口事件为接收到字符； 改为指定接收串行口的其他事件？请提供一些例子吧，我对串口编程一无所知啊！

cook · 2002-06-07

我没有具体做过，只是提供给你一个解决办法 因为我用串口的时候都是用全双工，rts是半双工的时候用的到， 其实最简单的还是下位机打开的时候发一报文

qj_chen · 2003-08-13

谢谢大家

如何监测接在串口的一个电器设备的开关信号？(100分)

qj_chen

Unregistered / Unconfirmed

emonster

Unregistered / Unconfirmed

SupermanTm

Unregistered / Unconfirmed

tsedlinux

Unregistered / Unconfirmed

qj_chen

Unregistered / Unconfirmed

emonster

Unregistered / Unconfirmed

qj_chen

Unregistered / Unconfirmed

御键飞天

Unregistered / Unconfirmed

御键飞天

Unregistered / Unconfirmed

cook

Unregistered / Unconfirmed

qj_chen

Unregistered / Unconfirmed

cook

Unregistered / Unconfirmed

qj_chen

Unregistered / Unconfirmed

Similar threads