【文章內(nèi)容簡(jiǎn)介】 te=$00。 INTH:Byte=$00。 DPI。 RETL:byte=$00。 RETH:byte=$00。SIN) Else 緩沖區(qū)已滿 then 將上面的幀的 C 由 $28 改為 $38 即可 ； End ； 發(fā)送ASDU2 begin Stime:=時(shí)標(biāo)； Sin:=這次總查詢命令 ASDU7 的 SCN。 If 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。 2, A,$00, InfNum。 LTime:TLTime。 STime, NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28。 $01, FunType。 FANL:byte=$00。 FANH:byte=$00。 TOV:byte=$00。 SCN:byte=$00。 ACC:byte=$00。 NOEL:byte=$00。 NOEH:byte=$00。 NOC:byte=$00。 INTL:byte=$00。 INTH:Byte=$00。 DPI, RETL:byte=$00。 RETH:byte=$00。 Sin=SCN) else 緩沖區(qū)已滿 then 把上面幀的 C 由 $28 改為 $38 即可； End。 發(fā)送ASDU4 begin Stime:=時(shí)標(biāo)； Fan:=Fan+1； SCL:=用相對(duì)一次值的故障電抗來表示，單位為歐姆； RET:=保護(hù)設(shè)備從啟動(dòng) /檢出故障到現(xiàn)在的時(shí)間，用毫 秒表示 ； If 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。4, A, $00。 $73, LTime:TLTime。 STime。 NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28, $01, FunType, FANL, FANH, TOV:byte=$00。 SCN:byte=$00。 ACC:byte=$00。 NOEL:byte=$00。 NOEH:byte=$00。 NOC:byte=$00。 INTL:byte=$00。 INTH:Byte=$00。 DPI:byte=$00。 RETL, RETH, Sin:byte=$00。 Too:byte=$00。 NOFL:byte=$00。 NOFH:byte=$00 。NumOT:byte=$00。 TAPL:byte=$00。 TAPH:byte=$00。 NDV:byte=$00。 NFEL:byte=$00。 NFEH:byte=$00。 SCL0。SCL1。SCL2。SCL3) Else if 緩沖區(qū)已滿 then 把上面這幀的 C 由 $28 改為 $38 即可； End； 發(fā)送ASDU6 begin LTime:=控制方向傳輸過去的時(shí)間加以修正的結(jié)果； if 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。 6 ,A, $00, $00。 LTime:TLTime。 STime:TSTime。 NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。StateChange:TStateChange。 SDV:TSDV。 $28 , $08 , $FF) Else if 緩沖區(qū)已滿 then 把上一幀的 C 由 $28 改為 $38； end。 保存發(fā)過來幀的 FCB； end。 //注：保護(hù)設(shè)備的突發(fā)報(bào)文可以理解，但是對(duì)于子站而言，子站的突發(fā)報(bào)文是什么呢？它是直接把保護(hù)設(shè)備的突發(fā)報(bào)文進(jìn)行分析，修改子站相關(guān)內(nèi)容，然后在轉(zhuǎn)發(fā) 給 主 站嗎？ 然而這里應(yīng)該考慮到，如果子站上進(jìn)行了報(bào)文的分析，更新子站內(nèi)容之后，在轉(zhuǎn)發(fā)給主站，由于子站和主站是利用 103進(jìn)行通信的，那么 通知主站更新的內(nèi)容要通過轉(zhuǎn)發(fā)原報(bào)文，主站再進(jìn)行分析的方法，那么子站和主站就都必須有報(bào)文分析模塊，是否累贅？如果子站還有自己新定義的突發(fā)報(bào)文，那應(yīng)該如何定義呢？ 召喚事件 判斷 DFC 是否為 1，如果為 1，那就復(fù)位清空 繼續(xù)請(qǐng)求一級(jí)用戶數(shù)據(jù)，同上，但是 FCB 位要隨之取反 判斷 FCB是否 與保存的 FCB相同，如果相同則重發(fā)響應(yīng)幀 Else 繼續(xù)傳送總召喚表，保存發(fā)過來幀的 FCB； 。 。 。 。 。 。 直到總召喚報(bào)文傳送完畢，其間可能會(huì)夾雜不少自發(fā) 報(bào)文，過程同上 ，此時(shí)發(fā)送總查詢結(jié)束幀 ASDU8 判斷 FCB是否與保存的 FCB相同，如果相同則重發(fā)響應(yīng)幀 else 發(fā)送ASDU8 if 緩沖區(qū)未滿 then SCN:=這一次總召喚命令幀的 SCN； ManageBianChangZhen0(var BianChangZh:TBianChangZh,8, A, $00, $00, LTime:TLTime。 STime:TSTime。 NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28, $0A, $FF, FANL:byte=$00。 FANH:byte=$00。 TOV:byte=$00。 SCN) Else 把上一幀的 C由 $08 改為$18 發(fā)送即可； 保存發(fā)過 來 幀 的FCB 位； 請(qǐng)求或者召喚； 命令傳輸?shù)倪^程 發(fā)送 ASDU20 A:=設(shè)備地址； R:=隨意賦值，但是不可重復(fù)； InfNum:=見 P542 表 17； FunType:=見 P542 表 17； DCO:=見 P542 表 17； ManageBianChangZhen1(var BianChangZh:TBianChangZh。 LTime:TLTime。 NGD:TNGD。 20, A, R, Tongyongid:TTongyongid。 TongYongData:TTongYongData。 RaoDongDataId:TRaoDongDataid。 $53, InfNum, FunType, SCN:byte=$00。 NOG:Byte=$00。 DCO)。 確認(rèn) 發(fā)送確認(rèn)幀或者發(fā)送單個(gè)字符$E5 發(fā)送確認(rèn)幀，有一級(jí)數(shù)據(jù) if 接受緩沖區(qū)仍然能接受數(shù)據(jù) then ManageGuDingZhen(var GuDingzh:TGuDingzh,0,A,$20) Else if 接受緩沖區(qū)已經(jīng)滿 ManageGuDingZhen(var GuDingzh:TGuDingzh,0,A,$30)。 保存發(fā)過來幀的 FCB 位； 召喚事件 if 收到的幀不正確（例如校驗(yàn)不正確 ，再次受到上一幀響應(yīng) 等等）或者超過 50~100ms 沒有收到 then Begin 重傳上一幀， FCB不變反為 0； End else If 超過 Twz仍然接受不正確或者沒有收到 then Begin 進(jìn)行復(fù)位； End else If 正確接受 then If 響應(yīng)幀的 DFV位為 1 then 發(fā)送復(fù)位通信單元，清空緩沖區(qū)，進(jìn)行復(fù)位 else if 響應(yīng)幀的 DFV 位為 0 then begin 請(qǐng)求 1 級(jí)數(shù)據(jù)，地址為某一個(gè)具體設(shè)備的地址 A ManageGuDingZhen(var GuDingzh:TGuDingzh,11,A,$7A)。 End。 響應(yīng) 判斷 FCB是否與保存的 FCB相同，如果相同則重發(fā)響應(yīng)幀 else if FCB 不相同 then begin 發(fā)送ASDU1 STime:=時(shí)標(biāo)； Sin:= 這次命令 ASDU20 的 RII。 DPI 無關(guān)； If 命令的肯定認(rèn)可 then Cause:=$14 Else if 命令的否定認(rèn)可 then Cause:=$15； If 緩沖區(qū)未滿 then ManageBianChangZhen0(var BianChangZh:TBianChangZh。 1, A, $00, InfNum, LTime:TLTime。 STime, NGD:TNGD。 NDE:TNDE。 Tongyongid:TTongyongid。 TongYongData:TTongYongData。 DEL:TDEL。 GIN:TGIN。 RaoDongDataId:TRaoDongDataid。 RaoDongData:TRaoDongData。 BeiCeZhi1:TBeiCeZhi1。 TongDao:TTongDao。 FactoryName:TFactoryName。 StateChange:TStateChange。 SDV:TSDV。 $28。 Cause。 FunType。 FANL:byte=$00。 FANH:byte=$00。 TOV:byte=$00。 SCN:byte=$00。 ACC:byte=$00。 NOEL:byte=$00。 NOEH:byte=$00。 NOC:byte=$00。 INTL:byte=$00。 INTH:Byte=$00。 DPI。 RETL:byte=$00。 RETH:byte=$00。SIN) Else 緩沖區(qū)已滿 then 將上面的幀的 C 由 $28 改為 $38 即可； end。 召喚事件 if 收到的幀不正確（例如校驗(yàn)不正確 ，再次受到上