Program Terbilang dengan Suara (VB.NET)

Assalmualaikum wr wb

Hai para Programmer....!! kali ini saya akan membuat suatu program terbilang seperti kasus dulu yang menggunakan bahasa PHP, tapi sekarang saya menggunakan Visual Basic 2008 dan hasil terbilang-nya mengeluarkan suara (wow...!! seperti antrian otomatis gitu loh!!!)

Sebelumnya kita memerlukan file-file audio (disini saya menggunakan format wav, format lain juga tidak apa-apa), disini saya menggunakan component window media player yang sudah disediakan di visual basic 2008

(dapat ditambah dari menu tools->choose toolbox items->com component)
ini file-file audio yang saya gunakan :

supaya suara keluar sesuai urutan maka kita harus membuat playlist, tanpa playlist hanya satu file suara yang dapat kita keluarkan pada saat menjalankan program, ini tampilan program yang saya buat :

dan ini adalah listing program yang saya buat (AxWindowsMediaPlayer1 adalah komponen window media player):

   1:  Public Class Form1 

   2:   

   3:  Private Function BikinMedia(ByVal nFile As String) As Object 

   4:  Dim song = Me.AxWindowsMediaPlayer1.newMedia("C:\audio\Wav\" & nFile.ToLower & ".mp3.WAV") 

   5:  Return song 

   6:  End Function 

   7:   

   8:  Private Function Terbilang(ByVal i As Integer) As String 

   9:  Dim angka() As String = {"Nol", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", _ 

  10:  "Delapan", "Sembilan", "Sepuluh", "Sebelas"} 

  11:  Dim hasil As String = "" 

  12:  Select Case i 

  13:  Case 1 To 11 

  14:  hasil &= angka(i) 

  15:  Case 12 To 19 

  16:  hasil &= angka(i Mod 10) & " Belas" 

  17:  Case 20 To 99 

  18:  hasil &= Terbilang(Int(i / 10)) & " Puluh " & Terbilang(i Mod 10) 

  19:  Case 100 To 199 

  20:  hasil &= "Seratus " & Terbilang(i Mod 100) 

  21:  Case 200 To 999 

  22:  hasil &= Terbilang(Int(i / 100)) & " Ratus " & Terbilang(i Mod 100) 

  23:  End Select 

  24:  Return hasil.Trim 

  25:  End Function 

  26:  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

  27:   

  28:  Me.AxWindowsMediaPlayer1.settings.autoStart = False 

  29:  Me.AxWindowsMediaPlayer1.Hide() 

  30:   

  31:  End Sub 

  32:   

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

  34:  Me.AxWindowsMediaPlayer1.currentPlaylist.clear() 

  35:  Label3.Text = Terbilang(TextBox1.Text) 

  36:  Dim arr() As String = Terbilang(TextBox1.Text).Split(" ") 

  37:  For Each value As String In arr 

  38:  Dim song = BikinMedia(value) 

  39:  Me.AxWindowsMediaPlayer1.currentPlaylist.appendItem(song) 

  40:  Next 

  41:  Me.AxWindowsMediaPlayer1.Ctlcontrols.play() 

  42:  End Sub 

  43:   

  44:  End Class 

Silahkan dicoba dan semoga bermanfaat, maaf kalo penjelasanx tidak terlalu baik (maklum belum ahli menjelaskan dengan tulisan, wkwkwkwk)