[serialport][vb.net] impossible de passer au timer

Version imprimable

bonjour à tous,

j'ai créer un petit programme qui me permet de recevoir un contact électrique et de le lire sur le port série.

au début cela fonctionnait bien, mais plus je tente de faire prendre forme à mon programme, moins il répond :aie: ,... voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public imprime As Boolean = False Public minuterie As Integer = 1000 Public port As String = "COM1" Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived If imprime = False Then imprime = True Call StartTimer() lb.Text = "Impression" Exit Sub Else Exit Sub End If End Sub
le port série qui semble pas entrer dans mon timer mais le label avec impression s'affiche ???....mais si je lui met des msgbox("test") à chaque étape, il les fait toutes...comme si une partie de code se ferait trop vite comparé au reste...:aie:

si vous avez des idées :oops:

je me suis batis ma propre preuve, mon timer ne fonctionne pas toujours 8O

Code:

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
    Public imprime As Boolean = False
    Public minuterie As Integer = 2000
    Public port As String = "COM1"
    Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived
        If imprime = False Then             'si le programme imprime pas
            imprime = True
            Dim connectionstring As String = "Data Source=serveur;Initial Catalog=BD;Persist Security Info=True;User ID=test;Password=1"
            'Dim connectionstring As String = "Data Source=SERVEUR;Initial Catalog=PsUnique;Integrated Security=SSPI;User ID=PSUNIQUE\ScanWebUser;Password=56jVSrTs6wsEQTAG"
            Dim impression As Integer = 1
            Using connection As New SqlConnection(connectionstring)
                connection.Open()
                Dim commande As SqlCommand = connection.CreateCommand()
                commande.CommandType = Data.CommandType.StoredProcedure
                commande.CommandText = "ImpAuto"
                commande.Parameters.AddWithValue("@impression", impression)
                commande.ExecuteNonQuery()
            End Using
            SerialPort.DiscardInBuffer()
            Timer.Interval = minuterie
            Timer.Start()
        Else
            MsgBox("data refusé")
        End If
    End Sub
    Private Sub Timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer.Tick
        Timer.Stop()
        imprime = False
    End Sub

j'ai réduit à 2 fonction mon programme...1 réception du signal 2 quand le timer est fini dans mon timer_tick, j'avais ajouté un msgbox qui me disait quand il passait la fonction et après 2 réception, il ne passe plus dans le timer ??? 8O a n'y rien comprendre 8O

08/07/2008, 22h53
Ouija33

j'aurai peut-etre dévié mon problème...j'ai enlever le timer et mis la comparaison entre l'heure (minute) d'ouverture du programme ou sa dernière utilisation et celle de la présente requête. encore plus fiable en terme de temps qu'un timer et demande 1 process de moins en général :?

on test demain voir si ca marche
09/07/2008, 15h56
Ouija33

Réussi !

je capte l'heure à l'ouverture du programme et je la remet à jour apres utilisation et le tout fonctionne bien :yaisse2:

Code:

If DateDiff(DateInterval.Minute, Now, LastUse) <= -1 Then

bonne journée à tous !!