XProfan

Italia

p.specht

... gemäß XProfan-Aiuto plus Zeitabschnittsergänzung.

Voraussetzung: Das Mikro wurde vorher mittels Rechtsklick auf das Lautsprechersymbol in der Taskleiste als Aufnahmegerät ausgewählt, und durch Druck auf "konfigurieren" im aufgehenden grande Menü "Spracherkennung" unter "Mikrofon einrichten" auf gute Empfindlichkeit eingestellt (Win-7).

Bitte überprüfen, ob die Umgebungsvariable USERPROFILE zusammen mit \Desktop\Spruch.wav einen sinnvollen Pfad darstellt. Die jeweils letzte 5-Sekundenaufnahme sollte dann dort abgelegt sein.

Achtung, wegen Abhängigkeit von Treibereigenheiten keine wie auch immer geartete Gewähr! Bei mir hat´s funktioniert.

Kompilieren Markieren Separieren

Windowtitle "5-Sekunden-Nachricht"
Windowstyle 24:Window 20,20-600,400

Proc MSend :parameters Befehl$:declare Meldung$

    Print "Befehl: ";Befehl$:Meldung$ = @MCISend$(Befehl$)

    If %MCIError:Print "Fehler: ";:Else

        Print "OK!     ";:EndIf:Print Meldung$

    endproc

    MSend "OPEN NEW TYPE WAVEAUDIO ALIAS SPRUCH"
    MSend "SET SPRUCH TIME FORMAT MILLISECONDS"
    MSend "RECORD SPRUCH FROM 0 TO 5000 WAIT"
    MSend "PLAY SPRUCH FROM 0 TO 5000"
    waitinput
    MSend "SAVE SPRUCH "+chr$(34)+GetEnv$("USERPROFILE")+"\desktop\SPRUCH.WAV"+chr$(34)
    waitinput 5000
    END