Spanish Ayuda Bluetooth

Emmanuel

New Member
Hola soy realmente novato en eso de B4A y pido su ayuda para comunicarme por bluetooth a u dispositivo electrónico, logre el envió de dato con un EditText y un botón para enviar ese dato.
Lo que quiero lograr ahora es poder enviar el dato cargado al botón, en VB6 lo lograba haciendo esto :

Private Sub abajo_Click()
outDato = 2
MSComm1.Output = Chr(outDato)
End Sub

no se si me doy a entender!! cual quier ayuda es bien recibida.

tome el ejemplo de el tutorial de un compañero por aquí
http://www.b4x.com/android/forum/threads/android-bluetooth-bluetoothadmin-tutorial.14768/
 

Heppy

Active Member
Licensed User
Longtime User
A ver si te sirve

B4X:
Process_Globals 
  Dim AStreams As AsyncStreams

'Inicializa Astreams
  If AStreams.IsInitialized = False Then AStreams.Initialize(BtSerial.InputStream, BtSerial.OutputStream, "AStreams")


  Dim msg As String
  msg=Chr(7)
  Dim buffer() As Byte
  buffer = msg.GetBytes("UTF8")
  AStreams.Write(buffer)
 

jluisruelas

Member
Licensed User
Longtime User
amigo a que te refieres con enviar el dato cargado al boton? quieres enviar una cadena de texto?
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…