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

Untuk Baca Data Gunakan Contoh Berikut Ini :

Seperti halnya pada project mengirim data melalui serial port, untuk membaca data dari serial port, kita juga menggunakan komponen MScomm. Disini ada contoh paling sederhana untuk membaca data serial port. Pertama kita buat form, dengan sebuah textbox dan komponen MScomm. Sekali lagi , ini hanyalah salah satu contoh dan untuk pengembangan tergantung aplikasi yang akan kita buat.

Kemudian pada Form_Load() tambahkan code berikut :

MSComm1.CommPort = 2 'tergantung COM port yang tersedia, saya menggunakan COM 2

MSComm1.Settings = "9600,N,8,1" 'contoh setting serial port

MSComm1.InputLen = 0

MSComm1.RThreshold = 1

MSComm1.PortOpen = True

Pada aplikasi ini sengaja saya menggunakan COM 2 karena COM 1 sudah saya pakai untuk aplikasi mengirim data. Jadi nantinya untuk menguji hasil aplikasi ini bisa kita lakukan aplikasi yang telah dibuat menggunakan virtual port.

Untuk menerima data dari serial port, kita siapkan textbox yang akan menampilkan data- data yang diterima dari serial Port. Data – data ini diterima melalui event onComm (tulisan awal tentang serial port dan visual basic.)

Jadi pada event onComm kita tambahkan code berikut :

Select Case MSComm1.CommEvent

' Errors

Case comEventRxParity ' Parity Error.

MsgBox "Parity"

' Events

Case comEvReceive ' Received RThreshold # of chars.

Text1.Text = MSComm1.Input

End Select

Pada event oncomm yang saya buat, saya memberikan 1 event error (parity error) dan 1 events komunikasi yaitu comevreceive untuk membaca data. Data yang diterima akan langsung ditampilkan ke textbox melalui code

Text1.Text=MsComm1.Input

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 aplikasi yang sudah kita buat sebelumnya menggunakan COM 1 dan aplikasi baru ini menggunakan COM 2.

Hasilnya seperti terlihat berikut:

Untuk Kirim Data Gunakan Contoh Di bawah Ini :

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 :

http://www.kinglaplace.com/2010/12/akses-serial-port-komputer-menggunakan_24.html