Program Terbilang dengan suara

Membuat Program Terbilang Dengan Suara Menggunakan VB.Net 2008 EE

Dari : http://zainul05.wordpress.com/2012/02/22/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:

1	Module Sounds

2	Public Const SND_NOSTOP = &H10

3	Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVallpszSoundName As String, ByVal uFlags As Long) As Long

4	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:

01	Public Class Form1

02	Dim Sounds(14) As String

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

04	Sounds(1) = My.Application.Info.DirectoryPath & "\Sounds\satu.wav"

05	Sounds(2) = My.Application.Info.DirectoryPath & "\Sounds\dua.wav"

06	Sounds(3) = My.Application.Info.DirectoryPath & "\Sounds\tiga.wav"

07	Sounds(4) = My.Application.Info.DirectoryPath & "\Sounds\empat.wav"

08	Sounds(5) = My.Application.Info.DirectoryPath & "\Sounds\lima.wav"

09	Sounds(6) = My.Application.Info.DirectoryPath & "\Sounds\enam.wav"

10	Sounds(7) = My.Application.Info.DirectoryPath & "\Sounds\tujuh.wav"

11	Sounds(8) = My.Application.Info.DirectoryPath & "\Sounds\delapan.wav"

12	Sounds(9) = My.Application.Info.DirectoryPath & "\Sounds\sembilan.wav"

13	Sounds(10) = My.Application.Info.DirectoryPath & "\Sounds\sepuluh.wav"

14	Sounds(11) = My.Application.Info.DirectoryPath & "\Sounds\sebelas.wav"

15	Sounds(12) = My.Application.Info.DirectoryPath & "\Sounds\puluh.wav"

16	Sounds(13) = My.Application.Info.DirectoryPath & "\Sounds\ratus.wav"

17	Sounds(14) = My.Application.Info.DirectoryPath & "\Sounds\belas.wav"

18

End Sub

19	Sub Panggil_L4()

20	Dim arrJumlahKarakterSpasi() As String

21	arrJumlahKarakterSpasi = Split(Label3.Text, " ")

22	For i = LBound(arrJumlahKarakterSpasi) To UBound(arrJumlahKarakterSpasi)

23	Call sndPlaySound(My.Application.Info.DirectoryPath & "\Sounds\" & arrJumlahKarakterSpasi(i) & ".wav", SND_NOSTOP)

24

Next

25

End Sub

26	Private Function Terbilang(ByVal i As Integer) As String

27	Dim angka() As String = {" Nol ", " Satu ", " Dua ", " Tiga ", " Empat ", " Lima ", " Enam", " Tujuh ", " Delapan ", " Sembilan ", " Sepuluh ", " Sebelas "}

28	Dim hasil As String = " "

29

30	Select Case i

31	Case 1 To 11

32	hasil &= angka(i)

33	Case 12 To 19

34	hasil &= angka(i Mod 10) & " Belas "

35	Case 20 To 99

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

37	Case 100 To 199

38	hasil &= " Seratus " & Terbilang(i Mod 100)

39	Case 200 To 999

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

41	Case 1000 To 1999

42	hasil &= " Seribu " & Terbilang(i Mod 1000)

43	Case 2000 To 9999

44	hasil &= Terbilang(Int(i / 1000)) & " Ribu " & Terbilang(i Mod 1000)

45	End Select

46	Return hasil.Trim

47	End Function

48

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

50	Label3.Text = Terbilang(TextBox1.Text)

51	Call Panggil_L4()

52

End Sub

53

54

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…