mmmm, saresti così gentile da spiegarmi come ho fatto il loop?
Comunque per ora ho risolto eliminando la riga:
PUBLIC SUB Slider1_Change() 'Varia la posizione dello slider in base alla posizione della musica
'Music.Pos = Slider1.Value END
e cambiando invece:
PUBLIC SUB Timer2_Timer()
'Aggiorna la posizione dello slider1
Slider1.Value = Music.Pos
Label6.Caption = Music.Pos * 60 END
Ovviamente ci sono degli errori, non far caso a quel *60 che non serve a nulla, provo semplicemente a far comparire il tempo trascorso in un label.
Ho anche un'altro problemino che però non c'entra nulla col timer, ma descrivo quì dato che il programma è sempre lo stesso, ovviamente se ritenete che debba creare un topic apposito, lo faccio.
Riguarda il pulsante di stop, vorrei che prima di fermare il brano musicale, mi vada a diminuire lentamente il volume e poi stoppare tutto. Sto facendo alcuni esperimenti:
PUBLIC SUB ToolButton7_Click()
'Stoppa la musica
DIM a AS Integer
DIM b AS Float
DIM c AS Float
b = 0.1
FOR a = 0 TO 10
Music.Volume = c
c = 1.0 - b
b = b + b
WAIT 1.5
NEXT
Music.Stop
Timer2.Enabled = FALSE
Slider1.Value = 0
END
Il codice in linea di massima funziona ma non so perchè quando premo il tasto stop la musica si stoppa per un attimo, poi riparte e abbassa il volume fino poi a stopparsi completamente.
Ciao e grazie mille a tutti!!!!!!!!!!
PS: Perchè non lo facciamo noi un bel manuale per gambas2????? :-D
