Discussion :

[Arnaud Malabeux]

Bonjour

J'ai un petit soft de communication série (RS232) qui fonctionne bien quand mon périphérique répond bien.
Maintenant je souhait blindé mon soft dans le cas de non réception.
J'ai voulu utiliser SerialPort1.ReadTimeout = 1000 mais je ne sort jamais de ma boucle de réception de trame.
Avez vous une idée.
Voici mon code (pour la mise au point j'appui sur un bouton)

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
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
		Dim TrameDemandeIdentification As String
		Dim CompteurCarRecu As Integer
		Dim NbCarRecevoir As Integer
		Dim SofRecu As Boolean
 
		Dim TabCaractereRecu() As Byte = New Byte(29) {}
		Dim indice1 As Integer
		Dim indice2 As Integer
		ReDim TabCaractereRecu(40)
		TrameDemandeIdentification = "55000180EF07"
 
		TextBox2.Text = ""
		SerialPort1.PortName = "com8"
		SerialPort1.Open()
		SerialPort1.WriteTimeout = 500
 
 
		CompteurCarRecu = 0
		NbCarRecevoir = 0
		indice1 = 0
		indice2 = 0
		SofRecu = False
 
		SerialPort1.DiscardInBuffer()
		SerialPort1.Write(hex2ascii(TrameDemandeIdentification))
		hbwait(50)
 
 
		FinTimerReception = False
		TextBox2.Text = "Début"
		SerialPort1.ReadTimeout = 1000
 
		Try
 
 
   Do
				Dim Incoming As Integer = SerialPort1.BytesToRead
				indice2 = Incoming
				If Incoming <> 0 Then
					SerialPort1.Read(TabCaractereRecu, indice1, indice2)
					CompteurCarRecu = CompteurCarRecu + Incoming
					indice1 = CompteurCarRecu
					If TabCaractereRecu(0) = &H55 And SofRecu = False Then
						SofRecu = True
						If Incoming >= 3 Then
							NbCarRecevoir = (TabCaractereRecu(1) * 256) + TabCaractereRecu(2) + 5
						End If
						If CompteurCarRecu = NbCarRecevoir Then
							TextBox2.Text = CompteurCarRecu.ToString + " / " + NbCarRecevoir.ToString
							Exit Do
						End If
					End If
 
				ElseIf FinTimerReception = True Then
					TextBox2.Text = "Time out"
					Exit Do
				End If
			Loop
 
		Catch ex As TimeoutException
			Console.WriteLine("Error: Serial Port read timed out.")
		Finally
			If SerialPort1 IsNot Nothing Then SerialPort1.Close()
		End Try
	End Sub

Merci pour votre aide

[strikel]

Salut,

tu peux rajouter un test dans ta boucle pour sortir si ton port est fermé déjà.

Code :

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

1
2
3
4
 
Do 
...
loop until not SerialPort1.isOpen

[Arnaud Malabeux]

Bonjour
Après quelques recherches, je pense que le timer Réception est fait en cas de problème du poste et non pas pour réaliser un time out si je n'ai pas reçu l'intégralité de mes caractères (Qu'en pensez vous ?)
Don je me suis dit tu va faire autrement

Lors du lancement (Form1_Load) ==> démarrer un Timer1 qui tombe tous les 200 ms

Dans mon programme de liaison série, initialisation d'une variable Cpt qui correspond à un multiple de 200 ms (exemple 5 pour sortir au bout de secondes)
Je positionne une variable Sortie = False

et je sort de ma boucle Do Loop si Sortie = True


et dans le Timer1_Tick ==> je décrémente Cpt et si Cpt = 0 alors Sortie = True

Dans la théorie cela aurait dû fonctionner.

Essais réaliser :
lancement Timer1
Initialisation et décompte de Cpt :

Dans mon code d'envoi et réception liaison série OK si le nombre de caractère à recevoir est OK

Je modifie mon code de mon périphérique pour qu'il n'envoie pas tous les caractères (rusé non)

Et la !!! problème je tourne tous le temps dans ma boucle DO Loop sans jamais passer dans Timer1_Tick :

Est il possible d'avoir des interruptions (Timer1_tick) pendant une boucle Do loop ?
Merci

[strikel]

Pas à ma connaissance.
Je viens de tester avec un formulaire simple avec un timer, un label et 2 boutons.
Sur le click de start, je lance le timer qui décrémente une variable de 100 à 0 quand cette variable est à 0 je mets un booleen exitLoop à true, puis je fais un do until exitLoop .... loop dans lequel j'incremente une autre variable que j'affiche dans un label et je sors bien de ma boucle. Peut être un problème de portée de variable ou simplement un DoEvents à placer dans ta boocle

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
Public Class Form1
 
    Private exitLoop As Boolean = False
    Private cmpt As Int32 = 1
    Private decount As Int32 = 100
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = True
        Timer1.Enabled = True
 
        Do Until exitLoop
            cmpt += 1
            Label1.Text = cmpt.ToString
            Application.DoEvents()
        Loop
        Button1.Enabled = True
        Button2.Enabled = False
        Timer1.Enabled = False
        Label1.Text = "Stop"
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Button1.Enabled = True
        Button2.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        decount -= 10
        If decount <= 0 Then exitLoop = True
        Me.Text = decount.ToString
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        exitLoop = True
    End Sub
End Class