Keskustelu: Ohjelmointikysymykset: VB6: Kuinka tunnistaa soiko kappale?

Otsikossahan se jo näkyykin, eli kuinka voi tunnistaa VB 3:lla soiko joku midi jo, vai voiko alkaa soittamaan uutta.

-- The man with everything to learn --

Riippuu tietenkin toteutustavasta. Jos soitat MIDIä mciSendString-funktion avulla, niin näistä keskusteluista löytyy apua.

Tuota, soitan sitä MCiExecuten avulla.

Nyt tuli aika outo ongelma; soitan midejä MCISendStringin (vaihdoin tapaa) avulla, uudessa formissa ja moduulissa toimii, Amisrallissa taasen ei, vaikka koodit ovat samalla tavalla, ja useita vaihtoehtoja koodin paikalle olen kokeillut. Koodihan siis on seuraavanlainen:

***Moduuliin

Declare Function mciSendString Lib "mmsystem" (ByVal lpstrCommand$, ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%) As Long

***Formille

 i = mciSendString("open c:\Crawling.mid type sequencer alias midi", 0&, 0, 0)

***Commandbuttonille

i = mciSendString("play midi", 0&, 0, 0)

EDIT: Myöskään wav:t ei toimi samalla tavalla Amisrallissa, uudessa projektissa kylläkin.