Minggu, 03 Juni 2012

Pemrograman Serial pada Visual Basic 6.0


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 COM1/COM2.
Peralatan Komunikasi Serial
Devais pada komunikasi serial port dibagi menjadi 2 (dua ) kelompok yaitu  Data Communication Equipment (DCE) dan Data Terminal Equipment (DTE). Contoh dari DCE ialah modem, plotter, scanner dan lain lain sedangkan contoh dari DTE ialah terminal  di komputer. Spesifikasi elektronik dari serial port merujuk pada Electronic Industry Association (EIA) :
  1. “Space” (logika 0) ialah tegangan antara + 3 hingga +25 V.
  2. “Mark” (logika 1) ialah tegangan antara –3 hingga –25 V.
  3. Daerah antara + 3V hingga –3V tidak didefinisikan /tidak terpakai
  4. Tegangan open circuit tidak boleh melebihi 25 V.
  5. Arus hubungan singkat tidak boleh melebihi 500mA.
Komunikasi serial membutuhkan port sebagai saluran data.  Berikut tampilan port serial DB9 yang umum digunakan sebagai port serial
 
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
 
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.