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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
| Imports System
Imports System.IO
Imports Microsoft.Office.Interop.Excel
Module ModuleCommun
Public AutoConnection As Boolean
Public FlagFrontMontantChange As Boolean
Public CheminLog As String
Public CheminRecette As String
Public CheminModeleExcel As String
Public CheminExcel As String
Public FlagConnectionOPC As Boolean
Public ChaineConnectionOFS As String
Public SerialIncremental As Double
Public AnneeSerialIncremental As String
Public SerialComplet As String
Public NumeroRapport As String
Public FlagConnectionReseau As Boolean
Public AdresseIPAutomate As String
Public ServeurOPC As New SAOPCAutomation.OPCServer
Public WithEvents CollectionGroupesConnecte As SAOPCAutomation.OPCGroups
Public WithEvents OFSGroupe As SAOPCAutomation.OPCGroup
Public WithEvents OFSGroupeFlag As SAOPCAutomation.OPCGroup
Public WithEvents OFSGroupeBitVie As SAOPCAutomation.OPCGroup
'Déclaration des Items de lecture l'Automate
Public ItemLectureAutomate_Societe As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Site As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Service As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Moteur As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Designation_piece As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Reference_piece As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_No_serialisation As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_No_ordre_fab As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_No_operation As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Retouche_lavage As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Lavage_FAR As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_No_pgm_gamme As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Type_ver_gamme_op As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_No_machine As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Date_valid_machine As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_No_Pgm_Machine As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Classe As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Temps_cycle As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Date_Deb_Lavage As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Heure_deb_lavage As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Heure_fin_lavage As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_heure_def_lavage As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Tension_surf As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Tension_surf_sanction As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Test_f_eau As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Ctrl_particule As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Sanction As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Nom_operateur As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Mat_operateur As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Produit As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Prod_Ref_SNECMA As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Prod_No_Lot As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Prod_Peremption As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Prod_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Ph_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Date_mont_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Heur_mont_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Date_valid_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_produit As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_ph As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_cond As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Produit As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Prod_Ref_SNECMA As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Prod_No_Lot As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Prod_Peremption As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Prod_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Ph_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Date_mont_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Heur_mont_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Date_valid_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_ph As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_cond As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Produit As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Prod_Ref_SNECMA As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Prod_No_Lot As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Prod_Peremption As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Prod_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Ph_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Date_mont_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Heur_mont_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Date_valid_bain As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_ph As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_cond As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Bain_Utilise As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Duree_phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Cond_Avant As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Cond_apres As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Asper_duree As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Asper_pression As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement1_Asper_Temperature As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Bain_Utilise As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Duree_phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Cond_Avant As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Cond_apres As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Asper_duree As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Asper_pression As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement2_Asper_Temperature As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Bain_Utilise As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Duree_phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Cond_Avant As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Cond_apres As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Asper_duree As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Asper_pression As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement3_Asper_Temperature As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement4_Phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement4_Duree_phase As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Flag_Transfert As SAOPCAutomation.OPCItem
Public ItemEcritureAutomate_Flag_Transfert_Ok As SAOPCAutomation.OPCItem
Public ItemEcritureAutomate_Bit_Vie As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Date_fin_lavage As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Defaut_Cycle As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Solution As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_huile As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Titrage_particule As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Filtre_Date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette1_Filtre_Heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Solution As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_huile As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_particule As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Filtre_Date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Filtre_Heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Titrage_polluant As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Polluant_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette2_Cond_consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Solution As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_Polluant As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_huile As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Titrage_particule As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Filtre_Date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Filtre_Heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Polluant_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Cond_Consigne As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Resine As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Resine_Ref_SNECMA As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Resine_Peremption As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Resine_No_lot As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Resine_date As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Recette3_Resine_heure As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement4_Souf_Pression As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement4_Souf_duree As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement4_Circa_Temperature As SAOPCAutomation.OPCItem
Public ItemLectureAutomate_Traitement4_Circa_duree As SAOPCAutomation.OPCItem
Public AliasOFSAutomate As String
'Fonction qui lit un tableau et renvoye une string
Function LectureTableau(Tableau As Array) As String
'On boucle sur la longueur du tableau et on sort dès que l'on rencontre le caractère Ascii 0
'Cela évite d'avoir la chaine polluée avec d'anciens caractères²
Dim I As Integer
Dim TamponString As String
TamponString = ""
For I = 0 To Tableau.Length - 1
If Tableau(I) <> 0 Then
TamponString = TamponString & Chr(Tableau(I))
Else
Exit For
End If
Next
Return TamponString.Trim
End Function
#Region "Ecriture Fichiers"
Function EcritureFichierLog(Texte As String) As Boolean
Dim SW As StreamWriter
Dim CheminFichier As String
'On va écrire suivant l'arborscence suivante :
'\Logs\Année\Mois\Jour.log
'On va créer le répertoire Logs
If Not Directory.Exists(CheminLog) Then
Directory.CreateDirectory(CheminLog)
End If
'On va créer le répertoire Année
If Not Directory.Exists(CheminLog & Date.Today.Year) Then
Directory.CreateDirectory(CheminLog & Date.Today.Year)
End If
'On va créer le répertoire Mois
If Not Directory.Exists(CheminLog & Date.Today.Year & "\" & Date.Today.Month) Then
Directory.CreateDirectory(CheminLog & Date.Today.Year & "\" & Date.Today.Month)
End If
CheminFichier = (CheminLog & "\" & Date.Today.Year & "\" & Date.Today.Month & "\" & Date.Today.Day & "-" & Date.Today.ToString("MMMM") & "-" & Date.Today.Year & ".log")
'On teste si le fichier existe
If File.Exists(CheminFichier) = False Then
SW = File.CreateText(CheminFichier)
SW.Close()
End If
SW = File.AppendText(CheminFichier)
Texte = Date.Today.ToLongDateString & " - " & Date.Now.ToLongTimeString & " - " & Texte
SW.WriteLine(Texte)
SW.Close()
'On va écrire aussi dans la fenetre d'historique
If FrmPrincipale.TxtHistorique.Text = "" Then
FrmPrincipale.TxtHistorique.Text = Texte
Else
FrmPrincipale.TxtHistorique.Text = FrmPrincipale.TxtHistorique.Text & vbCrLf & Texte
End If
Return CBool(vbNull)
End Function
#End Region
#Region "OPC"
Public Sub AjoutItemOPC()
On Error Resume Next
ItemLectureAutomate_Societe = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Societe", 1)
ItemLectureAutomate_Site = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Site", 2)
ItemLectureAutomate_Moteur = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Moteur", 3)
ItemLectureAutomate_Designation_piece = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Designation_Piece", 4)
ItemLectureAutomate_Reference_piece = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Reference_Piece", 5)
ItemLectureAutomate_No_serialisation = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "!RecetteData.Table.No_serialisation", 6)
ItemLectureAutomate_No_ordre_fab = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Ordre_Fab", 7)
ItemLectureAutomate_No_operation = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Operation", 8)
ItemLectureAutomate_Retouche_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Retouche_Lavage", 9)
ItemLectureAutomate_Lavage_FAR = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Lavage_FAR", 10)
ItemLectureAutomate_No_pgm_gamme = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_pgm_gamme", 11)
ItemLectureAutomate_Type_ver_gamme_op = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Type_ver_gamme_op", 12)
ItemLectureAutomate_No_machine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Machine", 13)
ItemLectureAutomate_Date_valid_machine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Date_Valid_Machine", 14)
ItemLectureAutomate_No_Pgm_Machine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Pgm_Machine", 15)
ItemLectureAutomate_Classe = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Classe", 16)
ItemLectureAutomate_Temps_cycle = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Temps_cycle", 17)
ItemLectureAutomate_Date_Deb_Lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Date_Deb_Lavage", 18)
ItemLectureAutomate_Heure_deb_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Heure_deb_lavage", 19)
ItemLectureAutomate_Heure_fin_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Heure_Fin_Lavage", 20)
ItemLectureAutomate_heure_def_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Heure_Def_Lavage", 21)
ItemLectureAutomate_Tension_surf = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Tension_Surf", 22)
ItemLectureAutomate_Tension_surf_sanction = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Tension_Surf_Sanction", 23)
ItemLectureAutomate_Test_f_eau = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Test_f_eau", 24)
ItemLectureAutomate_Ctrl_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Ctrl_particule", 25)
ItemLectureAutomate_Sanction = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Sanction", 26)
ItemLectureAutomate_Nom_operateur = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Nom_Operateur", 27)
ItemLectureAutomate_Mat_operateur = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Mat_Operateur", 28)
ItemLectureAutomate_Recette1_Bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Bain", 29)
ItemLectureAutomate_Recette1_Produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Produit", 30)
ItemLectureAutomate_Recette1_Prod_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_Ref_SNECMA", 31)
ItemLectureAutomate_Recette1_Prod_No_Lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_No_Lot", 32)
ItemLectureAutomate_Recette1_Prod_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_Peremption ", 33)
ItemLectureAutomate_Recette1_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_consigne", 34)
ItemLectureAutomate_Recette1_Ph_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Ph_Consigne", 35)
ItemLectureAutomate_Recette1_Date_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Date_Mont_Bain", 36)
ItemLectureAutomate_Recette1_Heur_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Heure_Mont_Bain", 37)
ItemLectureAutomate_Recette1_Date_valid_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Date_Valid_Bain", 38)
ItemLectureAutomate_Recette1_Titrage_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Date", 39)
ItemLectureAutomate_Recette1_Titrage_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Heure", 40)
ItemLectureAutomate_Recette1_Titrage_produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Produit", 41)
ItemLectureAutomate_Recette1_Titrage_ph = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Ph", 42)
ItemLectureAutomate_Recette1_Titrage_cond = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Cond", 43)
ItemLectureAutomate_Recette1_Solution = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Solution", 44)
ItemLectureAutomate_Recette1_Titrage_huile = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Huile", 45)
ItemLectureAutomate_Recette1_Titrage_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Particule", 46)
ItemLectureAutomate_Recette1_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_consigne", 47)
ItemLectureAutomate_Recette1_Filtre_Date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Filtre_Date", 48)
ItemLectureAutomate_Recette1_Filtre_Heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Filtre_Heure", 49)
ItemLectureAutomate_Recette2_Bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Bain", 50)
ItemLectureAutomate_Recette2_Produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Produit", 51)
ItemLectureAutomate_Recette2_Prod_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_Ref_SNECMA", 52)
ItemLectureAutomate_Recette2_Prod_No_Lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_No_Lot", 53)
ItemLectureAutomate_Recette2_Prod_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_Peremption ", 54)
ItemLectureAutomate_Recette2_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_consigne", 55)
ItemLectureAutomate_Recette2_Ph_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Ph_Consigne", 56)
ItemLectureAutomate_Recette2_Date_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Date_Mont_Bain", 57)
ItemLectureAutomate_Recette2_Heur_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Heure_Mont_Bain", 58)
ItemLectureAutomate_Recette2_Date_valid_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Date_Valid_Bain", 59)
ItemLectureAutomate_Recette2_Titrage_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Date", 60)
ItemLectureAutomate_Recette2_Titrage_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Heure", 61)
ItemLectureAutomate_Recette2_Titrage_ph = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Ph", 62)
ItemLectureAutomate_Recette2_Titrage_cond = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Cond", 63)
ItemLectureAutomate_Recette2_Solution = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Solution", 64)
ItemLectureAutomate_Recette2_Titrage_huile = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Huile", 65)
ItemLectureAutomate_Recette2_Titrage_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Particule", 66)
ItemLectureAutomate_Recette2_Titrage_polluant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Polluant", 67)
ItemLectureAutomate_Recette2_Polluant_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Polluant_Consigne", 68)
ItemLectureAutomate_Recette2_Cond_consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Cond_Consigne", 69)
ItemLectureAutomate_Recette2_Filtre_Date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Filtre_Date", 70)
ItemLectureAutomate_Recette2_Filtre_Heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Filtre_Heure", 71)
ItemLectureAutomate_Recette3_Bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Bain", 72)
ItemLectureAutomate_Recette3_Produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Produit", 73)
ItemLectureAutomate_Recette3_Prod_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_Ref_SNECMA", 74)
ItemLectureAutomate_Recette3_Prod_No_Lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_No_Lot", 75)
ItemLectureAutomate_Recette3_Ph_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Ph_Consigne", 76)
ItemLectureAutomate_Recette3_Date_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Date_Mont_Bain", 77)
ItemLectureAutomate_Recette3_Heur_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Heure_Mont_Bain", 78)
ItemLectureAutomate_Recette3_Date_valid_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Date_Valid_Bain", 79)
ItemLectureAutomate_Recette3_Titrage_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Date", 80)
ItemLectureAutomate_Recette3_Titrage_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Heure", 81)
ItemLectureAutomate_Recette3_Titrage_ph = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Ph", 82)
ItemLectureAutomate_Recette3_Titrage_cond = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Cond", 83)
ItemLectureAutomate_Recette3_Solution = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Solution", 84)
ItemLectureAutomate_Recette3_Titrage_Polluant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Polluant", 85)
ItemLectureAutomate_Recette3_Titrage_huile = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Huile", 86)
ItemLectureAutomate_Recette3_Titrage_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Particule", 87)
ItemLectureAutomate_Recette3_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_Consigne", 88)
ItemLectureAutomate_Recette3_Prod_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_Peremption ", 89)
ItemLectureAutomate_Recette3_Resine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine", 90)
ItemLectureAutomate_Recette3_Resine_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Ref_SNECMA", 91)
ItemLectureAutomate_Recette3_Resine_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Peremption ", 92)
ItemLectureAutomate_Recette3_Resine_No_lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_No_lot", 93)
ItemLectureAutomate_Recette3_Resine_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Date", 94)
ItemLectureAutomate_Recette3_Resine_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Heure", 95)
ItemLectureAutomate_Recette3_Polluant_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Polluant_Consigne", 96)
ItemLectureAutomate_Recette3_Cond_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Cond_Consigne", 97)
ItemLectureAutomate_Recette3_Filtre_Date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Filtre_Date", 98)
ItemLectureAutomate_Recette3_Filtre_Heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Filtre_Heure", 99)
ItemLectureAutomate_Traitement1_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Phase", 100)
ItemLectureAutomate_Traitement1_Bain_Utilise = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Bain_Utilise", 101)
ItemLectureAutomate_Traitement1_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Duree_Phase", 102)
ItemLectureAutomate_Traitement1_Cond_Avant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Cond_Avant", 103)
ItemLectureAutomate_Traitement1_Cond_apres = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Cond_Apres", 104)
ItemLectureAutomate_Traitement1_Asper_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Asper_Duree", 105)
ItemLectureAutomate_Traitement1_Asper_pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Asper_Pression", 106)
ItemLectureAutomate_Traitement1_Asper_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].AsperTemperature", 107)
ItemLectureAutomate_Traitement2_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Phase", 108)
ItemLectureAutomate_Traitement2_Bain_Utilise = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Bain_Utilise", 109)
ItemLectureAutomate_Traitement2_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Duree_Phase", 110)
ItemLectureAutomate_Traitement2_Cond_Avant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Cond_Avant", 111)
ItemLectureAutomate_Traitement2_Cond_apres = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Cond_Apres", 112)
ItemLectureAutomate_Traitement2_Asper_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Asper_Duree", 113)
ItemLectureAutomate_Traitement2_Asper_pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Asper_Pression", 114)
ItemLectureAutomate_Traitement2_Asper_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].AsperTemperature", 115)
ItemLectureAutomate_Traitement3_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Phase", 116)
ItemLectureAutomate_Traitement3_Bain_Utilise = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Bain_Utilise", 117)
ItemLectureAutomate_Traitement3_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Duree_Phase", 118)
ItemLectureAutomate_Traitement3_Cond_Avant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Cond_Avant", 119)
ItemLectureAutomate_Traitement3_Cond_apres = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Cond_Apres", 120)
ItemLectureAutomate_Traitement3_Asper_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Asper_Duree", 121)
ItemLectureAutomate_Traitement3_Asper_pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Asper_Pression", 122)
ItemLectureAutomate_Traitement3_Asper_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].AsperTemperature", 123)
ItemLectureAutomate_Traitement4_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Phase", 124)
ItemLectureAutomate_Traitement4_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Duree_Phase", 125)
ItemLectureAutomate_Traitement4_Souf_Pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Souf_Pression", 126)
ItemLectureAutomate_Traitement4_Souf_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Souf_Duree", 127)
ItemLectureAutomate_Traitement4_Circa_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Circa_Temperature", 128)
ItemLectureAutomate_Traitement4_Circa_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Circa_Duree", 129)
ItemLectureAutomate_Date_fin_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Date_Fin_Lavage", 130)
ItemLectureAutomate_Defaut_Cycle = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Defaut_Cycle", 131)
ItemLectureAutomate_Service = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Service", 132)
ItemLectureAutomate_Flag_Transfert = OFSGroupeFlag.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Flag_Transfert", 1)
ItemEcritureAutomate_Flag_Transfert_Ok = OFSGroupeFlag.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Flag_Transfert_Ok", 2)
ItemEcritureAutomate_Bit_Vie = OFSGroupeBitVie.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Bit_Vie", 1)
End Sub
Public Sub ConnectionOPC()
ServeurOPC.Connect(ChaineConnectionOFS)
If ServeurOPC.ServerState = 1 Then
EcritureFichierLog("Connection OFS - OK")
'Connection OK création du groupe
'On rajoute une collection de Groupes
CollectionGroupesConnecte = ServeurOPC.OPCGroups
CollectionGroupesConnecte.DefaultGroupIsActive = True
OFSGroupe = ServeurOPC.OPCGroups.Add("GroupeAutomate")
OFSGroupe.IsSubscribed = True 'OFSGroupe.IsActive
OFSGroupeFlag = ServeurOPC.OPCGroups.Add("GroupeAutomateFlag")
OFSGroupeFlag.IsSubscribed = True 'OFSGroupeFlag.IsActive
OFSGroupeBitVie = ServeurOPC.OPCGroups.Add("GroupeBitVie")
OFSGroupeBitVie.IsSubscribed = True 'OFSGroupe.IsActive
AjoutItemOPC()
'DoEvents()
Else
EcritureFichierLog("Connection OFS - KO")
Exit Sub
End If
End Sub
Public Sub DeConnectionOPC()
ServeurOPC.OPCGroups.RemoveAll()
CollectionGroupesConnecte.RemoveAll()
ServeurOPC.Disconnect() 'déconnection du serveur
EcritureFichierLog("Déconnection OFS")
End Sub
Sub OFSGroupeFlag_DataChange(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef ItemValues As System.Array, ByRef Qualities As System.Array, ByRef TimeStamps As System.Array) Handles OFSGroupeFlag.DataChange
'On rajoute un flag pour ne passer dans la boucle qu'à la deuxième fois, la première étant la création
Dim I As Integer
For I = 1 To NumItems
Select Case ClientHandles(I)
'S'il y a eu modif sur le flag Transfert alors
Case 1
If FlagFrontMontantChange = True And ItemLectureAutomate_Flag_Transfert.Value = vbTrue Then
'On vérifie le Serial pour le réinitialiser si on change d'année
ConstructionSerialIncremental()
EcritureFichierLog(SerialComplet)
'Alors on va écrire le Fichier de Recette
EcritureFichierLog("Ecriture Fichier Recette")
EcritureFichierRecette()
Try
'Je vais mettre le Flag à 1 pour dire que j'ai tout lu
EcritureFichierLog("Flag_Transfert_OK Mis à 1")
Catch ex As Exception
EcritureFichierLog("Erreur mise à 1 Flag_Transfert_OK")
End Try
EcritureFichierLog("Ecriture Fichier Excel")
EcritureFichierExcel()
'On va écrire sur l'automate que le transfert est Ok
ItemEcritureAutomate_Flag_Transfert_Ok.Write(vbTrue)
' On incrémente le Serial
SerialIncremental = SerialIncremental + 1
'On sauvegarde le Serial
EcritureSerial(CStr(SerialIncremental))
Else
FlagFrontMontantChange = True
End If
End Select
Next
End Sub
#End Region
#Region "FonctionsDiverses"
#End Region
End Module |
Tentative de lecture ou d'écriture de mémoire protégée avec OPC
Répondre avec citation
Partager