Interfacing Serial pada Visual Basic 6.0 (VB6)

Pada prinsipnya, komunikasi serial ialah komunikasi dimana pengiriman data dilakukan per bit, sehingga lebih lambat dibandingkan komunikasi parallel seperti pada port printer yang mampu mengirim 8 bit sekaligus dalam sekali detak. Beberapa contoh komunikasi serial ialah mouse, scanner dan system akuisisi data yang terhubung ke port serial COM1/COM2. Komunikasi serial terdiri dari beberapa macam jenis yaitu RS 232, RS 485 dan RS 422.

Komunikasi Serial menawarkan berapa kelebihan dibandingkan secara paralel, antara lain: 1. Kabel untuk komunikasi serial bisa lebih panjang dibandingkan dengan paralel; 2. Jumlah kabel serial lebih sedikit; kita bisa menghubungkan dua perangkat komputer yang berjauhan dengan hanya 3 kabel untuk konfigurasi null modem, yaitu TXD (saluran kirim), RXD(saluran terima) dan Ground, jika digunakan teknik paralel akan terdapat 20 – 25 kabel. 3. Untuk teknologi embedded system, banyak mikrokontroler yang dilengkapi dengan komunikasi serial (baik seri RISC maupun CISC) atau Serial Communication Interface (SCI);

Pada komputer biasa terdapat port serial yang berupa RS232 dengan interface DB9.

Banyak cara untuk mengakses port serial ini, antara lain dengan menggunakan visual basic 6.0. Salah satu cara mengakses port serial mengguakan Visual Basic 6.0 adalah melalui komponen MSCOMM.

Cara mengaktifkan MSComm yaitu:

Dari VB6 à Select Project à Components à Pada bagian Controls, Centang Microsoft Comm Control 6.0 à Tekan OK.

Pada bagian Toolbox ada gambar Telpon.

Properti penting pada MSCOMM control antara lain :

CommPort = untuk menentukan nomor port serial

Setting = untuk melakukan setting nilai baudrate, parity, bit data dan stop bit

PortOpen = untuk meng-aktifkan atau me-non aktifkan port serial

Input = untuk mengambil data dari port serial

Output = untuk mengirimkan data ke port serial

Mscomm hanya memiliki satu even saja, yaitu even OnComm. Even ini terbagi menjadi Commevent untuk error dan komunikasi. Untuk error antara lain :

comEventFrame = jika hardware mendeteksi adanya kesalahn framing

comEventRxParity = jika hardware mendeteksi adanya kesalahan parity

comEventBreak = jika sinyal break diterima

Untuk even komunikasi yang biasa dipakai adalah comEvReceive untuk membaca data dari port serial.

Untuk contoh aplikasi serial port adalah aplikasi untuk mengirim data melalui serial port. Ini merupakan contoh paling sederhana.

Pertama, menyiapkan Form baru dan menambahkan Control Microsoft Comm Contol 6.0.

Setelah itu, buat form seperti pada gambar form1 dibawah ini.

Kemudian buat form lagi seperti pada gambar form2 dibawah ini.

Kemudian ketikkan listing program seperti dibawah ini.

Private Sub Command1_Click()

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True

End If

MSComm1.Output = Text1.Text

End Sub

Private Sub Command2_Click()

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

End If

Unload Me

End Sub

Private Sub MSComm1_OnComm()

Text2.Text = MSComm1.Input

End Sub

Private Sub Command3_Click()

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True

End If

End Sub

Private Sub Command4_Click()

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

End If

End Sub

Maka setelah program dijalankan akan seperti dibawah ini.