Comunidad Gambas-es

tincho 28-04-2021, 03:12

Hola.
Jsbsan me comento que este control había sufrido algunos cambios en las propiedades así que por curiosidad me puse a investigar y resulta que encontré estas nuevas:

.Animation
.AutoResize
.Children
.ClientH
.ClientHeight
.ClientW
.ClientWidth
.ClientX
.ClientY
.Image
.Mode
.Padding
.Stretch

Nota: Es curioso que algunas propiedades como .Path siguen existiendo pero no se puede acceder a ellas desde la lista de propiedades del IDE. Esto da la sensación de que las propiedades no existen mas, pero no es así. Habrá que ver si no sera un tema de obsolescencia y en la versión 3.17, por ejemplo si que desaparezcan.
¿Que piensan al respecto?

Saludos.

Controles/Librerías/Componentes Sin respuestas

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.