VB10 ile TTS (Yaz-Okusun) Programı Yapmak

Bu program ile TextBox'a yazdığınız kelimeyi cümleyi yan taraftan istediğiniz dili seçip "LISTEN" butonuna basarak dinleyebilirsiniz.

Bu program ile TextBox'a yazdığınız kelimeyi cümleyi yan taraftan istediğiniz dili seçip "LISTEN" butonuna basarak dinleyebilirsiniz.

Nihat Çelik ve Hüseyin Kadir Çiftçi'ye teşekkürler.

Not: Benzerlerinin aksine robot sesi (Microsoft Speech Library) değildir. Google altyapısı kullanılmıştır. Gerçekçidir. İnternet gereklidir.

Tasarım:


Kodlar:


Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If RadioButton1.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=tr")

        End If

        If RadioButton2.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=en")

        End If

        If RadioButton3.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=de")

        End If

        If RadioButton4.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=fr")

        End If

        If RadioButton5.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=es")

        End If

        If RadioButton6.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=it")

        End If

        If RadioButton7.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=pt")

        End If

        If RadioButton8.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=ru")

        End If

        If RadioButton9.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=zh")

        End If

        If RadioButton10.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=ja")

        End If

        If RadioButton11.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=el")

        End If

        If RadioButton12.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=la")

        End If

        If RadioButton13.Checked Then

            AxWindowsMediaPlayer1.URL = ("http://translate.google.com.tr/translate_tts?ie=UTF-8&q= " + TextBox1.Text + "&tl=nl")

        End If

    End Sub

End Class



Kolay gelsin.
  • Etiketler;
Black_caos Black_caos
Sanalkurs.net
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Rica ederim dersiniz için teşekkürler :)
ya bu mediaplayer'in butonu yok yoolbox'da :S
choose'den ekledim eklenmiyor :S
choose'den ekledim eklenmiyor :S
Bakınız: http://www.webmastersitesi.com/visual-basic/191492-vb-2010-da-media-player-ekleme-yardim.htm

Yukarı Git