performance SerialPort optimisation ?

Version imprimable

bonjour,

j'ai fait un programme en VB pour envoyer un fichier texte à une imprimante série. Cela fonction bien :mouarf: sauf que en terme de rapidité cela ne me convient pas :cry:, la commande windows

Code:

print /d:com 2 texte.txt

est une seconde plus rapide que le programme.

voici le code du programme :

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
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.

17/09/2010, 08h33
Pol63

Code:

com1.write(system.io.readalltext("x:\fichier.txt"))

?
17/09/2010, 10h04
apetroff

Code:

com1.Write(My.Computer.FileSystem.ReadAllText("c:\temp\txt.txt"))

ne fonctionne pas ... pas d'impression :cry:

Je pense que cela vient d'un problème de buffer mais je ne sais pas comment le gérer si vous avez des exemples avec des explications je suis preneur.

Merci.
20/09/2010, 08h39
apetroff
Bonjour,

j'aimerai envoyer plusieurs ligne d'un coup mais comment faire ?

Code:

com1.write("plusieurs ligne") ???

j'ai essayer cela mais cela imprime une fois sur dix ???
Code:

1 2 ligne = "ligne1" & vbCrLf & "ligne2" & vbCrLf & "ligne3" & vbCrLf com1.WriteLine(ligne)
par contre cela fonctionne bien :calim2: :

Code:

com1.WriteLine("ligne1" & vbCrLf & "ligne2" & vbCrLf & "ligne3" & vbCrLf)

D'où peut venir le problème, je ne comprends pas ???

Un peut d'aide s'il vous plait (des heures à chercher sur google :cry:)
Merci.

.....quelques heures plus tard : :mouarf: ca marche voici comment faire :
Code:

1 2 3 com1.WriteLine(File.ReadAllText("c:\temp\txt.txt")) System.Threading.Thread.Sleep(50) com1.Close()
Par contre si je supprime la tempo ca ne marche pas pourquoi je ne sais pas ?
Merci comme même de votre attention.