TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Sound

Version: 1.0

Information

Uploaded: 3rd Feb 2005 14:16

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

you can mixed 2 sounds in same time, addition of the echo, changed the frequency...

Full Description

you can mixed 2 sounds in same time, addition of the echo, changed the frequency, changed the panoramic one. you can enregister starting from the microphone. The program read the mp3 and the wav files

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem * Title  : reglage

cls

set window on

sync on

set display mode 1280,1024,16

rem fenetre

set window layout 0,0,0

set window title "TranSonmation"

set window size 1280,1024

set window position 0,0

rem pour enregistrer

enre=1

nom$="sample"

sync on

max=len("Programme de transformation du son par Petit-Jean Nicolas.............................")

backdrop on

set text font "verdana"

color backdrop 0

x#=x#+50

a#=x#/100

set text size 10+(a#/2)

if inkey$()=""=o then exit

center text 1280/2,1024/2, left$("Programme de transformation du son par Petit-Jean Nicolas",a#)

if a#>max then exit

sync

loop

debut:

for x=1 to 10

if sound exist(x)=1 then delete sound x

next x

for x=15 to 25

if sound exist(x)=1 then delete sound x

next x

cls

backdrop off

print "******************************************"

print " Fichiers audio(wav,mp3)"

print "******************************************"

dir

input "Quelle fichier voulez-vous charger?>";file$

if file exist(file$+".wav")=0 then rate=1

if file exist(file$+".mp3")=0 then rate=1

if file exist(file$+".wav")=1 then rate=0

if file exist(file$+".mp3")=1 then rate=0

if rate=1

print "le fichier ";file$; " n'existe pas"

sleep 500

cls

goto debut

endif

input "Quelle fichier d'ambience voulez-vous charger?>";file2$

if file exist(file2$+".wav")=0 then rate=1

if file exist(file2$+".mp3")=0 then rate=1

if file exist(file2$+".wav")=1 then rate=0

if file exist(file2$+".mp3")=1 then rate=0

if rate=1

print "le fichier d'ambience n'existe pas"

sleep 500

cls

goto debut

endif

print "chargement..."

sleep 100

print "chargement..."

if file exist(file$+".wav")=1 then load sound file$+".wav",1

if file exist(file$+".mp3")=1 then load sound file$+".mp3",1

if file exist(file2$+".wav")=1 then load sound file2$+".wav",15

if file exist(file2$+".mp3")=1 then load sound file2$+".mp3",15

for x=2 to 10

clone sound x,1

next x

for x2=16 to 25

clone sound x2,15

next x2

goto du_son

end

du_son:

rem texte

set text font "verdana"

set text size 15

rem sys

cls

backdrop on

color backdrop rgb(125,125,125)

rem menu

rem son1

volume=100

echo=1

record=0

rem son 2

volume2=100

echo2=0

rem original1

for x=1 to 10

freqorig=get sound speed(x)

panoorig=get sound pan(x)

frequence=get sound speed(x)

freq=frequence/250

panoramique=get sound pan(x)

pano=panoramique/100

volumeorig=get sound volume(x)

next x

rem original2

for x2=15 to 25

freqorig2=get sound speed(x2)

panoorig2=get sound pan(x2)

frequence2=get sound speed(x2)

freq2=frequence2/250

panoramique2=get sound pan(x2)

pano2=panoramique2/100

volumeorig2=get sound volume(x2)

next x2

rem play

gosub son1

gosub son2

gosub enregistrement

posx=mousex()

newx=mousex()

new1x=mousex()

new2x=mousex()

posy=mousey()

sync

loop

rem sous programme(programme en fin de compte....)

son1:

rem infos

rem vol

text 400,0,"volume :"+str$(volume)

rem pano

text 400,20,"Panoramique du son :"+str$(panoramique)

rem freq

text 400,40,"Frequence du son :"+str$(frequence)

rem nom du morceau

text 400,60,"Titre du morceau :"+file$

rem nbr de son

text 400,80,"Nombre de son(s) jouer(1=default): "+str$(echo)

rem echo

echor=echo*10

if echor=10 then echor=0

text 400,100,"Saturation(x/100%) :"+str$(echor)+" %"

rem espace entre chaque son

text 400,120,"echo prononcÃ© "+str$(espace_e)+"millisecondes"

rem option

text 0,25,"jouer en boucle le morceau (1) , Retrouver(R)"

text 0,25+35,"Pause du morceau (2)"

text 0,25+35+35,"Arreter le morceau(3)"

text 0,0,"Charger un morceau(C)"

rem Charger un son

if inkey$()="c" then goto debut

rem retour a l original

if inkey$()="r"

rem frequence de depart

frequence=freqorig

freq=frequence/250

box 150,25+35+35+35+35+35,150+freq,25+35+35+35+35+35+10

rem panoramique de depart

panoramique=panoorig

pano=panoramique/100

box 250+pano,25+35+35+35+35,250+pano,25+35+35+35+35+10

rem volume de depart

volume=volumeorig

box 150,25+35+35+35,150+volume,25+35+35+35+10

endif

rem volume

text 0,25+35+35+35,"Volume sonore du son" : box 150,25+35+35+35,150+volume,25+35+35+35+10 :line 150,25+35+35+35+15,250,25+35+35+35+15

if posx>150 and posy>25+35+35+35 and posx<250 and posy<25+35+35+35+10 and mouseclick()=1

volume=newx-150

if volume>100 then volume=100

endif

rem pano

text 0,25+35+35+35+35,"Panoramique du son" :box 250+pano,25+35+35+35+35,250+pano,25+35+35+35+35+10 : line 150,25+35+35+35+35+15,350,25+35+35+35+35+15

center text 250,25+35+35+35+25,"M"

center text 150,25+35+35+35+25,"L"

center text 350,25+35+35+35+25,"R"

if posx>150 and posy>25+35+35+35+35 and posx<350 and posy<25+35+35+35+35+10 and mouseclick()=1

pano=new2x-250

panoramique=pano*100

if panoramique>10000 then panoramique=10000

if panoramique<-10000 then panoramique=-10000

endif

rem frequence

text 0,25+35+35+35+35+35,"Frequence du son" : box 150,25+35+35+35+35+35,150+freq,25+35+35+35+35+35+10 : line 150,25+35+35+35+35+35+15,550,25+35+35+35+35+35+15

center text 150+freqorig/250,25+35+35+35+35+35+15,"O"

if posx>150 and posy>25+35+35+35+35+35 and posx<550 and posy<25+35+35+35+35+35+10 and mouseclick()=1

freq=new1x-150

frequence=freq*250

if frequence<100 then frequence=100

if frequence>100000 then frequence=100000

endif

rem play

if inkey$()="1"

for x=1 to echo

if sound paused(x)=1 then resume sound x

if sound playing(x)=0

if espace_e<>0 then sleep espace_e

loop sound x

endif

next x

endif

rem echo

text 0,25+35+35+35+35+35+35,"Ajouter un son" : box 150,25+35+35+35+35+35+35,160,25+35+35+35+35+35+35+10 : box 200,25+35+35+35+35+35+35,210,25+35+35+35+35+35+35+10

rem flagrant ou pas l'echo

text 0,25+35+35+35+35+35+35+35,"Puissance de l'echo" :box 150,25+35+35+35+35+35+35+35,160,25+35+35+35+35+35+35+35+10 : box 200,25+35+35+35+35+35+35+35,210,25+35+35+35+35+35+35+35+10

if sound playing(1)=0

rem +

if posx>200 and posy>25+35+35+35+35+35+35+35 and posx<210 and posy<25+35+35+35+35+35+35+35+10 and mouseclick()=1

espace_e=espace_e+1

if espace_e>1000 then espace_e=1000

endif

rem -

if posx>150 and posy>25+35+35+35+35+35+35+35 and posx<160 and posy<25+35+35+35+35+35+35+35+10 and mouseclick()=1

espace_e=espace_e-1

if espace_e<0 then espace_e=0

endif

if sound playing(1)=0

rem echo

if posx>200 and posy>25+35+35+35+35+35+35 and posx<210 and posy<25+35+35+35+35+35+35+10 and mouseclick()=1

echo=echo+1

if echo>10 then echo=10

sleep 100

endif

if posx>150 and posy>25+35+35+35+35+35+35 and posx<160 and posy<25+35+35+35+35+35+35+10 and mouseclick()=1

echo=echo-1

if echo<1 then echo=1

sleep 100

endif

rem pause

if inkey$()="2"

for x=1 to 10

if sound playing(x)=1 then pause sound x

next x

endif

rem stop

if inkey$()="3"

for x=1 to 10

if sound playing(x)=1 then stop sound x

next x

endif

rem son

for x=1 to echo

set sound volume x,volume

rem -10000,10000

set sound pan x,panoramique

rem 100->100000

set sound speed x,frequence

next x

return

son2:

rem infos

rem vol

text 1000,0,"volume :"+str$(volume2)

rem pano

text 1000,20,"Panoramique du son :"+str$(panoramique2)

rem freq

text 1000,40,"Frequence du son :"+str$(frequence2)

rem nom du morceau

text 1000,60,"Titre du morceau :"+file2$

rem nbr de son

text 1000,80,"Nombre de son(s) jouer(0=default): "+str$(echo2)

rem echo

echor2=echo2*10

text 1000,100,"Saturation(x/100%) :"+str$(echor2)+" %"

rem espace entre chaque son

text 1000,120,"echo prononcÃ© "+str$(espace_e2)+"millisecondes"

rem option

text 600,25,"Jouer en boucle le morceau (4) , Retrouver(O)"

text 600,25+35,"Pause du morceau (5)"

text 600,25+35+35,"Arreter le morceau(6)"

rem retour a l original

if inkey$()="o"

rem frequence de depart

frequence2=freqorig2

freq2=frequence2/250

box 750,25+35+35+35+35+35,750+freq2,25+35+35+35+35+35+10

rem panoramique de depart

panoramique2=panoorig2

pano2=panoramique2/100

box 750+pano2,25+35+35+35+35,750+pano2,25+35+35+35+35+10

rem volume de depart

volume2=volumeorig2

box 750,25+35+35+35,750+volume2,25+35+35+35+10

endif

rem volume

text 600,25+35+35+35,"Volume sonore du son" : box 750,25+35+35+35,750+volume2,25+35+35+35+10 :line 750,25+35+35+35+15,850,25+35+35+35+15

if posx>750 and posy>25+35+35+35 and posx<850 and posy<25+35+35+35+10 and mouseclick()=1

volume2=newx-750

if volume2>100 then volume2=100

endif

rem pano

text 600,25+35+35+35+35,"Panoramique du son" :box 850+pano2,25+35+35+35+35,850+pano2,25+35+35+35+35+10 : line 750,25+35+35+35+35+15,950,25+35+35+35+35+15

center text 850,25+35+35+35+25,"M"

center text 750,25+35+35+35+25,"L"

center text 950,25+35+35+35+25,"R"

if posx>750 and posy>25+35+35+35+35 and posx<950 and posy<25+35+35+35+35+10 and mouseclick()=1

pano2=new2x-850

panoramique2=pano2*100

if panoramique2>10000 then panoramique2=10000

if panoramique2<-10000 then panoramique2=-10000

endif

rem frequence

text 600,25+35+35+35+35+35,"Frequence du son" : box 750,25+35+35+35+35+35,750+freq2,25+35+35+35+35+35+10 : line 750,25+35+35+35+35+35+15,1150,25+35+35+35+35+35+15

center text 750+freqorig2/250,25+35+35+35+35+35+15,"O"

if posx>750 and posy>25+35+35+35+35+35 and posx<1150 and posy<25+35+35+35+35+35+10 and mouseclick()=1

freq2=new1x-750

frequence2=freq2*250

if frequence2<100 then frequence2=100

if frequence2>100000 then frequence2=100000

endif

rem play

if inkey$()="4"

for x2=15 to 15+echo2

if sound paused(x2)=1 then resume sound x2

if sound playing(x2)=0

if espace_e2<>0 then sleep espace_e2

loop sound x2

endif

next x2

endif

rem echo

text 600,25+35+35+35+35+35+35,"Ajouter un son" : box 750,25+35+35+35+35+35+35,760,25+35+35+35+35+35+35+10 : box 800,25+35+35+35+35+35+35,810,25+35+35+35+35+35+35+10

rem flagrant ou pas l'echo

text 600,25+35+35+35+35+35+35+35,"Puissance de l'echo" :box 750,25+35+35+35+35+35+35+35,760,25+35+35+35+35+35+35+35+10 : box 800,25+35+35+35+35+35+35+35,810,25+35+35+35+35+35+35+35+10

if sound playing(15)=0

rem +

if posx>800 and posy>25+35+35+35+35+35+35+35 and posx<810 and posy<25+35+35+35+35+35+35+35+10 and mouseclick()=1

espace_e2=espace_e2+1

if espace_e2>1000 then espace_e2=1000

endif

rem -

if posx>750 and posy>25+35+35+35+35+35+35+35 and posx<760 and posy<25+35+35+35+35+35+35+35+10 and mouseclick()=1

espace_e2=espace_e2-1

if espace_e2<0 then espace_e2=0

endif

if sound playing(15)=0

rem echo

if posx>800 and posy>25+35+35+35+35+35+35 and posx<810 and posy<25+35+35+35+35+35+35+10 and mouseclick()=1

echo2=echo2+1

if echo2>10 then echo2=10

sleep 100

endif

if posx>750 and posy>25+35+35+35+35+35+35 and posx<760 and posy<25+35+35+35+35+35+35+10 and mouseclick()=1

echo2=echo2-1

if echo2<0 then echo2=0

sleep 100

endif

rem pause

if inkey$()="5"

for x=15 to 25

if sound playing(x)=1 then pause sound x

next x

endif

rem stop

if inkey$()="6"

for x=15 to 25

if sound playing(x)=1 then stop sound x

next x

endif

rem son

for x2=15 to 15+echo2

set sound volume x2,volume2

rem -10000,10000

set sound pan x2,panoramique2

rem 100->100000

set sound speed x2,frequence2

next x2

return

enregistrement:

rem enregistrement

rem flagrant ou pas l'echo

text 0,25+35+35+35+35+35+35+35+35+35,"Enregistrer un son a partir du micro(e),(t) pour finir l'enregistrement"

if record=1 then text 0,25+35+35+35+35+35+35+35+35+35,"Un son est enregistrer a partir d'un micro "

if sound playing(1)=0

if record=0

if inkey$()="e"

record sound 11

enre=enre+1

sleep 100

record=1

endif

if record=1

if inkey$()="t"

stop recording sound

record=0

save sound nom$+str$(enre)+".wav",11

endif

return

Download

Please login to download

Comments

No comments yet.

CodeBase - MiXer

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	6