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]
