分布式發(fā)電機勵磁監(jiān)控系統(tǒng)的設(shè)計

（１）設(shè)置ＣＲＣ寄存器，并給其賦初值ＦＦＦＦＨＥＸ。

（２）將全部數(shù)據(jù)的第一個８ｂｉｔ數(shù)據(jù)與１６位ＣＲＣ寄存器的低８位進行異或，并把結(jié)果存入ＣＲＣ寄存器。

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

（４）如果ＬＳＢ為０，重復(fù)第三步；若ＬＳＢ為１，ＣＲＣ寄存器與多項式碼相異或。

（５）重復(fù)第（３）與第（４）步直到８次移位全部完成。此時一個８ｂｉｔ數(shù)據(jù)處理完畢。

（６）重復(fù)第（２）至第（５）步直到所有數(shù)據(jù)全部處理完畢。

（７）最終ＣＲＣ寄存器的內(nèi)容即為ＣＲＣ值。

Ｄｅｌｐｈｉ６．０環(huán)境下ＣＲＣ－１６實現(xiàn)的函數(shù)如下：

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

ｖａｒ

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

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

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

ｉｉｎｔｅｇｅｒ ／／需校驗數(shù)據(jù)的字節(jié)數(shù)

Ｆｌａｇｉｎｔｅｇｅｒ ／／移位的次數(shù)（８次）

ｂｅｇｉｎ

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

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

＄ｆｆｆｆ（ＨＥＸ）

ＧＬｏ＝ｂｙｔｅ＄０１

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

ｆｏｒ ｉ＝０ ｔｏ ＤＡＴＡ＿Ｌｅｎ－１ ｄｏ ／／各字節(jié)數(shù)據(jù)

ｂｅｇｉｎ

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｘｏｒ ＣＲＣ＿Ｄａｔａｉ ／／各字節(jié)數(shù)據(jù)

與ＣＲＣ寄存器進行異或

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

ｂｅｇｉｎ

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

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

ＣＲＣ１６Ｈｉ＝ＣＲＣ１６Ｈｉ ｓｈｒ １ ／／高字節(jié)右移一位

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｓｈｒ １ ／／低字節(jié)右移一位

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

／／若高字節(jié)ＬＳＢ為１，則低字節(jié)ＭＳＢ置１

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

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

／／若低字節(jié)ＬＳＢ為１，則與多項式碼進行異或

ｂｅｇｉｎ

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

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

ｅｎｄ

ｅｎｄ

ｅｎｄ

ＣＲＣ１６＝ＣＲＣ１６Ｌｏ２５６＋ＣＲＣ１６Ｈｉ ／／ＣＲＣ低字節(jié)在

前，高字節(jié)在后

ｅｎｄ

用雙微機松耦合實現(xiàn)了勵磁控制微機與通信控制微機之間的數(shù)據(jù)交換，并通過通信控制微機完成與上位機之間的通信，將勵磁調(diào)節(jié)器的任務(wù)進行分散，增強了裝置的功能和可靠性。該系統(tǒng)已在國內(nèi)多個中、小型水電站投入運行，運行穩(wěn)定，得到用戶的好評。