Publicité
'check the Bluetooth manager for the correct setting
aquaradio® Mobile
Receiver.ReadParameter 'start with reading the parameter
Do
DoEvents
Loop While
aquaradio® Mobile
Receiver.CommunicationThreadRuns <> 0
Cells(1, 1) =
"aquaradio® Mobile
Receiver"
Cells(1, 2) =
aquaradio® Mobile
Receiver.SerialNumber 'print out serial number of
Cells(2, 1) = "Firmware"
Cells(2, 2) =
aquaradio® Mobile
Receiver.FirmwareVersion 'print out firmware version of
If
aquaradio® Mobile
Receiver.SerialNumber = "" Then 'if the serial number is empty there is no device connected
Cells(3, 1) = "No MBT1Device connected"
GoTo
aquaradio® Mobile
ReceiverReadingEnd
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
aquaradio® Mobile
Receiver.StartRadioReading 'start radio telegram reading
'**********************************************************************************************************************
Do 'read out the
aquaradio® Mobile Receiver
DoEvents
TelegramStr =
aquaradio® Mobile
Receiver.NextRadioTelegram
If Left(TelegramStr, 2) <> "FF" Then 'if the telegram string contains FF there is no telegram available
TelValuesValid =
aquaradio® Mobile
Receiver.RADExtractDecipherValid(TelegramStr)
'get the deciphering successful flag
aquaradio® Mobile
Receiver.TelegramInterpret Mid(TelegramStr, 17, 500), TelValuesValid
'interpret the telegram and its meter counts
Cells(TelegramRow, 1) =
aquaradio® Mobile
Cells(TelegramRow, 2) =
aquaradio® Mobile
Cells(TelegramRow, 3) =
aquaradio® Mobile
Cells(TelegramRow, 4) =
aquaradio® Mobile
Cells(TelegramRow, 5) =
aquaradio® Mobile
Cells(TelegramRow, 6) =
aquaradio® Mobile
Cells(TelegramRow, 7) =
aquaradio® Mobile
Cells(TelegramRow, 8) =
aquaradio® Mobile
Cells(TelegramRow, 9) =
aquaradio® Mobile
Cells(TelegramRow, 10) =
aquaradio® Mobile
NumberOfValues =
aquaradio® Mobile
Receiver.RADNumberOfDatarecords 'read the different meter counts
For Counter = 1 To NumberOfValues
9-755-UM-FR-01
aquaradio® Mobile
device for 15 seconds and display all values
Receiver.RADExtractRecTime(TelegramStr)
Receiver.RADManufacturer
Receiver.RADDeviceAddress
Receiver.RADExtractSignalStrength(TelegramStr)
Receiver.RADGeneration
Receiver.RADMedium
Receiver.RADCIField
Receiver.RADTransCount
Receiver.RADStatus
Receiver.RADSignature 'read the different values of the telegram header
Receiverdevice
aquaradio® Mobile
Receiverdevice
17
22
/
Publicité
