aghamoez
سه شنبه 07 مهر 1388, 11:23 صبح
سلام به همه
من از کامپوننت Microsoft direct speech recognition برای تبدیل گفتار به نوشتار در کدهای زیر استفاده می کنم ولی نمیدونم چرا رویداد phrasefinish اجرا نمیشه؟!!!
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVallpOperation As String, ByVal lpFile As String, ByVallpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim totaldata As String
totaldata = totaldata & "=Notepad" & vbCrLf & "=Volume" & vbCrLf & "=Media Player" & vbCrLf
DirectSR1.GrammarFromString (totaldata)
DirectSR1.Activate
End Sub
Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
Dim sFile As String
Dim noth As Long
Select Case Phrase
Case "Notepad"
sFile = "\system32\notepad.exe"
noth = ShellExecute(0, "OPEN", _
Environ("SystemRoot") & sFile, "", "", 1)
Case "Volume"
sFile = "\system32\sndvol32.exe"
noth = ShellExecute(0, "OPEN", _
Environ("SystemRoot") & sFile, "", "", 1)
Case "Media Player:"
sFile = "C:\Program Files\Windows Media Player\mplayer2.exe"
noth = ShellExecute(0, "OPEN", _
sFile, "", "", 1)
End Select
End Sub
مشکل کجاست؟؟؟؟؟؟
من از کامپوننت Microsoft direct speech recognition برای تبدیل گفتار به نوشتار در کدهای زیر استفاده می کنم ولی نمیدونم چرا رویداد phrasefinish اجرا نمیشه؟!!!
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVallpOperation As String, ByVal lpFile As String, ByVallpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim totaldata As String
totaldata = totaldata & "=Notepad" & vbCrLf & "=Volume" & vbCrLf & "=Media Player" & vbCrLf
DirectSR1.GrammarFromString (totaldata)
DirectSR1.Activate
End Sub
Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
Dim sFile As String
Dim noth As Long
Select Case Phrase
Case "Notepad"
sFile = "\system32\notepad.exe"
noth = ShellExecute(0, "OPEN", _
Environ("SystemRoot") & sFile, "", "", 1)
Case "Volume"
sFile = "\system32\sndvol32.exe"
noth = ShellExecute(0, "OPEN", _
Environ("SystemRoot") & sFile, "", "", 1)
Case "Media Player:"
sFile = "C:\Program Files\Windows Media Player\mplayer2.exe"
noth = ShellExecute(0, "OPEN", _
sFile, "", "", 1)
End Select
End Sub
مشکل کجاست؟؟؟؟؟؟