Peraturan & Tata tertib
Kategori Artikel
- SMS Server (5)
- aplikasi opensource (5)
- Billing Warnet (3)
- Barcode (2)
- Others (2)
- sistem parkir (2)
- Webcam (1)
Selasa, 2009 Februari 17
Kategori Artikel Baru
Assalamu'alaikum wr. wb,
Mohon pendapat temen-temen smua yach...
Setujukah Kamu jika aku buatkan satu kategori artikel lagi untuk menampung Aplikasi yang sifatnya komersil disajikan dengan sourcecode dan penjelasannya?
Pada kategori ini, aku share aplikasi yg udah jadi, baik untuk dipelajari, telah dikemas dengan petunjuk instalasi, penggunaan, sourcecode, dan penjelasannya. Kamu juga bisa tanya2 tentang aplikasi2 tersebut di blog ini. Tidak menutup kemungkinan untuk bug tracing dari temen2 juga.
Paket ini juga bisa dikirim via CD ke lokasi kamu tentunya dengan disertakan ongkos kirim secukupnya.
Wassalam,
Arnie
Mohon pendapat temen-temen smua yach...
Setujukah Kamu jika aku buatkan satu kategori artikel lagi untuk menampung Aplikasi yang sifatnya komersil disajikan dengan sourcecode dan penjelasannya?
Pada kategori ini, aku share aplikasi yg udah jadi, baik untuk dipelajari, telah dikemas dengan petunjuk instalasi, penggunaan, sourcecode, dan penjelasannya. Kamu juga bisa tanya2 tentang aplikasi2 tersebut di blog ini. Tidak menutup kemungkinan untuk bug tracing dari temen2 juga.Paket ini juga bisa dikirim via CD ke lokasi kamu tentunya dengan disertakan ongkos kirim secukupnya.
Wassalam,
Arnie
Kamis, 2008 Desember 04
Contoh Tray Icons Sederhana
Beberapa hari yg lalu Temen aku tanya tentang VB, sayangnya pertanyaannya di luar topik bahasan Blog aku. Blog aku hanya membahas SMS Server, Webcam, Barcode, Billing warnet dan Sistem parkir. So, setelah dipikir-pikir kayaknya blog aku ok juga kalo bisa sedikit membantu teman2 menyediakan wadah pertanyaan seputar VB di luar pokok bahasan... Rencananya aku mau kasih label 'Other'.
Salah satu pertanyaannya adalah
"Mbak punya contoh aplikasi VB untuk TrayIcon, mbak pernah jalankan Portabel Office ?, sintax trayicon-nya gimane menampilkan "Starting" ato pada saat di open Portabel Office trayicon memunculkan pesan "Selamat Datang". Mohon bantuannya, trims."
yang aku tangkep idenya adalah tray icons itu gimana sich... Tray itu maksudnya System tray nya windows, bagaimana menempatkan icons di system tray windows. Biasanya kalo blom diubah2 lho yach.. itu adanya di pojok kanan bawah desktop kamu. Tempatnya sama dengan jamnya windows kamu. Aku kasih contoh aja programnya yang sangat2 sederhana modifikasi dari internet juga. Sangat mendasar tapi cukup hebat sehingga dapat memotivasi temen2 untuk blajar.
File Download :
>>Tray Icons Sederhana
Password : sholat
Segitu dulu yach... Smoga membantu...
Salah satu pertanyaannya adalah
"Mbak punya contoh aplikasi VB untuk TrayIcon, mbak pernah jalankan Portabel Office ?, sintax trayicon-nya gimane menampilkan "Starting" ato pada saat di open Portabel Office trayicon memunculkan pesan "Selamat Datang". Mohon bantuannya, trims."
yang aku tangkep idenya adalah tray icons itu gimana sich... Tray itu maksudnya System tray nya windows, bagaimana menempatkan icons di system tray windows. Biasanya kalo blom diubah2 lho yach.. itu adanya di pojok kanan bawah desktop kamu. Tempatnya sama dengan jamnya windows kamu. Aku kasih contoh aja programnya yang sangat2 sederhana modifikasi dari internet juga. Sangat mendasar tapi cukup hebat sehingga dapat memotivasi temen2 untuk blajar.
File Download :
>>Tray Icons Sederhana
Password : sholat
Segitu dulu yach... Smoga membantu...
Selasa, 2008 Desember 02
Mencetak Barcode 1 Dimensi dengan PictureBox
Melanjutkan tulisan aku yg dulu... hehehe... abis dah lama banget aku lupa tuh lanjutin tulisannya lagi... Secara gitu loh banyak juga yang minta aku ngelanjutin cetak barcode ini pake vb cepet2 diupload di blog. hmm. Alhamdulillah baru ini deh aku sempet nulis lagi.. Maklum dah sering ke dokter nih tunggu tanggal mainnya.
Nah ini contoh program barcode yang bisa print. Memang sangat sederhana tapi cukup hebat untuk merangsang temen2 membuat yang lebih ok lagi...
Selamat mencoba.
File Download :
>>Cetak Barcode
>>Password : sholat
wass.
Arnie
Nah ini contoh program barcode yang bisa print. Memang sangat sederhana tapi cukup hebat untuk merangsang temen2 membuat yang lebih ok lagi...
Selamat mencoba.
File Download :
>>Cetak Barcode
>>Password : sholat
wass.
Arnie
Jumat, 2008 November 21
Yuk Kita Bikin Billing Warnet Sendiri (3)
Pengaturan Waktu Billing Server Sederhana
Melanjutkan tulisan aku tempo hari, walaupun agak lambat progresnya.. hehehe... tapi insya Allah pasti nih.. doain aja yach... Idenya kali ini aku mau bikin pengaturan waktu dengan cara mengambil waktu windows terkini dan kemudian timer menambahkannya setiap detik. Kalo
pewaktuan ini sudah berjalan dengan baik, maka kita bisa konversikan ke nilai uang, diskon, atau pun minimal pemakaian. Model pewaktuan yg kita gunakan adalah dalam satuan detik. So, kalo kamu mau tentuin satuannya adalah menit harus konversi lebih lanjut dimana 1 menit sama dengan 60 detik. jadi selama belum satu menit maka pulsa belum jalan atau belum bertambah. Nah, satuannya untuk konversi ke uang kita pake pulsa aja. jgn menit atau detik yach. Nanti kita atur aja 1 pulsa itu untuk member tertentu berapa menit minimalnya. maksudnya kalo dah sampe 'n' menit maka pulsa baru bertambah. Trus jgn lupa juga, 1 pulsanya ditampilkan terlebih dahulu pada detik pertama. hehehe. yach biar yg baru pake kurang dari satu pulsa tetep bayar 1
pulsa dong... hihihi...
Bahasa Vb nya sich gak sulit2 banget kayaknya. VB dah nyediain komponen dan fungsinya lengkap. Kamu gak perlu lagi pake komponen di luar VB. sip kan? Kali ini kita bikin billing server sederhana dengan 12 clients yang dapat menampilkan pulsa yang berjalan dan sekaligus bisa distop secara manual. Indikator warna yang aku pake merah brarti gak ada yg pake, trus kuning lagi dipake, trus kalo hijau udahan.
Fungsi2 yang ada sebagai berikut :
1. Mulai menghitung, dalam fungsi ini perhitungan dimulai untuk display client tertentu. So, kamu harus tentukan dulu display yang mana yang mau dimulai perhitungannya. Fungsinya adalah sebagai berikut :
Private Sub Mulai(indeKs As Integer)
On Error GoTo erh
konterNya(indeKs) = 1
faktorNya(indeKs) = 60 * MenitUlang(Index)
strDate(indeKs) = Now()
Timer1(indeKs).Enabled = True
Nonota(indeKs).Caption = indeks & Format(strDate(indeKs), "ddmmyyhhmmss")
Frame1(indeKs).BackColor = &HC000& 'IJO
Exit Sub
erh:
MsgBox err.Description
End Sub
2. Stop, berfungsi untuk menghentikan timer perhitungan. Kode vb nya adalah sebagai berikut :
Private Sub Brenti(indeKs As Integer)
On Error GoTo erh
Timer1(indeKs).Enabled = False
Frame1(indeKs).BackColor = &H80FFFF 'kuning
Exit Sub
erh:
MsgBox err.Description
End Sub
3. Timer perhitungan, berfungsi menghitung pulsa berjalan. Kode vb nya sebagai berikut :
Private Sub Timer1_Timer(Index As Integer)
On Error GoTo erh
konterNya(Index) = konterNya(Index) + 1
currDate(Index) = DateAdd("s", konterNya(Index), strDate(Index))
PulsaNya(Index) = IIf(konterNya(Index) / faktorNya(Index) - Int(konterNya(Index) / faktorNya(Index)) < caption =" strDate(Index)" caption =" currDate(Index)" caption =" ConvertSeconds(konterNya(Index))" caption = "(1 pulsa="> " & PulsaNya(Index)
lblBesarUang(Index).Caption = Format(subtotalNya(Index), "##,0")
Exit Sub
erh:
MsgBox err.Description
End Sub
4. Print Nota, berfungsi untuk mencetak nota display yang diinginkan. Kode vb nya sebagai berikut :
Sub printNota(indeksNya As Integer)
On Error GoTo erh
Printer.FontSize = 8
' Printer.PaperSize = 256
Printer.Print "Warnetxx"
Printer.Print "Tomang Tinggi xxx"
Printer.Print ""
Printer.Print "No nota : " & Nonota(indeksNya)
Printer.Print ""
Printer.Print "User : " & User(indeksNya).Caption
Printer.Print "Komputer : " & NKomp(indeksNya).Caption
Printer.Print "IP : " & IP(indeksNya).Caption
Printer.Print "Start Time : " & StartTime(indeksNya).Caption
Printer.Print "End Time : " & EndTime(indeksNya).Caption
Printer.Print "Duration : " & lblDurasiLembur(indeksNya).Caption
Printer.Print "Rate : " & RateUser(indeksNya).Caption
Printer.Print "Subtotal : " & lblBesarUang(indeksNya).Caption
Printer.Print " "
Printer.Print ":) " & LoginName
Printer.Print " "
Printer.Print " "
Printer.EndDoc
Exit Sub
erh:
MsgBox err.Description
End Sub
Kode program vb ini hanyalah dasar dari billing server sederhana, aku bikin hanya untuk memberikan gambaran bagaimana cara kerja billing server tsb. Beberapa parameter adalah perumpamaan seperti perhitungan 1 pulsa adalah setiap 15 menit dimana 1 pulsa harganya 1250 rupiah. User2 yang diwakilkan dengan no display pada program diset sebagai 'Guest'. Pada pembahasan selanjutnya di artikel mendatang aku bahas lebih dalam Billing server ini disesuaikan dengan fitur yang diinginkan pada tulisan aku sebelumnya. Perumpamaan2 diganti dengan program sesungguhnya. Sampe sini dulu yach. Nti kapan2 aku lanjutin lagi deh ngetiknya.. capek boo... Gratis gitu loh.... Aku cuma butuh komentar kamu trus jangan lupa isi pollingnya yach..
File Download :
>>Biling Server Sederhana
>>Password : sholat
Wass,
Arnie.
Melanjutkan tulisan aku tempo hari, walaupun agak lambat progresnya.. hehehe... tapi insya Allah pasti nih.. doain aja yach... Idenya kali ini aku mau bikin pengaturan waktu dengan cara mengambil waktu windows terkini dan kemudian timer menambahkannya setiap detik. Kalo
pewaktuan ini sudah berjalan dengan baik, maka kita bisa konversikan ke nilai uang, diskon, atau pun minimal pemakaian. Model pewaktuan yg kita gunakan adalah dalam satuan detik. So, kalo kamu mau tentuin satuannya adalah menit harus konversi lebih lanjut dimana 1 menit sama dengan 60 detik. jadi selama belum satu menit maka pulsa belum jalan atau belum bertambah. Nah, satuannya untuk konversi ke uang kita pake pulsa aja. jgn menit atau detik yach. Nanti kita atur aja 1 pulsa itu untuk member tertentu berapa menit minimalnya. maksudnya kalo dah sampe 'n' menit maka pulsa baru bertambah. Trus jgn lupa juga, 1 pulsanya ditampilkan terlebih dahulu pada detik pertama. hehehe. yach biar yg baru pake kurang dari satu pulsa tetep bayar 1
pulsa dong... hihihi...
Bahasa Vb nya sich gak sulit2 banget kayaknya. VB dah nyediain komponen dan fungsinya lengkap. Kamu gak perlu lagi pake komponen di luar VB. sip kan? Kali ini kita bikin billing server sederhana dengan 12 clients yang dapat menampilkan pulsa yang berjalan dan sekaligus bisa distop secara manual. Indikator warna yang aku pake merah brarti gak ada yg pake, trus kuning lagi dipake, trus kalo hijau udahan.
Fungsi2 yang ada sebagai berikut :
1. Mulai menghitung, dalam fungsi ini perhitungan dimulai untuk display client tertentu. So, kamu harus tentukan dulu display yang mana yang mau dimulai perhitungannya. Fungsinya adalah sebagai berikut :
Private Sub Mulai(indeKs As Integer)
On Error GoTo erh
konterNya(indeKs) = 1
faktorNya(indeKs) = 60 * MenitUlang(Index)
strDate(indeKs) = Now()
Timer1(indeKs).Enabled = True
Nonota(indeKs).Caption = indeks & Format(strDate(indeKs), "ddmmyyhhmmss")
Frame1(indeKs).BackColor = &HC000& 'IJO
Exit Sub
erh:
MsgBox err.Description
End Sub
2. Stop, berfungsi untuk menghentikan timer perhitungan. Kode vb nya adalah sebagai berikut :
Private Sub Brenti(indeKs As Integer)
On Error GoTo erh
Timer1(indeKs).Enabled = False
Frame1(indeKs).BackColor = &H80FFFF 'kuning
Exit Sub
erh:
MsgBox err.Description
End Sub
3. Timer perhitungan, berfungsi menghitung pulsa berjalan. Kode vb nya sebagai berikut :
Private Sub Timer1_Timer(Index As Integer)
On Error GoTo erh
konterNya(Index) = konterNya(Index) + 1
currDate(Index) = DateAdd("s", konterNya(Index), strDate(Index))
PulsaNya(Index) = IIf(konterNya(Index) / faktorNya(Index) - Int(konterNya(Index) / faktorNya(Index)) < caption =" strDate(Index)" caption =" currDate(Index)" caption =" ConvertSeconds(konterNya(Index))" caption = "(1 pulsa="> " & PulsaNya(Index)
lblBesarUang(Index).Caption = Format(subtotalNya(Index), "##,0")
Exit Sub
erh:
MsgBox err.Description
End Sub
4. Print Nota, berfungsi untuk mencetak nota display yang diinginkan. Kode vb nya sebagai berikut :
Sub printNota(indeksNya As Integer)
On Error GoTo erh
Printer.FontSize = 8
' Printer.PaperSize = 256
Printer.Print "Warnetxx"
Printer.Print "Tomang Tinggi xxx"
Printer.Print ""
Printer.Print "No nota : " & Nonota(indeksNya)
Printer.Print ""
Printer.Print "User : " & User(indeksNya).Caption
Printer.Print "Komputer : " & NKomp(indeksNya).Caption
Printer.Print "IP : " & IP(indeksNya).Caption
Printer.Print "Start Time : " & StartTime(indeksNya).Caption
Printer.Print "End Time : " & EndTime(indeksNya).Caption
Printer.Print "Duration : " & lblDurasiLembur(indeksNya).Caption
Printer.Print "Rate : " & RateUser(indeksNya).Caption
Printer.Print "Subtotal : " & lblBesarUang(indeksNya).Caption
Printer.Print " "
Printer.Print ":) " & LoginName
Printer.Print " "
Printer.Print " "
Printer.EndDoc
Exit Sub
erh:
MsgBox err.Description
End Sub
Kode program vb ini hanyalah dasar dari billing server sederhana, aku bikin hanya untuk memberikan gambaran bagaimana cara kerja billing server tsb. Beberapa parameter adalah perumpamaan seperti perhitungan 1 pulsa adalah setiap 15 menit dimana 1 pulsa harganya 1250 rupiah. User2 yang diwakilkan dengan no display pada program diset sebagai 'Guest'. Pada pembahasan selanjutnya di artikel mendatang aku bahas lebih dalam Billing server ini disesuaikan dengan fitur yang diinginkan pada tulisan aku sebelumnya. Perumpamaan2 diganti dengan program sesungguhnya. Sampe sini dulu yach. Nti kapan2 aku lanjutin lagi deh ngetiknya.. capek boo... Gratis gitu loh.... Aku cuma butuh komentar kamu trus jangan lupa isi pollingnya yach..
File Download :
>>Biling Server Sederhana
>>Password : sholat
Wass,
Arnie.
Rabu, 2008 November 19
Yuk Kita Bikin Billing Warnet Sendiri (2)
Fitur-fitur Aplikasi Billing Warnet
Melanjutkan pokok bahasan kita yg lalu, sebelum melangkah pembuatan program billing warnet kita harus tahu dan mengerti betul apa yg akan kita buat. Minimal fitur-fitur apa saja yang harus ada di aplikasi kita. Idenya kali ini adalah mendaftarkan fitur-fitur aplikasi billing warnet yang biasanya ada sebagai berikut:
Fitur2 ini hasil pengamatan ke warnet-warnet terhadap software2 mereka. Karena rata2 mirip2 so, aku ambil sampel aja kayak di bawah ini deh,
1. Pengelompokan pelanggan berdasar tipe keanggotan (member)
2. Diskon. Masing-masing keanggotaan dapat diperlakukan besar diskon yang berbeda-beda, misal:
- UMUM: discount 0%
- SILVER:discount 10%, minimal voucher Rp. 10000
- GOLD:disconut 15%, minimal voucher Rp. 25000
- HappyHour, dapat diatur beban potongan/discount untuk jam yang berbeda-beda, misal:
3. Tarif. Masing-masing pc.klien bisa beda-beda, misal:
5. AutoLock (optional), pc.klien otomatis terkunci ketika user logout.
6. AutoPrint (optional), otomatis cetak nota saat user logout.
7. ReLogin, apabila salah satu server/klien billing restart/reboot. Dengan tarif tetap dilanjutkan seperti sebelumnya.
8. Tidak menggunakan file sharing sama sekali. Koneksi menggunakan protokol TCP/IP dengan port yang bisa ditentukan sendiri. Dapat mengirim file antar klien dan server atau sebaliknya.
Segitu dulu deh fiturnya. Kalo kebanyakan soalnya nti gak semangat bikinnya. Udah nyerah duluan.. hehehe. Kalo kita lihat fitur di atas, ujung-ujungnya nih, duit yg keluar dihitung berdasarkan waktu (time based). Nah, kalo aku ngeliat sich secara gitu loh aku ini pelanggan warnet yang setia, ada waktu di mana operator bisa ngakalin jam windows. So, pinter2nya kita deh. kalo gak jam windowsnya di lock atau pas mulai perhitungan ngambil jam windows trus perhitungan waktunya jangan ngambil jam lagi tapi kalo bisa jam berikutnya adalah jam awal ditambah detik yang kita bikin sendiri pake object timernya vb. So, kalo pas software ngitung, trus jam windowsnya diganti si operator jadinya gak ngaruh kaleee... Nah, kalo dari sisi pelanggan nih... biasanya suka ngakalin ngerestart/reboot komputer secara paksa dengan cara mencet tombol power di komputernya. Mereka berharap billing akan relogin dengan perhitungan yg ngaco, atau perhitungan sebelumnya hilang. Atau mereka berharap koneksi billing ke klien terputus so kalo mereka udahan tapi billing masih jalan di server maka mereka bisa komplain gak mau bayar. Yach pokoknya banyak cara deh.. Ribet kan...
Segini dulu yach... Insya Allah pada topik pembahasan selanjutnya kita langsung membahas pake vb. Biar ada yang bisa didownload dan di coba di rumah.. hehehe..
Wass,
Arnie
Melanjutkan pokok bahasan kita yg lalu, sebelum melangkah pembuatan program billing warnet kita harus tahu dan mengerti betul apa yg akan kita buat. Minimal fitur-fitur apa saja yang harus ada di aplikasi kita. Idenya kali ini adalah mendaftarkan fitur-fitur aplikasi billing warnet yang biasanya ada sebagai berikut:
Fitur2 ini hasil pengamatan ke warnet-warnet terhadap software2 mereka. Karena rata2 mirip2 so, aku ambil sampel aja kayak di bawah ini deh,
1. Pengelompokan pelanggan berdasar tipe keanggotan (member)
2. Diskon. Masing-masing keanggotaan dapat diperlakukan besar diskon yang berbeda-beda, misal:
- UMUM: discount 0%
- SILVER:discount 10%, minimal voucher Rp. 10000
- GOLD:disconut 15%, minimal voucher Rp. 25000
- HappyHour, dapat diatur beban potongan/discount untuk jam yang berbeda-beda, misal:
- 00.00-06.00: discount 25%
- 06.00-08.00: discount 10%
- 08.00-20.00: discount 0%
- 20.00-24.00: discount 25%
3. Tarif. Masing-masing pc.klien bisa beda-beda, misal:
- VIP.01: Rp. 100/menit, minimal pakai 10 menit
- KOM.01: Rp. 60/menit, minimal pakai 30 menit
5. AutoLock (optional), pc.klien otomatis terkunci ketika user logout.
6. AutoPrint (optional), otomatis cetak nota saat user logout.
7. ReLogin, apabila salah satu server/klien billing restart/reboot. Dengan tarif tetap dilanjutkan seperti sebelumnya.
8. Tidak menggunakan file sharing sama sekali. Koneksi menggunakan protokol TCP/IP dengan port yang bisa ditentukan sendiri. Dapat mengirim file antar klien dan server atau sebaliknya.
Segitu dulu deh fiturnya. Kalo kebanyakan soalnya nti gak semangat bikinnya. Udah nyerah duluan.. hehehe. Kalo kita lihat fitur di atas, ujung-ujungnya nih, duit yg keluar dihitung berdasarkan waktu (time based). Nah, kalo aku ngeliat sich secara gitu loh aku ini pelanggan warnet yang setia, ada waktu di mana operator bisa ngakalin jam windows. So, pinter2nya kita deh. kalo gak jam windowsnya di lock atau pas mulai perhitungan ngambil jam windows trus perhitungan waktunya jangan ngambil jam lagi tapi kalo bisa jam berikutnya adalah jam awal ditambah detik yang kita bikin sendiri pake object timernya vb. So, kalo pas software ngitung, trus jam windowsnya diganti si operator jadinya gak ngaruh kaleee... Nah, kalo dari sisi pelanggan nih... biasanya suka ngakalin ngerestart/reboot komputer secara paksa dengan cara mencet tombol power di komputernya. Mereka berharap billing akan relogin dengan perhitungan yg ngaco, atau perhitungan sebelumnya hilang. Atau mereka berharap koneksi billing ke klien terputus so kalo mereka udahan tapi billing masih jalan di server maka mereka bisa komplain gak mau bayar. Yach pokoknya banyak cara deh.. Ribet kan...
Segini dulu yach... Insya Allah pada topik pembahasan selanjutnya kita langsung membahas pake vb. Biar ada yang bisa didownload dan di coba di rumah.. hehehe..
Wass,
Arnie
Jumat, 2008 November 14
OKE GAK SICH PUNYA SMS SERVER (5)
Pada pokok bahasan kali ini aku mau tulis tentang program VB buat bantu kamu komunikasi dengan device kamu (HP/modem GSM). Ini hanya Hyperterminal kecil buat debugging program kamu. Di dalamnya gak ada tuh library kirim sms gimana atau baca sms. Tools ini sifatnya umum dan terbuka. So, kamu bisa ketik AT Command sesuka kamu dan kamu bisa lihat langsung respons dari device di layar. yach... mirip2 hyperterminal deh.
Komponen yang aku pergunakan masih sama dengan penjelasan artikel aku sebelumnya. Aku masih pake MsComm kok! Aku masih suka memanfaatkan event MsComm_onComm untuk memunculkan respons dari device. Kali ini respons tersebut aku tempatkan di Textbox dan aku tampilkan apa adanya tanpa di olah terlebih dahulu. Aku tidak melakukan pengolahan regex atau concatenation... ciee... bule banget sich istilahnya... so, untuk pengolahan lebih lanjut sebaiknya kamu bikin program kamu sendiri yach..
Cara Pake Programnya,
1. klik menu "CommPort", udah itu klik "properties". Jendela baru yg muncul adalah Properties untuk device kamu. Kamu tentukan deh device kamu itu nempel di Com brapa, Trus Speednya, databit, parity, dan stopbit. Kalo dah kelar klik "OK".
2. Nah, di bagian ini kamu tinggal pake Hyperterminal kecil ini. Tapi sebelumnya koneksinya di sambung dulu. Caranya klik "CommPort" trus lanjutin klik "Port Open". Maka nyambung atau tidaknya ketauan dari status di bawah atau image bulat di sudut kanan atas. Kalo nyambung warnanya Hijau tapi kalau putus warnanya merah. Cara lain untuk konek dan putus yaitu langsung klik image bulatnya. Gitu deh... Inget yach konek gaknya ditentukan properties yang kamu masukin sebelumnya.
3. Kalo dah konek, kamu tinggal ketik AT commandnya seperti di hyperterminal. Dari sini cara kerjanya sama dengan hyperterminal.
Kamu coba-coba deh. Dari sini smoga ada gambaran gimana caranya bikin sendiri program SMS Server kamu. Smoga berhasil yach... Insya Allah aku akan tulis lagi untuk pembahasan lanjut. Tapi aku blom tahu dan blom mood sampe sekarang nih. hehehe...
Download File :
>>Download Hyperterminal Aku di sini nih
>>Password : sholat
Wass.
Arnie
Komponen yang aku pergunakan masih sama dengan penjelasan artikel aku sebelumnya. Aku masih pake MsComm kok! Aku masih suka memanfaatkan event MsComm_onComm untuk memunculkan respons dari device. Kali ini respons tersebut aku tempatkan di Textbox dan aku tampilkan apa adanya tanpa di olah terlebih dahulu. Aku tidak melakukan pengolahan regex atau concatenation... ciee... bule banget sich istilahnya... so, untuk pengolahan lebih lanjut sebaiknya kamu bikin program kamu sendiri yach..
Cara Pake Programnya,
1. klik menu "CommPort", udah itu klik "properties". Jendela baru yg muncul adalah Properties untuk device kamu. Kamu tentukan deh device kamu itu nempel di Com brapa, Trus Speednya, databit, parity, dan stopbit. Kalo dah kelar klik "OK".
2. Nah, di bagian ini kamu tinggal pake Hyperterminal kecil ini. Tapi sebelumnya koneksinya di sambung dulu. Caranya klik "CommPort" trus lanjutin klik "Port Open". Maka nyambung atau tidaknya ketauan dari status di bawah atau image bulat di sudut kanan atas. Kalo nyambung warnanya Hijau tapi kalau putus warnanya merah. Cara lain untuk konek dan putus yaitu langsung klik image bulatnya. Gitu deh... Inget yach konek gaknya ditentukan properties yang kamu masukin sebelumnya.
3. Kalo dah konek, kamu tinggal ketik AT commandnya seperti di hyperterminal. Dari sini cara kerjanya sama dengan hyperterminal.
Kamu coba-coba deh. Dari sini smoga ada gambaran gimana caranya bikin sendiri program SMS Server kamu. Smoga berhasil yach... Insya Allah aku akan tulis lagi untuk pembahasan lanjut. Tapi aku blom tahu dan blom mood sampe sekarang nih. hehehe...
Download File :
>>Download Hyperterminal Aku di sini nih
>>Password : sholat
Wass.
Arnie
Rabu, 2008 November 12
OKE GAK SICH PUNYA SMS SERVER (4)
Utak-Atik SMS Mode Teks Dengan Visual Basic
Pada bahasan yang lalu kita dah maen-maen dan berkenalan erat sama hyperterminal. Idenya kali ini adalah mungkin gak sich kalo kita ganti hyperterminal dengan program kita sendiri. Jadi kita gak perlu lagi deh ketik sintaks yang ngejelimet, berulang-ulang and nyusahin bikin pusing kepala di hyperterminal. So pasti pake Visual Basic dong... Aku coba untuk membedah sintaks yang penting2 aja yach. Kalo masalah parsing dkk kamu pasti bisa deh sendiri. Banyak loh literaturnya. Yang penting kan bisa nyambung antara vb dan device kamu, trus bisa baca sms, kirim sms and jangan lupa bisa juga hapus sms. Kalo kita persempit lagi, secara teknis yang kita butuhin kan cuma gimana cara koneksinya, trus cara kirim perintah ke device dan terakhir gimana cara nangkep respons yang dikirim device. tul gak? Nah masalah pemrograman database untuk menyimpan data sms dari device atau data sms ke device kamu pikirin sendiri yach. Kalo sempet di bahasan selanjutnya aku kupas juga deh. hehehe.
Visual Basic punya komponen yang kerjanya mirip hyperterminal. Namanya MsComm. Nah, gak perlu repot kan?
Kali ini kita pake MsComm untuk utak-atik smsnya. So, jgn lupa di project VB kamu masukin dulu yach komponen MsCommnya. dah itu baru deh kita bisa mulai coding.
Koneksi ke Device
Kamu harus tentuin dulu port dan baud rate, parity, dan kon?gurasi lain yang digunakan oleh device kamu.
Di dalam bahasa Visual Basic, kurang lebih kode programnya akan seperti di bawah ini:
MSComm1.CommPort = 3
MSComm1.Settings = “115200,N,8,1”
MSComm1.PortOpen = True
Artinya,
- Baris 1: "3" itu maksudnya kamu melakukan hubungan ke device yang ada di Com3. Nah karenanya kita harus tahu HP/modem GSm kamu itu nempelnya di mana? eh gak ding. Nempelnya terserah, mo di slot USB kek atau di Slot serial yang penting windows ngebacanya sebagai Com brapa? Cek aja di Phone/Modem Setting di Control Panel.
- Baris 2: “115200,N,8,1” maksudnya device kamu disuruh bekerja dengan baud rate 115200, parity = N, databit = 8, dan stop bit =1. Parameter2 ini kamu bisa contek di Phone/Modem Setting di Control Panel. Itu kalo kalo device kamu dah kebaca sama windows. hehehe.
- Baris 3: "True" itu maksudnya koneksi dibuka. Berhasil atau tidaknya kita lihat dari respons "OK" atau "ERROR" seperti di hyperterminal. Kalo pake MsComm cara nangkepnya pake property Input. Property Output digunakan untuk memberikan command/perintah kepada device, sedangkan property Input menghasilkan data dari buffer penerima.
Mengirim AT Command ke Device
Tes Koneksi:
MSComm.Output = “AT” & Chr$(13)
Chr$(13) adalah Enter.
Masuk Mode Teks:
MSComm..Output = “AT+CMGF=1” & Chr$(13)
Kirim SMS:
MSComm.Output = “AT+CMGS=”6281316932077" & Chr$(13)
MSComm.Output = "Hello, welcome to our SMS tutorial" & Chr$(26)
"Chr$(26)" adalah Karakter "Ctrl+Z"
Terima SMS:
Untuk menerima SMS sama artinya dengan kita menangkap semua data yang masuk ke MsComm baik itu Telepon masuk, isi SMS, maupun respons "OK" dan "ERROR". Alhamdulillah MsComm memiliki event OnComm. Event ini mencatat semua data yang masuk ke MsComm. Nah pinter2nya kamu deh untuk parsing / memilah dan menyusun semua data yang masuk. Nah, untuk sms masuk:
MSComm.Output = “AT+CMGL=”ALL" & Chr$(13)
lalu ambil datanya di event OnComm seperti di bawah ini.
Private Sub MSComm_OnComm()
Dim stComChar As String * 1
Do
Loop Until MSComm.InBufferCount > 0
Do While MSComm.InBufferCount > 0
stComChar = MSComm.Input
tempBuffer = tempBuffer + stComChar
Loop
Debug.Print tempBuffer
End Sub
Kalo gak ada masalah, maka setiap kali SMS masuk (ataupun terjadi event lainnya seperti telpon masuk), maka event ini akan dijalankan dan program akan menuliskan isi dari data yang diterima. Sampe sini dulu yach. Ntar lanjut lagi pada pokok pembahasan yang lebih kompleks. Insya Allah...
Pada bahasan yang lalu kita dah maen-maen dan berkenalan erat sama hyperterminal. Idenya kali ini adalah mungkin gak sich kalo kita ganti hyperterminal dengan program kita sendiri. Jadi kita gak perlu lagi deh ketik sintaks yang ngejelimet, berulang-ulang and nyusahin bikin pusing kepala di hyperterminal. So pasti pake Visual Basic dong... Aku coba untuk membedah sintaks yang penting2 aja yach. Kalo masalah parsing dkk kamu pasti bisa deh sendiri. Banyak loh literaturnya. Yang penting kan bisa nyambung antara vb dan device kamu, trus bisa baca sms, kirim sms and jangan lupa bisa juga hapus sms. Kalo kita persempit lagi, secara teknis yang kita butuhin kan cuma gimana cara koneksinya, trus cara kirim perintah ke device dan terakhir gimana cara nangkep respons yang dikirim device. tul gak? Nah masalah pemrograman database untuk menyimpan data sms dari device atau data sms ke device kamu pikirin sendiri yach. Kalo sempet di bahasan selanjutnya aku kupas juga deh. hehehe.
Visual Basic punya komponen yang kerjanya mirip hyperterminal. Namanya MsComm. Nah, gak perlu repot kan?
Kali ini kita pake MsComm untuk utak-atik smsnya. So, jgn lupa di project VB kamu masukin dulu yach komponen MsCommnya. dah itu baru deh kita bisa mulai coding.
Koneksi ke Device
Kamu harus tentuin dulu port dan baud rate, parity, dan kon?gurasi lain yang digunakan oleh device kamu.
Di dalam bahasa Visual Basic, kurang lebih kode programnya akan seperti di bawah ini:
MSComm1.CommPort = 3
MSComm1.Settings = “115200,N,8,1”
MSComm1.PortOpen = True
Artinya,
- Baris 1: "3" itu maksudnya kamu melakukan hubungan ke device yang ada di Com3. Nah karenanya kita harus tahu HP/modem GSm kamu itu nempelnya di mana? eh gak ding. Nempelnya terserah, mo di slot USB kek atau di Slot serial yang penting windows ngebacanya sebagai Com brapa? Cek aja di Phone/Modem Setting di Control Panel.
- Baris 2: “115200,N,8,1” maksudnya device kamu disuruh bekerja dengan baud rate 115200, parity = N, databit = 8, dan stop bit =1. Parameter2 ini kamu bisa contek di Phone/Modem Setting di Control Panel. Itu kalo kalo device kamu dah kebaca sama windows. hehehe.
- Baris 3: "True" itu maksudnya koneksi dibuka. Berhasil atau tidaknya kita lihat dari respons "OK" atau "ERROR" seperti di hyperterminal. Kalo pake MsComm cara nangkepnya pake property Input. Property Output digunakan untuk memberikan command/perintah kepada device, sedangkan property Input menghasilkan data dari buffer penerima.
Mengirim AT Command ke Device
Tes Koneksi:
MSComm.Output = “AT” & Chr$(13)
Chr$(13) adalah Enter.
Masuk Mode Teks:
MSComm..Output = “AT+CMGF=1” & Chr$(13)
Kirim SMS:
MSComm.Output = “AT+CMGS=”6281316932077" & Chr$(13)
MSComm.Output = "Hello, welcome to our SMS tutorial" & Chr$(26)
"Chr$(26)" adalah Karakter "Ctrl+Z"
Terima SMS:
Untuk menerima SMS sama artinya dengan kita menangkap semua data yang masuk ke MsComm baik itu Telepon masuk, isi SMS, maupun respons "OK" dan "ERROR". Alhamdulillah MsComm memiliki event OnComm. Event ini mencatat semua data yang masuk ke MsComm. Nah pinter2nya kamu deh untuk parsing / memilah dan menyusun semua data yang masuk. Nah, untuk sms masuk:
MSComm.Output = “AT+CMGL=”ALL" & Chr$(13)
lalu ambil datanya di event OnComm seperti di bawah ini.
Private Sub MSComm_OnComm()
Dim stComChar As String * 1
Do
Loop Until MSComm.InBufferCount > 0
Do While MSComm.InBufferCount > 0
stComChar = MSComm.Input
tempBuffer = tempBuffer + stComChar
Loop
Debug.Print tempBuffer
End Sub
Kalo gak ada masalah, maka setiap kali SMS masuk (ataupun terjadi event lainnya seperti telpon masuk), maka event ini akan dijalankan dan program akan menuliskan isi dari data yang diterima. Sampe sini dulu yach. Ntar lanjut lagi pada pokok pembahasan yang lebih kompleks. Insya Allah...
Langgan: Entri (Atom)
Tidak ada komentar:
Posting Komentar