delphispcomm溫控器modbus協(xié)議通訊設(shè)計(jì)-資料下載頁
2025-05-14 03:50本頁面
【正文】 //當(dāng)前模式 begin :=false。 :=true。 :=39。0139。 end else begin :=true。 :=false。 :=39。0039。 end。 if StrToInt(39。$39。+copy(Trimplace(Tmr_Rtn_Str1),23,4))=1 then //當(dāng)前狀態(tài) begin :=false。 :=39。0139。 end else begin :=true。 :=39。0039。 end。 end。 end。 except end。end。//=================================開關(guān)按鈕=====================================procedure (Sender: TObject)。vari,Ad_id:integer。Btn_Qry_Str1:string。begin Btn_Qry_Str1:=39。01 06 00 04 00 0039。 //關(guān)閉 Ad_id:=StrToInt(39。$39。+)。 //查詢字符串地址碼 for i:=1 to 16 do begin if i=Ad_id then begin if =39。0139。 then begin Btn_Qry_Str1:=39。01 06 00 04 00 0039。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。 :=Return_Sta_Sting(Btn_Qry_Str1)。 //打開 :=39。0039。 :=39。0139。 //地址碼 :=39。0639。 //功能碼 :=39。000439。 //寄存器地址 :=39。000039。 //數(shù)據(jù)(關(guān)閉) :=Btn_Qry_Str1。 end else begin Btn_Qry_Str1:=39。01 06 00 04 00 0139。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。 :=Return_Sta_Sting(Btn_Qry_Str1)。 //打開 :=39。0139。 :=39。0139。 //地址碼 :=39。0639。 //功能碼 :=39。000439。 //寄存器地址 :=39。000139。 //數(shù)據(jù)(關(guān)閉) :=Btn_Qry_Str1。 end。 end。 end。end。//=================================模式按鈕=====================================procedure (Sender: TObject)。varBtn_Qry_Str1:string。begin if =39。0139。 then begin Btn_Qry_Str1:=39。01 06 00 02 00 0039。 //制熱模式 :=Return_Sta_Sting(Btn_Qry_Str1)。 :=39。0139。 //地址碼 :=39。0639。 //功能碼 :=39。000239。 //寄存器地址 :=39。000039。 //數(shù)據(jù)(加熱) :=39。0039。 end else begin Btn_Qry_Str1:=39。01 06 00 02 00 0139。 //睡眠模式 :=Return_Sta_Sting(Btn_Qry_Str1)。 :=39。0139。 //地址碼 :=39。0639。 //功能碼 :=39。000239。 //寄存器地址 :=39。000139。 //數(shù)據(jù)(睡眠) :=39。0139。 end。end。//=================================調(diào)溫按鈕=====================================procedure (Sender: TObject)。begin :=39。0139。 //地址碼 :=39。0639。 //功能碼 :=39。000139。 //寄存器地址 if strtoint()35 then begin :=inttostr(strtoint()+1)。 :=intToHex((strtoint())*10,4)。 //數(shù)據(jù)(關(guān)閉) :=+++。 :=Return_Sta_Sting()。 end。end。procedure (Sender: TObject)。begin :=39。0139。 //地址碼 :=39。0639。 //功能碼 :=39。000139。 //寄存器地址 if strtoint()10 then begin :=inttostr(strtoint()1)。 :=intToHex((strtoint())*10,4)。 //數(shù)據(jù)(關(guān)閉) :=+++。 :=Return_Sta_Sting()。 end。 end。procedure (Sender: TObject)。begin :=false。end。procedure (Sender: TObject)。begin :=true。end。procedure (Sender: TObject)。begin 。end。end
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1