LAPORAN PRAKTEK SERIAL PADA VISUAL BASIC 6
A. TUJUAN
· Mengetahui dasar komunikasi serial pada Visual
Basic 6
· Dapat membuat aplikasi atau program komunikasi
serial pada Visual Basic 6
B. DASAR TEORI
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.
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.
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.
C. HASIL PRAKTEK
1. Desain GUI
Gambar tampilan penerima dan pengirim data
|
 |
Gambar setelah program di jalankan
2. Listing program
Private
Sub Command1_Click()
MSComm1.Output
= Text1.Text
End
Sub
Private
Sub Command2_Click()
Unload
Me
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
Private
Sub MSComm1_OnComm()
Text2.Text
= MSComm1.Input
End Sub
|
D.
ANALISA DAN KESIMPULAN
Analisa
1.
CommPort yaitu untuk menentukan
nomor port serial
2.
Setting yaitu untuk melakukan
setting nilai baudrate, parity, bit data dan stop bit
3.
PortOpen untuk meng-aktifkan atau me-non aktifkan port
serial
4.
Input untuk mengambil data dari port serial
5.
Output untuk mengirimkan data ke
port serial
Kesimpulan
- MSComm1.Output=text1.text listing program ini berguna untuk mengirim data, sedangkan menerima data deng program text2.text=MSComm1.input.
- If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True End If .
Program ini merupakan
program untuk membuka port.
- If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False End If .
Program ini merupakan
program untuk menutup port.
- Un load digunakan untuk menutup program
Tidak ada komentar:
Posting Komentar