yup.. pasti ada delay.. tapi cara ambilnya JANGAN PAKE DELAY SENDIRI.... tapi cara ambilnya dari event mscomm1_oncomm... jadi kalu sudah bisa diambil inputnya, maka event oncomm itu akan dipanggil.. begitu...
======================= http://www.fire888.com -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Herianto Sent: Saturday, December 29, 2007 9:07 AM To: [email protected] Subject: Re: [Programmer-VB] SMS Gateway Ooo gitu toh... Emang harus ada delay ya setelah dikasih command AT..?? Hmm... kira2 waktunya berapa lama yah..?? Tadi saya coba buat looping sebelum saya tampung nilai inputnya didalam sebuah variabel sebanyak 1 to 100000. Cukup ngak segitu yah..?? Thank's Herianto ----- Original Message ----- From: Lai Min Feng To: [email protected] Sent: Friday, December 28, 2007 6:50 PM Subject: RE: [Programmer-VB] SMS Gateway ooo kayanya agak ngerti maksudnya... kayanya salahnya karena ambil inputnya langsung setelah output d.. kan emang ada jeda dong antara setelah kirim at command dan result yang dihasilkan... coba ambil nilai mscomm1.inputnya bukan langsung setelah kirim at commandnya... tapi coba diambil nilai inputnya dari event mscomm1 nya... kalu gak salah eventnya mscomm1_oncomm (semoga bener... agak males buka vb buat tes), pokoknya default event dari mscomm aja (jadi double click aja mscommnya nti kan langsung otomatis keluar event defaultnya) ======================= http://www.fire888.com -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Herianto Sent: Friday, December 28, 2007 1:50 PM To: [email protected] Subject: Re: [Programmer-VB] SMS Gateway Yang justru bikin saya bingung itu waktu saya CMGL itu mau kok sebanyak apapun SMS, tapi kadang juga ngak mau. Lalu aplikasi yang saya buat itu sistemnya online terus, jadi biasanya seh di inbox itu ngak terlalu banyak smsnya, karena setiap direspons pasti akan saya hapus pake CMGD. hehehe... (padahal baru tau tuh apa artinya CMGL dan CMGD).. Selama ini saya hanya pake aja tuh command ATnya, tapi baru hari ini saya tau gunanya untuk apa... :p Saya tadi ada coba buat sebuah project baru dengan menggunakan MSComm. Lalu saya pancing dengan : MSComm1.Output = "AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & vbCr Setelah itu saya mau tangkap inputnya ternyata kadang dapet kadang ngak lho... Setelah saya tentukan Outputnya, saya mau tampung inputnya itu di sebuah listbox. Tapi kalau saya jalankan saja tanpa saya berikan sebuah breakpoint atau sebuah messagebox untuk menangkap nilainya, maka nilai inputnya itu blank pasti. Tapi waktu saya tambahkan sebuah messagebox atau sebuah breakpoint, inputnya malah bisa saya dapatkan. Contoh codingnya seperti ini : MSComm1.Output = "AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & vbCr List1.AddItem MSComm1.Input 'Hasilnya pasti blank waktu saya jalankan Tapi kalau saya tambahkan sebuah messagebox : MSComm1.Output = "AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & vbCr Msgbox MSComm1.Input 'Hasilnya tampil dalam messagebox List1.AddItem MSComm1.Input 'Hasilnya tampil di dalam listbox Aneh...!!! Ada yang bisa beri tahu saya kenapa seperti ini..?? Seolah2 MSComm butuh delay atau spare waktu untuk dia bisa menerima input, makanya saya tadi coba buat looping sebelum saya tangkap inputnya. Dengan asumsi bahwa ada proses delay sebelum nilai input saya ambil dan tampung dalam variabel... Btw busway, thanks banget neh buat Rekan Lai Min Feng buat masukkannya, I really2 appreciate that... GBU, Thank's Heri ----- Original Message ----- From: Lai Min Feng To: [email protected] Sent: Friday, December 28, 2007 11:16 AM Subject: RE: [Programmer-VB] SMS Gateway oo kalu mau baca inbox sebaiknya pake +CMGR aja... itu buat baca satu persatu kalu pake +CMGL kan list semua sms, jadi susah di proses.. tapi sms yang blank ?? hmm.... gak tau ya... gak pernah kejadian gitu tuh.. kalu soal pembacaan yang diterima di mscomm itu kemungkinannya adalah diterimanya sebagian2.. jadi mesti di cek.. itu dah full msg yang diterima atau belum.. tapi kalu full msg sudah diterima dan smsnya blank... hmmm.... gak tau d.. ======================= http://www.fire888.com -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Herianto Sent: Friday, December 28, 2007 10:35 AM To: [email protected] Subject: Re: [Programmer-VB] SMS Gateway Tadi saya baru cari2 di google tentang AT Command, ternyata yang saya pakai itu CMGL yaitu untuk list inbox. Dan setelah saya cek source yang saya pakai, ternyata saya pakai perintah berikut : VObjPort.Output = "AT+CMGL=" & Chr(34) & "ALL" & Chr(34) & vbCr --> VObjPort itu Objek MSComm... Ngecek format sms itu maksudnya begini... Saya kan buat SMS Gateway untuk sharing informasi di dalam group (kayak milist dan auto respons). Saya hanya akan share sms yang saya kirim kalau ada inisialisasi format sms semacam REG atau UNREG gitu lho maksudnya. Tapi pada saat saya tangkap isi dari smsnya ternyata smsnya itu blank, sehingga aplikasi pasti merespons formatnya salah karena ngak ada inisialisasi REG atau SENT atau semacamnya... Lalu saya juga tadi ada cari2 di web lain, dia bilang kegagalan baca inbox itu bisa terjadi karena pembacaan dilakukan terlalu cepat katanya. Maksudnya apa yah..?? Thank's buat responsnya... Heri ----- Original Message ----- From: Lai Min Feng To: [email protected] Sent: Friday, December 28, 2007 10:12 AM Subject: Re: [Programmer-VB] SMS Gateway ok kalu gak ngerti cuekin dulu aja..nti tambah pusing.. huehe... anyway.. itu tapi cek smsnya pake at command kan ? atau pake ocx orang ? kalu pake ocx orang ya mesti tanya yang buat... tapi kalu pake at command... bisa coba saya bantu.. ngecek format sms tuh maksudnya apa ? format sms biasanya kan ada 2 doang : text atau pdu kalu pdu setengah mati tuh pakenya.. jadi pake yang text aja.. caranya kasih at +cmgf=1 > > On Dec 28, 2007 9:31 AM, Herianto <[EMAIL PROTECTED]> wrote: > > > > > > Terima kasih dahulu buat responsnya... > > > > Maksudnya inbox ngak ketangkep itu sms yang saya terima dari sim card itu > > blank atau ngak ada isinya atau sms kosong doang. Karena di aplikasi saya > > itu mengecek format sms, jadi respon dari aplikasi itu selalu formatnya > > salah. Tapi kejadian ini hanya kadang2 saja yang justru membuat saya tambah > > bingung. > > Wah, +CMTI itu apa ya..?? Sory saya ngak terlalu paham hal ini, karena saya > > cuma download dari internet source codenya.. Settingan CNMI dan CMTI itu di > > mana yah..?? > > > > Thank's > > Herianto > > > > > > > > ----- Original Message ----- > > From: Lai Min Feng > > To: [email protected] > > Sent: Friday, December 28, 2007 9:22 AM > > Subject: Re: [Programmer-VB] SMS Gateway > > > > > > > > > > > > maksud inboxnya gak ketangkep tuh apa ? > > info msg masuk gak ketauan ? > > maksudnya +CMTI nya gak ketangkep gitu ? atau apa ? > > gak ada hubungan ama speednya. > > speed 115200 itu tergantung ama yang disupport modemnya.. intinya kalu > > dah bisa connect ke modem, artinya setting modem anda sudah benar. > > yang belum bener itu mungkin at commandnya.. > > coba liat2 di settingan +CNMI nya.. kalu emang masalahnya di +CMTI.. > > biasanya mungkin ini yang belum bener.. > > > > On Dec 28, 2007 9:19 AM, Herianto <[EMAIL PROTECTED]> wrote: > > > Selamat pagi rekan2 sekalian, > > > > > > Saya mau tanya neh, ada ngak yah rekan2 yang pernah buat aplikasi SMS > > > Gateway pake MSComm di Visual Basic 6.0..?? Saya ada coba2 buat aplikasi > > SMS > > > Gateway dari contoh source dari internet yang menggunakan MSComm. Tapi > > > seringkali inboxnya ngak ketangkep kenapa yah..?? Kadang bisa ketangkep > > > kadang ngak. Saya menggunakan GSM modem iTegno dan saya men-set Speed > > > modemnya 115200, apakah itu mempengaruhi..?? > > > Mohon petunjuknya teman2 kalau ada yang pernah mengalami hal yang sama. > > > Betul2 urgent neh, soalnya sudah lama sekali saya cari2 tapi ngak ketemu > > > masalahnya dimana... Pleaseee bener kalau ada yang bisa bantu saya... > > > > > > Atas perhatian rekan2... > > > Thank's yah.. > > > Heri > > > > > > > > > > > > Wahana Programmer Groups Links > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.17.5/1190 - Release Date: 12/19/2007 7:37 PM
