DOWNLOAD SOURCECODE APLIKASI ANTRIAN BANK DISINI

Sourcecode Aplikasi Antrian Bank

Langkah-langkah membuat aplikasi antrian Bank

1. Buka Aplikasi Visual Basic 0.6 pada komputer anda kemudian tambahkan modul, lalu copaskan coding berikut ini pada modul yang sudah ada.

Public Const SND_NOSTOP = &H10

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

   

Public Function Bilang(Value As Long) As String

   Select Case Value

      Case 0: Bilang = ""

      Case 1: Bilang = " Satu"

      Case 2: Bilang = " Dua"

      Case 3: Bilang = " Tiga"

      Case 4: Bilang = " Empat"

      Case 5: Bilang = " Lima"

      Case 6: Bilang = " Enam"

      Case 7: Bilang = " Tujuh"

      Case 8: Bilang = " Delapan"

      Case 9: Bilang = " Sembilan"

      Case 10: Bilang = " Sepuluh"

      Case 11: Bilang = " Sebelas"

      Case 12 To 19: Bilang = Bilang(Value Mod 10) & " Belas"

      Case 20 To 99: Bilang = Bilang(Int(Value / 10)) & " Puluh" & Bilang(Value Mod 10)

      Case 100 To 199: Bilang = " Seratus" & Bilang(Value Mod 100)

      Case 200 To 999: Bilang = Bilang(Int(Value / 100)) & " Ratus" & Bilang(Value Mod 100)

   End Select

End Function

1. Setelah itu buatlah form lalu kopikan coding berikut ini

Dim no As Integer

Dim Sounds(16), alamat As String

Sub Bunyi()

    Dim kar() As String

    kar = Split(thuruf.Text, " ")

    Call sndPlaySound(alamat & "nomor-urut.wav", SND_NOSTOP)

    For i = LBound(kar) To UBound(kar)

        Call sndPlaySound(alamat & kar(i) & ".wav", SND_NOSTOP)

    Next

    Call sndPlaySound(alamat & "loket.wav", SND_NOSTOP)

End Sub

Sub Ulang(nomor As String, nom As String)

    Dim kar() As String

    kar = Split(nom, " ")

    Call sndPlaySound(alamat & "nomor-urut.wav", SND_NOSTOP)

    For i = LBound(kar) To UBound(kar)

        Call sndPlaySound(alamat & kar(i) & ".wav", SND_NOSTOP)

    Next

    Call sndPlaySound(alamat & "loket.wav", SND_NOSTOP)

    Call sndPlaySound(alamat & nomor & ".wav", SND_NOSTOP)

End Sub

Sub Loket1()

  Call Bunyi

  Call sndPlaySound(alamat & "satu.wav", SND_NOSTOP)

End Sub

Sub Loket2()

  Call Bunyi

  Call sndPlaySound(alamat & "dua.wav", SND_NOSTOP)

End Sub

Sub Loket3()

  Call Bunyi

  Call sndPlaySound(alamat & "tiga.wav", SND_NOSTOP)

End Sub

Sub Loket4()

  Call Bunyi

  Call sndPlaySound(alamat & "empat.wav", SND_NOSTOP)

End Sub

Private Sub Command1_Click()

    no = no + 1

    TA1.Text = no

    thuruf.Text = Trim(Bilang(TA1.Text))

    TH1.Text = Trim(Bilang(TA1.Text))

    Call Loket1

End Sub

Private Sub Command2_Click()

    no = no + 1

    TA2.Text = no

    thuruf.Text = Trim(Bilang(TA2.Text))

    TH2.Text = Trim(Bilang(TA2.Text))

    Call Loket2

End Sub

Private Sub Command3_Click()

    no = no + 1

    TA3.Text = no

    thuruf.Text = Trim(Bilang(TA3.Text))

    TH3.Text = Trim(Bilang(TA3.Text))

    Call Loket3

End Sub

Private Sub Command4_Click()

    no = no + 1

    TA4.Text = no

    thuruf.Text = Trim(Bilang(TA4.Text))

    TH4.Text = Trim(Bilang(TA4.Text))

    Call Loket4

End Sub

Private Sub Command5_Click()

 Ulang "satu", TH1.Text

End Sub

Private Sub Command6_Click()

 Ulang "dua", TH2.Text

End Sub

Private Sub Command7_Click()

  Ulang "tiga", TH3.Text

End Sub

Private Sub Command8_Click()

 Ulang "empat", TH4.Text

End Sub

Private Sub Form_Load()

   no = 0

   alamat = App.Path & "\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 op1_Click()

  alamat = App.Path & "\sounds\iyan\"

End Sub

Private Sub op2_Click()

  alamat = App.Path & "\sounds\asli\"

End Sub

Private Sub Option1_Click()

  alamat = App.Path & "\sounds\eli\"

End Sub

DOWNLOAD SOURCECODE APLIKASI ANTRIAN BANK DISINI