Escritura de datos por Bluetooth Visual Basic PIC16887

Resultados



Código Visual Basic

Imports System.IO.Ports
Imports System.Threading
Module Module1
Dim Lectura As String
Dim Puerto As New SerialPort
Sub Main()
Puerto.PortName = "COM1"
Puerto.BaudRate = "9800"
Puerto.Open()
Inicio:
Console.Clear()
Console.Write("Cadena: " )
Lectura = Console.ReadLine()
Puerto.Write(Lectura + vbCr)
Console.WriteLine("La cadena fue enviada correctamente" )
Thread.Sleep(3000)
GoTo Inicio
End Sub
End Module