bonjour,

j'ai fait un programme en VB pour envoyer un fichier texte à une imprimante série. Cela fonction bien sauf que en terme de rapidité cela ne me convient pas , la commande windows
Code : Sélectionner tout - Visualiser dans une fenêtre à part
print /d:com 2 texte.txt
est une seconde plus rapide que le programme.

voici le code du programme :
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
Imports System.IO.Ports
Imports System.IO
 
Module Module1
 
    Sub Main(ByVal args() As String)
 
        Dim com1 As New SerialPort
 
        Dim ligne As String
 
        With com1
 
            .PortName = "Com2"
 
            .BaudRate = 19200
 
            .Parity = Parity.None
 
            .DataBits = 8
 
            .StopBits = StopBits.One
 
        End With
 
        If Not (com1.IsOpen = True) Then
            com1.Open()
        End If
 
        Dim monStreamReader As StreamReader = New StreamReader(args(0))
 
        Do
            ligne = monStreamReader.ReadLine()
 
            com1.WriteLine(ligne)
 
            System.Threading.Thread.Sleep(0.6) 'si je ne fait pas une tempo pas d'impression
 
        Loop Until ligne Is Nothing
 
        monStreamReader.Close()
 
    End Sub
 
 
End Module
Il y a t il un moyen d'optimiser le code ou de compiler le programme d'une façon meilleure (windows xp 32bit) ?

Merci.