Aplikasi Antrian Sederhana Dengan Delphi

Saat ini kita tidak asing dengan adanya sistem antrian di beberapa tempat umum seperti Bank, Rumah Sakit, maupun Kantor Samsat. Adanya sistem tersebut pastinya mempermudah para karyawan di bagian pelayanan, karena mereka tidak harus memanggil satu persatu pengunjung yang mengantri.
Nah, kali ini kami akan membagikan bagaimana membuat pemanggilan antrian dengan bahasa pemrograman Delphi. Perlu diketahui sebelumnya, bahwa aplikasi ini hanya untuk melakukan pemanggilan saja.
Secara umum, konsepnya hampir sama dengan membuat audio player, hanya saja aplikasi ini tidak memerlukan komponen media player. Oh iya, kami menggunakan Delphi XE7. Akan tetapi secara umum bisa diimplementasikan di Delphi yang lain.
- Pastikan dulu anda menambahkan MMSystem dan StrUtils pada uses di project delphi anda. Kemudian buat form sesuai kebutuhan.
- Tambahkan komponen Timer. Timer ini digunakan untuk menampilkan tanggal secara otomatis. 
- Klik 2 kali pada timer, dan tambahkan source code berikut:
begin
  Panel8.Caption:=formatdatetime('dd/mm/yyyy',now);//panel menampilkan tanggal
  Panel8.Refresh;
  panel10.Caption:=IntToStr(StrToInt(Panel6.Caption)+1);//panel menampilkan antrian selanjutnya
  Panel10.Refresh;
end;

- Buat procedure Panggil() di dalam project.
procedure TForm1.Panggil();
var
  no_urut:Integer;
  len_nomor:Integer;
  no_kanan:Integer;
  no_kiri:Integer;
begin
    no_urut:=StrToInt(Panel6.Caption);
    len_nomor:=Length(IntToStr(no_urut));

    PlaySound('D:\antrian\suara\in.wav', 0,SND_FILENAME);
    PlaySound('D:\antrian\suara\nomor-urut.wav', 0,SND_FILENAME);

    //Analisa Nomor Antrian
    if(len_nomor=1) then
      PlaySound(PWideChar('D:\antrian\suara\'+IntToStr(no_urut)+'.wav'),0,SND_FILENAME)
    else if (len_nomor=2) then
    begin
      if (no_urut=10) then
        PlaySound('D:\antrian\suara\10.wav', 0,SND_FILENAME)
        else if (no_urut=11) then
          PlaySound('D:\antrian\suara\11.wav', 0,SND_FILENAME)
        else if (LeftStr(IntToStr(no_urut),1)='1') then
        begin
          no_kanan:=StrToInt(RightStr(IntToStr(no_urut),1));
          PlaySound(PWideChar('D:\antrian\suara\'+IntToStr(no_kanan)+'.wav'),0,SND_FILENAME);
          PlaySound('D:\antrian\suara\belas.wav', 0,SND_FILENAME);
        end
        else if (RightStr(IntToStr(no_urut),1)='0') then
        begin
          no_kiri:=StrToInt(LeftStr(IntToStr(no_urut),1));
          PlaySound(PWideChar('D:\antrian\suara\'+IntToStr(no_kiri)+'.wav'),0,SND_FILENAME);
          PlaySound('D:\antrian\suara\puluh.wav', 0,SND_FILENAME);
        end
        else
        begin
          no_kiri:=StrToInt(LeftStr(IntToStr(no_urut),1));
          no_kanan:=StrToInt(RightStr(IntToStr(no_urut),1));
          PlaySound(PWideChar('D:\antrian\suara\'+IntToStr(no_kiri)+'.wav'),0,SND_FILENAME);
          PlaySound('D:\antrian\suara\puluh.wav', 0,SND_FILENAME);
          PlaySound(PWideChar('D:\antrian\suara\'+IntToStr(no_kanan)+'.wav'),0,SND_FILENAME);
        end;
    end
    else if (no_urut=100) then
    PlaySound('D:\antrian\suara\seratus.wav', 0,SND_FILENAME);
    PlaySound('D:\antrian\suara\loket.wav', 0,SND_FILENAME);
    PlaySound('D:\antrian\suara\3.wav', 0,SND_FILENAME);
    PlaySound('D:\antrian\suara\out.wav', 0,SND_FILENAME);

end;

- Tambahkan source code pada tombol Panggil Selanjutnya
procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel6.Caption:=IntToStr(StrToInt(Panel6.Caption)+1);
  Panggil();
end;

- Tambahkan source code pada tombol Panggil Ulang
procedure TForm1.Button2Click(Sender: TObject);
begin
  Panggil();
end;

- Tambahkan source code pada set Antrian Manual
procedure TForm1.Button4Click(Sender: TObject);
begin
  panel6.Caption:=Edit1.Text;
end;


Untuk source code lengkap penjelasan silahkan hubungi 081229206922 (free).

Posting Komentar

0 Komentar