まず、Class RegBit ファイルに Bitの定義
Private _A7 as string
'---- Reg AAA (bit7) -------
Public Property A7() As String
Get
Return _A7
End Get
Set(ByVal Value As String)
_A7 = Value
End Set
End Property
Private _AA as string
'---- Reg AAA (bit6) -------
Public Property AA() As String
Get
Return _AA
End Get
Set(ByVal Value As String)
_AA = Value
End Set
End Property
・
・
Private _ＡＤ as string
'---- Reg AAA (bit3:0) -------
Public Property AD() As String
Get
Return _AD
End Get
Set(ByVal Value As String)
_AD = Value
End Set
End Property
とし、
Byte単位のアクセス関数を作成
上記 00アドレスのByteレジスタ定義
Private _AAA as string
Public Property AAA( ) As String
Get
Dim List(7) as String
List(7) = _A7
List(6) = _AA
List(5) = _AB
List(4) = _AC
List(3) = _AD
Return List
End Get
Set(ByVal value As String)
_AAA = value
End Set
