各位大大：
我用modbus跟伺服器做通訊 ，可是我寫出來的程式有時候按可以通，有時候按又不能通。
麻煩大大指教。

[code cpp]
void __fastcall TForm1::BUF_SV_OFFClick(TObject *Sender)
{
DynamicArray ByteSend,;

Form1->ByteSend.Length=13;
Form1->ByteSend[0]=StrToInt("0x01");//局號
Form1->ByteSend[1]=StrToInt("0x10");//寫入
Form1->ByteSend[2]=StrToInt("0x00");//位址
Form1->ByteSend[3]=StrToInt("0x00");
Form1->ByteSend[4]=StrToInt("0x00");//記錄數
Form1->ByteSend[5]=StrToInt("0x02");
Form1->ByteSend[6]=StrToInt("0x04");//資料位元組數
Form1->ByteSend[7]=StrToInt("0x00");//數據
Form1->ByteSend[8]=StrToInt("0x00");
Form1->ByteSend[9]=StrToInt("0x00");
Form1->ByteSend[10]=StrToInt("0x01");//伺服器_on
//CRC檢查碼
int CRC=0xFFFF;
int Poly=0xA001;
int sft;
for(int dtn=0;dtn<(Form1->ByteSend.Length-2) ;dtn )
{
sft=0;
CRC=CRC^Form1->ByteSend[dtn];
while(sft < 8)
{
if(CRC%2 == 1)
{
CRC = CRC >> 1;
CRC=CRC^Poly;
sft ;
}else if(CRC%2 == 0)
{
CRC = CRC >> 1;
sft ;
}
}
}
Form1->ByteSend[11] =StrToInt("0x" IntToHex(CRC%6,2));//CRC檢查碼
Form1->ByteSend[12] =StrToInt("0x" IntToHex(CRC/256,2));//CRC檢查碼
bool T_EN=false;
T_EN=Form1->OutputByte(Form1->ByteSend);
if(T_EN==true){
Form1->BUF_SV_OFF->Visible=false;
Form1->BUF_SV_ON->Visible=true;
T_EN=false;
}
}
[/code]

大大:
您的CRC運算不對

[code cpp]
int CRC=0xFFFF;
int Poly=0xA001;
int sft,j;
Byte c;
for(int dtn=0;dtn<(Form1->ByteSend.Length-2) ;dtn )
{
sft=0;
c=Form1->ByteSend[dtn];
while(sft < 8)
{
j=(CRC^c)&1;
c>>=1;
CRC>>=1;
if (j) CRC=CRC^Poly;
sft ;
}
}
Form1->ByteSend[11] =CRC&0xff;//CRC檢查碼
Form1->ByteSend[12] =CRC>>8;//CRC檢查碼
[/code]

編輯記錄

foreman 大大您好： 我試過你貼的crc碼，不是這個問題，因為我是送的出去，伺服器是有收到，也有執行，但是按很多下才會成功，是不是會是comm的問是呢？ [code cpp] 請在此區域輸入程式碼 bool __fastcall TRS232::OutputByte(const DynamicArray& ByteData) { DWORD lrc,SendNum; int i; byte ch; if(hComm==0) { ShowMessage("COM Port is not yet!"); return(false); } for(i=ByteData.Low;i<=ByteData.High;i ) { ch=ByteData[i]; WriteFile(hComm,&ch,1,&lrc,NULL); } return(true); } [/code]

會不會是com port在設定Baud Rate / Parity / Start bits / Stop bits上面的問題。在Serial Port通訊中，如果兩端的設定不一置，會產生無法預期的錯誤。
===================引 用 arty0117 文 章===================

foreman 大大您好： 我試過你貼的crc碼，不是這個問題，因為我是送的出去，伺服器是有收到，也有執行，但是按很多下才會成功，是不是會是comm的問是呢？ [code cpp] 請在此區域輸入程式碼 bool __fastcall TRS232::OutputByte(const DynamicArray& ByteData) { DWORD lrc,SendNum; int i; byte ch; if(hComm==0) { ShowMessage("COM Port is not yet!"); return(false); } for(i=ByteData.Low;i<=ByteData.High;i ) { ch=ByteData[i]; WriteFile(hComm,&ch,1,&lrc,NULL); } return(true); } [/code]

小弟剛接觸RS232及Modbus，目前對RS232有初步的了解，但對Modbus仍是一知半解的，請問大大可否提供Modbus範例供小弟學習~~感激不盡(小弟已扒過站內的文章了)