Imports NXTPROG 'Fait le lien avec la bibliothèque NXTPROG
Public Class NXTConnect
Private Sub Connexion_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Connexion.Click
Dim ip As Integer
Dim Cerr As Integer
'teste les ports COM 4 à 20
For ip = 4 To 20
'Affiche le message de recherche
Label1.Text = "recherche port " & ip
My.Application.DoEvents()
'configure et ouvre le port
Cerr = NXTTestPort(SerialPort1, ip)
If Cerr = 0 Then 'ouverture et config OK
Label1.Text = "Connexion port " & ip
Exit For
Else
End If
SerialPort1.Close()
Next
If Cerr <> 0 Then 'Aucun port NXT trouvé
Label1.Text = "Aucun NXT trouvé."
Exit Sub
End If
'joue un son pour indiquer la connexion
NXTJoueSon(SerialPort1, 500, 120)
NXTJoueSon(SerialPort1, 1200, 60)
'Affiche les caractéristiques de la brique
Cerr = NXTGetSystemInfo(SerialPort1)
Cerr = NXTGetVersion(SerialPort1)
If Cerr = 0 Then
Nombrk.Text = NxtDevInfo.Nombrique
FirmWr.Text = NxtVersion.Firmware
BtAddr.Text = NxtDevInfo.BT_ADDR
Flash.Text = NxtDevInfo.MemDispo
End If
'Affiche le niveau de la batterie de la brique
Cerr = NXTNiveauBatterie(SerialPort1)
NivBat.Value = Int(Cerr / 100)
NivBatext.Text = NivBat.Value / 10 & " volts"
'Affiche le temps d'autonomie
TmpAuto.Text = NXTGetAutonomie(SerialPort1)
'Affiche le niveau du son
NivSon.Text = NXTGetNiveauSon(SerialPort1)
End Sub
Private Sub Quitter_Click_1(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Quitter.Click
'quitte l'application
Me.Close()
End Sub
End Class