【導(dǎo)讀】率、電度等電參量的監(jiān)測。產(chǎn)品具有可編程功能、DC4～20mA模擬量輸出、RS232串行口。和開關(guān)量輸出等功能，可以實(shí)現(xiàn)與監(jiān)控系統(tǒng)的聯(lián)網(wǎng)或數(shù)據(jù)的遠(yuǎn)程傳輸?shù)裙δ堋?jù)采集、顯示，保存和查詢）組成。用電管理單位帶來了巨大挑戰(zhàn)，也給居民工廠帶來了諸多不便。為此我國在“十二五規(guī)。劃”中提出建設(shè)“智能電網(wǎng)”的解決方案，實(shí)現(xiàn)電網(wǎng)、計(jì)算機(jī)網(wǎng)、電信網(wǎng)三網(wǎng)融合。電網(wǎng)”的需求，在這種情況下智能電表應(yīng)運(yùn)而生。智能電表是指具有多功能化、智能化、量和傳輸?shù)娜蝿?wù)。智能電表設(shè)計(jì)的課題研究富有實(shí)用價(jià)值和市場前景。首先，智能電表能夠更方便、

　　

【正文】 = = = = = = = = 西華大學(xué)課程設(shè)計(jì)說明書 第 30 頁 = = = = = = = = = = = = = = = = = = = End Sub 39。================================================= 39。端口選擇部分程序 39。================================================= Private Sub Combo1_Click() = + 1 End Sub 39。================================================= 39。打開串口部分 39。================================================= Private Sub ckcmd_Click() On Error GoTo BLAK If = 打開串口 Then 西華大學(xué)課程設(shè)計(jì)說明書 第 31 頁 = True = 關(guān)閉串口 = amp。HFFamp。 = False = True Else = 打開串口 = False = True = 0 = 0 = 自動(dòng)讀取 = False End If Exit Sub BLAK: MsgBox 串口不存在或者被占用 !, vbOKOnly, 提示信息 End Sub 39。=============================================== 39。端口數(shù)據(jù)改變觸發(fā)事件 39。=============================================== Private Sub MSComm1_OnComm() Dim m1 As Single Select Case Case EventRxOver Exit Sub Case EvReceive BytReceived = For i = 0 To UBound(BytReceived) If Len(Hex(BytReceived(i))) = 1 Then strData = strData amp。 0 amp。 Hex(BytReceived(i)) Else 西華大學(xué)課程設(shè)計(jì)說明書 第 32 頁 strData = strData amp。 Hex(BytReceived(i)) End If flag = strData If Len(flag) = 2 Then If flag = F0 Or F1 Or F2 Or F3 Or F4 Or F5 Or F6 Or F7 Or F8 Or E0 Or E1 Or E2 Or E3 Or E4 Or E5 Or E6 Or E7 Or E8 Then flag = Else strData = flag = End If End If If Len(flag) = 10 Then flag = Mid(flag, 9, 2) If flag = 0F Then flag = dn = AP 39。dn取“電能”之意 ElseIf flag = 1F Then flag = dn = AQ ElseIf flag = 2F Then flag = dn = ASZ ElseIf flag = 3F Then flag = dn = BP ElseIf flag = 4F Then flag = dn = BQ ElseIf flag = 5F Then flag = dn = BSZ ElseIf flag = 6F Then 西華大學(xué)課程設(shè)計(jì)說明書 第 33 頁 flag = dn = CP ElseIf flag = 7F Then flag = dn = CQ ElseIf flag = 8F Then flag = dn = CSZ ElseIf flag = 0E Then flag = cs = AV 39。cs取“參數(shù)”之意 ElseIf flag = 1E Then flag = cs = AI ElseIf flag = 2E Then flag = cs = AGL ElseIf flag = 3E Then flag = cs = BV ElseIf flag = 4E Then flag = cs = BI ElseIf flag = 5E Then flag = cs = BGL ElseIf flag = 6E Then flag = cs = CV ElseIf flag = 7E Then flag = cs = CI ElseIf flag = 8E Then flag = 西華大學(xué)課程設(shè)計(jì)說明書 第 34 頁 cs = CGL newdata = Mid(strData, 3, 6) strData = End If End If findata = Val(amp。H amp。 newdata) Select Case gl Case AP = findata Case AQ = findata Case ASZ = findata Case BP = findata Case BQ = findata Case BSZ = findata Case CP = findata Case CQ = findata Case CSZ = findata Case AV = findata Case AI = findata Case AGL = findata