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
|
Imports System.IO.Ports.SerialPort
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Detecteur As System.IO.Ports.SerialPort = New System.IO.Ports.SerialPort("com3")
Detecteur.BaudRate = 9600
Detecteur.DataBits = 8
Detecteur.Parity = 0
Detecteur.StopBits = 1
Detecteur.Open()
Button1.Enabled = False
' reception des donnes IR
Dim chaine As String = Detecteur.ReadLine
TextBox1.Text = chaine
Detecteur.Close()
Dim MonStream As System.IO.StreamWriter = New System.IO.StreamWriter("\\Srv-ad\utilisateurs\egeorges\Mes documents\essaiInfra.txt")
chaine = chaine.Replace(" ", "X")
MonStream.WriteLine(chaine)
MonStream.Close()
Button1.Enabled = True
End Sub
End Class |
Partager