Reply To: MonoBrickFirmware.Management.Battery

[Auriacombe Guillaume]

Hi,
This my code :
This is my code, (Button Connect)
` Private Async Sub Connect_Click(sender As Object, e As EventArgs) Handles Connect.Click
desactiver()

Try
‘ Connexion bluetooth
‘_brick = New Brick(New BluetoothCommunication(textBox1.Text))

‘Connexion wifi, on récupère l’adresse IP de la brick
_brick = New Brick(New NetworkCommunication(textBox1.Text))

‘Connexion usb
‘_brick = New Brick(New UsbCommunication())

‘Vérifie quel langues a été choisi et met le bon texte
If ComboBox1.SelectedIndex = 0 Then
Status.Text = “Connexion en cours …”
ElseIf ComboBox1.SelectedIndex = 1 Then
Status.Text = “Connecting …”
End If

ConnectionFaite = True
Me.Enabled = False
Await _brick.ConnectAsync()
‘Il se connecte sans erreur
Catch ex As NullReferenceException
Exit Try
‘Si connexion Impossible, alors affiché une erreure, dans une boîte de dialogue
Catch ex As Exception
MessageBox.Show(ex.Message)

‘Fonctions
CBConnecté()

ConnectionFaite = False
Finally
Me.Enabled = True

‘Fonction
CBConnecté()
End Try

If ConnectionFaite Then
‘Await _brick.DirectCommand.PlayToneAsync(100, 1000, 300)
activer()
FirmwareVersion.Text = Await _brick.DirectCommand.GetFirmwareVersionAsync()
HERE IS VERY IMPORTANT !!
nivBattery.Text = Battery.Current.MaxValue

End If
End Sub
Thank you in adavance ! 🙂
Regards,
Guillaume