K
kris914g
Guest
Heywant to make avoice controlprogram thensearched thegroomwhere Ifound thisvideo Ifollow all thestepslinkto the video: http://www.youtube.com/watch?v=A9MdymHGxkE
Imports System.Speech.Recognition
Imports System.Speech.Recognition.SrgsGrammar
Imports System.Runtime.InteropServices For Monitor Command
Public Class Form1
This object represents the Speech recognition engine
Private recognizer As SpeechRecognizer
Dim QuestionEvent As String
Public Sub New()
InitializeComponent() This call is required by the Windows Form Designer.
recognizer = New SpeechRecognizer() Add any initialization after the InitializeComponent() call.
AddHandler recognizer.SpeechDetected, AddressOf recognizer_SpeechDetected this event is raised when the user begins to speak
AddHandler recognizer.SpeechRecognitionRejected, AddressOf recognizer_SpeechRecognitionRejected this is raised when spoken words are not recognized as compliant to our grammar rules
AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized this is raised when the application correctly recognizes spoken words
Dim grammar As New GrammarBuilder()
grammar.Append(New Choices(System.IO.File.ReadAllLines("Commands.txt")))
recognizer.LoadGrammar(New Grammar(grammar))
End Sub
Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
Dim Random As New Random
Dim Number As Integer = Random.Next(1, 10)
Dim Jarvis = CreateObject("sapi.spvoice")
Select Case e.Result.Text.ToUpper
GREETINGS
Case Is = "HELLO JARVIS"
Jarvis.Speak("Hello sir")
Case Is = "GOODBYE JARVIS"
Jarvis.Speak("Until next time")
Me.Close()
DATE / TIME / WEATHER
Case Is = "WHAT TIME IS IT"
Jarvis.Speak(Format(Now, "Short Time"))
Case Is = "WHAT DAY IS IT"
Jarvis.Speak(Format(Now, "Long Date"))
Case Is = "HOWS THE WEATHER"
System.Diagnostics.Process.Start("https://www.google.com/ (...),or.r_cp.r_qf.&bvm=bv.47008514,d.eWU&fp=6c7f8a5fed4db490&biw=1366&bih=643&ion=1&pf=p&pdl=300")
Jarvis.Speak("Searching for local weather")
SHELL COMMANDS
Case Is = "RUN GOOGLE CHROME"
Jarvis.Speak("Right Away")
Shell("chrome.exe")
Case Is = "RUN ITUNES"
Jarvis.speak("Im in the mood for a bit of music actually")
Shell("itune.exe")
WEBSITES
Case Is = "RUN FACEBOOK"
System.Diagnostics.Process.Start("http://www.facebook.com")
Case Is = "RUN GOOGLE"
System.Diagnostics.Process.Start("http://www.google.com")
Case Is = "RUN YAHOO"
System.Diagnostics.Process.Start("http://www.yahoo.com")
Case Is = "RUN PANDORA"
System.Diagnostics.Process.Start("http://www.pandora.com")
Case Is = "RUN THE PIRATE BAY"
System.Diagnostics.Process.Start("http://www.thepiratebay.se")
Case Is = "RUN YOUTUBE"
System.Diagnostics.Process.Start("http://www.youtube.com")
MISCELLANEOUS
Case Is = "SHOW COMMANDS"
lstboxCommands.Visible = True
Jarvis.speak("Here we are")
Case Is = "HIDE COMMANDS"
lstboxCommands.Visible = False
Jarvis.speak("Very well")
Case Is = "OUT OF THE WAY JARVIS", "OUT OF THE WAY"
Select Case Number
Case Is < 6
Jarvis.speak("My apologies sir")
Case Is > 5
Jarvis.speak("Right away")
End Select
Me.WindowState = FormWindowState.Minimized
Case Is = "COME BACK JARVIS", "COME BACK"
Me.WindowState = FormWindowState.Normal
Jarvis.speak("Here I am")
Case Is = "OPEN DISK DRIVE"
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim CDROM = oWMP.cdromCollection
If CDROM.Count = 2 Then
CDROM.Item(1).Eject()
Jarvis.speak("Its now open")
End If
Case Is = "MONITOR OFF"
SendMessage(Me.Handle.ToInt32(), WM_SYSCOMMAND, SC_MONITORPOWER, 2)
Jarvis.Speak("Ill just close my eyes for a minute")
Case Is = "SHUTDOWN"
QuestionEvent = "Shutdown"
Timer1.Enabled = True
lblTimer.Visible = True
Case Is = "RESTART"
QuestionEvent = "Restart"
Timer1.Enabled = True
lblTimer.Visible = True
Case Is = "LOG OFF"
QuestionEvent = "Log Off"
Timer1.Enabled = True
lblTimer.Visible = True
Case Is = "ABORT"
Timer1.Enabled = False
lblTimer.Visible = False
QuestionEvent = String.Empty
Case Is = "SPEED UP"
If Timer1.Interval = 1 Then
Jarvis.Speak("Performing at maximum capacity")
Else : Timer1.Interval = Timer1.Interval / 10
End If
Case Is = "SLOW DOWN"
If Timer1.Interval = 1000 Then
Jarvis.Speak("If it were any slower it would be standing still")
Else : Timer1.Interval = Timer1.Interval * 10
End If
SOCIAL
Case Is = "JARVIS"
Jarvis.speak("Yes?")
Case Is = "GOOD", "IM GOOD"
Select Case QuestionEvent
Case Is = "Particularly well"
Jarvis.speak("Glad to hear it")
Case Is = "Im good"
Jarvis.speak("Of course")
Case Is = "And you"
Jarvis.speak("Good")
End Select
Case Is = "HOW ARE YOU", "HOW ARE YOU DOING", "HOW ARE YOU TODAY", "HOWS LIFE"
Select Case Number
Case Is = 1, 2
Jarvis.speak("Good as always. Thanks for asking")
Case Is = 3, 4
Jarvis.speak("Im doing particularly well actually. How are you?")
QuestionEvent = "Particularly well"
Case Is = 5, 6
Jarvis.speak("Im good. How about you sir?")
QuestionEvent = "Im good"
Case Else : Jarvis.speak("Couldnt be better. And you?")
QuestionEvent = "And you"
End Select
End Select
End Sub
LABEL DETECT / REJECT
Private Sub recognizer_SpeechDetected(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)
Label1.ForeColor = Color.Green : Label1.BackColor = Color.Transparent : Label1.Text = "Speech engine has detected that you spoke something"
End Sub
Private Sub recognizer_SpeechRecognitionRejected(ByVal sender As Object, ByVal e As SpeechRecognitionRejectedEventArgs)
Label1.ForeColor = Color.Red : Label1.BackColor = Color.Transparent : Label1.Text = ("Sorry, but the phrase could not be recognized")
End Sub
LOADS THE COMMANDS INTO AN ARRAY AND LISTBOX
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Commands() As String = System.IO.File.ReadAllLines("Commands.txt")
For i As Integer = 0 To Commands.Count - 1
lstboxCommands.Items.Add(Commands(i))
Next
End Sub
HIDES COMMANDS LIST BOX
Private Sub lstboxCommands_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstboxCommands.SelectedIndexChanged
lstboxCommands.Visible = False
End Sub
FOR MONITOR COMMAND
Public WM_SYSCOMMAND As Integer = &H112
Public SC_MONITORPOWER As Integer = &HF170
<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal hMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lblTimer.Text = FormatNumber(Val(lblTimer.Text) - Val(0.01), 2)
If lblTimer.Text = 0 Then
ShutdownProcedure()
Timer1.Enabled = False
lblTimer.Visible = False
End If
End Sub
Sub ShutdownProcedure()
If QuestionEvent = "Shutdown" Then
System.Diagnostics.Process.Start("shutdown", "-s")
ElseIf QuestionEvent = "Restart" Then
System.Diagnostics.Process.Start("shutdown", "-r")
ElseIf QuestionEvent = "Log Off" Then
System.Diagnostics.Process.Start("shutdown", "-l")
End If
End Sub
End Class
i have not maked all the features in the video in this script but i got a error in line 25
Continue reading...
Imports System.Speech.Recognition
Imports System.Speech.Recognition.SrgsGrammar
Imports System.Runtime.InteropServices For Monitor Command
Public Class Form1
This object represents the Speech recognition engine
Private recognizer As SpeechRecognizer
Dim QuestionEvent As String
Public Sub New()
InitializeComponent() This call is required by the Windows Form Designer.
recognizer = New SpeechRecognizer() Add any initialization after the InitializeComponent() call.
AddHandler recognizer.SpeechDetected, AddressOf recognizer_SpeechDetected this event is raised when the user begins to speak
AddHandler recognizer.SpeechRecognitionRejected, AddressOf recognizer_SpeechRecognitionRejected this is raised when spoken words are not recognized as compliant to our grammar rules
AddHandler recognizer.SpeechRecognized, AddressOf recognizer_SpeechRecognized this is raised when the application correctly recognizes spoken words
Dim grammar As New GrammarBuilder()
grammar.Append(New Choices(System.IO.File.ReadAllLines("Commands.txt")))
recognizer.LoadGrammar(New Grammar(grammar))
End Sub
Private Sub recognizer_SpeechRecognized(ByVal sender As Object, ByVal e As SpeechRecognizedEventArgs)
Dim Random As New Random
Dim Number As Integer = Random.Next(1, 10)
Dim Jarvis = CreateObject("sapi.spvoice")
Select Case e.Result.Text.ToUpper
GREETINGS
Case Is = "HELLO JARVIS"
Jarvis.Speak("Hello sir")
Case Is = "GOODBYE JARVIS"
Jarvis.Speak("Until next time")
Me.Close()
DATE / TIME / WEATHER
Case Is = "WHAT TIME IS IT"
Jarvis.Speak(Format(Now, "Short Time"))
Case Is = "WHAT DAY IS IT"
Jarvis.Speak(Format(Now, "Long Date"))
Case Is = "HOWS THE WEATHER"
System.Diagnostics.Process.Start("https://www.google.com/ (...),or.r_cp.r_qf.&bvm=bv.47008514,d.eWU&fp=6c7f8a5fed4db490&biw=1366&bih=643&ion=1&pf=p&pdl=300")
Jarvis.Speak("Searching for local weather")
SHELL COMMANDS
Case Is = "RUN GOOGLE CHROME"
Jarvis.Speak("Right Away")
Shell("chrome.exe")
Case Is = "RUN ITUNES"
Jarvis.speak("Im in the mood for a bit of music actually")
Shell("itune.exe")
WEBSITES
Case Is = "RUN FACEBOOK"
System.Diagnostics.Process.Start("http://www.facebook.com")
Case Is = "RUN GOOGLE"
System.Diagnostics.Process.Start("http://www.google.com")
Case Is = "RUN YAHOO"
System.Diagnostics.Process.Start("http://www.yahoo.com")
Case Is = "RUN PANDORA"
System.Diagnostics.Process.Start("http://www.pandora.com")
Case Is = "RUN THE PIRATE BAY"
System.Diagnostics.Process.Start("http://www.thepiratebay.se")
Case Is = "RUN YOUTUBE"
System.Diagnostics.Process.Start("http://www.youtube.com")
MISCELLANEOUS
Case Is = "SHOW COMMANDS"
lstboxCommands.Visible = True
Jarvis.speak("Here we are")
Case Is = "HIDE COMMANDS"
lstboxCommands.Visible = False
Jarvis.speak("Very well")
Case Is = "OUT OF THE WAY JARVIS", "OUT OF THE WAY"
Select Case Number
Case Is < 6
Jarvis.speak("My apologies sir")
Case Is > 5
Jarvis.speak("Right away")
End Select
Me.WindowState = FormWindowState.Minimized
Case Is = "COME BACK JARVIS", "COME BACK"
Me.WindowState = FormWindowState.Normal
Jarvis.speak("Here I am")
Case Is = "OPEN DISK DRIVE"
Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim CDROM = oWMP.cdromCollection
If CDROM.Count = 2 Then
CDROM.Item(1).Eject()
Jarvis.speak("Its now open")
End If
Case Is = "MONITOR OFF"
SendMessage(Me.Handle.ToInt32(), WM_SYSCOMMAND, SC_MONITORPOWER, 2)
Jarvis.Speak("Ill just close my eyes for a minute")
Case Is = "SHUTDOWN"
QuestionEvent = "Shutdown"
Timer1.Enabled = True
lblTimer.Visible = True
Case Is = "RESTART"
QuestionEvent = "Restart"
Timer1.Enabled = True
lblTimer.Visible = True
Case Is = "LOG OFF"
QuestionEvent = "Log Off"
Timer1.Enabled = True
lblTimer.Visible = True
Case Is = "ABORT"
Timer1.Enabled = False
lblTimer.Visible = False
QuestionEvent = String.Empty
Case Is = "SPEED UP"
If Timer1.Interval = 1 Then
Jarvis.Speak("Performing at maximum capacity")
Else : Timer1.Interval = Timer1.Interval / 10
End If
Case Is = "SLOW DOWN"
If Timer1.Interval = 1000 Then
Jarvis.Speak("If it were any slower it would be standing still")
Else : Timer1.Interval = Timer1.Interval * 10
End If
SOCIAL
Case Is = "JARVIS"
Jarvis.speak("Yes?")
Case Is = "GOOD", "IM GOOD"
Select Case QuestionEvent
Case Is = "Particularly well"
Jarvis.speak("Glad to hear it")
Case Is = "Im good"
Jarvis.speak("Of course")
Case Is = "And you"
Jarvis.speak("Good")
End Select
Case Is = "HOW ARE YOU", "HOW ARE YOU DOING", "HOW ARE YOU TODAY", "HOWS LIFE"
Select Case Number
Case Is = 1, 2
Jarvis.speak("Good as always. Thanks for asking")
Case Is = 3, 4
Jarvis.speak("Im doing particularly well actually. How are you?")
QuestionEvent = "Particularly well"
Case Is = 5, 6
Jarvis.speak("Im good. How about you sir?")
QuestionEvent = "Im good"
Case Else : Jarvis.speak("Couldnt be better. And you?")
QuestionEvent = "And you"
End Select
End Select
End Sub
LABEL DETECT / REJECT
Private Sub recognizer_SpeechDetected(ByVal sender As Object, ByVal e As SpeechDetectedEventArgs)
Label1.ForeColor = Color.Green : Label1.BackColor = Color.Transparent : Label1.Text = "Speech engine has detected that you spoke something"
End Sub
Private Sub recognizer_SpeechRecognitionRejected(ByVal sender As Object, ByVal e As SpeechRecognitionRejectedEventArgs)
Label1.ForeColor = Color.Red : Label1.BackColor = Color.Transparent : Label1.Text = ("Sorry, but the phrase could not be recognized")
End Sub
LOADS THE COMMANDS INTO AN ARRAY AND LISTBOX
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Commands() As String = System.IO.File.ReadAllLines("Commands.txt")
For i As Integer = 0 To Commands.Count - 1
lstboxCommands.Items.Add(Commands(i))
Next
End Sub
HIDES COMMANDS LIST BOX
Private Sub lstboxCommands_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstboxCommands.SelectedIndexChanged
lstboxCommands.Visible = False
End Sub
FOR MONITOR COMMAND
Public WM_SYSCOMMAND As Integer = &H112
Public SC_MONITORPOWER As Integer = &HF170
<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal hMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lblTimer.Text = FormatNumber(Val(lblTimer.Text) - Val(0.01), 2)
If lblTimer.Text = 0 Then
ShutdownProcedure()
Timer1.Enabled = False
lblTimer.Visible = False
End If
End Sub
Sub ShutdownProcedure()
If QuestionEvent = "Shutdown" Then
System.Diagnostics.Process.Start("shutdown", "-s")
ElseIf QuestionEvent = "Restart" Then
System.Diagnostics.Process.Start("shutdown", "-r")
ElseIf QuestionEvent = "Log Off" Then
System.Diagnostics.Process.Start("shutdown", "-l")
End If
End Sub
End Class
i have not maked all the features in the video in this script but i got a error in line 25
Continue reading...