XProfan

Deutsch

WAV-Aufnahme über MCI
Schön einfach, und es funktioniert.
Kompilieren Markieren Separieren

declare fname$

proc recstart

    MCISend$("open new type waveaudio alias rectel")
    MCISend$("set rectel time format ms")
    MCISend$("set rectel channels 1")
    MCISend$("set rectel samplespersec 11100")
    MCISend$("set rectel bitspersample 8")
    MCISend$("record rectel")

endproc

proc recend

    MCISend$("stop rectel")
    MCISend$(add$("save rectel ",fname$))
    MCISend$("close rectel")

endproc

let fname$="myfile.wav"
print
recstart
print "1"
waitkey
print "2"
recend
print "3"

23.03.2004 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hi, iF!

Ich habe mal zum Testen meines USB-Headsets ein bißchen mit Deinem Beispiel herumexperimentiert und ein paar nette Goodies eingebaut.
Herausgekommen dabei ist das primitivste Diktiergerät der Welt - mit Pause und Aufnahmefortsetzung. Bewußt ganz einfach gehalten.
Kompilieren Markieren Separieren

Declare fname$

PROC RecStart

    MCISend$("open new type waveaudio alias rectel")
    MCISend$("set rectel time format ms")
    MCISend$("set rectel channels 1")
    MCISend$("set rectel samplespersec 11100")
    MCISend$("set rectel bitspersample 8")
    MCISend$("record rectel")

ENDPROC

PROC RecPause

    MCISend$("Pause rectel")

ENDPROC

PROC RecAdd

    MCISend$("record rectel")

ENDPROC

PROC RecEnd

    MCISend$("stop rectel")

ENDPROC

PROC RecPlay

    MCISend$("Play rectel from 0 WAIT")

ENDPROC

PROC RecSave

    MCISend$(add$("save rectel ",fname$))

ENDPROC

PROC RecClose

    MCISend$("close rectel")

ENDPROC

let fname$="myfile.wav"
print
print "Kopfhörer/Lautsprecher und Mikro bereit?"
print "Taste zum Starten des simpelsten Diktiergeräts der Welt!"
print "------------------"
Waitkey
RecStart
print "Aufnahme läuft (5 Sekunden)"
print "------------------"
Sleep 5000                     5 Sekunden Aufnahme
RecPause
print "5 Sekunden Aufnahmepause"
print "------------------"
Sleep 5000                     5 Sekunden Pause
RecAdd
print "Aufnahme wird fortgesetzt (nochmal 5 Sekunden)"
print "------------------"
Sleep 5000                     5 Sekunden Aufnahmefortsetzung
RecEnd
print "Aufnahmeende"
Sleep 2000
print "Und jetzt hören wir uns das zur Überprüfung an."
print "------------------"
RecPlay
Sleep 5000                     5 Sekunden zum Lesen...
print "Jetzt wird das Ganze noch gespeichert als " + Chr$(34) + fname$ + Chr$(34)
print "Das wars dann..."
RecSave
RecClose