分布式发电机励磁监控系统的设计

（１）设置ＣＲＣ寄存器，并给其赋初值ＦＦＦＦＨＥＸ。

（２）将全部数据的第一个８ｂｉｔ数据与１６位ＣＲＣ寄存器的低８位进行异或，并把结果存入ＣＲＣ寄存器。

（３）ＣＲＣ寄存器整体向右移一位，ＭＳＢ补零，移出并检查ＬＳＢ。

（４）如果ＬＳＢ为０，重复第三步；若ＬＳＢ为１，ＣＲＣ寄存器与多项式码相异或。

（５）重复第（３）与第（４）步直到８次移位全部完成。此时一个８ｂｉｔ数据处理完毕。

（６）重复第（２）至第（５）步直到所有数据全部处理完毕。

（７）最终ＣＲＣ寄存器的内容即为ＣＲＣ值。

Ｄｅｌｐｈｉ６．０环境下ＣＲＣ－１６实现的函数如下：

ｆｕｎｃｔｉｏｎ ＣＲＣ１６ＣＲＣ＿Ｄａｔａａｒｒａｙ ｏｆ ＢｙｔｅＤＡＴＡ＿Ｌｅｎｉｎｔｅｇｅｒ ｗｏｒｄ

ｖａｒ

ＣＲＣ１６ＬｏＣＲＣ１６Ｈｉｂｙｔｅ ／／ＣＲＣ 寄存器

ＳａｖｅＬｏＳａｖｅＨｉｂｙｔｅ ／／ＣＲＣ 中间寄存器

ＧＬｏＧＨｉｂｙｔｅ ／／生成多项式

ｉｉｎｔｅｇｅｒ ／／需校验数据的字节数

Ｆｌａｇｉｎｔｅｇｅｒ ／／移位的次数（８次）

ｂｅｇｉｎ

ＣＲＣ１６Ｌｏ＝ｂｙｔｅ＄ｆｆ

ＣＲＣ１６Ｈｉ＝ｂｙｔｅ＄ｆｆ ／／给ＣＲＣ寄存器赋初值

＄ｆｆｆｆ（ＨＥＸ）

ＧＬｏ＝ｂｙｔｅ＄０１

ＧＨｉ＝ｂｙｔｅ＄ａ０ ／／多项式码＄ａ００１（ＨＥＸ）

ｆｏｒ ｉ＝０ ｔｏ ＤＡＴＡ＿Ｌｅｎ－１ ｄｏ ／／各字节数据

ｂｅｇｉｎ

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｘｏｒ ＣＲＣ＿Ｄａｔａｉ ／／各字节数据

与ＣＲＣ寄存器进行异或

ｆｏｒ Ｆｌａｇ＝０ ｔｏ ７ ｄｏ

ｂｅｇｉｎ

ＳａｖｅＬｏ＝ＣＲＣ１６Ｌｏ

ＳａｖｅＨｉ＝ＣＲＣ１６Ｈｉ

ＣＲＣ１６Ｈｉ＝ＣＲＣ１６Ｈｉ ｓｈｒ １ ／／高字节右移一位

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｓｈｒ １ ／／低字节右移一位

ｉｆ ＳａｖｅＨｉ ａｎｄ ｂｙｔｅ＄０１＝ｂｙｔｅ＄０１ ｔｈｅｎ

／／若高字节ＬＳＢ为１，则低字节ＭＳＢ置１

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｏｒ ｂｙｔｅ＄８０

ｉｆ ＳａｖｅＬｏ ａｎｄ ｂｙｔｅ＄０１＝ｂｙｔｅ＄０１ ｔｈｅｎ

／／若低字节ＬＳＢ为１，则与多项式码进行异或

ｂｅｇｉｎ

ＣＲＣ１６Ｈｉ＝ＣＲＣ１６Ｈｉ ｘｏｒ ＧＨｉ

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｘｏｒ ＧＬｏ

ｅｎｄ

ｅｎｄ

ｅｎｄ

ＣＲＣ１６＝ＣＲＣ１６Ｌｏ２５６＋ＣＲＣ１６Ｈｉ ／／ＣＲＣ低字节在

前，高字节在后

ｅｎｄ

用双微机松耦合实现了励磁控制微机与通信控制微机之间的数据交换，并通过通信控制微机完成与上位机之间的通信，将励磁调节器的任务进行分散，增强了装置的功能和可靠性。该系统已在国内多个中、小型水电站投入运行，运行稳定，得到用户的好评。