elece的博客

简的PROFIBUS主站测试代码,作为子站测试程序使用 procedure Send_Is_Life(DA,SA:Byte); //全局控制 procedure Send_Global_Crontrol(SA:Byte); //获得从站诊断信息 procedure Send_Diagnostics_Data(DA,SA:Byte); //参数初始化 procedure Send_Set_Parameterization(DA,SA:Byte); //检查IO配置 procedure Send_Chk_Configuration(DA,SA:Byte); //可变数据桢验证 function ValidateVarFrame(buffers:array of Byte):Boolean; //固定数据桢验证 function ValidateFrame(buffers:array of Byte):Boolean; //数据交换桢构造 procedure MakeExchangeData(data:Byte;data_pos:Integer); //计算FCS function Calc_Frame_FCS(buffers:array of Byte):Byte; //数据交换 procedure Send_Data_Exchange5(DA,SA:Byte); procedure Send_Data_Exchange7(DA,SA:Byte);

很好的串行通迅软件 procedure TFrmMain.VaComm1RxChar(Sender: TObject; Count: Integer); var a, b:integer; j:char; begin Timer1.Enabled:=False; b := vacomm1.ReadBufUsed; for a := RecvPoint to RecvPoint+b-1 do begin if vacomm1.readchar(j) then begin RecvBuffer[RecvPoint]:=Integer(j); RecvPoint := RecvPoint+1; end; end; Timer1.Enabled:=True; end;

delphi实现的MODBUS SLAVE源代码,支持功能码3,6,16效果不错