欧姆龙通信问题 点击：1469 | 回复：15
发表于：2002-11-12 09:45:00
7楼
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, VaClasses, VaComm, Menus, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
VaComm1: TVaComm;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
发表于：2002-11-12 09:46:00
8楼
procedure FCS(var temp: array of byte; n: integer);
var
sum,fcslow,fcshigh: byte;
i: integer;
begin
sum:= $00;
fcslow:= $0f;
fcshigh:= $f0;
for i:=0 to n do sum:= sum xor temp[i];
fcslow:= sum and fcslow;
fcshigh:= sum and fcshigh;
fcshigh:= fcshigh shr 4;
if fcslow<=9 then temp[n+2]:= fcslow+48
else temp[n+2]:= fcslow+55;
if fcshigh<=9 then temp[n+1]:= fcshigh+48
else temp[n+1]:= fcshigh+55;
Form1.Edit2.Text:= inttostr(temp[n+1]);
end;
发表于：2002-11-12 19:56:00
9楼
//---------------FCS编码函数--------------
function EncodeFCS(Source : String):String; //(OMRON专用)
var
i,FcsTmp : integer;
begin
//FCS计算
FcsTmp := 0;
for i := 0 to Length(Source) do
begin
FcsTmp := FcsTmp xor Ord(Source[i]);
end;
Result := IntToHex(FcsTmp,2); //IntToHex函数(需要转换的值,转换结果的位数)
end;
//-----------FCS编码应用示例-----------
SendToPLC_CMD := SendToPLC_CMD + EncodeFCS(SendToPLC_CMD) + #42+#13; //执行后，SendToPLC_CMD就可以发送给PLC了
热门招聘
相关主题
- 国产PLC 图片
[14978] - 组态王视频22讲，很详细。[8472]
- ALTP指令的用法[12622]
- 自控系统设计中PLC的正确选择...[12824]
- IEC61131-3标准专题（一）[9936]
- PMW文件如何打开?[8183]
- GX Developer8在WIN7在能不能...[8852]
- 从零开始学plc[7692]
- 帮帮我这个可怜的人吧[9610]
- 如何对西门子S7-300模拟量输...[7784]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
