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

    Public Function Terbilang(ByVal nilai As Long) As String
Dim Angka() As String = {"", "Satu", "Dua", "Tiga", "Empat", "Lima", _
"Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas"}
Dim Bilang As String = ""
If nilai < 12 Then
Return " " & Angka(nilai)
ElseIf nilai < 20 Then
Return Terbilang(nilai - 10) & " Belas"
ElseIf nilai < 100 Then
Return (Terbilang(CInt((nilai \ 10))) & " Puluh") + Terbilang(nilai Mod 10)
ElseIf nilai < 200 Then
Return " Seratus" & Terbilang(nilai - 100)
ElseIf nilai < 1000 Then
Return (Terbilang(CInt((nilai \ 100))) & " Ratus") + Terbilang(nilai Mod 100)
ElseIf nilai < 2000 Then
Return " Seribu" & Terbilang(nilai - 1000)
Else
Return Bilang.Trim
End If
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…

33 thoughts on “Membuat Program Terbilang Dengan Suara Menggunakan VB.Net 2008 EE

  1. pagi bang, rekaman suaranya siapa yang buat nih?
    kalau boleh bisa minta tolong rekamin ratus, ribu, juta, milyar dengan suara yang sama dengan sounds.rar?
    atau ga minta kontak yang rekaman suara nya
    terimakasih

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s