41 lines
981 B
OpenEdge ABL
41 lines
981 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'NotPersistable
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
|
END
|
|
Attribute VB_Name = "clsBUP"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public AppCODE As Byte
|
|
Public Counter As Byte
|
|
Public RadioAdr As Currency
|
|
Public Billing_Volume As Currency
|
|
Public Alarm As Byte
|
|
Public A_CRC As Long
|
|
|
|
Public RSSI As Byte
|
|
|
|
Public Sub Decode(ByRef arbytes() As Byte)
|
|
' Dim i As Integer
|
|
' For i = 0 To 6
|
|
' Debug.Print "BUP " & i & ": " & arbytes(i) & " = " & Hex(arbytes(i))
|
|
' Next
|
|
|
|
RSSI = arbytes(2)
|
|
|
|
AppCODE = arbytes(8)
|
|
Counter = arbytes(9)
|
|
RadioAdr = NumberFromByteArray(arbytes, 10, 13)
|
|
Billing_Volume = NumberFromByteArray(arbytes, 14, 17)
|
|
Alarm = arbytes(18)
|
|
A_CRC = NumberFromByteArray(arbytes, 19, 20)
|
|
End Sub
|
|
|