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