Shordi 14-08-2021, 23:56
Este es un video muy elemental sobre la clase dialog y file. He hecho en un rato un pequeño editor de texto para ilustrarlo y creo que los que tenéis ya callos en los dedos gamberos os lo podéis ahorrar...
Saludos
Saludos
Obteniendo la letra de una canción
tincho 14-08-2021, 17:48
Hola amigos.
Hace unos años hice esta función que obtenía la letra de una canción, era para el programa Vinilo que es para escuchar y catalogar música, bien ahora intento actualizar y simplificar el código.
Les comparto el código por si tienen ganas de invertir algo de tiempo y mejorarla.
Nota: Uso el programa de terminal elinks que tambien me gustaria dejar de usar, si es posible me interesa usar solo gambas.
Saludos.
Hace unos años hice esta función que obtenía la letra de una canción, era para el programa Vinilo que es para escuchar y catalogar música, bien ahora intento actualizar y simplificar el código.
Les comparto el código por si tienen ganas de invertir algo de tiempo y mejorarla.
Nota: Uso el programa de terminal elinks que tambien me gustaria dejar de usar, si es posible me interesa usar solo gambas.
Código:
Public Function ReadLyric(strArtist As String, strTitle As String) As String
Dim strBoxBeg As String
Dim intBoxBeg As Integer
Dim intBoxEnd As Integer
Dim strHtmlTmp As String
Dim intMessage As Integer
Select Msys.PkgStat("elinks")
Case True
If InStr(strArtist, " ") <> 0 Then
strArtist = Replace(strArtist, " ", "_")
strArtist = MUtility.Capital(strArtist)
Endif
If InStr(strTitle, " ") <> 0 Then
strTitle = Replace(strTitle, " ", "_")
strTitle = MUtility.Capital(strTitle)
Endif
Shell "elinks http://lyrics.wikia.com/" & strArtist & ":" & strTitle & " 2>&1" To strHtmlTmp
strBoxBeg = "licensing agreement with music Gracenote."
intBoxBeg = InStr(strHtmlTmp, strBoxBeg) + String.Len(strBoxBeg)
intBoxEnd = InStr(strHtmlTmp, " External links", intBoxBeg)
strHtml = Mid(strHtmlTmp, intBoxBeg, intBoxEnd - intBoxBeg)
strHtml = Replace(strHtml, "\n\n", "\n")
Case False
intMessage = Message.Question(("Tiene que instalar el progrma") & "elinks", ("Aceptar"), ("Instalar"))
Select intMessage
Case 1
'
Case 2
Desktop.OpenTerminal
Case 3
Settings["Preferences/alarm"] = False
FMain.bolPkgAlarm = False
End Select
End Select
Return strHtml
End
Desarrollar, empaquetar e instalar nuestros desarrollos
tincho 13-08-2021, 15:30
En este pequeño resumen intentare plasmar las etapas por las que hay que pasar para distribuir un programa desarrollado y empaquetado con Gambas-IDE
Escenario
Notas
Conclusión
Saludos.
Escenario
- Sistema de desarrollo: Debian 11 con Gambas-IDE 3.16.9 instalado desde las fuentes.
- Programa Databook desarrollado y empaquetado con Gambas-IDE 3.16.9 y marcando versión mínima 3.12
- Sistema destino Debian 11 sin Gambas-IDE sin ningún componente gambas, nada de nada.
- Instalar los componentes gambas de los que depende el programa Databook con sudo apt-get install gambas3-runtime gambas3-gb-compress gambas3-gb-desktop gambas3-gb-form gambas3-gb-gtk3 gambas3-gb-image gambas3-gb-util-web gambas3-gb-xml [1]
- Instalación del paquete sudo dpkg -i databook_0.1.7-1_all.deb [2]
- Instalar con GDEB que si verifica las dependencias: sudo gdebi databook_0.1.7-1_all.deb [3]
Notas
- gambas3-runtime es el paquete que siempre se debe instalar para un mínimo funcionamiento del programa mas simple. Luego en el archivo .project del proyecto están listados los componentes que este utiliza como puede verse en el ejemplo de Databook.
- dpkg es el programa usado para instalar el paquete de forma "artesanal" como lo llamo Shordi y le tomo prestado el termino, pero bien valdría algún otro programa a tal efecto como gdebi.
- En debian 11 no venia instalado por defecto gdebi así que para usar la receta 2 hay que instalarlo antes.
Conclusión
- Siguiendo esta "receta" el programa fue instalado sin ningún tipo de error y funciona correctamente.
- Si desinstalan Gambas3 los programas que dependan de algún componente de gambas es decir todos los desarrollados con el IDE serán desinstalados también hayan sido instalados por ejemplo sudo apt-get remove --purge gambas3* dará como resultado la desinstalación de databook* gambas3-gb-compress* gambas3-gb-desktop* gambas3-gb-desktop-x11* gambas3-gb-form* gambas3-gb-gtk3* gambas3-gb-image* gambas3-gb-util-web* gambas3-gb-xml* gambas3-runtime*
- En la versión 3.16 de gambas se introdujeron una serie de modificaciones en los componentes y los controles que en la practica hacen que, si los programas desarrollados usan estos nuevos componentes o controles, no sea posible distribuir los paquetes en todos los sistemas. Lo mas seguro es desarrollar con el IDE que viene por defecto en el sistema destino donde se se instalara el programa o, en el caso de Ubuntu y sus derivados, con el PPA de Gambas-Team
- En el caso de desarrollas con un IDE anterior a 3.15 o anterior y luego intentar abrir un proyecto 3.16 o posterior seguramente aparezcan problemas de compatibilidad con controles que no existen en versiones anteriores, como es el caso de VSplitter en cuyo caso basta por editar el form con un editor de texto cambiando el tipo de control. Para mas detalle ver: https://gambas-es.org/showthread.php?tid=373
Saludos.
Bienvenido, Invitado
Últimos temas
controlar el Activado/Des...
Foro: GeneralÚltimo mensaje por: atakito, Hace 1 hora
Respuestas: 0 - Vistas: 1
Nuevo componente gb.qt6.w...
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, Hace 9 horas
Respuestas: 1 - Vistas: 41
Conexión Bluetooth: RFCOM...
Foro: Hardware & IoTÚltimo mensaje por: jguardon, 06-05-2025, 16:57
Respuestas: 5 - Vistas: 154
gb.db2: columnas calculad...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-05-2025, 21:02
Respuestas: 14 - Vistas: 525
Gambas + ERP = GamERP.
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tercoide, 30-04-2025, 15:57
Respuestas: 25 - Vistas: 2,073