XProfan

Français

p.specht

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

Voraussetzung: cela Mikro wurde auparavant mittels Droit sur cela Lautsprechersymbol dans qui Taskleiste comme Aufnahmegerät ausgewählt, et par Druck sur "konfigurieren" im aufgehenden grand menu "Spracherkennung" sous "Mikrofon einrichten" sur gute Empfindlichkeit eingestellt (Win-7).

s'il te plaît überprüfen, si qui Umgebungsvariable USERPROFILE zusammen avec \Desktop\Spruch.wav une sinnvollen Pfad darstellt. qui jeweils dernier 5-Sekundenaufnahme sollte ensuite là abgelegt son.

attention, à cause de dépendance de Treibereigenheiten aucun cependant geartete Gewähr! chez mir hat´s funktioniert.

Kompilieren Marque Séparation

Windowtitle "5-Sekunden-Nachricht"
Windowstyle 24:Fenêtre 20,20-600,400

Proc MSend :parameters Befehl$:declare annonce$

    Imprimer "Befehl: ";Befehl$:annonce$ = @MCISend$(Befehl$)

    Si %MCIError:Imprimer "Fehler: ";:D'autre

        Imprimer "OK!     ";:EndIf:Imprimer annonce$

    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