XProfan

Español

p.specht

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

Voraussetzung: Das Mikro wurde vorher mittels Rechtsklick el Lautsprechersymbol en el Taskleiste como Aufnahmegerät ausgewählt, y por Druck en "konfigurieren" en el aufgehenden großen Menü "Spracherkennung" bajo "Mikrofon einrichten" en gute Empfindlichkeit eingestellt (Win-7).

Bitte überprüfen, si el Umgebungsvariable USERPROFILE zusammen con \Desktop\Spruch.wav una sinnvollen Pfad darstellt. El jeweils letzte 5-Sekundenaufnahme debería entonces hay abgelegt ser.

Achtung, wegen Abhängigkeit de Treibereigenheiten no sin embargo geartete Gewähr! En me hat´s funktioniert.

Kompilieren Marca Separación

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

Proc MSend :parámetros Befehl$:declarar Meldung$

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

    If %MCIError:Imprimir "Fehler: ";:Más

        Imprimir "OK!     ";:EndIf:Imprimir 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
    FIN