Mbwblue Relevé D'exemple Avec Mbt1Receiverlib - Michael MBWBLUE Mode D'emploi

MBWBLUE relevé d'exemple avec MBT1ReceiverLib
Le module MBT1ReceiverLib contient des fonctionnes pour lire et configurer des
appareils MBT1. Il possède aussi des fonctionnes pour le MBWBLUE. Ci-dessous il y
a un exemple pour lire les trames radio reçus d'un MBWBLUE et aussi un exemple
pour l'utilisation de l'interface sérielle externe.
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
'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 51