+62-081-916-309099 zainularifin@live.com

Menu
Membuat Program Terbilang Dengan Suara Menggunakan VB.Net 2008 EE

Membuat Program Terbilang Dengan Suara Menggunakan VB.Net 2008 EE

By In Blog On December 30, 2013


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 & “Soundssatu.wav” Sounds(2) = My.Application.Info.DirectoryPath & “Soundsdua.wav” Sounds(3) = My.Application.Info.DirectoryPath & “Soundstiga.wav” Sounds(4) = My.Application.Info.DirectoryPath & “Soundsempat.wav” Sounds(5) = My.Application.Info.DirectoryPath & “Soundslima.wav” Sounds(6) = My.Application.Info.DirectoryPath & “Soundsenam.wav” Sounds(7) = My.Application.Info.DirectoryPath & “Soundstujuh.wav” Sounds(8) = My.Application.Info.DirectoryPath & “Soundsdelapan.wav” Sounds(9) = My.Application.Info.DirectoryPath & “Soundssembilan.wav” Sounds(10) = My.Application.Info.DirectoryPath & “Soundssepuluh.wav” Sounds(11) = My.Application.Info.DirectoryPath & “Soundssebelas.wav” Sounds(12) = My.Application.Info.DirectoryPath & “Soundspuluh.wav” Sounds(13) = My.Application.Info.DirectoryPath & “Soundsratus.wav” Sounds(14) = My.Application.Info.DirectoryPath & “Soundsbelas.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. Okelah.. udah cukuplah nulisnya. mungkin lain kali dilanjut lagi. soale mau liat Bola dulu. Terima Kasih sudah Menyimak. Wassalam…


About the Author

admin

1 Comment

  • Lori 3 YEARS AGO

    Hi, my name is Lori and I am the sales manager at StarSEO Marketing. I was just looking at your website and see that your site has the potential to get a lot of visitors. I just want to tell you, In case you don't already know... There is a website network which already has more than 16 million users, and most of the users are looking for topics like yours. By getting your website on this service you have a chance to get your site more visitors than you can imagine. It is free to sign up and you can read more about it here: http://xn--ydkf.jp/HKgxV - Now, let me ask you... Do you need your website to be successful to maintain your way of life? Do you need targeted traffic who are interested in the services and products you offer? Are looking for exposure, to increase sales, and to quickly develop awareness for your website? If your answer is YES, you can achieve these things only if you get your site on the network I am talking about. This traffic service advertises you to thousands, while also giving you a chance to test the service before paying anything. All the popular websites are using this service to boost their traffic and ad revenue! Why aren’t you? And what is better than traffic? It’s recurring traffic! That's how running a successful website works... Here's to your success! Find out more here: http://we.cx/550g

Leave a comment