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).
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”



9 komentar:
hi kinglaplace,
trimakasi buat ilmu vb na,
sya dapat pencerahan ttg vb, maklum saya masi pemula :)
sekali lagi terima kasi
buat Indah : Terima kasih sudah berkunjung ke blog saya. Silakan kontak bila ada pertanyaan dan saran.
bagaimana klo data yang dikirim angka?
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.
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?
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...
mas, klo program untuk mengontrol alat pake converter port serial gimana caranya....
Mas Kay Bisra,
Maksudnya pake usb to serial gitu misalnya ya?ato gimana?
kok project download nya beda sama ama yang di tutorial diatas ...
Post a Comment
Komentarnya donk....