modaddr.bas

这是一个实际的工程中所用的源程序

Attribute VB_Name = "modAddr"
Option Explicit
Private mLAddr(1 To TechCount) As eTech
Private mPAddr(1 To TechCount) As Integer

Public Sub initAddr()
    Dim i As Long
    For i = 1 To TechCount
        mLAddr(i) = SetReg.GetSettingInt(Sc_Addr, Sc_Addr & CStr(i), i)
        mPAddr(mLAddr(i)) = i
    Next i
End Sub
Public Property Get PhysicalAddr(ByVal vLogic As eTech) As Integer
    PhysicalAddr = mPAddr(vLogic)
End Property
Public Property Let PhysicalAddr(ByVal vLogic As eTech, ByVal vNewAddr As Integer)
    mPAddr(vLogic) = vNewAddr
    Call SetReg.SaveSettingInt(Sc_Addr, Sc_Addr & CStr(vNewAddr), CInt(vLogic))
End Property
Public Property Get LogicAddr(ByVal vScanAddr As Integer) As eTech
    LogicAddr = mLAddr(vScanAddr)
End Property
Public Property Let LogicAddr(ByVal vScanAddr As Integer, ByVal vNewLogicAddr As eTech) 'AB仪表交换
    mLAddr(vScanAddr) = vNewLogicAddr '"允许有限的换仪表的物理地址,建议条件:仪表没有运行,两个仪表的主累计差>30."
    Call SetReg.SaveSettingInt(Sc_Addr, Sc_Addr & CStr(vScanAddr), CInt(vNewLogicAddr))
End Property