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;
Yorum Yaz

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

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

Yukarı Git