delphispcomm溫控器modbus協(xié)議通訊設(shè)計(jì)-閱讀頁(yè)
2025-05-29 03:50本頁(yè)面
【正文】 //(39。 + s[n div 16]+s[n mod 16] )。 //轉(zhuǎn)換字符串完畢后，清空buffer ZeroMemory(buffer,0)。狀態(tài)：已停止過(guò)濾39。 end else begin for i:=0 to do begin string1:=replacing(string1,trim([i]),39。)。 {string1:=replacing(string1,39。,39。)。81 33 00 00 09 80 33 00 00 08 39。39。 } end。39。接收39。 Tmr_Rtn_Str[1]:= string1 end。39。接收39。 for i:=1 to 16 do begin if Tmr_Qry_Str[i]=39。 then begin Tmr_Rtn_Str[i]:= string1。39。39。 end。//==============================清除MEMO文本框中的數(shù)據(jù)============================procedure (Sender: TObject)。end。begin :=39。end。begin :=39。end。begin 。//查詢狀態(tài)函數(shù)function Return_Sta_Sting(SqrStr:string):String。Cur_CRC16Str,End_Sqr_Str:string。 //計(jì)算CRC16校驗(yàn)碼 End_Sqr_Str:=SqrStr +39。+Cur_CRC16Str。 //發(fā)送查詢指令 Result:=End_Sqr_Str end end。//定時(shí)返回狀態(tài)值procedure (Sender: TObject)。 //循環(huán)用整數(shù)變量Tmr_Qry_Str1:string。 //定時(shí)器狀態(tài)返回字符串變量begin Tmr_Qry_Str1:=39。 //查詢字符串 Ad_id:=StrToInt(39。+)。 //為狀態(tài)查詢字符串?dāng)?shù)組賦值 Return_Sta_Sting(Tmr_Qry_Str1)。 //狀態(tài)返回值 //:=Tmr_Rtn_Str1。 if (Tmr_Rtn_Str139。) and (copy(Tmr_Rtn_Str1,5,2)=39。) and (round(length(Tmr_Rtn_Str1)/2)=15) then begin :=Tmr_Rtn_Str1。$39。 //當(dāng)前溫度 :=。.39。$39。$39。 :=IntToStr(trunc(StrToInt(39。+copy(Tmr_Rtn_Str1,11,4))/10))。 if StrToInt(39。+copy(Tmr_Rtn_Str1,15,4))=1 then //當(dāng)前模式 begin :=false。 :=39。 end else begin :=true。 :=39。 end。$39。 :=39。 end else begin :=true。0039。 end。 except end。//=================================開關(guān)按鈕=====================================procedure (Sender: TObject)。Btn_Qry_Str1:string。01 06 00 04 00 0039。$39。 //查詢字符串地址碼 for i:=1 to 16 do begin if i=Ad_id then begin if =39。 then begin Btn_Qry_Str1:=39。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。 //打開 :=39。 :=39。 //地址碼 :=39。 //功能碼 :=39。 //寄存器地址 :=39。 //數(shù)據(jù)(關(guān)閉) :=Btn_Qry_Str1。01 06 00 04 00 0139。 :=Return_Sta_Sting(Btn_Qry_Str1)。0139。0139。0639。000439。000139。 end。 end。//=================================模式按鈕=====================================procedure (Sender: TObject)。begin if =39。 then begin Btn_Qry_Str1:=39。 //制熱模式 :=Return_Sta_Sting(Btn_Qry_Str1)。0139。0639。000239。000039。0039。01 06 00 02 00 0139。 :=39。 //地址碼 :=39。 //功能碼 :=39。 //寄存器地址 :=39。 //數(shù)據(jù)(睡眠) :=39。 end。//=================================調(diào)溫按鈕=====================================procedure (Sender: TObject)。0139。0639。000139。 :=intToHex((strtoint())*10,4)。 :=Return_Sta_Sting()。end。begin :=39。 //地址碼 :=39。 //功能碼 :=39。 //寄存器地址 if strtoint()10 then begin :=inttostr(strtoint()1)。 //數(shù)據(jù)(關(guān)閉) :=+++。 end。procedure (Sender: TObject)。end。begin :=true。procedure (Sender: TObject)。
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1