Comunidad Gambas-es

Shordi 15-08-2021, 11:56

Como siempre tengo música no me había dado cuenta, pero al abrir gambas, se oye una música como muy triste y la gamba del rótulo llora. ¿Alguien sabe por qué?

General Respuestas 6

Iniciación a la clase Dialog y File

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

Videotutoriales Respuestas 3

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.

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

Saludos.