19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
salve sapete come si cancellano tutti gli spazi in una stringa?Lo spazio, come è noto, non è solo il luogo ove vaga Ceskho quando fa l'alieno, ma è un carattere come tutti gli altri, e tale va trattato.
' Nella stringa sostituiamo tutti i caratteri "spazio", con un bel niente:
Replace(testo_contenente_gli_spazi, " ", "")
avrei un piccolo problema nel visualizzare un array 2d in una combobox...
Public Sub Form_Open()
Dim a As New String[2, 2]
a[0, 0] = "alibaba"
a[1, 0] = "simbad"
a[0, 1] = "aladino"
a[1, 1] = "abukir"
ComboBox1.List = a
End
Public Sub Button1_Click()
Dim a As Byte
Dim alibaba As New Byte[2]
Dim simbad As New Byte[2]
For a = 0 To 1
alibaba[a] = 100 + a
Next
simbad = alibaba
simbad[1] = 50
Print alibaba[1] '...stranamente darà 50 !
End
COSAAAAAAAAAAA?...il programma è simpatico ed accattivante, ma qualche pulsante per gestire il brano (pausa, stop, etc) potevi pure mettercelo !hai aggiunto dei pulsanti è non me l' hai detto!!!!!!!!!
scherzi a parte mi fa piacere che almeno uno al mondo lo utilizzi!...un fesso in giro si trova sempre !
adesso so io dove metterti le api!...Al riguardo potete sotto vedere una foto di Vuott che cerca massimo refrigerio dopo aver subito il supplizio infertogli da fsurfing con l'api !
Niet da fare: ho provato a utilizzare il metodo Music per la riproduzione, per rilevare la fine del brano ho abilitato un timer (intervallo 10ms) che legge continualmente la posizione. Quando la posizione è minore di 0.010 (quindi sono arrivato alla fine) carico e riproduco la seconda traccia e disabilito il timer.Non so... forse anticipando un po' i tempi, nel senso che se carichi e fai partire i file successivo quando il Timer non è proprio giunto a zero....
Si sente lo stesso l'interruzione.
Niet da fare: ............devi "inseguire le Api".......
Si sente lo stesso l'interruzione.
.... il mio gplay magari potrebbe esserti utileCaro fsurfing devo dirti che il tuo applicativo (c'ho aggiunto qualche tastino funzionale) lo uso regolarmente per ascoltare i .wav ed .mp3 .
Potresti tradurre in linguaggio per i comuni mortali che sono solo diplomati in elettronica?
studiando come gestire i dati audio attraverso le funzioni esterne delle API di Alsa.
Private s1 As Sound
Public Sub Button1_Click()
Dim s2 As Sound
s1 = New Sound("alibaba.wav")
Channel(Channels[0]).Play(s1)
s2 = New Sound("simbad.wav")
Channel(Channels[1]).Play(s2)
End
Public Sub Button2_Click()
' Fermiamo l'esecuzione del "solo" file .wav
' eseguito sul primo canale (il num. 0):
Channel(Channels[0]).Stop
End
Allora, Music.Pos mi restituisce un float, quindi per sapere se il brano è finito suppongo debba fare continuamente una comparazione tra il tempo attuale e la durata del brano.Ti basta piazzare un Timer, ed andare a vedere ogni tot millisecondi (lo stabilirai tu) il valore che ti restituisce il metodo "Pos", ossia quanto tempo è trascorso dall'inizio. Questo inoltre ti consentirà di applicare anche una ProgressBar o uno Slider per indicare, appunto, il tempo trascorso.
Suppongo si possa rilevare la durata di un brano, ma penso debba fare continuamente la comparazione...
ciao, scusate se mi intrometto...Ciao doublemm, non capisco
perché tu debba scusarti: al forum possono partecipare tutti gli iscritti !...ho fatto delle prove, vi risulta che associando il volume ad uno slider, al cambio volume il file in riproduzione si ferma?Poiché la gamma è compresa tra 0.00 ed 1, devi inviare un valore di tipo Float. Va precisato che - secondo i risultati da me ottenuti - il cambio di volume di un file .wav, eseguito con la classe Sound, è possibile usando la classe "Channels", senza, però, specificare il numero di canale, altrimenti - sì, hai ragione - l'ascolto si blocca. L'uso di "Channels" significa, però, che saranno modificati, ovviamente, tutti i canali attivi, e quindi tutti i file audio eseguiti:
Public Sub Button1_Click()
Dim s1 As Sound
s1 = New Sound("alibaba.wav")
Channel(Channels[0]).Play(s1)
' al posto della riga: "Channel(Channels[0]).Play(s1)"
' possiamo usare: s1.Play()
End
' Avremo impostato lo Slider con le proprietà
' MaxValue = 100 e MinValue = 0
Public Sub Slider1_Change()
Dim a As Float
a = Slider1.Value / 100
Channels.Volume = a
End
Ho fatto anche delle prove con la classe music. La classe music mi riprodice degli mp3 che con sound mi danno errore al momento del caricamento "unrecognized sound file type"Sì, ti dò conferma. Vado a modificare al riguardo il mio primo intervento. Non avevo fatto la prova con gli .mp3.
Però mi sembra di aver capito che eseguire più "brani" contemporaneamente è come sentire più persone che parlano contemporaneamente........be'...sì... significa - ovviamente - far eseguire, e quindi ascoltare due o più file .wav (al di là di quali suoni contengono) contemporaneamente.
C'è un interrupt o qualcosa che mi "avverte" che è finito il brano?Ritengo sia possibile, però con la proprietà Pos della classe "Music".
Se io tolgo il WAIT ed eseguo un fille .WAV che contiene un sigolo tono, mi accorgo che c'è stato il passaggio?Cosa intendi dire con precisione ? Se puoi sapere, forse, se è stata avviata l'esecuzione del file ? O intendi un'altra cosa ?
Public Sub Button1_Click()
Dim s1, s2, s3 As Sound
' Impostiamo il volume ad intensità bassissima del 1° canale,
' ossia il num. 0 all'interno dell'array "Channels":
Channels[0].Volume = 0.03
s1 = New Sound("alibaba.wav")
' Attiviamo il "1°" canale ed eseguiamo il file audio:
Channel(Channels[0]).Play(s1)
Wait 1
Channels[1].Volume = 0.1
s2 = New Sound("alibaba.wav")
Channel(Channels[1]).Play(s2)
Wait 1
Channels[2].Volume = 1
s3 = New Sound("alibaba.wav")
Channel(Channels[2]).Play(s3)
End
ad inseguire il tentativo di approfondire la conoscenza del componente gb.sdl.sound...
Public Sub Button1_Click()
' dichiariamo tre variabili del tipo "Sound":
Dim s1, s2, s3 As Sound
' Attiviamo, però, soltanto 2 canali.
' Questo determinerà l'esecuzione di solo due file sonori:
Channels.Count = 2
' Impostiamo il volume di quei 2 canali attivati a metà:
Channels.Volume = 0.5
'...carichiamo "in memoria" (come dice la documentazione) tre file sonori.
' Dovremo caricarli ciascuno in una singola variabile di tipo della classe "Sound":
s1 = New Sound("/alibaba.wav")
s2 = New Sound("/aladino.wav")
s3 = New Sound("/simbad.wav")
' Li andiamo a far eseguire... "contemporaneamente":
s1.Play()
s2.Play()
s3.Play()
'...ma poiché abbiamo attivato solo due canali,
' sentiremo soltanto i primi due file sonori.
End
Public Sub Button1_Click()
'...nel tentativo disperato di far eseguire contemporaneamente
' anche qui tre file sonori, li carichiamo tutti e tre:
Music.Load("/alibaba.wav")
Music.Load("/aladino.wav")
Music.Load("/simbad.wav")
' Poi, come vada vada, cerchiamo di eseguirli contemporaneamente:
Music.Play
Music.Play
Music.Play
'...non c'è niente da fare, ahimé: sarà eseguito soltanto l'ultimo file sonoro del gruppo !
' Ugualmente si fa cilecca, anche provando ad usare (come abbiamo fatto per la Classe "Sound")
' delle variabili di tipo "Music".
End
Per quanto riguarda la distruzione, usandoCodice: gambas [Seleziona]
ScrollView1.Children.Clear
oppure, come mel mio casoCodice: gambas [Seleziona]
Panel4.Children.Clear
non và, perchè, in entrambi i casi, dopo Children. accetta solo Count.