Discussion :

[apetroff]

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.

[Pol63]

Code :

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

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

?

[apetroff]

Code :

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

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

ne fonctionne pas ... pas d'impression

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.

[apetroff]

Bonjour,

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

Code :

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

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

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

Code :

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

1
2
ligne = "ligne1" & vbCrLf & "ligne2" & vbCrLf & "ligne3" & vbCrLf
com1.WriteLine(ligne)

par contre cela fonctionne bien :

Code :

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

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



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

Code :

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

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.