delphispcomm溫控器modbus協(xié)議通訊設(shè)計(jì)-wenkub.com
2025-05-11 03:50 本頁(yè)面
【正文】 end。begin :=true。procedure (Sender: TObject)。 //數(shù)據(jù)(關(guān)閉) :=+++。 //功能碼 :=39。begin :=39。 :=Return_Sta_Sting()。000139。0139。 end。 //寄存器地址 :=39。 //地址碼 :=39。01 06 00 02 00 0139。000039。0639。 //制熱模式 :=Return_Sta_Sting(Btn_Qry_Str1)。begin if =39。 end。000139。0639。0139。01 06 00 04 00 0139。 //寄存器地址 :=39。 //地址碼 :=39。 //打開 :=39。 then begin Btn_Qry_Str1:=39。$39。Btn_Qry_Str1:string。 except end。0039。 :=39。 end。 end else begin :=true。+copy(Tmr_Rtn_Str1,15,4))=1 then //當(dāng)前模式 begin :=false。+copy(Tmr_Rtn_Str1,11,4))/10))。$39。.39。$39。) and (copy(Tmr_Rtn_Str1,5,2)=39。 //狀態(tài)返回值 //:=Tmr_Rtn_Str1。+)。 //定時(shí)器狀態(tài)返回字符串變量begin Tmr_Qry_Str1:=39。//定時(shí)返回狀態(tài)值procedure (Sender: TObject)。+Cur_CRC16Str。Cur_CRC16Str,End_Sqr_Str:string。begin 。begin :=39。begin :=39。//==============================清除MEMO文本框中的數(shù)據(jù)============================procedure (Sender: TObject)。39。 then begin Tmr_Rtn_Str[i]:= string1。接收39。 Tmr_Rtn_Str[1]:= string1 end。39。39。)。 {string1:=replacing(string1,39。 end else begin for i:=0 to do begin string1:=replacing(string1,trim([i]),39。 //轉(zhuǎn)換字符串完畢后，清空buffer ZeroMemory(buffer,0)。 // 除取整 除取余 //(39。39。E39。239。039。 n:integer。 type ss=array[1..8192]of char 。end。 sbuf[7]:=byte($85)。 sbuf[3]:=byte($00)。 //將變量轉(zhuǎn)換為byte數(shù)組 end。0039。 //showmessage(tmpstr)。 //獲得字符串長(zhǎng)度,除2取整后加1 //showmessage(inttostr(i))。begin if SqrStr39。// ==========================串口發(fā)送數(shù)據(jù)=======================================procedure sentcustom(SqrStr:string)。 //(39。 viewstring:=39。 if not mflg then messagedlg(39。 end。 mflg:=true。vari:integer。//==============================設(shè)置串口號(hào)======================================procedure (Sender: TObject)。狀態(tài)：39。end。串口打開失敗39。串口已開始捕獲39。 。 if =39。 then //設(shè)置停止位 :=_1。839。 //設(shè)置數(shù)據(jù)位 if =39。 then //設(shè)置數(shù)據(jù)位 :=_5。Space(空格)39。 if =39。 then :=Mark。Even(偶)39。//==============================打開串口==================================procedure (Sender: TObject)。串口已關(guān)閉39。 end。 except := 39。 // :=39。 :=。//=================================設(shè)置串口=====================================procedure ()。 Result:=RightStr(ResStr,2)+39。 end。 Data[j]:=StrToInt(39。 //讀入需要計(jì)算的字符串長(zhǎng)度 i:=1。 ResStr:string。function returnCRC16(vStr1:String):String。begin crc:=$FFFF。 //將最高位置0 if tmp=1 then //檢測(cè)移出的位，如果為1，那么與多項(xiàng)式異或 crc:=crc xor GENP。begin crc:=crc xor AByte。 i:Integer。//// CalCRC16用于計(jì)算Modbus RTU的CRC16// 多項(xiàng)式公式為X16+X15+X2+1//function CalCRC16(AData:array of Byte。 {刪除source字符串} delete(s,site,StrLen)。//替換字符串函數(shù)function replacing(s,source,target:string):string。 if Code=0 then Result:=Result+Chr(M)。+S[t] else ts:=39。..39。..39。..39。f39。F39。939。39。ts:string。strtohexStr:= ss。%0x39。beginwhile str39。//字符串轉(zhuǎn)成16進(jìn)制代碼function strToHexStr(str:string):string。 tmp := Copy(tmp,1,p1)+Copy(t
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1