CHMlib Logo Leading Translation Management System for Translation Agencies, Top Translation Management Software for Freelance Translators, Time Tracking Software, Word Count, Character Count and Line Count Software, Computer Assisted Translation Tool for Easy Word Count, Clipboard Character Count Software, User-Friendly Translation Memory Software, Terminology Management Software, Terminology Management Server, Microsoft Glossary Software, Dictionary of Acronyms, Social Network for Translators and Translation Agencies, Acronyms and Abbreviations Search Engine, Russian Translation Lab, Ukrainian Translation Lab.
You are reading help file online using chmlib.com
CrisisHelper - First Aid in Tough Times of World Economic Crisis


Intelligent Interface Technologies Home Page Microsoft Speech SDK

Speech Automation 5.1

Interface: ISpeechVoiceStatus

VisemeId Property


The VisemeId property retrieves the ID of the current viseme being spoken by the voice.

Syntax

Set: (This property is read-only)
Get: Integer = ISpeechVoiceStatus.VisemeId

Parts

ISpeechVoiceStatus
The owning object.
Integer
Set: (This property is read-only)
Get: An Integer variable returning the VisemeId.

Example

The following Visual Basic form code demonstrates the use of the VisemeId property of an ISpeechVoiceStatus object. To run this code, create a form with the following controls:

  • A command button called Command1
  • Two text boxes called Text1 and Text2
  • Paste this code into the Declarations section of the form.

    The Form_Load procedure creates a voice object and places a sentence in the text box. The Command1_Click procedure speaks the contents of the text box asynchronously, and loops until the voice has finished speaking. Inside the loop, the code checks VisemeId property periodically and displays it in Text2.


    Option Explicit
    
    Private V As SpeechLib.SpVoice
    
    Private Sub Command1_Click()
        Dim ii As Integer
    
        Text2.Text = ""
        V.Speak Text1.Text, SVSFlagsAsync
        
        Do
            For ii = 0 To 20000
                DoEvents
            Next ii
            Text2.Text = Text2.Text & V.Status.VisemeId & " "
            
        Loop While V.Status.RunningState = SRSEIsSpeaking
    
    End Sub
    
    Private Sub Form_Load()
    
        Set V = New SpVoice
        Text1.Text = "say, see, sigh, so, sue."
        Text2.Text = ""
    
    End Sub


    You are reading help file online using chmlib.com

    If you want your help file to be removed or added please send e-mail to chmlibcom@gmail.com
    Partner sites: Logo Design, Simple Anti-Crisis Accounting Software, Voice Search for Web