KnowBrainer Speech Recognition
Decrease font size
Increase font size
Topic Title: HeardWord with <dictation>
Topic Summary: How does one combine the two in a script
Created On: 08/11/2021 10:52 AM
Status: Post and Reply
Linear : Threading : Single : Branch
 HeardWord with <dictation>   - Edgar - 08/11/2021 10:52 AM  
 HeardWord with <dictation>   - Alan Cantor - 08/11/2021 12:44 PM  
 HeardWord with <dictation>   - Edgar - 08/11/2021 02:37 PM  
 HeardWord with <dictation>   - PG LTU - 08/12/2021 10:18 AM  
 HeardWord with <dictation>   - Edgar - 08/12/2021 12:27 PM  
 HeardWord with <dictation>   - Alan Cantor - 08/12/2021 01:26 PM  
 HeardWord with <dictation>   - Edgar - 08/12/2021 03:14 PM  
 HeardWord with <dictation>   - wristofdoom - 08/24/2021 01:19 PM  
 HeardWord with <dictation>   - monkey8 - 08/12/2021 03:36 PM  
 HeardWord with <dictation>   - Edgar - 08/12/2021 03:44 PM  
 HeardWord with <dictation>   - monkey8 - 08/12/2021 03:52 PM  
 HeardWord with <dictation>   - monkey8 - 08/12/2021 05:00 PM  
 HeardWord with <dictation>   - PG LTU - 08/12/2021 05:22 PM  
 HeardWord with <dictation>   - monkey8 - 08/14/2021 11:28 AM  
 HeardWord with <dictation>   - Edgar - 08/12/2021 07:21 PM  
 HeardWord with <dictation>   - Edgar - 08/14/2021 03:14 PM  
 HeardWord with <dictation>   - Mav - 08/24/2021 03:07 AM  
 HeardWord with <dictation>   - Edgar - 08/24/2021 10:53 AM  
 HeardWord with <dictation>   - Mav - 08/25/2021 04:02 AM  
 HeardWord with <dictation>   - Edgar - 08/24/2021 02:42 PM  
 HeardWord with <dictation>   - wristofdoom - 08/24/2021 07:26 PM  
Keyword
 08/12/2021 03:14 PM
User is offline View Users Profile Print this message

Author Icon
Edgar
Top-Tier Member

Posts: 1260
Joined: 04/03/2009

@Alan - your EngControl version works except…

Sub Main

   Dim EngControl As New DgnEngineControl

   Dim x As String


   Let x = "select " & ListVar2

   EngControl.Register

   EngControl.RecognitionMimic (x)

   EngControl.UnRegister (False)

   Wait 3

   SendKeys "{Esc}", 1

   Wait 0.5

   Select Case ListVar1

      Case "Normal", "Regular", "Regularize", "Normalize"

         SendKeys "^n", 1

      Case "Strikethrough", "Strike Out", "Strikeout"

         SendKeys "^s", 1

   End Select

End Sub

Even if I make the delay much longer than 3 seconds (3 seconds would be intolerable anyway) the Select Case code processes before the selection is made. I can see the result of the ‘SendKeys "^s", 1’ statement briefly (the Strikethrough icon toggles for three seconds). It would appear that the ‘
EngControl.RecognitionMimic is not exercised until the command exits.



-------------------------

-Edgar
DPI 15.3, 64-bit Windows 10 Pro, OpenOffice & Office 365, Norton Security, Shure X2U XLR to USB mic adapter with Audio Technica DB135 vocal mic, Asus X299-Deluxe Prime, Intel Core i9-7940X (14 core, 4.3 GHz overclocked to 4.9 GHz), G.SKILL TridentZ Series 64GB (4 x 16GB) DDR4 3333 (PC4 26600) F4-3333C16Q-64GTZ, NVIDIA GIGABYTE GeForce GTX 1060 GV-N1060G1 GAMING-6GD REV 2.0 6GB graphics card with 3 1920x1080 monitors

Statistics
32287 users are registered to the KnowBrainer Speech Recognition forum.
There are currently 2 users logged in.
The most users ever online was 12124 on 09/09/2020 at 04:59 AM.
There are currently 401 guests browsing this forum, which makes a total of 403 users using this forum.

FuseTalk Standard Edition v4.0 - © 1999-2022 FuseTalk™ Inc. All rights reserved.