Spanish Ayuda Bluetooth

[Emmanuel]

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]

A ver si te sirve

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]

amigo a que te refieres con enviar el dato cargado al boton? quieres enviar una cadena de texto?

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/