XProfan

English

p.specht

... according XProfan-Help plus Zeitabschnittsergänzung.

prerequisite: the Mikro watts before through Rechtsklick the Lautsprechersymbol in the Taskbar as Aufnahmegerät select, and through pressure on "konfigurieren" in the aufgehenden large Menu "Spracherkennung" under "Mikrofon einrichten" on good Empfindlichkeit tuned (Win-7).

Please to check on, whether The Umgebungsvariable USERPROFILE together with \Desktop\saying.wav a sinnvollen way darstellt. The each latest 5-Sekundenaufnahme ought to then there stored his.

deference, because of dependence of Treibereigenheiten no however geartete Gewähr! by me hat´s functions.

Compile Mark Separation

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

Proc MSend :parameters commands$:declare Message$

    Print "Befehl: ";Befehl$:Message$ = @$ MCISend(commands$)

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

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

    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