LAPORAN PRAKTEK

KOMUNIKASI SERIAL MENGUNAKAN VISUAL BASIC 6

A.    TUJUAN

·         Mengetahui dasar komunikasi serial menggunakan Visual basic 6.0

·         Dapat memprogram visual basic agar komunikasi serial pada VB dapat berjalan

B.     DASAR TEORI

Untuk menggunakan port serial kita bisa menggunakannya langsung menggunakan control Mscomm yang telah disediakan oleh Visual Basic. Kontrol Mscomm menyediakan fasilitas komunikasi antara program aplikasi dengan port serial sehingga dapat menerima atau mengirim data. Setiap Mscomm hanya dapa satu port serial sehingga jika kita menggunakan lebih dari satu port serial harus menggunakan Mscomm yang lain. Mscomm dapat di tambahkan dengan cara : tekan CTRL+T lalu pilih Microsoft Comm Control 6. Property yang digunakan waktu percobaan adalah Comm port ( untuk menentukan port serial yang kita gunakan), setting (untuk mengatur nilai baud ratr, parity,jumlah bit data dan jumlah bit stop.), Port open (untuk membuka atau menutup port serial), input (untuk mengambil data pada buffer penerima), dan output ( untuk menulis data pada buffer kirim input). Agar bisa berkomunikasi buat agar DTR enable,EOFenable,RTSenable di buat true sedangkan RThreshold dan Sthreshold di buat “1” dan baud rate antara kedua komputer sama.

C.     HASIL PRAKTEK

1.      Desaign form

Gambar form penerima dan pengirim data

gambar form saat di jalankan

2.      Listing program

rivate 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

•                     Agar bisa berkomunikasi buat agar DTR enable,EOFenable,RTSenable di buat true sedangkan RThreshold dan Sthreshold di buat “1” dan baud rate antara kedua komputer sama.

•                     Untuk mengirim data yaitu pada sub_command1 yaitu dengan cara menulis MSComm1.Output=text1.text yang artinya data yang di tulis di text1.text adalah data yang akan di kirim

•                     Untuk menerima data yaitu pada MSComm1_OnComm yaitu dengan cara menulis text2.text=MSComm1.input yang berarti data yang di terima akan di tampilkan di text2.text

•                     If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If .Program tersebut merupakan program untuk membuka port. Program ini di gunakan agar tidak terjadi perintah membuka port saat port telah terbuka.

•                     If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If .Program tersebut merupakan program untuk menutup port. Program ini digunakan agar tidak terjadi perintah menutup port saat port telah tertutup

•                     Un load me dan End  adalah sintaks untuk menutup program

Kesimpulan

•                     MSComm.Input merupakan sintaks untuk menerima data

•                     MSComm.Output merupakan sintaks untuk mengirim data

•                     Untuk menggunakan fasilitas serial pada VB6 menggunakan MSComm

•                     Agar bisa berkomunikasi buat agar DTR enable,EOFenable,RTSenable di buat true sedangkan RThreshold dan Sthreshold di buat “1” dan baud rate antara kedua komputer sama.