CoolBasic Forums

• wav = SM_OpenWav(path$)
  Avaa wav-tiedoston(path$) ja tallentaa sen muistipalaan(wav)
• sr = SM_GetSampleRate(wav)
  Lukee muistipalasta(wav) äänen näytteenottotaajuuden(sr).
• c = SM_CountChannels(wav)
  Lukee muistipalasta(wav) äänikanavien(c) määrän (1 = mono, 2 = stereo).
• raw = SM_GetChannelRawData(wav,channel = 1)
  Hakee muistipalasta(wav) kanavan(channel) raakadatan ja tallentaa sen muistipalaan(raw).
• SM_SetChannelRawData(wav,data,channel = 1)
  Tallentaa muistipalaan(wav) toisesta muistipalasta(data) saatavan raakadatan halutulle kanavalle(channel).
• length# = SM_GetLength(wav)
  Hakee muistipalasta(wav) äänen pituuden(lenght#) sekunteina.
• SM_WriteWav(path$,samplerate,data1,data2=0)
  Luo wav-tiedoston ilmoitettuun tiedostopolkuun(path$) valitulla näytteenottotaajuudella(samplerate)
  raakadatojenpohjalta
• SM_SaveWav(path$,wav)
  Tallentaan aiemmin avatun wav-muistipalan(wav) tiedostopolkuun(path$).
• SM_MakeWav(channels = 1,samplerate = 16000)
  Luo wav-muistipalan määritelemäläsi kanava määrällä(channels) ja näytteenottotaajuudella(samplerate)

Include "cbSound&Music.cb"
wav = SM_OpenWav("C://APPS/Coolbasic/Media/Prop dive 2.wav") //Avataan wav
SM_SetSampleRate(wav,SM_GetSampleRate(wav)/2) //Tupla nopeus
SM_SaveWav("testi.wav",wav)
PlaySound "testi.wav"
WaitKey
DeleteFile "testi.wav"

Include "cbSound&Music.cb"

SCREEN 800,400
wav = SM_OpenWav("Media/Prop dive 2.wav") //Avataan wav
rawdata = SM_GetChannelRawData(wav)//Haetaan data

length = MEMBlockSize(rawdata) //Muistipalan koko
keskiarvo = i2 = i3 = 0
For i = 0 To length - 4 Step 4
    PokeFloat rawdata,i,PeekInt(rawdata,i)/2147483647.0 //Muutetaan arvot sopivammiksi
Next i
x = MouseMoveX() : y = MouseMoveY() //Nollataan
x = 0
y = 200
Zoom# = 1.0
Repeat
    lasty = y
    Color cbWhite
    Line 0,y+Zoom#*200.0,800,y + Zoom#*200.0 //Maksimi
    Line 0,y-Zoom#*200.0,800,y - Zoom#*200.0
    Color cbRed
    For i = 0 To length - 4 Step 4
        y2 = y+PeekFloat(rawdata,i)*Zoom#*200.0
        Line x+(i-4)*Zoom#,lasty,x+i*Zoom#,y2
        lasty = y2
    Next i
    mx = MouseMoveX()
    my = MouseMoveY()
    If MouseDown(1) Then x = x + mx : y = y + my
    Zoom# = Max(Zoom# + Zoom# * MouseMoveZ()/10,0.1)
    DrawScreen
Forever

• music = SM_AddToPlayList(path$,class$,length,maxvolume = 100)
  Luo uuden jäsenen soittolistaan.
  path$ = Tiedostopolku jossa kappale on.
  class$ = Kappaleen luokka esim. "peli" tai "valikko"
  length = kappaleen pituus millisekunteina (ei silti tarvitse olla niin tarkka luku)
  maxvolume = maksimi volumi
  music = Kappaleen muuttuja
• SM_UpdateMusic()
  Päivittää musiikin toiston
• SM_ChangeMusic(music,changeclass = true)
  Vaihtaa toistettavan kappaleen välittömästi.
  music = Kappale joka toistetaan seuraavaksi.
  changeclass = Vaihdetaanko soittoluokka kappaleen mukaan?
• SM_PlayNext()
  Toistaa seuraavan kappaleen.
• SM_StopMusic()
  Pysäyttää kappaleen toiston.
• SM_ContinuePlaying()
  Jatkaa toistamista
• SM_SetClass(class$)
  Vaihtaa välittömästi toistoluokkaa.
  class$ = Luokan nimi, jonka kappaleita soitetaan seuraavaksi tai
  kappale, jonka luokkaa käytetään.
  
  Vakiot:
• SM_QuietDown
  Millisekunteina kuinka pitkä on hiljentymis aika.
  
  Globaali muuttujat:
• SM_CurrentMusic
  Tällä hetkellä toistettava musiikki.
  Älä muuta tätä! Käytä siihen mielummin "SM_ChangeMusic" funktiota.
• SM_NextMusic
  Seuraavana soitettava musiikki.
  Nolla, jos valitaan seuraava kappale soittolistalta.
• SM_CurrentClass$
  Tällä hetkellä käytössä oleva luokka.

1.01:
-Lisätty virheen tarkistus "SM_OpenWav" ja "SM_AddToPlayList" funktioihin.
-Lisätty "SM_MakeWav" funktio

Herra HoOpO wrote:Olenko aivan väärässä, vai pystyykö ensin luoda äänen, tallentaa sen muistinpalaan, ja lopuksi tallentaa Waviksi tuon härpäkkeen avulla?

MaGetzUb wrote:Ihan jees settiä, vielä vain vähän laajempia äänitiedoston hallintaa, nimittäin tuo wav kun ei ole mikään maailman parhain ainakaan koon suhteen. Mp3, OGG, Wma olisi hyvä lisä, tosin voivat olla vain vähän hankalia.

Latexi95 wrote:Ongelma on siinä, että nuo ehdottamasi ovat muodot ovat pakattuja, joten pitäisi ensiksi tehdä purku algoritmi.
Voin silti yrittää tehdä, jos löydät selkeät ohjeet niiden purkamiseen ja pakkaamiseen.

MaGetzUb wrote: Hei mutta koodistasi sen verran, että kannattaa ensin tarkistaa onko tiedostoa olemassa FileExsists:llä. Ei ole kiva lukea äänitiedostoa avatessa, että OpenToRead failed.

Latexi95 wrote:

MaGetzUb wrote: Hei mutta koodistasi sen verran, että kannattaa ensin tarkistaa onko tiedostoa olemassa FileExsists:llä. Ei ole kiva lukea äänitiedostoa avatessa, että OpenToRead failed.

Oletan nyt, että viittaat kirjastoon etkä esimerkkeihin. Minun mielestäni se on aina turhaa, koska voit tehdä sen tarvittaessa ennen kuin kutsut "SM_OpenWav":a.

Latexi95 wrote:Voin silti yrittää tehdä, jos löydät selkeät ohjeet niiden purkamiseen ja pakkaamiseen. ;)

esa94 wrote:

Latexi95 wrote:Voin silti yrittää tehdä, jos löydät selkeät ohjeet niiden purkamiseen ja pakkaamiseen.

Libvorbis OGG Vorbisille, lame mp3:lle. WMA taas on Mikkisoftan omaa kamaa, sille ei taida olla avoimia kirjastoja.

Latexi95 wrote:

esa94 wrote:

Latexi95 wrote:Voin silti yrittää tehdä, jos löydät selkeät ohjeet niiden purkamiseen ja pakkaamiseen. ;)

Libvorbis OGG Vorbisille, lame mp3:lle. WMA taas on Mikkisoftan omaa kamaa, sille ei taida olla avoimia kirjastoja.

Vaikka olisi kuinka hyvät ohjeet, hankalaa on ja aikalailla turhaa. Dll:n tekeminen
taitaa olla parempi vaihtoehto, joten sitä väsäämään... :D

VesQ wrote:

Latexi95 wrote:

MaGetzUb wrote: Hei mutta koodistasi sen verran, että kannattaa ensin tarkistaa onko tiedostoa olemassa FileExsists:llä. Ei ole kiva lukea äänitiedostoa avatessa, että OpenToRead failed.

Oletan nyt, että viittaat kirjastoon etkä esimerkkeihin. Minun mielestäni se on aina turhaa, koska voit tehdä sen tarvittaessa ennen kuin kutsut "SM_OpenWav":a.

Jep, ei kirjastossa minunkaan mielestäni tulisi suorittaa tiedostotarkastuksia. Sen pitäisi jäädä koodaajan itsensä harteille, että tarkistaa lataamansa äänitiedoston olevan todellakin olemassa.

MaGetzUb wrote:

EDIT:

Jos siis aijotaan olla käyttäjä ystävällisiä.

MaGetzUb wrote: Mitä ihmeen sekoilua tämä nyt on? Tarkoitin, että tuollaisessa tiedoston avaus funktiossa olisi hyvä tarkistaa, onko avattava tiedosto olemassa. Jos ei ole, niin voitaisiin pukata erroria "SM_OpenWav failed! File: blaa blaa not found!" Ihan vain sen takia, että jos on itse typottanu kirjoittaessa kun wavia avataan. Sitäpaitsi voi olla samassa koodissa muitakin opentoread kutsuja kuin vain pelkän kirjastosi 'SM_OpenWav' funktiossa.

EDIT:

Jos siis aiotaan olla käyttäjä ystävällisiä.

If FileExists(path$) = false then MakeError "SM_OpenWav failed! File: "+path$+" not found."

Someday coder wrote:Oma mielipiteeni koskien tuota käyttäjäystävällisyyttä on sama kuin magetzubilla, eli jos joku tekee ohjelman, joka on 1000 riviä pitkä ja käyttää tätä kirjastoa ja sen funktioita, niin aikamoinen korjaustyö edessä sitten.

Latexi95 wrote:

Someday coder wrote:Oma mielipiteeni koskien tuota käyttäjäystävällisyyttä on sama kuin magetzubilla, eli jos joku tekee ohjelman, joka on 1000 riviä pitkä ja käyttää tätä kirjastoa ja sen funktioita, niin aikamoinen korjaustyö edessä sitten.

Miten niin korjaustyö? Tuskin sinä 1000 koodiriviä kirjoittaisit ilman, että tarkistaisit onko jokin
tiedosto olemassa. Voit joka tapauksessa laittaa tarkistuksen omaan koodiisi jos sitä vaaditaan.
Päätän suosia tätä "kokeneempien koodaajien" linjaa eli ei virheen tarkistusta, koska
kirjasto on pää asiassa tarkoitettu kokeneille koodaajille, jotka hallitsevat mm. muistipalojen käytön.