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