Discussion :

[Daetheia]

Bonjour et bonne année à tous,
Je travail sous Visual Basic 2010 Express.
Je communique avec mon appareil via le port COM en utilisant les fonction RS232.
J'envoie un commande pour que l'appareil me renvoie des données.
J'ai mon programme qui récupère les données et les écrit dans une ListBox.

Mon souci est que cette action bloque mon programme car il attend les données de l'appareil. Je pensais mettre une tempo, si je ne reçois plus rien pendant 5 secondes je sors de la fonction. Mais je ne sais pas comment faire.
L'idée est là

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Do

                Liste = RS232.ReadLine

                If Tempo Then
                    Exit Sub
                Else
                    ListBox1.Items.Add(Liste)
                    MsgBox(Liste)
                End If

            Loop While RS232.IsOpen

Merci d'avance

[ZoomBox]

Si tu souhaites connaître le fonctionnement du timer, ce n'est pas très compliqué.

Tu le créés en le faisant glisser sur ta form.
Dans les propriété tu peux mettre Interval à "1000" (en ms) par exemple, il faut aussi le mettre à disabled.

Tu te créés une variable globale Dim vTemps as integer = 0

À l'envoi de ta commande, tu met ton timer sur enabled.
Le timer va émettre l’évènement "Tick" à chaque interval (ici, toutes les 1000 millisecondes, soit 1 seconde, l’évènement "Tick" sera déclenché).
À chaque fois que l’évènement Tick se produit, tu ajoutes 1 à ta variable vTemps.

Ta condition se basera alors sur cette variable vTemps, càd, si tu veux 5 secondes, tu comptes pour vTemps = 5.


Je peux rééxpliquer et même copier du code mais c'est assez simple.

[Daetheia]

Merci pour ta réponse,
Ok pour le timer.
Après mon code n'est peut être pas explicite désolé, je ne sais pas non plus comment vérifier que mon appareil envoie des données.
En fait je veux juste savoir quand a fini d'envoyer pour sortir de ma boucle

[Daetheia]

Peut être utiliser la fonction RS232.ReadTimeOut ?
Mais je ne sais pas trop comment elle fonctionne

[mactwist69]

Il faut te renseigner sur les procédures d'échanges... Normalement tu devrais créer un système de ACK (acccusé), qui confirme que chaque paquet est arrivé.

Et faire un paquet spécial pour dire terminer etc... Il faut créer le dialogue quoi.

[bobbretagne]

Bonjour

j'ai un projet identique qui fonctionne avec cela . dés qu'une trame arrive, cela lance cette sub 'Recuperation des données RS2323
Tu n'as pas besoin d'un timer.
Le seul problème que j'ai actuellement c'est qu'avec un Port RS232 /USB, cela ne fonctionne pas toujours alors qu'avec un port Com physique, je n'ai pas de problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 'Recuperation des données RS2323
        Public Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived
            'Sortie de la routine Interruption RS232 pour aller afficher les données
            Dim DonnéeValable As Boolean = True
            Do
                Dim DonnéeAscii As String = ""
                'Test si la trame  à OD OA pour pouvoir traiter les données reçus
                ValeurStock = ValeurStock + Me.SerialPort.ReadExisting
                VerificationReception(DonnéeValable, DonnéeAscii)
                If DonnéeValable = True Then
                    Me.Invoke(New _Affiche_ASCII(AddressOf Affiche_ASCII), DonnéeAscii)
                    DonnéesNonSauv = True
                End If
            Loop While DonnéeValable
        End Sub
Module ComRS232
    Dim m_DonnéeTete(MenuIWT.NombreSerie - 1, 1) As Single
    Dim m_TeteActive As Integer = 0
    Dim m_compteur As Integer = 0
    Dim m_TotalTete(MenuIWT.NombreSerie - 1) As Single
    Dim m_NbreTete(MenuIWT.NombreSerie - 1) As Integer
    Dim m_MoyenneTete(MenuIWT.NombreSerie - 1) As Single
    Dim m_Mini(MenuIWT.NombreSerie - 1), m_Max(MenuIWT.NombreSerie - 1) As Single
    Dim m_CompteurTotal As Integer
    Dim ValeurStocké As String
    Dim m_EcarttypeTete(MenuIWT.NombreSerie - 1) As Single
    Dim m_StockCalculEcartype(MenuIWT.NombreSerie - 1) As Single
 
    ' Ouverture Port  RS232
    Sub OuvertureRS232(ByVal Port As String, ByVal Vitesse As Integer, ByVal Données As Integer, ByVal Parity As String, ByVal Arret As String)
 
        With MenuIWT
 
            .SerialPort.PortName = Port
            .SerialPort.BaudRate = Vitesse
            .SerialPort.DataBits = Données
            .SerialPort.ReceivedBytesThreshold = 1
            .SerialPort.Handshake = Handshake.None
            Select Case Parity
                Case "None"
                    .SerialPort.Parity = IO.Ports.Parity.None
                Case "Even"
                    .SerialPort.Parity = IO.Ports.Parity.Even
                Case "Odd"
                    .SerialPort.Parity = IO.Ports.Parity.Odd
            End Select
            Select Case Arret
                Case "One"
                    .SerialPort.StopBits = IO.Ports.StopBits.One
                Case "OnePointFive"
                    .SerialPort.StopBits = IO.Ports.StopBits.OnePointFive
                Case "Two"
                    .SerialPort.StopBits = IO.Ports.StopBits.Two
            End Select
            'TODO : Test si port de Communication déja ouvert
 
            .SerialPort.Open()
        End With
    End Sub
    ' Fermeture Port RS232
    Sub FermetureRS232(ByVal Port As String)
        MenuIWT.SerialPort.Close()
    End Sub
    'Affichage des données à l'écran
    Public Sub Affiche_ASCII(ByVal donneeascii As String)
 
    End Sub
 
End Module