INTEGRA Metering aquaradio Mobile Receiver Manuel D'utilisation page 18

Cells(TelegramRow, ((Counter * 2) + 9)) =
Cells(TelegramRow, ((Counter * 2) + 10)) =
Next Counter
TelegramRow = TelegramRow + 1
End If
Loop While Now < StartTime + TimeValue("0 : 00 : 15") 'read the
'**********************************************************************************************************************
aquaradio® Mobile Receiver.CommunicationThreadBreak = 1 'Stop radio telegram reading
aquaradio® Mobile ReceiverReadingEnd :
Cells(1, 4) = "Stopped"
End Sub
Sub aquaradio® Mobile ReceiverxtSerial()
'*********************************************************************************************************************
MBT1COM = 12 'aquaradio® Mobile Receiver
'change this value according à your COM port
'*********************************************************************************************************************
Set aquaradio® Mobile Receiver= CreateObject("MBT1ReceiverLib.MBT1Receiver.1") 'invoke MBT1ReceiverLib software module
'**********************************************************************************************************************
aquaradio® Mobile Receiver.CurrentCOMPort = MBT1COM 'set the virtual COM port for the
'check the Bluetooth manager for the correct setting
aquaradio® Mobile Receiver.ReadParameter 'start with reading the parameter
Do
DoEvents
Loop While aquaradio® Mobile
Cells(1, 1) = "aquaradio® Mobile
Cells(1, 2) = aquaradio® Mobile
Cells(2, 1) = "Firmware"
Cells(2, 2) = aquaradio® Mobile
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
End If
'**********************************************************************************************************************
SRequest = "1040FE3E16"
aquaradio® Mobile Receiver.BlueExtSerSendData 3, 2, 4, SRequest 'Initialize external serial interface and send a request command
Do
DoEvents
Loop While aquaradio® Mobile
Cells(4, 1) = aquaradio® Mobile
aquaradio® Mobile ReceiverReadingEnd :
Cells(1, 4) = "Stopped"
End Sub
11. Interface sérielle externe
Le aquaradio® Mobile Receiver
pour connecter des appareils de configuration de compteur (p.ex. une tête opto). L'alimentation de l'appareil externe est limitée à 35
mA (5,4 V).
18/22
aquaradio® Mobile Receiver.RADDatarecordValue(Counter)
aquaradio® Mobile Receiver.RADDatarecordUnit(Counter)
device is given the virtual COM port number COM12
Receiver.CommunicationThreadRuns <> 0
Receiver"
Receiver.SerialNumber 'print out serial number of
Receiver.FirmwareVersion 'print out firmware version of
ReceiverReadingEnd
Receiver.CommunicationThreadRuns <> 0 'Wait until the external serial interface request has finished
Receiver.BlueExtSerRecData 'Print out received data
possède une interface sérielle simple (seulement TX / RX et alimentation). Cette interface est utilisée
aquaradio® Mobile Receiverdevice for 15 seconds
aquaradio® Mobile Receiver
aquaradio® Mobile Receiver
aquaradio® Mobile Receiver
Vue extérieure sur les bornes
device
device
9-755-UM-FR-01