VB.NET :: Komunikasi Serial Com Port dengan VB.Net (MENGIRIM)

Komunikasi serial merupakan salah satu metode untuk mengirimkan data dari suatu perangkat ke perangkat yang lain. Komunikasi serial banyak digunakan dalam berbagai aplikasi karena kemudahannya dalam dukungan terhadap sistem.

Dalam posting kali ini, saya akan menyampaikan cara pembuatan program pengiriman data serial menggunakan Microsoft Visual basic 2010. Tanpa banyak basa basi lagi, berikut ini adalah tahap-tahap pembuatan program pengirim data serial.

Komponen-komponen yang diperlukan adalah:

1. ComboBox (2 buah)
2. Label (3 buah)
3. Button (3 buah)
4. TextBox (1 buah)
5. SerialPort (1 buah)

Buatlah tampilan program seperti pada gambar dibawah ini.

Berikut adalah List Program-nya.

Public Class Form1
    Dim myPort As Array  ‘COM Port yang terdeteksi pada sistem akan disimpan disini

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ‘Cek semua com port yang memungkinkan
 myPort = IO.Ports.SerialPort.GetPortNames()    
        ‘Nilai Baud Rate yang bisa digunakan
  ComboBox2.Items.Add(9600)                      
        ComboBox2.Items.Add(19200)
        ComboBox2.Items.Add(38400)
        ComboBox2.Items.Add(57600)
        ComboBox2.Items.Add(115200)
        For i = 0 To UBound(myPort)
            ComboBox1.Items.Add(myPort(i))
        Next
 ‘Atur Com Port pada Port yang pertama terdeteksi
 ComboBox1.Text = ComboBox1.Items.Item(0)   
 ‘Atur Baud Rate pada Baud yang pertama terdeteksi
 ComboBox2.Text = ComboBox2.Items.Item(0)
        Button1.Enabled = True                      ‘Inisialisasi tombol
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.PortName = ComboBox1.Text
        SerialPort1.BaudRate = ComboBox2.Text
        SerialPort1.Open()
        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = True
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Close()
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SerialPort1.Write(TextBox1.Text)
    End Sub
End Class

Berikut ini adalah hasil running dari program dan hasil pengiriman.

Hasil running.

Hasil pengiriman.