Subscribe:

Friday, December 24, 2010

Akses Serial Port komputer menggunakan Visual Basic 6 (Kirim Data)

Untuk contoh aplikasi serial port yang pertama adalah aplikasi untuk mengirim data melalui serial port. Ini merupakan contoh paling sederhana yang saya tulis, dan untuk pengembangan tergantung kebutuhan nantinya.
Contoh ini bertujuan untuk mengirimkan data melalui serial port, dimana data yang akan dikirim ditulis pada kotak teks (textbox), kemudian data dikirim dengan menekan tombol perintah (command button).
Pertama,menyiapkan Form baru dan menambahkan control Microsoft Comm Contol 6.0.
Setelah itu, menamambahkan control Command button dan textbox pada form.
Pada Form_Load() tambahkan code berikut : MSComm1.CommPort = 1 ‘tergantung COM port yang tersedia, disini COM1 yang dipakai MSComm1.Settings = "9600,N,8,1" ‘contoh setting serial port MSComm1.PortOpen = True ‘untuk mengaktifkan port serial yang dipilih
Disini komputer yang saya pakai memiliki 2 COM virtual dari com0com (lihat posting saya sebelumnya tentang virtual serial port) yaitu COM 1 dan COM 2. Untuk aplikasi yang saya buat menggunakan COM 1.
Setelah port serial siap digunakan, berarti data siap dikirimkan melalui port serial. Untuk mengirimkan data ini,saya buat tombol kirim, yang akan mengirimkan data yang ada pada textbox. Untuk itu tambahkan code berikut pada tombol yang sudah dibuat :
MsComm1.Output = Text1.Text
Untuk menonaktifkan port serial yang dipilih setelah selesai menggunakan aplikasi, tambahkan code berikut pada Form_Unload
MSComm1.PortOpen = False ‘untuk menonaktifkan port serial
Hasil aplikasi ini dapat kita uji menggunakan program Hyperterminal yang ada pada Windows. Untuk hyperterminal menggunakan virtual COM 2 dengan setting serial port harus sama dengan setting pada aplikasi yang dibuat yaitu “9600,N,8,1”
Hasilnya sebagai berikut :
Untuk lebih jelasnya dapat di donlod contoh aplikasinya disini…

9 komentar:

indah said...

hi kinglaplace,

trimakasi buat ilmu vb na,
sya dapat pencerahan ttg vb, maklum saya masi pemula :)

sekali lagi terima kasi

KingLaplace said...

buat Indah : Terima kasih sudah berkunjung ke blog saya. Silakan kontak bila ada pertanyaan dan saran.

Anonymous said...

bagaimana klo data yang dikirim angka?

KingLaplace said...

Data yang dikirim dalam contoh ini adalah teks. Dari MSDN untuk sintaks MSCOMM Output sbb :
object.Output [ = value ]
Dimana value = A string of characters to write to the transmit buffer.
Jadi data yang dikirimkan meskipun angka, akan di anggap sebagai string. Kalau boleh tau, aplikasi seperti apa yang anda akan buat?mungkin saya bisa bantu.

Anonymous said...

mas klo mau kirim data hexa berurutan
AA,BB,03,01,01,03 lalu setelah itu respon hardwre AA,BB,03,01,00,03. jadi aplikasinya bisa kirim dan menerima data tersebut..

caranya gmn yah?

KingLaplace said...

Maaf baru sempat balas..
Aplikasi untuk kirim data hexa berurutan begini :
MsComm1.Output = &HAA + &HBB + &H03 &H1 + &H0 + &H03

Kalau untuk ngubah dari HEX menjadi decimal :
Text2.Text = CLng("&H" & Text1.Text)
Text2.text = hasil desimal
Text1.Text = nilai hexa
kalau data berurutan yang masuk, bikin aja prosedur untuk convert data tiap byte pake mid.
Contoh :
baca data :
AA BB 03 01 00 03
01 menjadi desimal
Text1.Text = Str((Asc(Mid(MsComm1.Input, 4, 1)) * CLng(256)

Selamat mencoba...

script-112 said...

mas, klo program untuk mengontrol alat pake converter port serial gimana caranya....

KingLaplace said...

Mas Kay Bisra,
Maksudnya pake usb to serial gitu misalnya ya?ato gimana?

taufik said...

kok project download nya beda sama ama yang di tutorial diatas ...

Post a Comment

Komentarnya donk....