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
51
52
53
54
55
56
57
58
59
60
| Option Explicit
Private Const chemin = "c:\exel\"
Public Type Enregistrement
LaDate As Date
Temp1 As Single
Temp2 As Single
Temp3 As Single
Temp4 As Single
Vitesse As Integer
Status As Boolean
Polluant As Byte
RPAM As Long
End Type
Public Sub EcrireFichierAleatoire()
Dim NumFichier As Integer, compteur As Long, MyEnr As Enregistrement
NumFichier = FreeFile
Open chemin & "aleatoire.dat" For Random As #NumFichier Len = Len(MyEnr)
For compteur = 3 To Range("data").Rows.Count + 2
With MyEnr
.LaDate = Cells(compteur, 1).Value + Cells(compteur, 2).Value
.Temp1 = Cells(compteur, 3).Value
.Temp2 = Cells(compteur, 4).Value
.Temp3 = Cells(compteur, 5).Value
.Temp4 = Cells(compteur, 6).Value
.Vitesse = Cells(compteur, 7).Value
.Status = Cells(compteur, 8).Value
.Polluant = Cells(compteur, 9).Value
.RPAM = Cells(compteur, 10).Value
End With
Put #NumFichier, , MyEnr
Next compteur
Close #NumFichier
End Sub
Public Sub LireFichierAleatoire()
Dim NumFichier As Integer, compteur As Long, MyEnr As Enregistrement
Dim NbEnr As Integer
NumFichier = FreeFile
Open chemin & "aleatoire.dat" For Random As #NumFichier Len = Len(MyEnr)
NbEnr = LOF(1) \ Len(MyEnr)
For compteur = 1 To NbEnr
Get #NumFichier, , MyEnr
With Worksheets("Feuil1")
.Cells(compteur, 1).Value = DateValue(MyEnr.LaDate)
.Cells(compteur, 2).Value = TimeValue(MyEnr.LaDate)
.Cells(compteur, 3).Value = MyEnr.Temp1
.Cells(compteur, 4).Value = MyEnr.Temp2
.Cells(compteur, 5).Value = MyEnr.Temp3
.Cells(compteur, 6).Value = MyEnr.Temp4
.Cells(compteur, 7).Value = MyEnr.Vitesse
.Cells(compteur, 8).Value = MyEnr.Status
.Cells(compteur, 9).Value = MyEnr.Polluant
.Cells(compteur, 10).Value = MyEnr.RPAM
End With
Next compteur
Close #NumFichier
End Sub |
