Minulla on vb-ohjelmassa media player - objekti, ja ongelmani onkin, että miten voisi valvoa, milloin kappaleen soitto loppuu? Yksi idea oli, että timer - objektille antaisi intervalliksi kappaleen kesto sekunneissa (duration) * 1000. Ongelmana oli, että kappaleen latauksen jälkeen (open) duration palauttikin 0. Yritin kahtakin ratkaisua:
mediaplayer1.open ("E:\mp3\aarne tenkanen\joulu joka päivä.mp3")
do
loop until mediaplayer1.duration > 0
timer1.interval=mediaplayer1.duration*1000Tämähän ei toiminut, vaan jäi pyörimään luuppiin. Seuraavaksi kokeilin muuttaa loop-rivin tälläiseksi:
loop until mediaplayer1.isdurationvalid
Sama ongelma jatkui. Seuraavaksi sitten suuntasinkin tänne (nettiaikani tältä päivältä on lopussa, joten en voinut googlettaa ongelmaan ratkaisua muuten). VB:ssäni ei ollut helppiäkään. Mutta, toivottavasti joku löytää ratkaisun pulmaani, pyrin selostamaan aika yksityiskohtaisesti, toivottavasti mitään ei unohtunut...
mitä *****a, vb-kooditagit söi kaksi ensimmäistä kirjainta. me- ja lo-...
Kooditagin ylä- ja alapuolella on oltava rivinvaihto, muuten katoaa merkkejä, eli:
Koodirivi1 Koodirivi2 Koodirivi3
Mutta sitten ongelmaan. MediaPlayer-komponenttia en ole tutkinut, mutta kokeilepa ainakin laittaa DoEvents tuon loopin keskelle, muuten ohjelma jää jumiin.
Aihe on jo aika vanha, joten et voi enää vastata siihen.