Elikkäs, en saa toimimaan koodivinkeistä löytämiäni waw-ja mp3 tiedostojen soitto-ohjelmia. Se johtunee tästä:
Public Declare
. Tuo declare tuottaa virheilmoituksen, en muista millaisen. Voiko tämä johtua siitä että minun VB:ni on se ainut ilmainen exe:jä tekevä, Visual Basic 3?
-- Man with nothing to lose --
Se mistä se valittaa mitää olla moduulissa!
Se on.
-- Man with nothing to lose --
16-bittinen VB ei voi käyttää 32-bittisiä DLL:ä, joita (kaikki) VB-vinkit käyttävät.
Eipä taida VB3:ssa olla Publicia.
Hmm...Mahtaakohan olla mitään keinoa soittaa VB 3:lla musiikkia?
VB3 on romu ja aika vanha. Ota suosilla #Develop ja .NET :)
Tällasen löysin, missä VB3 + mciSendString kontrolloidaan CD-aseman luukkua. Soveltamalla saat pelittämään mp3:sia, waveja ja midejä.
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=432
Järkevin tiedostomuotohan olisi OGG, johon voit sorvata itse 32-bit DLL:n (epätodennäköistä) ja käyttää sitä tai käyttää esim. BASSia.
Elikkä VB 3:n saa soittamaan musiikkia? Jos saa niin et viittis sanoo kuinka se onnistuu koska itse en ole onnistunut... Ja nyt siis on tarve soittaa midejä.
-- Man with nothing to lose --
Kaivelin VB3:n esille ja siellähän oli kuin olikin ikupäivän vanha musiikkisoitin. Tässä kriittiset kohdat:
Declare Function MCIExecute Lib "MMSystem" (ByVal Filename As String) As Integer
IResults = MCIExecute("play " + Tiedosto)
IResults = MCIExecute("Stop " + Tiedosto)Öh, elikkäs kunka nuo nyt tulee sinne Moduuliin lätkiä?
-- The Man with everything to learn --
Declare moduuliin, ja noita kahta alempaa käytät koodissa aloittamaan ja lopettamaan tiedoston toistamisen.
Jeah! Nyt se toimii! Saanen Amisralliin sittenkin musiikkia! Kiitti kaikille auttaneille!
-- The man with everything to learn --
Vielä tuli yksi ongelma johon auttaisi se että sanoisitte että kuinka voi selvittää, soiko parhaillaan joku kappale vai ei.
-- The man with everything to learn --
Ja vielä yksi lisäys: onko mitään msgbox:n kaltaista laatikkoa, joka toimii VB 3:ssa ja jolla voi kysyä jonkin muuttujan arvon, ettei tarvi joka kysymykselle tehdä uutta formia.
ttuoppi, Meinaatkos Common Dialog-Ikkunaa?
Sietäisi opetelle perusteet kunnolla jos tarvitset oman formin joka kysymykselle. Nomic: commondialog on tiedostojen avausta/tallennusta varten eikä oikein sovellu tähän.
Sen sijaan suosittelen sinulle ttuoppi InputBoxia.
Pieni koodiesimerkki:
Dim M As String
M = InputBox("Anna nimesi","Nimen antaminen")
msgbox MAihe on jo aika vanha, joten et voi enää vastata siihen.