Catatan Belajar: INTERFACING SERIAL PORT (LED) Dengan Visual Basic(VB) 6.0

Selasa, 06 Desember 2011

INTERFACING SERIAL PORT (LED) Dengan Visual Basic(VB) 6.0

Konsep dasar dari pemrograman serial port menggunakan VB sebenarnya mirip dengan pemrograman pada port parallel. Tapi di serial lebih banyak memiliki register yang harus di setting. Tapi hal tersebut bukan maslah. Sebagai pemula (saya juga pemula) kita dapat menggunakan fungsi tambahan pada VB. Yakni MSCOMM yang dapat ditambahkan pada toolbox dengan cara tekan tombol Ctrl+T dan pilih microsoft comm control 6.0.Akan muncul icon seperti ini

Gambar.1 Icon Mscomm

Sebelum melangkah lebih jauh ada baiknya jika kita terlebih dahulu membuat rangkaian dari led yang akan kita gunakan. Lihat gambar.2 dibawah

Gambar.2 Rangkaian LED

Dari gambar tersebut kita dapat melihat pin-pin yang akan kita gunakan dan hubungkan. Dan kita juga akan menggunakan Pin DB9 yang bisa kita lihat dari Gambar.3

Gambar.3 Konfigurasi Pin

Dan sekarang kita telah mengetahui pin yang akan kita gunakan. Selanjutnya kita akan langsung membuat program yang akan kita gunakan untuk mengakses serial port. (Disini saya telah menganggap kalian mampu untuk menggunaka Perogram Visual Basic 6.0 jadi saya tidak perlu emnjelasakan tentang VB 6.0 pada kalian.)

Langkah-langkah membuat proram:

Hubungkan pin-pin port serial ke pin-pin led sesuai dengan konfigurasi yang ada.

Buka Program VB 6.0(jika sudah terinstal,jika belum installah dulu.Oke....).

buat project baru. Dan Tambahkan Fungsi Mscomm.Dengan cara tekan Ctrl+T>muncul form Commponent>pilih Microsoft Comm Control 6.0

Dan buat tampilan form seperti ini.

Gambar.4 Tampilan Form

Kita lihat jika kita gunakan 4 buah Shape,2 buah Command Button tiga buah timer dan satu buah Mscomm. Setting propertisnya dapat anda lakukan sendiri sesuka anda.hanya saja untuk Mscomm1.dan timer buat seperti dibawah

Tabel.1 Properties

Note. Untuk CommPort dapat anda isikan tergantung Port Com Berapa yang anda gunakan. Disini saya gunakan Com 1.

Kemudian ketikan Listing Program berikut.

Private Sub Form_Load()
Shape1.FillColor = &H0
Shape2.FillColor = &H0
Shape3.FillColor = &HFF
Command2.Enabled = False
Command2.BackColor = &HC0C0FF
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Command1.Enabled = False
Command1.BackColor = &HC0C0FF
Command2.Enabled = True
Command2.BackColor = &HFF
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
End Sub

Private Sub Command2_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
Command1.Enabled = True
Command1.BackColor = &HFF
Command2.Enabled = False
Command2.BackColor = &HC0C0FF
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
Unload Me
End Sub

Private Sub Timer1_Timer()
Shape1.FillColor = vbYellow
Shape2.FillColor = &H0
Shape3.FillColor = &H0
MSComm1.DTREnable = True
MSComm1.RTSEnable = False
End Sub

Private Sub Timer2_Timer()
Shape1.FillColor = &H0
Shape2.FillColor = vbGreen
Shape3.FillColor = &H0
MSComm1.DTREnable = False
MSComm1.RTSEnable = True
End Sub

Private Sub Timer3_Timer()
Shape1.FillColor = &H0
Shape2.FillColor = &H0
Shape3.FillColor = &HFF
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
End Sub