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
| Imports System.IO
Public Class FBase
Dim NomFichierEntree As String = "D:\Tmp\MonFichier.TXT"
Dim FichierEntree As StreamReader
Dim OnContinue As Boolean = True
Dim WithEvents MonTimer As New Timer
Sub LitFichier()
Dim Ligne As String
Ligne = String.Empty
If Not FichierEntree.Peek = -1 Then ' Peek donne le prochain octet. Quand cet octet vaut -1, il signifie EOF
Ligne = FichierEntree.ReadLine()
End If
LBDonnees.Items.Add(Ligne)
BPause.Select() ' Donne le tmeps d'une pause, qui ne dure que 0.001 seconde quant Timer.Interval = 1
End Sub
Private Sub BDepart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BDepart.Click
FichierEntree = OuvrirFichier(NomFichierEntree)
MonTimer.Interval = 1
MonTimer.Start()
End Sub
Private Sub BPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPause.Click
OnContinue = Not OnContinue
End Sub
Private Sub BStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BStop.Click
OnContinue = False
MonTimer.Stop()
FermerFichier(FichierEntree)
End Sub
Private Sub MonTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MonTimer.Tick
If OnContinue Then
LitFichier()
End If
End Sub
Private Function OuvrirFichier(ByRef NomFichier As String) As StreamReader
Return New StreamReader(NomFichier)
End Function
Private Sub FermerFichier(ByRef Fichier As StreamReader)
Fichier.Close()
End Sub
End Class |
