Autore Topic: Sparito il suono  (Letto 3181 volte)

Offline dregi

  • Gambero
  • **
  • Post: 85
  • Non possum tuis usque tandem abutere patientiae?
    • Mostra profilo
Re:Sparito il suono
« Risposta #15 il: 28 Novembre 2019, 12:32:09 »
No, ubuntu è installato normalmente.

Ho provato anche i tuoi file wav: nulla!

Dal momento che laser.wav e altri file vengono regolarmente eseguiti da terminale Ubuntu, e nessuno di essi viene eseguito da una qualsivoglia app Gambas, mi sembra di poter concludere che il problema risiede unicamente in Gambas, allora, non essendoci altri componenti riguardanti il suono se non gb.sdl2.audio.
La domanda allora è che strada devo seguire per provare ad aggiornare/reinstallare detto componente?

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.276
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Sparito il suono
« Risposta #16 il: 28 Novembre 2019, 14:04:33 »
non essendoci altri componenti riguardanti il suono se non gb.sdl2.audio.

Stai scherzando ?

Se vogliamo parlare sooolo dei "Componenti Gambas", esistono anche gb.media:

   https://www.gambas-it.org/wiki/index.php?title=La_gestione_dei_file_audio_mediante_il_componente_gb.media

e gb.openal:

   https://www.gambas-it.org/wiki/index.php?title=La_gestione_dei_file_audio_mediante_il_componente_gb.openal


Per le "altre" soluzioni rinvio nuovamente alla nostra copiosa Wiki:
   https://www.gambas-it.org/wiki/index.php?title=Guide_della_comunit%C3%A0#Gestione_dei_dati_audio_e_dei_file_audio
« Ultima modifica: 28 Novembre 2019, 14:07:36 da vuott »
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.157
  • Tonno verde
    • Mostra profilo
Re:Sparito il suono
« Risposta #17 il: 28 Novembre 2019, 14:37:36 »
Le cose importanti le ha scritte vuott.

Io mi limito a parlare del sistema operativo, se non ricordo male hai una versione di Ubuntu standard.
Queste versioni vengono abbandonate dopo nove mesi e non sono adatte per che vuole programmare.
I tuoi problemi è facile che partano da quella scelta.
Installa una LTS e probabilmente risolvi tutti i problemi che ti sono stati creati all'atto dell'aggiornamento.
E poi, questo è un giudizio personale, invece di aggiornare è meglio disinstallare e reinstallare da zero dopo aver fatto il backup esterno di tutti i dati importanti.
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline kicco

  • Senatore Gambero
  • ******
  • Post: 1.702
  • So dove andare, seguitemi, ci perderemo insieme!
    • Mostra profilo
Re:Sparito il suono
« Risposta #18 il: 28 Novembre 2019, 20:15:26 »
 :ciao:
Se può servire:
ubuntu 19.04 con gb.sdl2.audio attivo, non ho problemi usando:

Codice: [Seleziona]
  Dim sn As Sound
      sn = Sound.load("fileaudio")
      sn.play
:ciao:
Chi ha paura muore ogni giorno, chi non ha paura muore una volta sola. (Paolo Borsellino)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.276
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Sparito il suono
« Risposta #19 il: 29 Novembre 2019, 00:27:37 »
con componente o che riga di codice lo richiamo?
Music.Load( percorso)
Music.Play

Vediamo un esempio per eseguire file audio di formato MP3 con la Classe Music del Componente gb.sdl2.audio e con l'ausilio della libreria esterna "libmpeg3":
Codice: [Seleziona]
Library "libmpeg3:2.1.8"

' mpeg3_t* mpeg3_open(char *path, int *error_return)
' Open the MPEG stream.
Private Extern mpeg3_open(path As String, error_return As Pointer) As Pointer
 
' long mpeg3_audio_samples(mpeg3_t *file, int stream)
Private Extern mpeg3_audio_samples(mpeg3file As Pointer, _stream As Integer) As Long

' int mpeg3_sample_rate(mpeg3_t *file, int stream)
Private Extern mpeg3_sample_rate(mpeg3file As Pointer, _stream As Integer) As Integer

' int mpeg3_close(mpeg3_t *file)
' Close the MPEG stream.
Private Extern mpeg3_close(mpeg3file As Pointer) As Integer


Public Sub Main()

  Dim mp3 As Pointer
  Dim perc As String
  Dim camp As Long
  Dim freq, i As Integer
  Dim s As Single
  Dim tmp As Date
 
  perc = "/percorso/del/file.mp3"
 
  mp3 = mpeg3_open(perc, 0)
 
  camp = mpeg3_audio_samples(mp3, 0)
 
  freq = mpeg3_sample_rate(mp3, 0)

  s = camp / freq
 
  Print "Durata: "; Date(0, 0, 0, 0, 0, 0, s * 1000)
     
  Music.Load(perc)
  Music.Play

  tmp = Now

  Repeat
    i = DateDiff(tmp, Now, gb.Second)
    Write "\rTempo trascorso: " & Date(0, 0, 0, 0, 0, 0, i * 1000)
  Until i >= s

  mpeg3_close(mp3)

End
« Ultima modifica: 29 Novembre 2019, 00:32:06 da vuott »
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »