Wa alaikum salam Terima kasih mas Diky atas infonya. kebetulan juga nich, saya juga mau sourcenya untuk pembelajaran.
terima kasih wassalam Basmal email : [EMAIL PROTECTED] > ASlkm, > HP siemens A55 mas, nanti saya posting deh source kode untuk sms dan > terima AT Commandnya. > > Basmal <[EMAIL PROTECTED]> wrote: > > Dear > > Saya mau nanya juga nich, maklum ada niat mau coba coba sms lewat pc. > HP siemens yang murah untuk keperluan ini type apa ya...? > > Salam > >> ASlkm, >> hp nokia setahu saya ngak support AT-Command mas, walaupun command yang >> kita coba berasal dari AT Commadnya nokia. Coba hp siemens ya, karena >> saya juga pernah nyoba di nokia, dia ngak respon2. >> Best Regard >> >> Andrie Baskara <[EMAIL PROTECTED]> wrote: >> Mas Dicky, saya coba koq gak ada respon ya? Saya buat dengan 2 >> text box. >> Rencananya Text1 untuk menampilkan respon dari HP dan Text2 untuk >> memberikan >> perintah. Ini scriptnya >> >> Private Sub Form_Load() >> bukaport >> End Sub >> >> Function bukaport() >> 'Nama MSCommnya adalah MSC >> MSC.CommPort = 5 >> 'Settingan bitrate untuk port tersebut, untuk siemens biasanya 19200 >> kbps >> MSC.Settings = "19200,n,8,1" '"19200,n,8,1" >> MSC.PortOpen = True >> MSC.Handshaking = comNone >> End Function >> >> 'Pada events MSComm terkonek >> Private Sub MSC_OnComm() >> 'Keluarkan respon dari HP ke sebuah Text box >> Text1.Text = Text1.Text & MSC.Input >> End Sub >> >> 'Fungsi untuk kasih perintah AT Command ke HP >> Sub kasihperintah(AtCommand As String) >> MSC.Output = AtCommand >> End Sub >> >> Private Sub Text2_KeyPress(KeyAscii As Integer) >> If KeyAscii = 13 Then >> kasihperintah Text2.Text >> End If >> End Sub >> >> Salahnya dimana? Nggak ada peringatan error atau yang lainnya, tapi >> nggak >> ada respon apa-apa. Oh ya, saya pake CDMA apakah ada pengaruhnya, tapi >> dari >> daftar At Command yang saya download dari situs Nokia, perintah AT tidak >> jauh beda. Secara koneksi sudah bagus karena sudah bisa untuk konek >> internet. >> >> ----- Original Message ----- >> From: "Dicky Surachman" <[EMAIL PROTECTED]> >> To: <[email protected]> >> Sent: Monday, April 02, 2007 5:45 AM >> Subject: Balasan: [indoprog-vb] Menerima Respons msComm >> >>> ASlkm, >>> Kamu harus definisikan dulu setting pada portnya. Ini contoh kodenya >>> function bukaport() >>> 'Nama MSCommnya adalah MSC >>> MSC.CommPort = 5 >>> 'Settingan bitrate untuk port tersebut, untuk siemens biasanya 19200 >> kbps >>> MSC.Settings = "19200,n,8,1" '"19200,n,8,1" >>> MSC.PortOpen = True >>> MSC.Handshaking = comNone >>> end function >>> >>> 'Pada events MSComm terkonek >>> Private Sub MSC_OnComm() >>> 'Keluarkan respon dari HP ke sebuah Text box >>> text1.text =text1.text & MSC.Input >>> End Sub >>> >>> 'Fungsi untuk kasih perintah AT Command ke HP >>> function kasihperintah(atcommand as string) >>> MSC.OUPUT = atcommand >>> end function >>> >>> OK, simple kan >>> Andrie Baskara <[EMAIL PROTECTED]> wrote: >>> Mohon bantuan rekan-rekan semua, saya sedang belajar VB tentang >> MsCOmm, saya >>> ingin membuat sebuah program untuk membackup sms dalam HP. Yang ingin >>> saya >>> tanyakan, bagaimana menerima isi respon dari HP tersebut. Dari >>> refferensi >>> yang saya dapatkan di Internet maupun dari arsip milis, untuk >>> mengetahui >>> bahwa HP siap untuk menerima AT Command adalah memberikan perintah >>> "ATE1" >>> dan jika HP sudah terhubung dengan komputer, maka akan memberikan >>> respon >>> "OK". Sampai sekarang saya belum bisa (belum tau caranya) menerima >>> respon >>> "OK" tersebut dari HP di komputer. Sebagai Informasi saya pakai Nokia >> 2116, >>> dan koneksi sudah terhubung menggunakan CA-42 Original. Jika saya buka >>> koneksi menggunakan perintah dibawah ini, tidak terjadi error. >>> >>> Mscomm1.CommPort = 5 >>> Mscomm1.PortOpen=true >>> >>> Mohon bantuan rekan-rekan semua terutama yang pernah membuat program >> serupa. >>> >>> Terima Kasih sebelumnya :-) >>> >>> Andrie Baskara >>> >>> >> >> >> >> >> >> >> --------------------------------- >> Sekarang dengan penyimpanan 1GB >> http://id.mail.yahoo.com/ >> >> [Non-text portions of this message have been removed] >> >> > > ~~~~~~~oooOOOooo~~~~~~~ > Universitas Bunda Mulia > IT Department > 04022002-271900 > Basmal > > > > > > > --------------------------------- > Kunjungi halaman depan Yahoo! Indonesia yang baru! > > [Non-text portions of this message have been removed] > > ~~~~~~~oooOOOooo~~~~~~~ Universitas Bunda Mulia IT Department 04022002-271900 Basmal
