1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| a = LitDansFichierIni("poCom", "VitConx", App.Path + "\config.ini")
b = LitDansFichierIni("poCom", "ContPar", App.Path + "\config.ini")
C = LitDansFichierIni("poCom", "NbrxByte", App.Path + "\config.ini")
d = LitDansFichierIni("poCom", "NbrxBs", App.Path + "\config.ini")
t = a & "," & b & "," & c & "," & d
With MSComm1
.CommPort = LitDansFichierIni("poCom", "N°Port", App.Path + "\config.ini")
.Handshaking = 2
.RThreshold = 1
.RTSEnable = True
.Settings = t
.SThreshold = 1
.PortOpen = True
End With |
Partager