KnowBrainer Speech Recognition
Decrease font size
Increase font size
Topic Title: Best way to teach Dragon the NATO alphabet for single letter presses?
Topic Summary:
Created On: 03/13/2021 01:40 PM
Status: Post and Reply
Linear : Threading : Single : Branch
Keyword
 03/13/2021 08:32 PM
User is offline View Users Profile Print this message

Author Icon
dilligence
Top-Tier Member

Posts: 1650
Joined: 08/16/2010

This one is probably already included in KB, but for those who don't have it I attached the following DVC command:

 

 

 

 

 

 

Strangely enough "Sierra" is consistently recognized as "Shara" on my system. Therefore  you may want to use that instead.

I've been using "Shangri-La" for years :-). 



Alphabet.xml
Alphabet.xml  (5 KB)



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

https://speechproductivity.eu


Turbocharge your Dragon productivity with 40+ Power Addons



 03/14/2021 12:25 PM
User is offline View Users Profile Print this message

Author Icon
Edgar
Top-Tier Member

Posts: 1375
Joined: 04/03/2009

and as long as we are offering solutions…

I call this command "El <dictation>":

Sub Main

Dim words() As String' dimension a string array

Dim k As Integer

Dim result As String

 

result = ""

words = Split(ListVar1," ")

For k = 0 To UBound(words)

result = result & Left(words(k), 1)

Next

SendKeys result

End Sub

now you don't have to worry about any special alphabet (although, if you use the trigger "El" you might need to add it as a custom word - try "L <dictation>").

Try uttering "el the quick brown fox" - on my machine the resulting output of letters is virtually instantaneous running as a KnowBrainer command (I could find no documentation for the Split command and Dragon®).

Try uttering "el the quick numeral 1 brown fox": tq1bf


Try uttering "el the quick cap brown fox": tqBf


Try uttering "el the quick caps on brown fox jumped": tqBFJ

Acronym <dictation>

Sub Main
 Dim words() As String' dimension a string array 
 Dim k As Integer
 Dim result As String

   result = ""
 words = Split(ListVar1," ")
 For k = 0 To UBound(words)
  result = result & UCase(Left(words(k), 1))
 Next
 SendKeys result
End Sub

Try uttering "acronym the quick brown fox"


Try uttering "acronym the quick numeral 1 brown fox"

 

 



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

-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
32532 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 415 guests browsing this forum, which makes a total of 417 users using this forum.

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