Keskustelu: Ohjelmointikysymykset: playlisti (VB6)

Ajattelin tehdä mp3soittimeeni soittolistan, ja sain tehtyä listan mihin voi jo lisätä kappaleita. Ny olisi kiva tietää millä koodipätkällä saa soittamaan koko soittolistan, ettei tarvitse erikseen kappaleen päätyttyä vaihtaa kappaletta? Käytän Antin vinkkiä soittamaan mp3lmosta, joten en halua käyttää sitä windows mediaplayer systeemii. Suunnitteilla olisi vielä mahdollisuus tallentaa soittolistan tiedot, mutta kai minä sen jo kohta keksin (tai sitten en :)

matpit kirjoitti:

Ny olisi kiva tietää millä koodipätkällä saa soittamaan koko soittolistan, ettei tarvitse erikseen kappaleen päätyttyä vaihtaa kappaletta?

Ei tuohon mitään taikaratkaisua ole. Joudut kirjoittamaan koodin joka edellisen kappaleen loputtua aloittaa soittamaan seuraavaa.

Private Function SoikoMP3(alias As String) As String
    Dim x As Long, tiedot As String * 255
    x = mciSendString("status " & alias & " mode", tiedot, 255, 0)
    SoikoMP3 = Left(tiedot, InStr(tiedot, Chr(0)) - 1)
End Function

Private Sub Soikokatso_Timer()
On Error Resume Next
Me.Caption = "mp3Player: " & SoikoMP3("biisi")
If SoikoMP3("biisi") = "stopped" The



If paalla = True Then
List1.ListIndex = List1.ListIndex + 1
List2.ListIndex = List1.ListIndex
SuljeMP3 "biisi"
SoitaMP3 List1.List(List1.ListIndex), "biisi"
End If
End If
End Sub

Eli tämä koodinpätkä katsoo onko edellinen mp3 päällä jos on niin silloin ei tehdä mitään muussatapauksessa vaihdetaan seuraava biisi

Edit: Huom tämä ei ihan ole se mitä haet mutta soveltamalla onnistuu tai oikeastaan tämä on mutta tässä on hieman ylimäärästä

En oikein saanut tesmun vinkkiä toimimaan, puuttuuko siitä tekstiä ja eikö sen "The" kuuluisi olla "Then"?

tesmu kirjoitti:

If SoikoMP3("biisi") = "stopped" The

If paalla = True Then

Se lisäys systeemi jonka jo kehuskelin tekemäni toimii näin:
***Moduuli
Public Sub soita()
SuljeMP3 "biisi"
Dim kappale As String
kappale = form1.List1.Text
form1.Text1.Text = kappale
SoitaMP3 kappale, "biisi"
End Sub

Joo the ilmeisesti kuuluu olla then

toi on suoraan mun mp3playerista ja mun systeemi lisää biisit listaboksiin

tuo functio soikomp3 katsoo että soiko mp3 jos ei soi niin tämä timeri katsoo että biisi on loppunut ja vaihtaa seuraavan biisin

Noni nyt rupes toimimaan, ainoo vaa et se hävitti sen formin heti ku sain se toimii... :( Noh nyt tiedän miten se tehdään iso kiitos sulle. Mikäs nimi laitetaan soittimen kiitokset -listalle?

Pistä vaikka Koodari :)

Ny toimii taas vaihteeks. Uusimman soittimen voit ladata osoitteesta http://www.mp3soitin.tk/ (tällä hetkellä ei ole uusin versio :) Jos lataatte, antakaa kommentteja.