Nah sesuai yang sudah dijanjikan ke pembaca yang budiman. maka tulisan mengenai Aplikasi Antrian Kantor menggunakan Winsock VB6 kita mulai. Ceritanya begini, sebelumnya ini customer sudah punya mesin antrian menggunakan touchscreen, pos printer, display menggunakan 7 segmen. Lantas tiba2 programnya ngga bisa dipakai. Lalu dengan bekal sedikit pengetahuan VB6 dan koneksi internet untuk konsultasi dengan si mbah google maka dengan percaya diri (plus sedikit BONEK) menawarkan diri ke ini Kantor. Begitulah sob awal mula di developnya program ini.
So selanjutnya, what do we need ??? first of all tentu
- Microsoft Visual Basic 6.0 (Nggak ikut punya software soalnya minta belikan kantor , kebetulan baru belajar coding ya cuman nih. Jadi malu).
- SQL Server ?? * opsional deh, kalo mau dipakai ya boleh, tapi untuk aplikasi ini ngga pakai program nih sebab nih aplikasi kondisi darurat harus segera dipakai karena program sebelumnya nggak jalan.
- Notepad (jangan anggap remeh nih program).
- Printer POS (buat cetak Nomer Antrian)
- Layar Sentuh (Monitor Touchscreen) buat Nasabah
Alhamdulillah ! Kebetulan nomer 5-6 sudah tersedia dari Aplikasi yang sebelumnya, tinggal cari codingnya nih hehehe.
a. PC Server :
Komputer ini bisa dipakai juga untuk display ke Nasabah (pake Tipi yang gede), Terdapat data yang sudah dipanggil
b. PC Ticket :
Komputer ini untuk ngeluarin ticket, juga terdapat data yang daftar tunggu dan nomer antrian terakhir yang akan dicetak (spt Gambar). Monitor touchscreen, Printer POS diaplikasikan di PC ini.
c. PC Client : Yang dipakai untuk CS, Teller Kasir dan lain-lain (kalau PC yang ini gak ada suruh tutup aja kantor -nya …. emang mau transaksi pakai apa ??? hehehe)
Gambar client
Pembahasan :
ada 3 Coding untuk masing-masing bagian (Server, Ticket, dan User)
________
catatan : Server dan Ticket sebenarnya bisa digabung cuman ternyata pengaruh dari sound-nya ke Ticketing. Ticket nggak bisa dipencet sampe soundnya selesai. Nah lo !!!
Flowchart (alur cerita) :
Pertama : Aktifkan Winsock Server sebagai Host (
With Winsock1(0)
.Close
.LocalPort = LOCAL_PORT
.Listen
End With
kemudian ambil data-data yang akan dipergunakan untuk proses antrian :
Pertama : ambil data panggil.txt (data yang sudah dipanggil oleh para CS dan Kasir)
codenya :
Open “C:\Siera\panggil.txt” For Input As #FF
Line Input #FF, strLine1 ‘—- bagian Kasir Loket 1
Line Input #FF, strLine2 ‘—- bagian Kasir Loket 2
Line Input #FF, strLine3 ‘—- bagian Kasir Loket 3
Line Input #FF, strLine4 ‘—- bagian Kasir Loket 4
…dst
Close #FF
Kedua : ambil data ticket.txt (data nomer terakhir dan yang sedang menunggu)
format teks ana :
KS:010 ‘ nomer antrian terakhir untuk Kasir yang sudah tercetak adalah 10
CS:522 ‘ nomer antrian terakhir untuk CS yang sudah tercetak adalah 522 (batas nomer Kasir adalah 499)
….. dan bagian-bagian lain
NKS008 ‘sedang menunggu dipanggil Kasir adalah 8 orang (berarti yang sudah dilayani ada 2 orang ye ????)
NCS021 ‘sedang menunggu dipanggil CS adalah 21 orang (berarti yang sudah dilayani ada 1 orang ye ????)
….. dan bagian-bagian lain
Kodingnya :
Open “\\127.29.18.170\ticket.txt” For Input As #FF ‘PC Ticket IP-nya \\127.29.18.170
Line Input #FF, strtunggu1
Line Input #FF, strtunggu2
Line Input #FF, strtunggu3
Line Input #FF, strtunggu4
Line Input #FF, strtunggu5
Line Input #FF, strtunggu6
Line Input #FF, strtunggu7
Line Input #FF, strtunggu8
Close #FF
codenya :
Open “C:\Siera\panggil.txt” For Input As #FF
Line Input #FF, strLine1 ‘—- bagian Kasir Loket 1
Line Input #FF, strLine2 ‘—- bagian Kasir Loket 2
Line Input #FF, strLine3 ‘—- bagian Kasir Loket 3
Line Input #FF, strLine4 ‘—- bagian Kasir Loket 4
…dst
Close #FF
With Winsock1(0)
.Close
.LocalPort = LOCAL_PORT
.Listen
End With
Bagian Pertama dah kelar kita bahas ……………… break dulu yah (insyallah ada sambungannya)
Alhamdulillahirabbil alamin.
Wallahua’lam bishowab.
