home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / voicea_2 / sdkform1.fr_ / sdkform1.fr (.txt)
Encoding:
Visual Basic Form  |  1999-07-04  |  40.1 KB  |  1,202 lines
  1. VERSION 5.00
  2. Object = "{41AC3F8F-057B-11D3-B034-CAABA82B590E}#213.0#0"; "VoiceAction.ocx"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00E0E0E0&
  5.    Caption         =   "VoiceAction Component SDK                                                                               (c) United Research Labs"
  6.    ClientHeight    =   6816
  7.    ClientLeft      =   48
  8.    ClientTop       =   336
  9.    ClientWidth     =   9504
  10.    Icon            =   "SDKForm1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   6816
  13.    ScaleWidth      =   9504
  14.    WindowState     =   2  'Maximized
  15.    Begin VB.CommandButton Command5 
  16.       BackColor       =   &H00C0C0C0&
  17.       Caption         =   "Best of list"
  18.       BeginProperty Font 
  19.          Name            =   "Trebuchet MS"
  20.          Size            =   9
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   564
  28.       Left            =   5160
  29.       Style           =   1  'Graphical
  30.       TabIndex        =   55
  31.       Top             =   6000
  32.       Width           =   4212
  33.    End
  34.    Begin VB.TextBox LabResult 
  35.       BackColor       =   &H00000000&
  36.       BorderStyle     =   0  'None
  37.       BeginProperty Font 
  38.          Name            =   "Arial"
  39.          Size            =   13.8
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       ForeColor       =   &H0000FF00&
  47.       Height          =   444
  48.       Left            =   240
  49.       TabIndex        =   10
  50.       Text            =   "This Application uses VoiceAction
  51.  ActiveX Custom Control. See Examples for code."
  52.       ToolTipText     =   "Displays the final word (rated Platinum no.1) after interactions with the basic string level AI you have setup. "
  53.       Top             =   360
  54.       Width           =   4812
  55.    End
  56.    Begin VB.TextBox Text5 
  57.       BackColor       =   &H00000000&
  58.       BorderStyle     =   0  'None
  59.       BeginProperty Font 
  60.          Name            =   "Arial"
  61.          Size            =   10.2
  62.          Charset         =   0
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H0000FF00&
  69.       Height          =   732
  70.       HideSelection   =   0   'False
  71.       Left            =   240
  72.       MultiLine       =   -1  'True
  73.       ScrollBars      =   2  'Vertical
  74.       TabIndex        =   42
  75.       ToolTipText     =   "Displays the Engine Productions (rated Platinum no.1) after interactions with the basic string level AI you have setup. "
  76.       Top             =   960
  77.       Width           =   4812
  78.    End
  79.    Begin VB.TextBox Text13 
  80.       BackColor       =   &H00000000&
  81.       BorderStyle     =   0  'None
  82.       BeginProperty Font 
  83.          Name            =   "Small Fonts"
  84.          Size            =   6.6
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       ForeColor       =   &H0000FF00&
  92.       Height          =   444
  93.       Left            =   240
  94.       TabIndex        =   12
  95.       ToolTipText     =   "Displays the Engine Elements"
  96.       Top             =   1800
  97.       Width           =   4812
  98.    End
  99.    Begin VoiceActiveX.VoiceAction VoiceAction1 
  100.       Height          =   1884
  101.       Left            =   1320
  102.       TabIndex        =   56
  103.       Top             =   3600
  104.       Visible         =   0   'False
  105.       Width           =   3336
  106.       _ExtentX        =   5884
  107.       _ExtentY        =   3323
  108.       Consider_this_Lang_File_to_Add=   "C:\VOICEnew\S.D.K\Commands.SAY"
  109.       Consider_this_Lang_File_to_match=   "C:\VOICEnew\S.D.K\Commands.SAY"
  110.       Direct_Add      =   "NO"
  111.       Keep_Digital_Signal_Processing_level=   ""
  112.       Platinum_Word_Font=   "MS Sans Serif"
  113.       Play_this_file_for_Start=   "start.wav"
  114.       Play_this_file_for_Stop=   "stop.wav"
  115.       Play_this_file_on_Initialization=   "backon.wav"
  116.       Words_I_Want    =   ""
  117.    End
  118.    Begin VB.CommandButton Command3 
  119.       BackColor       =   &H00C0C0C0&
  120.       Caption         =   "Don't Add"
  121.       Enabled         =   0   'False
  122.       BeginProperty Font 
  123.          Name            =   "Trebuchet MS"
  124.          Size            =   7.8
  125.          Charset         =   0
  126.          Weight          =   400
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       Height          =   828
  132.       Left            =   7560
  133.       Picture         =   "SDKForm1.frx":0442
  134.       Style           =   1  'Graphical
  135.       TabIndex        =   3
  136.       ToolTipText     =   "Disables addition to the specified 'Basic Vocabulary' file"
  137.       Top             =   5040
  138.       Width           =   1812
  139.    End
  140.    Begin VB.CommandButton Command6 
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   "Editor"
  143.       BeginProperty Font 
  144.          Name            =   "Trebuchet MS"
  145.          Size            =   7.8
  146.          Charset         =   0
  147.          Weight          =   400
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   828
  153.       Left            =   7440
  154.       Picture         =   "SDKForm1.frx":0884
  155.       Style           =   1  'Graphical
  156.       TabIndex        =   11
  157.       ToolTipText     =   "Starts ""Language Editor"""
  158.       Top             =   4080
  159.       Width           =   1932
  160.    End
  161.    Begin VB.CommandButton Command2 
  162.       BackColor       =   &H00C0C0C0&
  163.       Caption         =   "Add"
  164.       BeginProperty Font 
  165.          Name            =   "Trebuchet MS"
  166.          Size            =   7.8
  167.          Charset         =   0
  168.          Weight          =   400
  169.          Underline       =   0   'False
  170.          Italic          =   0   'False
  171.          Strikethrough   =   0   'False
  172.       EndProperty
  173.       Height          =   828
  174.       Left            =   5160
  175.       Picture         =   "SDKForm1.frx":0CCE
  176.       Style           =   1  'Graphical
  177.       TabIndex        =   2
  178.       ToolTipText     =   "Adds to the specified 'Basic Vocabulary' file"
  179.       Top             =   5040
  180.       Width           =   2052
  181.    End
  182.    Begin VB.HScrollBar HScroll1 
  183.       Height          =   252
  184.       LargeChange     =   50
  185.       Left            =   2520
  186.       Max             =   4000
  187.       Min             =   50
  188.       SmallChange     =   2
  189.       TabIndex        =   49
  190.       Top             =   5760
  191.       Value           =   50
  192.       Width           =   2412
  193.    End
  194.    Begin VB.HScrollBar HScroll2 
  195.       Height          =   252
  196.       Left            =   2520
  197.       Max             =   10
  198.       TabIndex        =   47
  199.       Top             =   6240
  200.       Value           =   10
  201.       Width           =   2412
  202.    End
  203.    Begin VB.CommandButton Command4 
  204.       BackColor       =   &H00C0C0C0&
  205.       Caption         =   "Slots..."
  206.       BeginProperty Font 
  207.          Name            =   "Trebuchet MS"
  208.          Size            =   9
  209.          Charset         =   0
  210.          Weight          =   400
  211.          Underline       =   0   'False
  212.          Italic          =   0   'False
  213.          Strikethrough   =   0   'False
  214.       EndProperty
  215.       Height          =   288
  216.       Left            =   240
  217.       Style           =   1  'Graphical
  218.       TabIndex        =   46
  219.       Top             =   3120
  220.       Width           =   1452
  221.    End
  222.    Begin VB.ComboBox Combo4 
  223.       BackColor       =   &H00000000&
  224.       ForeColor       =   &H0000FF00&
  225.       Height          =   288
  226.       Left            =   1680
  227.       TabIndex        =   45
  228.       Top             =   3120
  229.       Width           =   3012
  230.    End
  231.    Begin VB.CommandButton Command21 
  232.       BackColor       =   &H00C0C0C0&
  233.       Caption         =   "Restart"
  234.       BeginProperty Font 
  235.          Name            =   "Trebuchet MS"
  236.          Size            =   7.8
  237.          Charset         =   0
  238.          Weight          =   400
  239.          Underline       =   0   'False
  240.          Italic          =   0   'False
  241.          Strikethrough   =   0   'False
  242.       EndProperty
  243.       Height          =   828
  244.       Left            =   7920
  245.       Picture         =   "SDKForm1.frx":1110
  246.       Style           =   1  'Graphical
  247.       TabIndex        =   37
  248.       Top             =   3120
  249.       Width           =   1452
  250.    End
  251.    Begin VB.CommandButton Command1 
  252.       BackColor       =   &H00C0C0C0&
  253.       Caption         =   "Stop"
  254.       BeginProperty Font 
  255.          Name            =   "Trebuchet MS"
  256.          Size            =   7.8
  257.          Charset         =   0
  258.          Weight          =   400
  259.          Underline       =   0   'False
  260.          Italic          =   0   'False
  261.          Strikethrough   =   0   'False
  262.       EndProperty
  263.       Height          =   828
  264.       Left            =   6480
  265.       Picture         =   "SDKForm1.frx":1552
  266.       Style           =   1  'Graphical
  267.       TabIndex        =   0
  268.       ToolTipText     =   "Stops Recording"
  269.       Top             =   3120
  270.       Width           =   1452
  271.    End
  272.    Begin VB.CommandButton Command11 
  273.       BackColor       =   &H00C0C0C0&
  274.       Caption         =   "Matched..."
  275.       BeginProperty Font 
  276.          Name            =   "Trebuchet MS"
  277.          Size            =   9
  278.          Charset         =   0
  279.          Weight          =   400
  280.          Underline       =   0   'False
  281.          Italic          =   0   'False
  282.          Strikethrough   =   0   'False
  283.       EndProperty
  284.       Height          =   252
  285.       Left            =   240
  286.       Style           =   1  'Graphical
  287.       TabIndex        =   33
  288.       Top             =   4560
  289.       Width           =   1452
  290.    End
  291.    Begin VB.CommandButton Command10 
  292.       BackColor       =   &H00C0C0C0&
  293.       Caption         =   "Result..."
  294.       BeginProperty Font 
  295.          Name            =   "Trebuchet MS"
  296.          Size            =   9
  297.          Charset         =   0
  298.          Weight          =   400
  299.          Underline       =   0   'False
  300.          Italic          =   0   'False
  301.          Strikethrough   =   0   'False
  302.       EndProperty
  303.       Height          =   288
  304.       Left            =   240
  305.       Style           =   1  'Graphical
  306.       TabIndex        =   32
  307.       Top             =   3840
  308.       Width           =   1452
  309.    End
  310.    Begin VB.ComboBox Combo3 
  311.       BackColor       =   &H00000000&
  312.       ForeColor       =   &H0000FF00&
  313.       Height          =   288
  314.       Left            =   1680
  315.       TabIndex        =   31
  316.       Top             =   3840
  317.       Width           =   3012
  318.    End
  319.    Begin VB.CommandButton Command9 
  320.       BackColor       =   &H00C0C0C0&
  321.       Caption         =   "Start"
  322.       BeginProperty Font 
  323.          Name            =   "Trebuchet MS"
  324.          Size            =   7.8
  325.          Charset         =   0
  326.          Weight          =   400
  327.          Underline       =   0   'False
  328.          Italic          =   0   'False
  329.          Strikethrough   =   0   'False
  330.       EndProperty
  331.       Height          =   828
  332.       Left            =   5160
  333.       Picture         =   "SDKForm1.frx":199C
  334.       Style           =   1  'Graphical
  335.       TabIndex        =   30
  336.       Top             =   3120
  337.       Width           =   1332
  338.    End
  339.    Begin VB.ComboBox Combo2 
  340.       BackColor       =   &H00000000&
  341.       ForeColor       =   &H0000FF00&
  342.       Height          =   288
  343.       Left            =   1680
  344.       TabIndex        =   29
  345.       Top             =   4560
  346.       Width           =   3012
  347.    End
  348.    Begin VB.CommandButton Command8 
  349.       BackColor       =   &H00C0C0C0&
  350.       Caption         =   "Productions..."
  351.       BeginProperty Font 
  352.          Name            =   "Trebuchet MS"
  353.          Size            =   9
  354.          Charset         =   0
  355.          Weight          =   400
  356.          Underline       =   0   'False
  357.          Italic          =   0   'False
  358.          Strikethrough   =   0   'False
  359.       EndProperty
  360.       Height          =   252
  361.       Left            =   240
  362.       Style           =   1  'Graphical
  363.       TabIndex        =   16
  364.       Top             =   5280
  365.       Width           =   1452
  366.    End
  367.    Begin VB.ComboBox Combo1 
  368.       BackColor       =   &H00000000&
  369.       ForeColor       =   &H0000FF00&
  370.       Height          =   288
  371.       ItemData        =   "SDKForm1.frx":1DE6
  372.       Left            =   1680
  373.       List            =   "SDKForm1.frx":1DE8
  374.       TabIndex        =   15
  375.       Top             =   5280
  376.       Width           =   3012
  377.    End
  378.    Begin VB.TextBox Text1 
  379.       Alignment       =   2  'Center
  380.       BeginProperty Font 
  381.          Name            =   "System"
  382.          Size            =   9.6
  383.          Charset         =   0
  384.          Weight          =   700
  385.          Underline       =   0   'False
  386.          Italic          =   0   'False
  387.          Strikethrough   =   0   'False
  388.       EndProperty
  389.       Height          =   372
  390.       Left            =   5280
  391.       TabIndex        =   54
  392.       Text            =   "1"
  393.       Top             =   4320
  394.       Width           =   492
  395.    End
  396.    Begin VB.CommandButton Command13 
  397.       BackColor       =   &H00C0C0C0&
  398.       Caption         =   "Add Direct"
  399.       BeginProperty Font 
  400.          Name            =   "Trebuchet MS"
  401.          Size            =   7.8
  402.          Charset         =   0
  403.          Weight          =   400
  404.          Underline       =   0   'False
  405.          Italic          =   0   'False
  406.          Strikethrough   =   0   'False
  407.       EndProperty
  408.       Height          =   828
  409.       Left            =   5160
  410.       Picture         =   "SDKForm1.frx":1DEA
  411.       Style           =   1  'Graphical
  412.       TabIndex        =   53
  413.       ToolTipText     =   "Adds to the specified 'Basic Vocabulary' file"
  414.       Top             =   4080
  415.       Width           =   2052
  416.    End
  417.    Begin VB.Label Label9 
  418.       BackColor       =   &H00000000&
  419.       BorderStyle     =   1  'Fixed Single
  420.       BeginProperty Font 
  421.          Name            =   "Verdana"
  422.          Size            =   7.8
  423.          Charset         =   0
  424.          Weight          =   400
  425.          Underline       =   0   'False
  426.          Italic          =   0   'False
  427.          Strikethrough   =   0   'False
  428.       EndProperty
  429.       ForeColor       =   &H0080FF80&
  430.       Height          =   372
  431.       Left            =   3480
  432.       TabIndex        =   19
  433.       Top             =   2400
  434.       Width           =   1572
  435.    End
  436.    Begin VB.Label Label8 
  437.       BackColor       =   &H00000000&
  438.       BorderStyle     =   1  'Fixed Single
  439.       BeginProperty Font 
  440.          Name            =   "Verdana"
  441.          Size            =   7.8
  442.          Charset         =   0
  443.          Weight          =   400
  444.          Underline       =   0   'False
  445.          Italic          =   0   'False
  446.          Strikethrough   =   0   'False
  447.       EndProperty
  448.       ForeColor       =   &H0000FF00&
  449.       Height          =   372
  450.       Left            =   1800
  451.       TabIndex        =   18
  452.       Top             =   2400
  453.       UseMnemonic     =   0   'False
  454.       Width           =   1692
  455.    End
  456.    Begin VB.Label Label7 
  457.       BackColor       =   &H00000000&
  458.       BorderStyle     =   1  'Fixed Single
  459.       BeginProperty Font 
  460.          Name            =   "Verdana"
  461.          Size            =   7.8
  462.          Charset         =   0
  463.          Weight          =   400
  464.          Underline       =   0   'False
  465.          Italic          =   0   'False
  466.          Strikethrough   =   0   'False
  467.       EndProperty
  468.       ForeColor       =   &H0080FF80&
  469.       Height          =   372
  470.       Left            =   240
  471.       TabIndex        =   17
  472.       Top             =   2400
  473.       Width           =   1572
  474.    End
  475.    Begin VB.Shape Shape1 
  476.       BorderColor     =   &H00E0E0E0&
  477.       BorderWidth     =   2
  478.       FillStyle       =   0  'Solid
  479.       Height          =   2772
  480.       Left            =   120
  481.       Shape           =   4  'Rounded Rectangle
  482.       Top             =   120
  483.       Width           =   5052
  484.    End
  485.    Begin VB.Label Label23 
  486.       BackStyle       =   0  'Transparent
  487.       Height          =   492
  488.       Left            =   1440
  489.       TabIndex        =   52
  490.       Top             =   6120
  491.       Width           =   852
  492.    End
  493.    Begin VB.Label Label22 
  494.       BackStyle       =   0  'Transparent
  495.       Height          =   372
  496.       Left            =   1440
  497.       TabIndex        =   51
  498.       Top             =   5760
  499.       Width           =   852
  500.    End
  501.    Begin VB.Label Label21 
  502.       BackStyle       =   0  'Transparent
  503.       Caption         =   "Sample Processing Resolution"
  504.       BeginProperty Font 
  505.          Name            =   "Trebuchet MS"
  506.          Size            =   7.8
  507.          Charset         =   0
  508.          Weight          =   400
  509.          Underline       =   0   'False
  510.          Italic          =   0   'False
  511.          Strikethrough   =   0   'False
  512.       EndProperty
  513.       Height          =   492
  514.       Left            =   120
  515.       TabIndex        =   50
  516.       Top             =   5640
  517.       Width           =   1332
  518.    End
  519.    Begin VB.Label Label10 
  520.       BackStyle       =   0  'Transparent
  521.       Caption         =   "Filter Pass Criteria"
  522.       BeginProperty Font 
  523.          Name            =   "Trebuchet MS"
  524.          Size            =   7.8
  525.          Charset         =   0
  526.          Weight          =   400
  527.          Underline       =   0   'False
  528.          Italic          =   0   'False
  529.          Strikethrough   =   0   'False
  530.       EndProperty
  531.       Height          =   492
  532.       Left            =   120
  533.       TabIndex        =   48
  534.       Top             =   6120
  535.       Width           =   1212
  536.    End
  537.    Begin VB.Label Label1 
  538.       BackStyle       =   0  'Transparent
  539.       Caption         =   "No. of Slots filled by filter"
  540.       BeginProperty Font 
  541.          Name            =   "Small Fonts"
  542.          Size            =   6.6
  543.          Charset         =   0
  544.          Weight          =   400
  545.          Underline       =   0   'False
  546.          Italic          =   0   'False
  547.          Strikethrough   =   0   'False
  548.       EndProperty
  549.       Height          =   492
  550.       Index           =   1
  551.       Left            =   5280
  552.       TabIndex        =   44
  553.       Top             =   2520
  554.       Width           =   732
  555.    End
  556.    Begin VB.Label Label5 
  557.       Alignment       =   2  'Center
  558.       BackColor       =   &H00000000&
  559.       BorderStyle     =   1  'Fixed Single
  560.       BeginProperty Font 
  561.          Name            =   "Verdana"
  562.          Size            =   10.2
  563.          Charset         =   0
  564.          Weight          =   400
  565.          Underline       =   0   'False
  566.          Italic          =   0   'False
  567.          Strikethrough   =   0   'False
  568.       EndProperty
  569.       ForeColor       =   &H0000FF00&
  570.       Height          =   372
  571.       Left            =   6000
  572.       TabIndex        =   43
  573.       Top             =   2520
  574.       Width           =   1212
  575.    End
  576.    Begin VB.Label Label1 
  577.       BackStyle       =   0  'Transparent
  578.       Caption         =   "No. of Processings / Divisons"
  579.       BeginProperty Font 
  580.          Name            =   "Small Fonts"
  581.          Size            =   6.6
  582.          Charset         =   0
  583.          Weight          =   400
  584.          Underline       =   0   'False
  585.          Italic          =   0   'False
  586.          Strikethrough   =   0   'False
  587.       EndProperty
  588.       Height          =   492
  589.       Index           =   3
  590.       Left            =   7320
  591.       TabIndex        =   41
  592.       Top             =   1440
  593.       Width           =   852
  594.    End
  595.    Begin VB.Label Label20 
  596.       Alignment       =   2  'Center
  597.       BackColor       =   &H00000000&
  598.       BorderStyle     =   1  'Fixed Single
  599.       BeginProperty Font 
  600.          Name            =   "Verdana"
  601.          Size            =   10.2
  602.          Charset         =   0
  603.          Weight          =   400
  604.          Underline       =   0   'False
  605.          Italic          =   0   'False
  606.          Strikethrough   =   0   'False
  607.       EndProperty
  608.       ForeColor       =   &H0000FF00&
  609.       Height          =   372
  610.       Left            =   8160
  611.       TabIndex        =   40
  612.       Top             =   1560
  613.       Width           =   1212
  614.    End
  615.    Begin VB.Label Label19 
  616.       Alignment       =   2  'Center
  617.       BackColor       =   &H00000000&
  618.       BorderStyle     =   1  'Fixed Single
  619.       BeginProperty Font 
  620.          Name            =   "MS Sans Serif"
  621.          Size            =   9.6
  622.          Charset         =   0
  623.          Weight          =   400
  624.          Underline       =   0   'False
  625.          Italic          =   0   'False
  626.          Strikethrough   =   0   'False
  627.       EndProperty
  628.       ForeColor       =   &H0000FF00&
  629.       Height          =   372
  630.       Left            =   6000
  631.       TabIndex        =   39
  632.       Top             =   1560
  633.       Width           =   1212
  634.    End
  635.    Begin VB.Label Label1 
  636.       BackStyle       =   0  'Transparent
  637.       Caption         =   "EC Weight"
  638.       BeginProperty Font 
  639.          Name            =   "Small Fonts"
  640.          Size            =   6.6
  641.          Charset         =   0
  642.          Weight          =   400
  643.          Underline       =   0   'False
  644.          Italic          =   0   'False
  645.          Strikethrough   =   0   'False
  646.       EndProperty
  647.       Height          =   252
  648.       Index           =   0
  649.       Left            =   5280
  650.       TabIndex        =   38
  651.       Top             =   1680
  652.       Width           =   732
  653.    End
  654.    Begin VB.Image Image2 
  655.       Height          =   384
  656.       Left            =   4560
  657.       Picture         =   "SDKForm1.frx":222C
  658.       Top             =   4200
  659.       Width           =   384
  660.    End
  661.    Begin VB.Image Image1 
  662.       Height          =   384
  663.       Left            =   4560
  664.       Picture         =   "SDKForm1.frx":266E
  665.       Top             =   4920
  666.       Width           =   384
  667.    End
  668.    Begin VB.Label Label18 
  669.       Alignment       =   2  'Center
  670.       BackStyle       =   0  'Transparent
  671.       Caption         =   "( Using Engine Explode) ( Low Level )"
  672.       BeginProperty Font 
  673.          Name            =   "Trebuchet MS"
  674.          Size            =   7.8
  675.          Charset         =   0
  676.          Weight          =   400
  677.          Underline       =   0   'False
  678.          Italic          =   0   'False
  679.          Strikethrough   =   0   'False
  680.       EndProperty
  681.       Height          =   252
  682.       Left            =   120
  683.       TabIndex        =   36
  684.       Top             =   5040
  685.       Width           =   4572
  686.    End
  687.    Begin VB.Label Label17 
  688.       Alignment       =   2  'Center
  689.       BackStyle       =   0  'Transparent
  690.       Caption         =   "( Using Words I Want ) ( Middle Level )"
  691.       BeginProperty Font 
  692.          Name            =   "Trebuchet MS"
  693.          Size            =   7.8
  694.          Charset         =   0
  695.          Weight          =   400
  696.          Underline       =   0   'False
  697.          Italic          =   0   'False
  698.          Strikethrough   =   0   'False
  699.       EndProperty
  700.       Height          =   252
  701.       Left            =   240
  702.       TabIndex        =   35
  703.       Top             =   4320
  704.       Width           =   4452
  705.    End
  706.    Begin VB.Label Label16 
  707.       Alignment       =   2  'Center
  708.       BackStyle       =   0  'Transparent
  709.       Caption         =   "( Using Language Editor and your AI ) (Top Level )"
  710.       BeginProperty Font 
  711.          Name            =   "Trebuchet MS"
  712.          Size            =   7.8
  713.          Charset         =   0
  714.          Weight          =   400
  715.          Underline       =   0   'False
  716.          Italic          =   0   'False
  717.          Strikethrough   =   0   'False
  718.       EndProperty
  719.       Height          =   252
  720.       Left            =   120
  721.       TabIndex        =   34
  722.       Top             =   3600
  723.       Width           =   4572
  724.    End
  725.    Begin VB.Label Label1 
  726.       BackStyle       =   0  'Transparent
  727.       Caption         =   "Divison of the sample processed"
  728.       BeginProperty Font 
  729.          Name            =   "Small Fonts"
  730.          Size            =   6.6
  731.          Charset         =   0
  732.          Weight          =   400
  733.          Underline       =   0   'False
  734.          Italic          =   0   'False
  735.          Strikethrough   =   0   'False
  736.       EndProperty
  737.       Height          =   492
  738.       Index           =   14
  739.       Left            =   5280
  740.       TabIndex        =   4
  741.       Top             =   480
  742.       Width           =   732
  743.    End
  744.    Begin VB.Label Label15 
  745.       Alignment       =   2  'Center
  746.       BackColor       =   &H00000000&
  747.       BorderStyle     =   1  'Fixed Single
  748.       BeginProperty Font 
  749.          Name            =   "MS Sans Serif"
  750.          Size            =   9.6
  751.          Charset         =   0
  752.          Weight          =   400
  753.          Underline       =   0   'False
  754.          Italic          =   0   'False
  755.          Strikethrough   =   0   'False
  756.       EndProperty
  757.       ForeColor       =   &H0000FF00&
  758.       Height          =   372
  759.       Left            =   6000
  760.       TabIndex        =   20
  761.       Top             =   600
  762.       Width           =   1212
  763.    End
  764.    Begin VB.Label Label14 
  765.       Alignment       =   2  'Center
  766.       BackColor       =   &H00000000&
  767.       BorderStyle     =   1  'Fixed Single
  768.       BeginProperty Font 
  769.          Name            =   "MS Sans Serif"
  770.          Size            =   9.6
  771.          Charset         =   0
  772.          Weight          =   400
  773.          Underline       =   0   'False
  774.          Italic          =   0   'False
  775.          Strikethrough   =   0   'False
  776.       EndProperty
  777.       ForeColor       =   &H0000FF00&
  778.       Height          =   372
  779.       Left            =   8160
  780.       TabIndex        =   23
  781.       Top             =   1080
  782.       Width           =   1212
  783.    End
  784.    Begin VB.Label Label13 
  785.       Alignment       =   2  'Center
  786.       BackColor       =   &H00000000&
  787.       BorderStyle     =   1  'Fixed Single
  788.       BeginProperty Font 
  789.          Name            =   "MS Sans Serif"
  790.          Size            =   9.6
  791.          Charset         =   0
  792.          Weight          =   400
  793.          Underline       =   0   'False
  794.          Italic          =   0   'False
  795.          Strikethrough   =   0   'False
  796.       EndProperty
  797.       ForeColor       =   &H0000FF00&
  798.       Height          =   372
  799.       Left            =   8160
  800.       TabIndex        =   26
  801.       Top             =   2520
  802.       Width           =   1212
  803.    End
  804.    Begin VB.Label Label1 
  805.       BackStyle       =   0  'Transparent
  806.       Caption         =   "Available Processings"
  807.       BeginProperty Font 
  808.          Name            =   "Small Fonts"
  809.          Size            =   6.6
  810.          Charset         =   0
  811.          Weight          =   400
  812.          Underline       =   0   'False
  813.          Italic          =   0   'False
  814.          Strikethrough   =   0   'False
  815.       EndProperty
  816.       Height          =   372
  817.       Index           =   13
  818.       Left            =   7320
  819.       TabIndex        =   27
  820.       Top             =   1080
  821.       Width           =   852
  822.    End
  823.    Begin VB.Label Label1 
  824.       BackStyle       =   0  'Transparent
  825.       Caption         =   "Available Platinum Words"
  826.       BeginProperty Font 
  827.          Name            =   "Small Fonts"
  828.          Size            =   6.6
  829.          Charset         =   0
  830.          Weight          =   400
  831.          Underline       =   0   'False
  832.          Italic          =   0   'False
  833.          Strikethrough   =   0   'False
  834.       EndProperty
  835.       Height          =   492
  836.       Index           =   9
  837.       Left            =   7320
  838.       TabIndex        =   28
  839.       Top             =   2520
  840.       Width           =   732
  841.    End
  842.    Begin VB.Label Label12 
  843.       Alignment       =   2  'Center
  844.       BackColor       =   &H00000000&
  845.       BorderStyle     =   1  'Fixed Single
  846.       BeginProperty Font 
  847.          Name            =   "Verdana"
  848.          Size            =   10.2
  849.          Charset         =   0
  850.          Weight          =   400
  851.          Underline       =   0   'False
  852.          Italic          =   0   'False
  853.          Strikethrough   =   0   'False
  854.       EndProperty
  855.       ForeColor       =   &H0000FF00&
  856.       Height          =   372
  857.       Left            =   6000
  858.       TabIndex        =   25
  859.       Top             =   2040
  860.       Width           =   1212
  861.    End
  862.    Begin VB.Label Label1 
  863.       BackStyle       =   0  'Transparent
  864.       Caption         =   "No. of Sounds matched:"
  865.       BeginProperty Font 
  866.          Name            =   "Small Fonts"
  867.          Size            =   6.6
  868.          Charset         =   0
  869.          Weight          =   400
  870.          Underline       =   0   'False
  871.          Italic          =   0   'False
  872.          Strikethrough   =   0   'False
  873.       EndProperty
  874.       Height          =   492
  875.       Index           =   11
  876.       Left            =   5280
  877.       TabIndex        =   24
  878.       Top             =   1920
  879.       Width           =   732
  880.    End
  881.    Begin VB.Label Label1 
  882.       BackStyle       =   0  'Transparent
  883.       Caption         =   "Engine Category Processed "
  884.       BeginProperty Font 
  885.          Name            =   "Small Fonts"
  886.          Size            =   6.6
  887.          Charset         =   0
  888.          Weight          =   400
  889.          Underline       =   0   'False
  890.          Italic          =   0   'False
  891.          Strikethrough   =   0   'False
  892.       EndProperty
  893.       Height          =   492
  894.       Index           =   2
  895.       Left            =   5280
  896.       TabIndex        =   22
  897.       Top             =   1080
  898.       Width           =   732
  899.    End
  900.    Begin VB.Label Label11 
  901.       Alignment       =   2  'Center
  902.       BackColor       =   &H00000000&
  903.       BorderStyle     =   1  'Fixed Single
  904.       BeginProperty Font 
  905.          Name            =   "MS Sans Serif"
  906.          Size            =   9.6
  907.          Charset         =   0
  908.          Weight          =   400
  909.          Underline       =   0   'False
  910.          Italic          =   0   'False
  911.          Strikethrough   =   0   'False
  912.       EndProperty
  913.       ForeColor       =   &H0000FF00&
  914.       Height          =   372
  915.       Left            =   6000
  916.       TabIndex        =   21
  917.       Top             =   1080
  918.       Width           =   1212
  919.    End
  920.    Begin VB.Label Label6 
  921.       Alignment       =   2  'Center
  922.       BackColor       =   &H00000000&
  923.       BorderStyle     =   1  'Fixed Single
  924.       BeginProperty Font 
  925.          Name            =   "Verdana"
  926.          Size            =   10.2
  927.          Charset         =   0
  928.          Weight          =   400
  929.          Underline       =   0   'False
  930.          Italic          =   0   'False
  931.          Strikethrough   =   0   'False
  932.       EndProperty
  933.       ForeColor       =   &H0000FF00&
  934.       Height          =   372
  935.       Left            =   8160
  936.       TabIndex        =   14
  937.       Top             =   2040
  938.       Width           =   1212
  939.    End
  940.    Begin VB.Label Label1 
  941.       BackStyle       =   0  'Transparent
  942.       Caption         =   "No. of Sounds like:"
  943.       BeginProperty Font 
  944.          Name            =   "Small Fonts"
  945.          Size            =   6.6
  946.          Charset         =   0
  947.          Weight          =   400
  948.          Underline       =   0   'False
  949.          Italic          =   0   'False
  950.          Strikethrough   =   0   'False
  951.       EndProperty
  952.       Height          =   372
  953.       Index           =   12
  954.       Left            =   7320
  955.       TabIndex        =   13
  956.       Top             =   2040
  957.       Width           =   852
  958.    End
  959.    Begin VB.Label Label4 
  960.       Alignment       =   2  'Center
  961.       BackColor       =   &H00000000&
  962.       BorderStyle     =   1  'Fixed Single
  963.       BeginProperty Font 
  964.          Name            =   "Verdana"
  965.          Size            =   10.2
  966.          Charset         =   0
  967.          Weight          =   400
  968.          Underline       =   0   'False
  969.          Italic          =   0   'False
  970.          Strikethrough   =   0   'False
  971.       EndProperty
  972.       ForeColor       =   &H0000FF00&
  973.       Height          =   372
  974.       Left            =   8160
  975.       TabIndex        =   9
  976.       Top             =   600
  977.       Width           =   1212
  978.    End
  979.    Begin VB.Label Label3 
  980.       Alignment       =   2  'Center
  981.       BackColor       =   &H00000000&
  982.       BorderStyle     =   1  'Fixed Single
  983.       BeginProperty Font 
  984.          Name            =   "Verdana"
  985.          Size            =   10.2
  986.          Charset         =   0
  987.          Weight          =   400
  988.          Underline       =   0   'False
  989.          Italic          =   0   'False
  990.          Strikethrough   =   0   'False
  991.       EndProperty
  992.       ForeColor       =   &H0000FF00&
  993.       Height          =   372
  994.       Left            =   8160
  995.       TabIndex        =   8
  996.       Top             =   120
  997.       Width           =   1212
  998.    End
  999.    Begin VB.Label Label1 
  1000.       BackStyle       =   0  'Transparent
  1001.       Caption         =   "Bytes length of the word :"
  1002.       BeginProperty Font 
  1003.          Name            =   "Small Fonts"
  1004.          Size            =   6.6
  1005.          Charset         =   0
  1006.          Weight          =   400
  1007.          Underline       =   0   'False
  1008.          Italic          =   0   'False
  1009.          Strikethrough   =   0   'False
  1010.       EndProperty
  1011.       Height          =   372
  1012.       Index           =   8
  1013.       Left            =   7320
  1014.       TabIndex        =   7
  1015.       Top             =   120
  1016.       Width           =   852
  1017.    End
  1018.    Begin VB.Label Label1 
  1019.       BackStyle       =   0  'Transparent
  1020.       Caption         =   "Current No. Processed :"
  1021.       BeginProperty Font 
  1022.          Name            =   "Small Fonts"
  1023.          Size            =   6.6
  1024.          Charset         =   0
  1025.          Weight          =   400
  1026.          Underline       =   0   'False
  1027.          Italic          =   0   'False
  1028.          Strikethrough   =   0   'False
  1029.       EndProperty
  1030.       Height          =   372
  1031.       Index           =   7
  1032.       Left            =   7320
  1033.       TabIndex        =   6
  1034.       Top             =   600
  1035.       Width           =   732
  1036.    End
  1037.    Begin VB.Label Label1 
  1038.       BackStyle       =   0  'Transparent
  1039.       Caption         =   "No.of Words :"
  1040.       BeginProperty Font 
  1041.          Name            =   "Small Fonts"
  1042.          Size            =   6.6
  1043.          Charset         =   0
  1044.          Weight          =   400
  1045.          Underline       =   0   'False
  1046.          Italic          =   0   'False
  1047.          Strikethrough   =   0   'False
  1048.       EndProperty
  1049.       Height          =   372
  1050.       Index           =   6
  1051.       Left            =   5280
  1052.       TabIndex        =   5
  1053.       Top             =   120
  1054.       Width           =   612
  1055.    End
  1056.    Begin VB.Label Label2 
  1057.       Alignment       =   2  'Center
  1058.       BackColor       =   &H00000000&
  1059.       BorderStyle     =   1  'Fixed Single
  1060.       BeginProperty Font 
  1061.          Name            =   "Verdana"
  1062.          Size            =   10.2
  1063.          Charset         =   0
  1064.          Weight          =   400
  1065.          Underline       =   0   'False
  1066.          Italic          =   0   'False
  1067.          Strikethrough   =   0   'False
  1068.       EndProperty
  1069.       ForeColor       =   &H0080FF80&
  1070.       Height          =   372
  1071.       Left            =   6000
  1072.       TabIndex        =   1
  1073.       Top             =   120
  1074.       Width           =   1212
  1075.    End
  1076.    Begin VB.Shape Shape6 
  1077.       BackColor       =   &H00C0FFFF&
  1078.       BorderColor     =   &H00C0C0C0&
  1079.       FillColor       =   &H00C0C0C0&
  1080.       FillStyle       =   0  'Solid
  1081.       Height          =   3852
  1082.       Left            =   0
  1083.       Top             =   3000
  1084.       Width           =   9852
  1085.    End
  1086. Attribute VB_Name = "Form1"
  1087. Attribute VB_GlobalNameSpace = False
  1088. Attribute VB_Creatable = False
  1089. Attribute VB_PredeclaredId = True
  1090. Attribute VB_Exposed = False
  1091. Option Explicit
  1092. Dim Toggle As Boolean
  1093. Private Sub Command11_Click()
  1094. Dim nni
  1095. For nni = 1 To VoiceAction1.Voice_Words_Matched_Count
  1096.   VoiceAction1.Send_of_no = nni
  1097.   Form1.Combo2.AddItem VoiceAction1.Voice_Word_Matched
  1098. Next nni
  1099. End Sub
  1100. Private Sub Command10_Click()
  1101. Dim nni
  1102. Form1.Combo3.Clear
  1103. For nni = 1 To VoiceAction1.Platinum_Words_Available
  1104.   VoiceAction1.Send_of_no = nni
  1105.   Form1.Combo3.AddItem VoiceAction1.Platinum_Words & " " & VoiceAction1.Platinum_Word_Percentage
  1106. Next nni
  1107. End Sub
  1108. Private Sub Command13_Click()
  1109. Dim Number As Integer
  1110. Number = Val(Trim(Text1.Text))
  1111. VoiceAction1.Direct_Add = Number
  1112. Command3.Enabled = True
  1113. Command13.Enabled = False
  1114. End Sub
  1115. Private Sub Command2_Click()
  1116. VoiceAction1.Add_To_Language = "YES"
  1117. Command3.Enabled = True
  1118. Command2.Enabled = False
  1119. End Sub
  1120. Private Sub Command1_Click()
  1121. VoiceAction1.Stop_Real_Action
  1122. End Sub
  1123. Private Sub Command21_Click()
  1124. VoiceAction1.Restart
  1125. End Sub
  1126. Private Sub Command3_Click()
  1127. VoiceAction1.Add_To_Language = "NO"
  1128. VoiceAction1.Direct_Add = 0
  1129. Command3.Enabled = False
  1130. Command13.Enabled = True
  1131. Command2.Enabled = True
  1132. End Sub
  1133. Private Sub Command4_Click()
  1134. Dim nni
  1135. Form1.Combo4.Clear
  1136. For nni = 1 To VoiceAction1.Filter_Filled_Slots
  1137.   VoiceAction1.Send_of_no = nni
  1138.   Form1.Combo4.AddItem VoiceAction1.Filter_Slot_Data & " " & VoiceAction1.Filter_Slot_Data_Weight
  1139. Next nni
  1140. End Sub
  1141. Private Sub Command5_Click()
  1142.   LabResult.Text = VoiceAction1.Platinum_Word_Best
  1143. End Sub
  1144. Private Sub Command6_Click()
  1145. VoiceAction1.SHOW_LANGUAGE_EDITOR
  1146. End Sub
  1147. Private Sub Command8_Click()
  1148.  Form1.Combo1.Clear
  1149.  Form1.Combo2.Clear
  1150. Dim nni
  1151. For nni = 1 To VoiceAction1.Voice_Words_Explode_Count
  1152.   VoiceAction1.Send_of_no = nni
  1153.   If nni < 20000 Then Form1.Combo1.AddItem VoiceAction1.Voice_Word
  1154. Next nni
  1155. End Sub
  1156. Private Sub Command9_Click()
  1157. VoiceAction1.Start_Real_Action
  1158. End Sub
  1159. Private Sub Form_Activate()
  1160. VoiceAction1.Play_this_file_on_Initialization = App.Path & "\backcon.wav"           '"C:\Reftempa\backcon.wav"
  1161. VoiceAction1.InitializeSound
  1162. End Sub
  1163. Private Sub Form_Load()
  1164. Form1.Caption = "VoiceAction" & Chr(174) & "  Component SDK                                                                               " & Chr(169) & "United Research Labs"
  1165. VoiceAction1.Play_this_file_for_Start = App.Path & "\start.wav"
  1166. VoiceAction1.Play_this_file_for_Stop = App.Path & "\stop.wav"
  1167. End Sub
  1168. Private Sub Form_Unload(Cancel As Integer)
  1169. ComingSplash.Show
  1170. End Sub
  1171. Private Sub HScroll1_Change()
  1172.  Strng11 = Trim(HScroll1.Value)
  1173.  VoiceAction1.Sample_processing_resolution = Val(HScroll1.Value)
  1174.  Label22.Caption = HScroll1.Value
  1175. End Sub
  1176. Private Sub HScroll2_Change()
  1177. VoiceAction1.Filter_Pass_Value = Val(HScroll2.Value)
  1178. Label23.Caption = HScroll2.Value
  1179. End Sub
  1180. Private Sub VoiceAction1_PropertyStatusBetweenDetectionToCoversion()
  1181.     Label2.Caption = VoiceAction1.Probable_no_of_words_recognized
  1182.     Label4.Caption = VoiceAction1.Current_Word_no_Processed
  1183.     Label3.Caption = VoiceAction1.Current_Word_no_Timelength
  1184.     Label6.Caption = VoiceAction1.Voice_Words_Explode_Count
  1185.     Label12.Caption = VoiceAction1.Voice_Words_Matched_Count
  1186.     Label11.Caption = VoiceAction1.Engine_Category
  1187.     Label14.Caption = VoiceAction1.Current_Processings_Available
  1188.     Label15.Caption = VoiceAction1.Current_Vyanjana_no_Processed
  1189.     Label19.Caption = VoiceAction1.Engine_Category_Weight
  1190.     Label20.Caption = VoiceAction1.No_of_Processings
  1191.     Label5.Caption = VoiceAction1.Filter_Filled_Slots
  1192.     Text13.Text = VoiceAction1.Voice_Magic_Elements
  1193.     Label13.Caption = VoiceAction1.Platinum_Words_Available
  1194.     Text5.Text = VoiceAction1.Voice_Word
  1195.     If VoiceAction1.Operation_Status = "Alert" Then Label7.Caption = "Mic On"
  1196.     If VoiceAction1.Operation_Status = "Sleeping" Then Label7.Caption = "Mic Off"
  1197.     If VoiceAction1.Operation_Status = "Starting Processing" Then Label8.Caption = "Starting..."
  1198.     If VoiceAction1.Operation_Status = "Processing..." Then Label8.Caption = "Processing..."
  1199.     'LabResult.Font = VoiceAction1.Platinum_Word_Font
  1200.     LabResult.Text = "1." & VoiceAction1.Platinum_Word_Best & " 2." & VoiceAction1.Platinum_Word_Second_Best & " 3." & VoiceAction1.Platinum_Word_Third_Best
  1201. End Sub
  1202.