Speech Recognation

Assamualaikum Warohmatulloh Wabarokatuh 

APLIKASI ARTIFICIAL INTELLIGENCE SPEECH TO TEXT DENGAN VISUAL BASIC ( SPEECH RECOGNITION ) 

kali ini saya akan membuat  text to speech . oke disini saya akan  Membuat Speech Recognation Yang teroneksi/terhubung ke Visual Studio . Judul program saya adalah "Speech Recognation" 
Disini saya membuat program tersebut berhubung dengan Tugas kuliah saya  . Dan untuk memenuhi Nilai  UAS saya maka disini saya akan membuat sebuah  program  dengan Visual Studio .Kita Mulai saja,

Ini adalah tugas kelompok   : 

NIM dan Nama :

161011401399 Rio Adjie Gunawan 

161021401509 Rikco Dwi Aprian 

161021401471 Angga Bondan Bachtiar 
161011401368 Rocky Yudistira 

161011401383 Fachri Fikrian ramadhan

Pengertian Speech Recognition

Pengenalan suara (voice recognition) dibagi menjadi dua jenis, yaitu speech recognition dan speaker recognition. Speech recognition adalah proses identifikasi yang dilakukan komputer untuk mengenali kata yang diucapkan oleh seseorang tanpa mempedulikan identitas orang terkait dengan melakukan konversi sebuah sinyal akustik, yang ditangkap oleh audio device (perangkat input suara). Pola kerja Pengenalan Ujaran (speech recognition) adalah mencocokkan sinyal akustik yang diterima dengan data yang tersimpan dalam template ataupun database. Proses pencocokan memiliki dua model utama yaitu Model Akustik yang terdiri dari fonem yang memiliki nilai tertentu yang diambil dari sinyal akustik dan Model Bahasa berupa metode yang mengestimasikan satu kata diikuti oleh serangkaian kata lainnya.

- Setelah membuat project di atas lalu membuat Activity. Disini saya memakain 4 Activity ialah sebagai berikut :

1. Source code Visual Studio

2. tampilan Visual Studio

3. Tampilan Run Aplikasi 

1. Source Code Visual Studio Speech Recognation

Imports System.Speech

Public Class Form1

    Dim synth As New Synthesis.SpeechSynthesizer

    Dim WithEvents reco As New Recognition.SpeechRecognitionEngine

    Dim QuestionEvent As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        reco.SetInputToDefaultAudioDevice()

        Dim gram As New Recognition.SrgsGrammar.SrgsDocument

        Dim speechRule As New Recognition.SrgsGrammar.SrgsRule("Speech")

        Dim speechList As New Recognition.SrgsGrammar.SrgsOneOf("Hello I CAN",

                                                                "WHAT IS THIS",

                                                                "Open NOTEPAD",

                                                                "Open Facebook"

                                                                )

        speechRule.Add(speechList)

        gram.Rules.Add(speechRule)

        gram.Root = speechRule

        reco.LoadGrammar(New Recognition.Grammar(gram))

        reco.RecognizeAsync()

    End Sub

    Private Sub reco_RecognizeCompleted(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognizeCompletedEventArgs) Handles reco.RecognizeCompleted

        reco.RecognizeAsync()

    End Sub

    Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.SpeechRecognizedEventArgs) Handles reco.SpeechRecognized

        Select Case e.Result.Text.ToUpper

            Case Is = "Hello I CAN"

                synth.Speak("Hello sir")

            Case Is = "WHAT IS THIS"

                synth.Speak("THIS IS MARCO")

            Case Is = "Open NOTEPAD"

                synth.Speak("NOTEPAD")

                Shell("%windir%\system32\notepad.exe")

            Case Is = "Open Facebook"

                System.Diagnostics.Process.Start("www.facebook.com")

        End Select

    End Sub

End Class

2. Tampilan Source Code Speech Recognation 

3. Hasil Aplikasi Speech Recognation

Share on Facebook Share on Twitter Share on Google+ Share on LinkedIn Pin on Pinterest