Mbwblue Reading Example Using The Mbt1Receiverlib - Michael MBWBLUE Mode D'emploi

MBWBLUE Reading Example Using the MBT1ReceiverLib

The MBT1ReceiverLib is a software library containing functions for reading and
programming MBT1 devices. It encapsulates also the functions for the MBWBLUE.
Below is one example on how to read out radio devices and another example on how
to communicate over the external serial interface.
Sub MBWBLUEReading()
'*********************************************************************************************************************
MBT1COM = 12
'*********************************************************************************************************************
For RowCounter = 1 To 50
For LineCounter = 1 To 200
Cells(LineCounter, RowCounter) = ""
Next LineCounter
Next RowCounter
Cells(1, 4) = "Running"
'*********************************************************************************************************************
Set MBWBLUE = CreateObject("MBT1ReceiverLib.MBT1Receiver.1") 'invoke MBT1ReceiverLib software module
'*********************************************************************************************************************
MBWBLUE.RadioPasskey(1) = "FFFFFFFFFFFFFFFF"
MBWBLUE.RadioPasskey(2) = "FFFFFFFFFFFFFFFF"
MBWBLUE.RadioPasskey(3) = "FFFFFFFFFFFFFFFF"
MBWBLUE.RadioPasskey128(1) = "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" 'Set 128 bit radio deciphering pass key 1 (if available)
MBWBLUE.RadioPasskey128(2) = "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" 'Set 128 bit radio deciphering pass key 2 (if available)
MBWBLUE.RadioPasskey128(3) = "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF" 'Set 128 bit radio deciphering pass key 3 (if available)
'**********************************************************************************************************************
MBWBLUE.CurrentCOMPort = MBT1COM
MBWBLUE.ReadParameter
Do
DoEvents
Loop While MBWBLUE.CommunicationThreadRuns <> 0
Cells(1, 1) = "MBWBLUE"
Cells(1, 2) = MBWBLUE.SerialNumber
Cells(2, 1) = "Firmware"
Cells(2, 2) = MBWBLUE.FirmwareVersion
If MBWBLUE.SerialNumber = "" Then
Cells(3, 1) = "No MBT1Device connected"
GoTo MBWBLUEReadingEnd
End If
'**********************************************************************************************************************
Cells(4, 1) = "Reception Time"
Cells(4, 2) = "Manufacturer"
Cells(4, 3) = "Address"
Cells(4, 4) = "Signal Strengh [%]"
Cells(4, 5) = "Generation"
Cells(4, 6) = "Medium"
Cells(4, 7) = "CI Field"
Cells(4, 8) = "Transmission Count"
Cells(4, 9) = "Status"
Cells(4, 10) = "Signature"
For Counter = 1 To 15
CellStr = "Value "
CellStr = CellStr + Str(Counter)
Cells(4, ((Counter * 2) + 9)) = CellStr
CellStr = "Unit "
CellStr = CellStr + Str(Counter)
Cells(4, ((Counter * 2) + 10)) = CellStr
Next Counter
TelegramRow = 5
StartTime = Now
MBWBLUE.StartRadioReading
'**********************************************************************************************************************
24
'MBWBLUE device is given the virtual COM port number COM12
'change this value according to your COM port
'clear all cells
'general settings
'set 64 bit radio deciphering pass key 1 (if available)
'set 64 bit radio deciphering pass key 2 (if available)
'set 64 bit radio deciphering pass key 3 (if available)
'set the virtual COM port for the MBWBLUE
'check the Bluetooth manager for the correct setting
'start with reading the parameter
'print out serial number of MBWBLUE device
'print out firmware version of MBWBLUE device
'if the serial number is empty there is no device connected
'start radio telegram reading
MBWBLUE