delphispcomm溫控器modbus協(xié)議通訊設(shè)計(jì)-免費(fèi)閱讀
【正文】 procedure (Sender: TObject)。 end。 //地址碼 :=39。 :=intToHex((strtoint())*10,4)。//=================================調(diào)溫按鈕=====================================procedure (Sender: TObject)。 //功能碼 :=39。0039。0139。//=================================模式按鈕=====================================procedure (Sender: TObject)。000439。 :=Return_Sta_Sting(Btn_Qry_Str1)。 //功能碼 :=39。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。01 06 00 04 00 0039。 end。$39。 :=39。 :=IntToStr(trunc(StrToInt(39。 //當(dāng)前溫度 :=。 if (Tmr_Rtn_Str139。 //查詢字符串 Ad_id:=StrToInt(39。 //發(fā)送查詢指令 Result:=End_Sqr_Str end end。//查詢狀態(tài)函數(shù)function Return_Sta_Sting(SqrStr:string):String。end。 end。 for i:=1 to 16 do begin if Tmr_Qry_Str[i]=39。接收39。81 33 00 00 09 80 33 00 00 08 39。)。 + s[n div 16]+s[n mod 16] )。 for i:=10 to 15 do s[i]:=chr(55+i)。139。 i:integer。 end。 sbuf[1]:=byte($01)。39。 then begin str11:=Trimplace(SqrStr)。)。,mterror,[mbyes],0)。 for i:=1 to high(sbuf) do begin if not (sbuf[i],1) then begin mflg:=false。end。begin 。狀態(tài)：39。 then :=_2。 //設(shè)置數(shù)據(jù)位 if =39。639。 then :=Odd。 if =39。 //showmessage(inttostr())。++39。 //設(shè)置串口的當(dāng)前波特率 。+LeftStr(ResStr,2)。+copy(szData,i,2))。begin szData:=Trimplace(vStr1)。 Result:=crc。 //取出最低位 crc:=crc shr 1。const GENP=$A001。 begin {source在S中出現(xiàn)的位置} site:=pos(source,s)。+S[t]+S[t+1]。,39。 if (t+1Length(S))or(not (S[t+1] in [39。A39。begint:=1。 delete(str,1,1)。ss:string。 39。end。 end else if ErrCode ERROR_NO_MORE_ITEMS then exit。 repeat ValueLen := 256。TmpPorts: TStringList。 //當(dāng)前查詢字符串 Btn_Qry_Str,Tmr_Qry_Str:array[1..32] of string。 //function CalCRC16(AData:array of Byte。 procedure Timer1Timer(Sender: TObject)。 procedure Comm1ReceiveData(Sender: TObject。 Label26: TLabel。 Edit8: TEdit。 Edit5: TEdit。 Label16: TLabel。 Panel3: TPanel。 Panel2: TPanel。 Label4: TLabel。 Memo2: TMemo。 Button1: TButton。 Button2: TButton。 GroupBox2: TGroupBox。 Label7: TLabel。 Label8: TLabel。 Panel4: TPanel。 Edit1: TEdit。 Label20: TLabel。 Label23: TLabel。 Label27: TLabel。 Buffer: Pointer。 procedure Button7Click(Sender: TObject)。AStart,AEnd:Integer):Word。 //按鈕、定時(shí)器返回字符串?dāng)?shù)組 Btn_Rtn_Str,Tmr_Rtn_Str:array[1..32] of string。beginErrCode := RegOpenKeyEx( HKEY_LOCAL_MACHINE, 39。 DataLen := 256。 //raise (CError_RegError, ErrCode)。//=====================替換字符串中的空格函數(shù)===================================function Trimplace(str: string): string。,tmp)。i:integer。end。Result:=39。..39。039。a39。 Val(ts,M,Code)。 {source的長度} StrLen:=length(source)。 //多項(xiàng)式公式X16+X15+X2+1（1100 0000 0000 0101）var crc:Word。 //寄存器向右移一位 crc:=crc and $7FFF。end。 //讀入欲校驗(yàn)的字符串 Count:=round(Length(Trimplace(vStr1))/2)。 //取出字符并轉(zhuǎn)換為16進(jìn)制數(shù) i:=i+1。 //兩個(gè)字節(jié)對(duì)調(diào)***********end。 //打開之前先關(guān)閉串口 。串口打開失敗39。end。Mark(標(biāo)記)39。 if =39。 then :=_6。139。 。++39。 := 39。//=============================自定義發(fā)送數(shù)據(jù)過程===============================procedure senddata。 break。 end。end。 //替換字符串中的所有空格 i:=round(length
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1