Membuat Program Terbilang Dengan Suara Menggunakan VB.Net 2008 EE

Assalamu’alaikum,

Salam Buat temen-temen semua yang sudah mengunjungi Blog ane. Okeh langsung ke pembahasan kita. bagaimana Membuat Program terbilang dengan suara menggunakan bahasa pemrograman VB.Net 2008 EE.

Pertama, temen-temen kudu download dulu Sounds.rar untuk suara angka yang nantinya akan digunakan dalam Belajar kita kali ini. Untuk kumpulan suara angka tersebut dapat di download Di sini

Jika temen-temen sudah mengunduh Suara angkanya!! Mari kita mulai MengCoding
Mulai dari membuat Form Utama yang akan kita Gunakan, dapat dilihat seperti gambar dibawah ini:

Gambar di atas merupakan gambaran dari Form utama Program Terbilang dengan Suara.
Yang harus di persiapkan adalah :

1. Buat tiga LABEL (Label1, Label2, Label3).
2. Buat satu Textbox (texbox1)
3. Buat Button (button1)

Untuk Form mungkin temen-temen lebih berpengalaman. tinggal seleranya masing-masing bagaimana Enaknya. Uhui….i..i

Setelah Form utama sudah kita buat. Berikut adalah Source Code  dari Program Terbilang dengan Suara menggunakan VB.Net 2008 Express.

Tetapi, sebelum menuju ke Programing coba liat gambar ini dulu biar ada pandangan sedikit.

Udah ada Pandangan temen-temen…??

Okelah. mari langsung ke Programing kawan… Di sini ane buat Modul yaitu modul Sounds.vb.

Dimana Sintaks dari Modul Sounds.vb adalah sebagai berikut:

Module Sounds
    Public Const SND_NOSTOP = &H10
    Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
End Module

Sedikit kan sintaksnya…..? MANTAP…
Sintaks di atas merupakan code yang memanggil komponen winmm.dll untuk memunculkan suara dari direktori sounds.

Kemudian Untuk source Code Form1.vb  Utama adalah sebagai berikut:

Public Class Form1
    Dim Sounds(14) As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Sounds(1) = My.Application.Info.DirectoryPath & "\Sounds\satu.wav"
        Sounds(2) = My.Application.Info.DirectoryPath & "\Sounds\dua.wav"
        Sounds(3) = My.Application.Info.DirectoryPath & "\Sounds\tiga.wav"
        Sounds(4) = My.Application.Info.DirectoryPath & "\Sounds\empat.wav"
        Sounds(5) = My.Application.Info.DirectoryPath & "\Sounds\lima.wav"
        Sounds(6) = My.Application.Info.DirectoryPath & "\Sounds\enam.wav"
        Sounds(7) = My.Application.Info.DirectoryPath & "\Sounds\tujuh.wav"
        Sounds(8) = My.Application.Info.DirectoryPath & "\Sounds\delapan.wav"
        Sounds(9) = My.Application.Info.DirectoryPath & "\Sounds\sembilan.wav"
        Sounds(10) = My.Application.Info.DirectoryPath & "\Sounds\sepuluh.wav"
        Sounds(11) = My.Application.Info.DirectoryPath & "\Sounds\sebelas.wav"
        Sounds(12) = My.Application.Info.DirectoryPath & "\Sounds\puluh.wav"
        Sounds(13) = My.Application.Info.DirectoryPath & "\Sounds\ratus.wav"
        Sounds(14) = My.Application.Info.DirectoryPath & "\Sounds\belas.wav"
    End Sub
    Sub Panggil_L4()
        Dim arrJumlahKarakterSpasi() As String
        arrJumlahKarakterSpasi = Split(Label3.Text, " ")
        For i = LBound(arrJumlahKarakterSpasi) To UBound(arrJumlahKarakterSpasi)
            Call sndPlaySound(My.Application.Info.DirectoryPath & "\Sounds\" & arrJumlahKarakterSpasi(i) & ".wav", SND_NOSTOP)
        Next
    End Sub
    Private Function Terbilang(ByVal i As Integer) As String
        Dim angka() As String = {" Nol ", " Satu ", " Dua ", " Tiga ", " Empat ", " Lima ", " Enam", " Tujuh ", " Delapan ", " Sembilan ", " Sepuluh ", " Sebelas "}
        Dim hasil As String = " "

        Select Case i
            Case 1 To 11
                hasil &= angka(i)
            Case 12 To 19
                hasil &= angka(i Mod 10) & " Belas "
            Case 20 To 99
                hasil &= Terbilang(Int(i / 10)) & " Puluh " & Terbilang(i Mod 10)
            Case 100 To 199
                hasil &= " Seratus " & Terbilang(i Mod 100)
            Case 200 To 999
                hasil &= Terbilang(Int(i / 100)) & " Ratus " & Terbilang(i Mod 100)
            Case 1000 To 1999
                hasil &= " Seribu " & Terbilang(i Mod 1000)
            Case 2000 To 9999
                hasil &= Terbilang(Int(i / 1000)) & " Ribu " & Terbilang(i Mod 1000)
        End Select
        Return hasil.Trim
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label3.Text = Terbilang(TextBox1.Text)
        Call Panggil_L4()
    End Sub

End Class

Mungkin cukup Jelas kan..? tinggal di Aplikasikan dilaptopnya masing dengan secangkir Kopi dan Gorengan kalo ada. hehehe
Nah jadinya seperti apa…!! dapat dilihat seperti gambar berikut ini:

Ini adalah Hasil dari RUN program terbilang dengan suara.
Jika agan-agan ada Masalah dengan program ini. mungkin agan bisa tanya-tanya ke ane. kalo ada waktu pasti ane bales. atau mau tanya lewat YM bisa di za_in222000.

Okelah.. udah cukuplah nulisnya. mungkin lain kali dilanjut lagi. soale mau liat Bola dulu.
Terima Kasih sudah Menyimak.

Wassalam…