Initial commit 3

Pruef2000/source/clsBUP.cls

@@ -0,0 +1,40 @@
+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
+