elke toets op keyboard speelt ander geluid af

[kerplunk]

Ik ben op zoek naar een programmaatje, waarbij ik onder alle knoppen op mijn toetsenbord geluiden kan stoppen. Met een druk op de knop hoor je direct het geluid dat daar aan verbonden is.

Key sounder is zo'n soort programma, maar daar kun je alleen vooraf ingestelde schema's gebruiken, ik wil eigen geluiden invoegen.

iemand een programmaatje, scriptje, tooltje, etc. om mij blij te maken?

michiel.

 

[ZipPe]

Gewoon heel simpel?? KAn dat met een scriptje en snelkoppelingen op je bureaublad. En je moet wel al je geluiden in wav hebben..

Maak een mapje in Mijn Documenten en stop daar al je .wav geluiden in.
Schrijf een scriptje als volgt.

WaveFile = "c:\windows\media\tada.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,True

Deze kan je eventueel in de zelfde map zetten voor elk geluid 1 scriptje, deze noemen we bijvoorbeeld tada.vbs. Nu maak een snelkoppeling (kopieeren naar bureaublad) en klik op Bblad de snelkop met links en eigenschappen. Klik het Sneltoets veldje en de Alt key daarne de gewenste sneltoets bv. Ctrl + Alt + T = Tada..

Klik de algemeen Tab en kies voor verborgen om de snelkoppelingen te verbergen.

Nu kan je dus met de Ctrl + Alt key ingedrukt houden al de gewenste geluiden achter elkaar afspelen.

Wil je meer geluiden in een scriptje kan dat ook als volgt.

WaveFile = "c:\windows\media\tada.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,True

WaveFile = "c:\windows\media\chord.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,True

WaveFile = "c:\windows\media\ding.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,True

Dit zijn voorbeelden, je moet natuurlijk wel bij 'WaveFile = "Het juiste pad ingeven"
:thumb:

Wil je het echt Fancy dan moet je aan software gaan denken dat als servioce of process op de achtergrond meedraait.. Bestaat wel maar zal niets gratis te vinden zijn wat dat betreft, denk ik zo.

 

[kerplunk]

Hey goed zeg!
aan zoiets had ik nooit gedacht! goed hoor! zoiets was wel de bedoeling ja!

als ik meerdere geluidjes in één scriptje stop? speelt ie ze dan allemaal tegelijk af als ik de sneltoets indruk?

die programmaatjes waar je het over had? wat is de volledige naam hiervan? daar wil ik wel wat info over opzoeken.

cheers!

 

[ZipPe]

http://www.google.nl/search?hl=nl&q=Sounds+To+Keyboard&meta= STaat wel het een en ander tussen..

http://www.google.nl/search?hl=nl&q=play+Sounds+with+Keyboard&meta=


Het voorbeeld scriptje speeld de geluiden achter alkaar af als de ene klaar is volgt de andere. Dat regel je met de resultaat waarde "True" zet je overal "False" achter wordt alles in een keer afgespeeld. Dan kan je daar weer een wachttijd ertussen zetten, zoals in onderstaand voorbeeld. "wscript.sleep" met daar achter de tijd in miliseconden.
Dus 1000 = 1 seconde..

WaveFile = "c:\windows\media\start.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 300

WaveFile = "c:\windows\media\start.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 300

WaveFile = "c:\windows\media\start.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 300

WaveFile = "c:\windows\media\start.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 300

WaveFile = "c:\windows\media\Windows XP Startup.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 4000

WaveFile = "c:\windows\media\chord.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 1000

WaveFile = "c:\windows\media\ding.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,False

WScript.Sleep 130

WaveFile = "c:\windows\media\ringin.wav"
Set Shell = CreateObject("Wscript.Shell")
Shell.Run "sndrec32 /play /close """ & WaveFile & """",0,True

:thumb: Zo kan je als je het goed weet te timen een heel muziek stukje in elkaar schrijven..