Comunidad Gambas-es

Una Terminal Bluetooth para PC en Gambas

AlfredoSC 27-04-2021, 22:10

Hola:

Entretenido con el ESP32 DEV MODULE para controlar IoT, encontré que para SmartPhone hay muchas Apps, pero para PC o laptop no encontré mucho. Como estoy frente a la PC diseñando la electrónica del ESP32, quise tener también en la PC una Serial Bluetooth Terminal, así que la realicé en Gambas.

Este software utiliza otras aplicaciones de Linux, como bluez y blueman-manager, para auxiliarse en la puesta en marcha del servicio Bluetooth y crear un puerto serial denominado rfcomm0, con lo cual ya está completo el escenario para controlar el proyecto electrónico.

El software tiene 7 botones, con los que se puede enviar un número en modo "string" vía Bluetooth al ESP32 y permite configurar los 7 botones para enviar lo que se requiera. Aún cerrando el programa, se guarda la configuración para que sea la misma al volver a ejecutarlo.

Como siempre, este software lo pongo a consideración de quien desee corregirlo, aumentarlo y perfeccionarlo para uso libre.

Adición: Parece complicado crear la conexión rfcomm0 con el blueman. Intentar con

sudo rfcomm connect hci0 83:23:26:15:54:46 1

y mantener la terminal de consola de linux corriendo.

[Imagen: nCNLdvR.png]

He aquí el Proyecto:

Archivos adjuntos

SerialBTterm-0.0.14.tar.gz (Tamaño: 524.08 KB Descargas: 3)

Hardware & IoT Sin respuestas

Extendiendo la clase String - Alphanumeric

tincho 27-04-2021, 15:52

Hola a todos.
Aquí le propongo una función que convierte un texto en otro que solo contiene caracteres alfanuméricos.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.

Código:
'' Alphanumericals are a combination of alphabetical and numerical characters, and is used to describe the collection of Latin letters and Arabic digits or a text constructed from this collection.

Static Public Function Alphanumeric(strInput As String) As String

  Dim int As Integer

  Dim strSymbol As String

  Dim stxLeters As New String[]

  Dim intKey As Integer

  Dim stxOut As New String[]

  Dim strOut As String

  Dim stxRepin As New String[]

  Dim stxRepout As New String[]

  Dim intRep As Integer

  stxOut.Clear

  stxLeters.Clear

  stxLeters = Split(":a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z: :A:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z:á:à:â:ã:é:è:ê:í:ï:ó:ô:õ:ö:ú:ç:ñ:Á:À:Â:Ã:É:È:Ê:Í:Ï:Ó:Ô:Õ:Ö:Ú:Ç:Ñ:0:1:2:3:4:5:6:7:8:9", ":")

  stxRepin = Split("Á:À:Â:Ã:É:È:Ê:Í:Ï:Ó:Ô:Õ:Ö:Ú:Ñ:á:à:â:ã:é:è:ê:í:ï:ó:ô:õ:ö:ú:ñ", ":")

  stxRepout = Split("A:A:A:A:E:E:E:I:I:O:O:O:O:U:N:a:a:a:a:e:e:e:i:i:o:o:o:o:u:n", ":")

  For int = 1 To String.Len(strInput)

    strSymbol = String.Mid(strInput, int, 1)

    intKey = stxLeters.Find(strSymbol)

    If intKey > -1 Then

      intRep = stxRepin.Find(strSymbol)

      If intRep > -1 Then

        strSymbol = stxRepout[intRep]

      Endif

      stxOut.Add(strSymbol)

    End If

  Next

  strOut = stxOut.Join("")

  Return strOut

End

Saludos.

Aplicaciones/Fragmentos de Código Respuestas 2

Retrocompatibilidad

tincho 25-04-2021, 21:19

Hola a todos.
Debido a los recientes cambios en la versión 3.16 de gambas surge un inconveniente, al memos durante unos meses, referente a las retrocompatibilidad de las aplicaciones que se desarrollen en dicha versión del IDE.
Ejemplo: En el caso de WebView sucede que en la versión qt4 este tiene la propiedad .HTML que se usa para pasarle el texto a renderizar pero en la versión gtk3 esta propiedad no existe más y en su lugar hay que usar el método .SetHtml() lo cual hace que nuestros programas sean incompatibles con versiones anteriores de gambas.
Una posible solución pasa por usar un condicional como IF o Select:

Código:
'' Opción 1

If CInt(Split(System.FullVersion, ".")[1]) > 15 Then

  WebView1.SetHtml(sContent)

  Else

  WebView1.HTML = sContent

Endif

'' Opción 2

xClass = Classes["WebView"]

  If xClass.Exist("HTML") Then

  WebView1.HTML = sContent

  Else

    If xClass.Exist("SetHtml") Then

    WebView1.SetHtml(sContent)

    Endif

  Endif