Visual Basic 2010 Da Yaz Okusun Programı Yapımı !! Detaylı

[lador42]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Merhaba Arkadaslar Bazi Kisiler Form una Belki Yaz okusun Yapmak Ister Bunuda ben size Paylasiyorum

Bu Aslında Translate Programıdır Ama Sizin Yazdığınız Yazıları Sesli Olarak 13 Dilde Okuyabilir.

Şimdi İlk Önce Forma Şunları Ekleyin :
13 Radio Button
1 Button
1 Textbox
1 MediaPlayer

Bunlarla Yapacağız Bunu. Şimdi İlk Önce Radio Buttonları Adlandıralım. Şöyle Olacak :
Kod:

Radio Button 1: TÜRKÇE
Radio Button 2: İNGİLİZCE
Radio Button 3: ALMANCA
Radio Button 4: FRANSIZCA
Radio Button 5: İSPANYOLCA
Radio Button 6: İTALYANCA
Radio Button 7: PORTEKİZCE
Radio Button 8: RUSÇA
Radio Button 9: PORTEKİZCE 2
Radio Button 10: JAPONCA
Radio Button 11: YUNANCA
Radio Button 12: LATİNCE
Radio Button 13: FELEMENKÇE

Sonra Bunları Yan Tarafa Dizin.
En Alt Tarafa Bir Media Player Ekleyin.
Bir De Buton Ve Textbox Ekleyin.

Butona Şu Kodu Girin:
Kod:

    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

Kodları Girince Programı Çalıştırın Ve Textboxa Bir Yazı Yazın. Dili Seçin Ve Butona Basın. Okuyacaktır

Bir Görüntü :

 

[beyic_baris]

Paylaşım için teşekürler