ANTRIAN BANK DENGAN VB.NET 2010

Public Class Form1
'UNTUK MENDEKLARASIKAN no yang akan muncul di textbox
   Dim no As Integer
'untuk mendeklarasikan nama file suara yang tersimpan di folder Sounds
    Dim Sounds(16), alamat As String

'membuat fungsi terbilang untuk memanggil file - file sounds yang telah di simpan dalam bentuk string bukan angka.
    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)
        End Select
        Return hasil.Trim
    End Function
#Region "sub"

' untuk memanggil bunyi dari file .wav agar dapat berfungsi
    Sub Bunyi()
        Dim kar() As String
        kar = Split(thuruf.Text, " ")
        'Call sndPlaySound(alamat & "nomor-urut.wav", SND_NOSTOP)
        'perintah untuk menjalankan file audio

        'My.Computer.Audio.Play(alamat & "nomor-urut.wav", AudioPlayMode.BackgroundLoop)
        My.Computer.Audio.Play(alamat & "nomor-urut.wav", AudioPlayMode.WaitToComplete)
        For i = LBound(kar) To UBound(kar)
            'Call sndPlaySound(alamat & kar(i) & ".wav", SND_NOSTOP)
            My.Computer.Audio.Play(alamat & kar(i) & ".wav", AudioPlayMode.WaitToComplete)
        Next
        'Call sndPlaySound(alamat & "loket.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "loket.wav", AudioPlayMode.WaitToComplete)
    End Sub

'untuk mengulang bunyi yang telah di panggil sebelumnya
    Sub Ulang(ByVal nomor As String, ByVal nom As String)
        Dim kar() As String
        kar = Split(nom, " ")
        ' Call sndPlaySound(alamat & "nomor-urut.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "nomor-urut.wav", AudioPlayMode.WaitToComplete)
        For i = LBound(kar) To UBound(kar)
            'Call sndPlaySound(alamat & kar(i) & ".wav", SND_NOSTOP)
            My.Computer.Audio.Play(alamat & kar(i) & ".wav", AudioPlayMode.WaitToComplete)
        Next
        ' Call sndPlaySound(alamat & "loket.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "loket.wav", AudioPlayMode.WaitToComplete)
        'Call sndPlaySound(alamat & nomor & ".wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & nomor & ".wav", AudioPlayMode.WaitToComplete)
    End Sub

'memanggil bunyi loket 1 pada file satu.wav
    Sub Loket1()
        Call Bunyi()
        'Call sndPlaySound(alamat & "satu.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "satu.wav", AudioPlayMode.WaitToComplete)
    End Sub

'untuk memanggil loket2 pada file dua.wav
    Sub Loket2()
        Call Bunyi()
        'Call sndPlaySound(alamat & "dua.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "dua.wav", AudioPlayMode.WaitToComplete)
    End Sub

    Sub Loket3()
        Call Bunyi()
        'Call sndPlaySound(alamat & "tiga.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "tiga.wav", AudioPlayMode.WaitToComplete)
    End Sub
    Sub Loket4()
        Call Bunyi()
        'Call sndPlaySound(alamat & "empat.wav", SND_NOSTOP)
        My.Computer.Audio.Play(alamat & "empat.wav", AudioPlayMode.WaitToComplete)
    End Sub
#End Region

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If Asc(e.KeyChar) = 49 Then
            Call Button1_Click(sender, New System.EventArgs())
        End If
        If Asc(e.KeyChar) = 50 Then
            Call Button5_Click(sender, New System.EventArgs())
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
        no = 0
        alamat = My.Application.Info.DirectoryPath & "\sounds\ladies\"
        Sounds(1) = alamat & "satu.wav"
        Sounds(2) = alamat & "dua.wav"
        Sounds(3) = alamat & "tiga.wav"
        Sounds(4) = alamat & "empat.wav"
        Sounds(5) = alamat & "lima.wav"
        Sounds(6) = alamat & "enam.wav"
        Sounds(7) = alamat & "tujuh.wav"
        Sounds(8) = alamat & "delapan.wav"
        Sounds(9) = alamat & "sembilan.wav"
        Sounds(10) = alamat & "sepuluh.wav"
        Sounds(11) = alamat & "sebelas.wav"
        Sounds(12) = alamat & "puluh.wav"
        Sounds(13) = alamat & "ratus.wav"
        Sounds(14) = alamat & "belas.wav"
        Sounds(15) = alamat & "nomor-urut.wav"
        Sounds(16) = alamat & "loket.wav"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        no = no + 1
        TA1.Text = no
        thuruf.Text = Trim(Terbilang(TA1.Text))
        TH1.Text = Trim(Terbilang(TA1.Text))
        Call Loket1()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Ulang("satu", TH1.Text)
    End Sub

    Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        alamat = My.Application.Info.DirectoryPath & "\sounds\eli\"
    End Sub
End Class



Inti dari pembuatan aplikasi ini adalah memanggil file suara dan menghitung karakter agar saat karakter dari angka antrian yang muncul sesuai dengan file suara yang dipanggil.
saya terinspirasi dari file alarm yang pernah saya posting di Academiaedu
karena banyak yang request filenya maka, ini saya bagi link downloadnya untuk kalian. Dibawah ini adalah link download source codenya yang sudah saya perbaiki, silahkan coba di download kalau tidak berfungsi linknya bisa langsung komen di bawah ya:

DOWNLOAD ANTRIAN SUARA VB.NET

Pastikan sampai pada halaman uploadboy untuk mendownload, dan klik link yang dilingkaran merah.

selamat mendownload dan semoga bermanfaat. :) bisa message ke saya ya kalau link downloadnya tidak berfungsi.