تا سورس کد ارائه نشه مشخص نیست که جناب handvbnet تا چه حد روی این برنامه کار کردن . لطفا زود قضاوت نکنید.
در ضمن من هم دانلود کردم اما اجرا نمی شه .
بله شما راست می فرمایید اینم سورس برنامش
Public Class Form1
Inherits Form
' Methods
Public Sub New()
AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
Dim list As List(Of WeakReference) = Form1.__ENCList
SyncLock list
Form1.__ENCList.Add(New WeakReference(Me))
End SyncLock
Me.SpeechHandler = New Speeching
Me.CommandList = New Collection
Me.InitializeComponent
End Sub
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
MyBase.Dispose(disposing)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.sendpass
Me.Loghat("co'pi matn", 2)
Me.Loghat("salaam", 2)
Me.Loghat("mamnoon", 2)
Me.SpeechHandler.Ejra(Me.CommandList)
End Sub
<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.RichTextBox1 = New RichTextBox
Me.SuspendLayout
Dim point As New Point(12, &H27)
Me.RichTextBox1.Location = point
Me.RichTextBox1.Name = "RichTextBox1"
Dim size As New Size(&H133, &H72)
Me.RichTextBox1.Size = size
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
size = New Size(5, 13)
Me.AutoScaleBaseSize = size
size = New Size(340, &HB6)
Me.ClientSize = size
Me.Controls.Add(Me.RichTextBox1)
Me.Name = "Form1"
Me.Text = "FF"
Me.ResumeLayout(False)
End Sub
Private Sub Label2_Click(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Public Sub Loghat(ByVal Command As String, ByVal Number As Integer)
Me.CommandList.Add(New CommandHolder(Command, Number), Nothing, Nothing, Nothing)
End Sub
<STAThread> _
Public Shared Sub Main()
Application.Run(MyProject.Forms.Form1)
End Sub
Public Sub sendpass()
Me.SpeechHandler.passwords("farazjoon")
End Sub
Private Sub SpeechHandler_RecievedCommand(ByVal CommandID As Integer, ByVal Command As String)
Dim text As String = ""
Select Case Command
Case "co'pi matn"
Clipboard.SetText([text])
Exit Select
Case "salaam"
[text] = ([text] & ChrW(1587) & ChrW(1604) & ChrW(1575) & ChrW(1605))
Exit Select
Case "mamnoon"
[text] = ([text] & ChrW(1605) & ChrW(1605) & ChrW(1606) & ChrW(1608) & ChrW(1606))
Exit Select
End Select
Dim box As RichTextBox = Me.RichTextBox1
box.Text = (box.Text & [text] & " ")
End Sub
' Properties
Friend Overridable Property RichTextBox1 As RichTextBox
Get
Return Me._RichTextBox1
End Get
Set(ByVal WithEventsValue As RichTextBox)
Me._RichTextBox1 = WithEventsValue
End Set
End Property
Private Overridable Property SpeechHandler As Speeching
Get
Return Me._SpeechHandler
End Get
Set(ByVal WithEventsValue As Speeching)
Dim handler As RecievedCommandEventHandler = New RecievedCommandEventHandler(AddressOf Me.SpeechHandler_RecievedCommand)
If (Not Me._SpeechHandler Is Nothing) Then
RemoveHandler Me._SpeechHandler.RecievedCommand, handler
End If
Me._SpeechHandler = WithEventsValue
If (Not Me._SpeechHandler Is Nothing) Then
AddHandler Me._SpeechHandler.RecievedCommand, handler
End If
End Set
End Property
' Fields
Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
<AccessedThroughProperty("RichTextBox1")> _
Private _RichTextBox1 As RichTextBox
<AccessedThroughProperty("SpeechHandler")> _
Private _SpeechHandler As Speeching
Private CommandList As Collection
Private components As IContainer
End Class
و این هم موتور تولید صداش speechhandler
Public Class Speeching
' Events
Public Event RecievedCommand As RecievedCommandEventHandler
' Methods
Public Sub New()
Dim VB$t_ref$L0 As List(Of WeakReference) = Speeching.__ENCList
SyncLock VB$t_ref$L0
Speeching.__ENCList.Add(New WeakReference(Me))
End SyncLock
Me.RecoContext = New SpSharedRecoContextClass
End Sub
Public Sub Ejra(ByVal CommandList As Collection)
If (Me.pass = 1) Then
Try
Dim VB$t_ref$L1 As IEnumerator
Me.Shoroo = Me.RecoContext.CreateGrammar(10)
Me.TopRule = Me.Shoroo.Rules.Add("TopLevelRule", (SpeechRuleAttributes.SRADynamic Or SpeechRuleAttributes.SRATopLevel), 1)
Me.Ghanoon = Me.Shoroo.Rules.Add("ListItemsRule", SpeechRuleAttributes.SRADynamic, 2)
Dim AfterCmdState As ISpeechGrammarRuleState = Me.TopRule.AddState
Dim VB$t_ref$S0 As Object = 0
Me.TopRule.InitialState.AddWordTransition(AfterCmd State, "", " ", SpeechGrammarWordType.SGLexical, "", 0, (VB$t_ref$S0), 1!)
VB$t_ref$S0 = 1
AfterCmdState.AddRuleTransition(Nothing, Me.Ghanoon, "", 1, (VB$t_ref$S0), 1!)
Me.Ghanoon.Clear
Try
VB$t_ref$L1 = CommandList.GetEnumerator
Do While VB$t_ref$L1.MoveNext
Dim x As CommandHolder = DirectCast(VB$t_ref$L1.Current, CommandHolder)
VB$t_ref$S0 = x.Number
Me.Ghanoon.InitialState.AddWordTransition(Nothing, x.Command, " ", SpeechGrammarWordType.SGLexical, x.Command, x.Number, (VB$t_ref$S0), 1!)
Loop
Finally
If TypeOf VB$t_ref$L1 Is IDisposable Then
TryCast(VB$t_ref$L1,IDisposable).Dispose
End If
End Try
Me.Shoroo.Rules.Commit
Me.Shoroo.CmdSetRuleState("TopLevelRule", SpeechRuleState.SGDSActive)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim Ex As Exception = exception1
ProjectData.ClearProjectError
End Try
End If
End Sub
Public Sub passwords(ByVal [text] As String)
If ([text] = "farazjoon") Then
Me.pass = 1
End If
End Sub
Private Sub RecoContext_Recognition(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechRecognitionType, ByVal Result As ISpeechRecoResult)
If Operators.ConditionalCompareObjectEqual(Result.Phr aseInfo.GrammarId, 10, False) Then
Dim VB$t_ref$S0 As RecievedCommandEventHandler = Me.RecievedCommandEvent
If (Not VB$t_ref$S0 Is Nothing) Then
VB$t_ref$S0.Invoke(Result.PhraseInfo.Properties.It em(1).Children.Item(0).Id, Result.PhraseInfo.Properties.Item(1).Children.Item (0).Name)
End If
End If
End Sub
' Properties
Private Overridable Property RecoContext As SpSharedRecoContext
Get
Return Me._RecoContext
End Get
Set(ByVal WithEventsValue As SpSharedRecoContext)
Dim handler As _ISpeechRecoContextEvents_RecognitionEventHandler = New _ISpeechRecoContextEvents_RecognitionEventHandler( AddressOf Me.RecoContext_Recognition)
If (Not Me._RecoContext Is Nothing) Then
Me._RecoContext.remove_Recognition(handler)
End If
Me._RecoContext = WithEventsValue
If (Not Me._RecoContext Is Nothing) Then
Me._RecoContext.add_Recognition(handler)
End If
End Set
End Property
' Fields
Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)
<AccessedThroughProperty("RecoContext")> _
Private _RecoContext As SpSharedRecoContext
Private e As Integer
Private Ghanoon As ISpeechGrammarRule
Private pass As Integer
Private ps As String
Private Shoroo As ISpeechRecoGrammar
Private TopRule As ISpeechGrammarRule
' Nested Types
Public Delegate Sub RecievedCommandEventHandler(ByVal CommandID As Integer, ByVal Command As String)
End Class
این هم یک وبلاگ که نمونه های خوبی داره http://blogs.msdn.com/coding4fun/archive/2006/10/31/909044.aspx
دوست عزیز مهم ساختن یک چیزی مانند speechlib هست که بتواند از روی نوشته فارسی متن را بخواند یا صدا را تبدیل به متن کند