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
