各位大大：

小弟目前在寫與豐煒plc通訊的程式，可是已經弄很久都無法使plc上的燈號亮起來，不知道是哪裡出問題，可以麻煩有經驗的大大幫忙看一下程式碼嗎???

另外，小弟在讀取plc的command時，會有當機的情形，請問發生什麼事???有沒有書可以介紹一下呀，小弟已經困擾很久了，謝謝各位大大幫忙

程式真麻煩

編輯記錄

忘了附程式碼，請各位大大看看

[code cpp]
void __fastcall TForm1::button_OpenPortClick(TObject *Sender)
{
DCB dcb;
AnsiString strPort="";
strPort = ComboBox1->Text;
hComm = CreateFile(strPort.c_str(),GENERIC_READ|GENERIC_WRITE,0,
NULL,OPEN_EXISTING,0,0);
if( hComm == INVALID_HANDLE_VALUE )
{
MessageBox(0,"開啟錯誤!!","Error",MB_OK);
return;
}
GetCommState(hComm,&dcb);
dcb.fParity = TRUE;
dcb.BaudRate = 19200;
dcb.ByteSize = 7;
dcb.Parity = EVENPARITY;
dcb.StopBits = ONESTOPBIT;

if( !SetCommState(hComm,&dcb) )
{
MessageBox(0,"設定錯誤!!","Error",MB_OK);
CloseHandle(hComm);
return;
}

}

int __fastcall TForm1::ResultStr(int nAck,BYTE temp[],BYTE result[])
{
char cSum;
int Sum[16]={0};
int nSum=0,nCount=0,nTotalByte=0;
int nTen=0,nOne=0;
AnsiString str="";
*(result 0) = GetFirstEndChar(nAck);
*(result 1) = HexToChar(0);
*(result 2) = HexToChar(0);
while( temp[nCount] != '%' )
{
*(result nCount 3) = temp[nCount];
nCount ;
}
*(result nCount 3) = GetFirstEndChar(3);
nTotalByte = nCount 4;
for(int i=1;i {
str.sprintf("0x%X",*(result i));
int a = str.ToInt();
nSum = a;
}
nCount = 0;
str = IntToHex(nSum,2);
AnsiString b;
b = str.SubString(2,1);
*(result nTotalByte) = StrToASCII(b);
b = str.SubString(3,1);
*(result nTotalByte 1) = StrToASCII(b);
return nTotalByte 2;
}

void __fastcall TForm1::but_Y0Click(TObject *Sender)
{
AnsiString str;
DWORD dwByte;
BYTE tempresult[20]={0};
int nBitNum=0;
shape_Y0->Brush->Color = clRed;

BYTE temp[]={0x36,0x31,0x31,0x43,0x43,0x38,0x30,0x32,0x31,0x45,0x41,0x33,'%'};
shape_Y0->Brush->Color = clGreen;
nBitNum = ResultStr(2,temp,tempresult);

str.sprintf("%s",tempresult);

bool bOK = WriteFile(hComm,str.c_str(),str.Length(),&dwByte,NULL);
}
[/code]

編輯記錄