dear lasso, silahkan ke planetsourcecode.com disana banyak sekali sample SMS aplikasi. omong-omong modem pakai apa ? Regards Iwan S
_____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Harri lasso Sent: Wednesday, May 30, 2007 10:04 AM To: [email protected] Subject: Re: [indoprog-vb] tanya aplikasi SMS...? dear temans, dimana ya bisa dapat sample code untuk aplikasi sms?? maklum masih belajar.. ----- Original Message ---- From: ERIS RISO <[EMAIL PROTECTED] <mailto:erisriso%40gmail.com> com> To: indoprog-vb@ <mailto:indoprog-vb%40yahoogroups.com> yahoogroups.com Sent: Tuesday, May 29, 2007 8:44:43 PM Subject: Re: [indoprog-vb] tanya aplikasi SMS...? Saya belum pernah menggunakan FBUS tapi kasus yang Anda tanyakan kebetulan sudah pernah saya buat, mungkin bisa sedikit membantu: 1. Anda harus mempunyai tabel daftar barang yang dimaksud sesuai keperluan, tabel ini tentunya berguna untuk menghasilkan informasi barang yang diminta. 2. Logic proces dalam VB sendiri harus menjalankan sebuah validasi setiap kali SMS masuk akan dibalas, artinya setiap SMS yang masuk akan dibaca isinya. Sederhananya begini, setiap SMS yang berdasarkan urutan kedatangan SMS disimpan kedalam database dengan status balasan 0 artinya belum dibalas (katakan saja begitu), setelah itu sistem secara berkala akan terus membaca data dalam database mencari daftar sms yand mempunyai status 0, setelah didapatkan data tersebut dibaca, nah dalam proses ini diperlukan suatu validasi untuk membaca sms, dimana jika isinya standar seperti yang anda sebutkan maka akan dilakukan proses ke pencarian barang jika tidak langsung balas misalnya "sms tidak valid". jika sukses dibalas lalu ubah status balasan menjadi 1 yang artinya sms sudah berhasil dibalas 3. Dari penjelasan diatas diketahui bahwa sms akan dibaca kata demi kata, lalu bagaimana cara membacanya, anda bisa membuat format sms standar itu dengan pemisah kata menggunaka tanda ";" atau spasi, itu tidak jadi masalah yang penting anda dapat membacanya dan harus standar. misalnya sms menggunakan format spasi, lakukan untuk membaca format sms: strpes = Split(smsmasuk, " ") ---> sms akan dipisan perkata, kata akan dipisan jika ditemui spasi If UBound(strpes) <= 1 Or SMSValid(UCase( strpes(0) ) = False Then ----> ini akan membaca jika kata kurang atau isiSMS = "Format SMS Tidak Benar" sama dengan satu kata atau tidak valid. ElseIf SMSValid(UCase( strpes(0) ) = True Then If UCase(strpes( 0)) = "PESAN" Then ---->artinya jika kata pertama itu PESAN lalukan proses untuk pencarian data berdasarkan nama barang, "select * from tabelbarang where namabarang=ucase( strpes(1) )" ---->strpes( 1) berarti nama barang jika nama barang tidak terdapat dalam database isiSMS="Nama Barang Tidak Ditemukan" jika ada: ambil harga dan kalikan terus hasilnya masukan kedalam sebuah variabel sehingga didapatkan isisms isiSMS= namavariabelhasil setelah itu update status sms menjadi 1 berarti sudah dibalas. anda juga bisa menambahkan untuk jenis sms lain ini fungsi yang digunakan untuk memvalidasi sms yang masuk (sbg cntoh saja): Private Function SMSValid(tipeSms As String) As Boolean Dim mess(6) As String, i As Integer mess(0) = "INFO" mess(1) = "PESAN" mess(2) = "STOCK" SMSValid = False For i = 0 To 3 If tipeSms = mess(i) Then SMSValid = True Exit For Else SMSValid = False lvlError = 1 End If Next End Function demikian yang bisa saya jelaskan, jika masih ada pertanyaan silahkan saja mungkin kurang jelas, ya maafkan saja :) regard, eris http://eris- riso.blogspot. com Pada tanggal 29/05/07, Boy Boy <[EMAIL PROTECTED] com> menulis: > > saya rasa format sms anda sebaiknya jangan menggunakan spasi > tetapi menggunakan tanda ";" (titik koma)... sehingga menjadi > PESAN;Kode_Brg; JlhPesanan > > NamaBarang juga sebaiknya diganti menjadi kode_brg soalnya kan nama barang > itu relatif.... > Monitor LG misalnya... bisa juga CRT LG dan sebagainya > > trus untuk memisah2 sms yang diterima bisa menggunakan fungsi split pada > VB > 6.0 > > syntax Penulisan : split([text yang mau dipisah], [karakter pemisah]) > > cData = "PESAN:LG1501; 3" > aData = Split(cData, ";") > 'test untuk menampilkan data > For Each cItem In aData > MsgBox cItem > Next > > selamat mencoba... > > saya juga mau sekalian nanya nih... program sms ini berarti harus > dihubungkan terlebih dahulu > dari PC ke handphone ya? > trus pengiriman dikenakan biaya ngak? > > thx.... soalnya rencananya mau diterapkan waktu stock opname (cek stock) > sehingga dari > pengecek tinggal langsung ketik ke sms lalu kirim ke PC.... > > sehingga proses pengecekan stock bisa terlaksana dengan cepat n efisien > > thx b4 > > >From: "Taufik Hidayat Hutabarat" <taufik_abat@ yahoo.co. id> > >Reply-To: indoprog-vb@ yahoogroups. com > >To: indoprog-vb@ yahoogroups. com > >Subject: [indoprog-vb] tanya aplikasi SMS...? > >Date: Tue, 29 May 2007 03:38:44 -0000 > > > >salam teman-teman programer VB yang makin keren programnya.. .! > >saya mau tanya nih...? dan tolong bantuan nya. > >saya sekarang lagi buat aplikasi sms menggunakan nokia 3310 FBUS n > >program pake VB...? > > > >aplikasi kirim dan terima SMS nya udah bisa...! n udah berjalan lancar > >dan sms nya tersimpan ke Data base. > >klo Auto Respon balasan sms yang masuk di ketik manual sih udah bisa. > >misal kita sedang rapat. kita ketik balasan "saya sedang rapat...? > >hubungi pukul sekian...?" untuk otomatis dibalas tiap sms yang masuk > >pada saat itu,,,? > >walaupun ada banyak sms yang masuk secara bersamaan... udah bisa > >dibalas satu per satu dengan sistem antrian SMS yang duluan masuk yang > >lebih dulu di balas. dan yang sudah terbalas di beri status "terbalas" > >sehingga tdk terjadi balasan yang berulang-ulang. ..? > > > >nah... masalah nya. saya kesulitan buat aplikasi yang pake format > >sms...? misal contoh aplikasi sms pesan barang dan harganya...? > >Format sms nya, Ketik : [PESAN](spasi) [NAMA BARANG](spasi) [Jlh > >pesanan] kirim ke no 08xxxxxxxxxx. balasan dari aplikasi sms itu > >"barang: Monitor LG Rp.500.000, 3unit total 1.500.000" (misalnya) (^_^) > > > >yang mau saya tanya. gimana cara set format sms nya di VB saat sms > >masuk dan tersimpan ke data base....? > > > >dan gimana VB mengolah dan bisa membedakan tiap barang yang di pesan, > >mengambil data harga nya serta menghitung total harganya...? > >sehingga saat semua proses itu berhasil, Langsung di balas ke nomor > >yang mengirim.... ? > > > >Tolong bantu saya ya Teman-teman VB.....? > > > >mungkin suatu saat aplikasi ini pasti bisa berguna bagi kita semua....? > > > > > > ____________ _________ _________ _________ _________ _________ _ > Windows Live Spaces is here! http://get.live. com/spaces/ overview It's easy > to create your own personal Web site. > > > > Untuk berhenti berlangganan kirim email kosong ke : > indoprog-vb- unsubscribe@ yahoogroups. com. > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke hendra.soewarno@ telkom.net, kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > > > [Non-text portions of this message have been removed] __________________________________________________________ Get your own web address. Have a HUGE year through Yahoo! Small Business. http://smallbusines <http://smallbusiness.yahoo.com/domains/?p=BESTDEAL> s.yahoo.com/domains/?p=BESTDEAL [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
