Ok, terima kasih, akan saya coba pake siemens. Saya tunggu scriptnya :-) ----- Original Message ----- From: "Dicky Surachman" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Tuesday, April 03, 2007 7:01 PM Subject: Balasan: Re: Balasan: [indoprog-vb] Menerima Respons msComm
> 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 > >
