Intinya, jangan salah menggunakan port Com yang diberikan oleh Windows,
bgini setiap Bro colokin kabel data USB nya, dan terlebih lagi sekalian sama
drivernya, windows akan ngasih Bro sebuah virtual com, bisa itu di Com1,
Com2 atawa Com lainnya, coba cek aja di Com berapa dikasihnya.
Selanjutnya untuk memahami bagaimana Port tersebut bekerja, saya sendiri
biasanya dalam VB menggunakan MSComm. MSComm sendiri merupakan sebuah
pengontrol komunikasi jenis serial yang mengijinkan kita melakukan
pengiriman dan penerimaan data melalui port serial, nah Com tadi itu
merupakan salah satu dari jenis port serial (kalo ga salah begitu, mungkin
ada temen2 lain yang ingin menambahkan). Sebelum salah langkah, coba Bro
cari referensi mengenai MSComm32 dan pelajari bagaimana cara kerjanya,
karena dalam pemrogaman akan sangat diperlukan.
Seperti Bro bilang, script yang Bro punya malah ngebaca modem dial up itu
berarti Bro sendiri salah dalam ngasih Com berapa yang digunakan. Biasanya
jika Bro ingin menggunakan HP sebagai gateway makany install driver HP/Kabel
data yang Bro gunakan, jika sudah coba cek di Device Manager, biasanya dalam
kelompok Modem juga, coba expand jika hanya modem dial up yang ada disitu
berarti memang HP Bro belum terdeteksi. Jika memang ada coba klik kanan lalu
klik Properties, klik tab Modem, nah pada bagian atas tab Modem akan tampak
Com berapa yang dikasi untuk HP Bro, gunakan selalu Com tersebut selama Bro
ingin menggunakan HP tersebut. Untuk ngetes sukses tidaknya HP Bro terhubung
ke computer buka HyperTerminal, trus buat koneksi baru dan pilih modem HP
yang Bro pakai pada Connect Using, tandanya sudah sukse terhubung tampak
pada pojok kiri bawah HyperTerminal tulisan Connected.
Sesudah itu coba Bro ketik ATE+1 pada HyperTerminal jika keluar OK berarti
HP Bro sukses terhubung dan support ATCommand tapi jika keluar tulisan ERROR
ada beberapa kemungkinan, yang paling utama memang HP tersebut belum
tersambung atau port speed nya tidak sesuai coba ubah. Jika tidak ya berate
ada yang lain.
Tanpa bermaksud menggurui hal tersebut diatas merupakan hal utama yang harus
Bro pahami sebelum melangkah ke tahap berikutnya.
Sedikit informasi dulu, SonyErricson jarang digunakan untuk Gateway, coba
gunakan Motoroal E365 atau Siemens, selain support ATCommand juga tersedia
drivernya di internet.
Mengenai script yang Bro tanyakan, saya rasa apa yang Bro dapatkan sudah
cukup dengan catatan Bro sudah memahami penggunaan MSComm. Hal yang paling
penting jika menggunakan MSComm adalah sebagai berikut:
MSComm.CommPort = 9 --à merupakan object yang memberikan informasi port
com berapa yang digunakan
MSComm.Settings = "9600,n,8,1" à baudrate,parity, nomer data bits
(standarnya 8), stop bits
MSComm.PortOpen = True àmemberitahukan bahwa object portopen dalam mscomm
dibuka
Ketiga hal diatas adalah bersifat wajib, meskipun Bro pake komponen dimana
ga perlu menyentuh MSComm kebanyakn object diatas juga harus dimasukan.
Ini contoh sederhana membuka port Com terus nampilin hasilnya apakah HP
sudah terhubung atau belum:
Buat sebuh project, pilih Component Microsoft Comm Control terus tambahkan
sebuah MSCOMM kedalam form, tambahkan sebuah textbox kedalam form, terus
ketikan kode dibawah ini dalam jendela code:
Dim waktu As Date
Private Sub Form_Load()
With MSComm1
On Error GoTo err_handler
.CommPort = 9 ---aku asumsikan port com nya 9
.settings = 9600, N,8,1" àkita masukan saja nilai defaultnya,
biasanya baud rate yang saya gunakan pake Motorola E365 adalah 14400
.InputLen = 0
If .PortOpen = False Then .PortOpen = True
waktu = Now
.Output = "ATE1" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & .Input
Loop Until InStr(buffer$, "OK") Or InStr(buffer$, "ERROR") Or
Now > DateAdd("s", 10, waktu)
If InStr(buffer$, "OK") Or InStr(buffer$, "O") Then
Text1.Text = "HP / GSM Modem OK !!"
Else
Text1.Text = "HP / GSM Modem Tidak Siap !!"
Exit Function
End If
End with
End sub
Untuk pertanyaan selanjutnya silahkan Bro lihat contoh-contoh yang didapat,
pada dasarnya sama.
Mungkin itu yang bisa saya bantu, dan mungkin ada rekan-rekan lain yang
ingin membantu atau mengkoreksinya.
Maaf jika kata-kata saya kurang berkenan J
Rgd,
ERIS RISO
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of black_marlin_code
Sent: 06 Juli 2007 2:05
To: [email protected]
Subject: [indoprog-vb] [ASK] Cara baca port COM?? AT Command??
Gni bro smua.
Gw bru blajar VB. Gw lg ada project bangun aplikasi
yang konek ama HP. HP Gw pke Sony Ericsson. Pake
kabel data USB,
Tidak ada masalah klo konek ama HyperTerminal.
Masalahnya:
1. gmn script cara baca port COM yg digunakan,
Gw udh browse planetsourcecode, dpt, tapi malah
ngbaca MODEM Dial Up gw.
2. Klo ada yg pernah pake AT Command,
kasi donk gw contohnya, yg simple aja,
pokoknya bisa buat :
- Membuka Port komunikasi kalo HP terkoneksi
- Menjalankan beberapa AT Command melalui 1 button
- Menampilkan Hasil pembacaan AT melalui TextBox
Trims,+tlg bantu gw..
[Non-text portions of this message have been removed]
