Keskustelu: Ohjelmointikysymykset: VB6: Mp3:sen pituus selville

Miten Mp3:sen pituuden sais selville ja sit ku se on selvillä siirtää se textboxiin. Tarviin tota et saan kappaleet vaihtumaan soittimessa.

Funktiolla FileLen selviää tiedoston pituus tavuina, myös mp3:sen. Esimerkiksi:

'laittaa Text1:seen hakemistossa c:\musiikit\ -hakemistossa
'olevan testi.mp3-tiedoston pituuden kilotavuina
Text1 = FileLen("c:\musiikit\testi.mp3") / 1024

Mut mite ton saa ajaks. Esim kappale voi kestää 1.35 min ja sit text1 lukee vaik 0.00/1.35 ja sit ku toi on 1.35 niin tapahtuu kappaleen vaihtuminen

Hmm...taisin käsittää vähän väärin. _Kappaleen_ pituuden selvittäminen riippuu täysin siitä, millä tavalla mp3:sta soitat. Jos käytät mciSendStringiä (https://www.ohjelmointiputka.net/koodivinkit/23545-vb6-mp3-tiedoston-soittaminen), kappaleen pituuden saa selville 'pituus'-muuttujaan näin:

Dim pituus As String * 255
mciSendString("status kappaleennimi length", pituus, 255, 0)

Ja kappaleen kulloisenkin kohdan muuttujaan 'nyt' näin:

Dim nyt As String * 255
mciSendString("status musa position", nyt, 255, 0)

Ja sitten pitää verrata aina välillä onko nykyinen kohta sama tai suurempi kuin kappaleen kokonaispituus:

If Val(nyt) > Val(pituus) Then
    'Seuraava kappale
End If

Pituudet eivät sitten tule sekunteina, vaan jonain muuna yksikkönä - tämän suhteen saat selville parilla kappaleella kokeilemalla.

Muokkaustoiminto ja äkkiä! ;)

Eli kappaleennimi ja musa tarkoittavat samaa, ja kuvaavat sitä nimeä, jonka olet soitettavalle musiikille antanut ensimmäisessä mciSendString-kutsussa. Ja noiden funktiokutsujen eteen vielä 'x = ', ja x pitää määritellä Long:iksi koodin alussa.

lainaus:

Muokkaustoiminto ja äkkiä! ;)

BUAHHHHHHHHHHhhh. Alkoi ihan ääneen naurattamaan vaihteeksi ;)
Kannattaa muistaa että tuo mciSendString ei ole sitten mikään vuorenvarma tapa noiden MP3:sten soitteluun, vaikka lienee toimiikin kaikilla uusimmilla wintoosilla ihan oletuksena. Jollain 95:lla ei välttämättä :)

Voi prk... Muokkaustoiminto ja äkkiä! ;)

Hhe.. mulla ei ainakaan toimi MP3:set tolla mciSendStringillä.. (mulla on nääs se 95. =)

Hmm mahtaneeko toimia sillä aidolla ja alkuperäisellä? :)
Onko tuo kenties joku niistä uudemmista 95:sista (FAT32-tuki jne).
Ei minulla taas ole kyllä mitään varmuutta asiasta mutta pisti vaan epäilyttämään :)
Ai niin, ja onko sinulla se uusi mediapleijeri? Alkup. wintoosan mediapleijerihän ei mp3:sia tietääkseni soittele.