Differenze tra le versioni di "Conoscere la durata di un file Midi mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Per conoscere la durata di un file Midi, il Componente ''gb.media'' fornisce la | + | Per conoscere la durata di un file Midi, il Componente ''gb.media'' fornisce la Proprietà ".Duration" della Classe ''MediaPlayer''. In particolare questa Proprietà restituisce un valore di tipo ''Float'' che rappresenta la durata del file Midi espresso in secondi. |
| − | Poiché tale proprietà ritorna più precisamente la durata dei dati processati, essa potrà essere utilizzabile solo successivamente all'attivazione della funzione | + | Poiché tale proprietà ritorna più precisamente la durata dei dati processati, essa potrà essere utilizzabile solo successivamente all'attivazione della funzione ".Play()". |
Mostriamo un essenziale esempio: | Mostriamo un essenziale esempio: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | + | ||
Dim mp As MediaPlayer | Dim mp As MediaPlayer | ||
| − | + | ||
| − | + | With mp = New MediaPlayer | |
| − | + | .URL = Media.URL("<FONT Color=gray>''/percorso/del/file.mid''</font>") | |
| − | + | .Audio.Mute = True | |
| − | + | .Play() | |
| − | + | Print "Durata del file Midi: " & CStr(Date(0, 0, 0, 0, 0, 0, <FONT Color=#B22222>.Duration</font> * 1000)) | |
| − | + | .Stop() | |
| − | + | .Close() | |
| − | + | End With | |
| − | + | ||
'''End''' | '''End''' | ||
Versione delle 17:45, 17 set 2022
Per conoscere la durata di un file Midi, il Componente gb.media fornisce la Proprietà ".Duration" della Classe MediaPlayer. In particolare questa Proprietà restituisce un valore di tipo Float che rappresenta la durata del file Midi espresso in secondi.
Poiché tale proprietà ritorna più precisamente la durata dei dati processati, essa potrà essere utilizzabile solo successivamente all'attivazione della funzione ".Play()".
Mostriamo un essenziale esempio:
Public Sub Main()
Dim mp As MediaPlayer
With mp = New MediaPlayer
.URL = Media.URL("/percorso/del/file.mid")
.Audio.Mute = True
.Play()
Print "Durata del file Midi: " & CStr(Date(0, 0, 0, 0, 0, 0, .Duration * 1000))
.Stop()
.Close()
End With
End
