Discussion :

[cath2123]

Bonjour a tous,
je debute en VB2008 express. J ai besoin de faire une communication entre un PC et un boitier par l intermediaire du port serie. J ai vu dans les controles un SeriaPort. Quelqu un peut il me donner des pistes pour demarrer (documentation, exemple, livres .............)
Merci d avance

Cathy

[adn56]

salut.
Rien de plus simple (normalement)
code pour utiliser ton control serialport :

dans le form load défini ses propriétés (ou dans le concepteur as you want)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with serialport1
.portname = "com1" 'ou autre
'selon ton boitier , voir son protocole
.baudrate =  9600 
.databits = 8 
.stopbits = 1
end with

Ensuite soit tu écris et tu attends une réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
serialport1.WriteLine("ya kk1 ?")
                            Dim lecture As String = ""
                            lecture = serialport1.ReadLine()

Soit tu écoutes simplement le port
utilise l'évenement datareceive du serial port

Voila c'est sommaire, il te faudra surrement des tempos entre chaque lecture / écriture. EX un peu dangereux mais qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Do
                                Pause(100)
                                serialport1.WriteLine(":FUNCtion:TEST:STATe?")
                            Loop While serialport1.ReadLine() <> "0"

pause et une fonction basique que je te donne ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'---------------------------------------------------------------------------------------------------
    ' Pause non bloquante (permet de ne pas bloquer l'application pendant la pause)
    '---------------------------------------------------------------------------------------------------
    Public Sub Pause(ByVal millisecondes As Long)
        Dim finattente As Double
        finattente = Environment.TickCount + millisecondes 'Tickcount est un compteur interne au programme
        While Environment.TickCount < finattente
            Application.DoEvents() ' Permet de ne pas bloquer l'application
        End While
    End Sub

Voila cordialement @dn

[cath2123]

Merci beaucoup, je vais demarrer avec ca et je reviendrai probablement sur le site avec des questions plus precises
Cathy

[adn56]

ok je reste dans le coin, Inscrit RESOLU pour valider ma réponse si elle te convient.