Komunikasi Serial Dengan VB 6.0

Beranda

Pendahuluan

Untuk melengkapi Tugas Akhir, saya diminta untuk mengkomunikasikan hardware saya dengan Komputer, perangkat yang bisa digunakan untuk komnikasi ini yang saya ketahui adalah dengan menggunakan komunikasi serial. Pada artikel ini perangkat konputer yang digunakan adalah komputer jinjing yang tidak memiliki perangkat komunikasi serial seperti pada komputer duduk. Dengan demikian maka agar dapat komunikasi serial dapat digunakan maka diperlukan perangkat komunikasi tambahan, yaitu perangkat yang dapat menterjemahkan data dari serial ke USB yang dikenal dengan USB to Serial konverter. Perangkat USB to Serial Converter yang saya gunakan adalah prolific 2303. Kemudian hasil komunikasi ini dibaca oleh Visual Basic (VB), VB yang saya gunakan adalah VB 6.0 dengan OS Windows7 Ultimate.



Pada project ini data serial dikirimkan oleh IC ATMega 16 melalui IC MAX232. Data yang dikirimkan adalah data yang belum dikuatkan dan data yang telah dikuatkan oleh IC LF351. IC LF 351 ini difungsikan untuk  memaksimalkan tegangan yang dihasilkan oleh potensio menjadi tegangan yang sama dengan tegangan referensi pada ADC ATMega 16.

Tujuan

Tujuan Project ini adalah untuk menganimasikan pada Visual basic data sudut yang diterima oleh ADC pada ATMega 16, yang mana sensor yang digunakan untuk mengukur sudut adalah potensiometer.

Peralatan

Peralatan yang dibutuhkan untuk project yang saya buat ini antaralain adalah :
1. Komputer (saya menggunakan Komputer jinjing / Laptop).
2. Minsis ATMega 16, dengan tambahan MAX232
3. USB to Serial Converter
4. Potensiometer Linear.
5. Power Supply.
6. Rangkaian Penguat menggunakan IC LF 351.

Prosedur


Langkah yang perlu dilakukan pada project ini yaitu,

1. Rangkai peralatan diatas sesui dengan blog diagram dibawah ini.

2. Setelah dihubungkan buat Project pada VB, Seperti pada gambar dibawah ini.

3. Tambahkan Mictrosft Comm Control 6.0 (SP6) pada Components. Seperti pada gambar dibawah ini.

     Setelah MSComm control 6.0 di centang kemudian kllik apply, setelah muncul komponen seperti    gambar yang telah dilingkari merah, kemudian klik Close.


4. Tentukan Port komunikasi serial yang digunakan. Ini bisa dilakukan pada properties dari mscomm seperti pada gambar ddibawah ini.

5. Buka Port komunikasi serial. Untuk melakukan ini maka saya perlu menambahkan satu Command Button, dan membuka Portnya dari sini. Karena jika Portnya dibuka pada Form_Load() maka Laptop saya langsung Hang, Hardisknya langsung berhenti berputar, ditandai dengan matinya led indikator putaran hardisk. Programnya seperti sidabah ini.

Private Sub Command1_Click()
On Error Resume Next
If Command1.Caption = "CONNECT" Then
    Command1.Caption = "DISCONNECT"
        Comm1.PortOpen = True
        Timer1.Enabled = True
        Label1.Caption = "Port Open"
    Else
    Command1.Caption = "CONNECT"
        Comm1.PortOpen = False
        Timer1.Enabled = False
        Label1.Caption = "Port Close"
        Shape1.BackColor = vbRed
        Label4 = 0
        Label5 = 0
        Label6 = 0
End If

End Sub

6. Tentukan treshold data yang masuk. Untuk menentukan data treshold dapat diketahui dari data yang dikirimkan. Pada kasus ini saya mengirimkan 13 data, yaitu s4data4data. Dengan demikian maka data yang dikirimkan sebanyak 13 data, yaitu satu karakter 's' 8data dan 3 spasi.

7. Pisahkan data sesuai dengan yang dikirim. Caranya adalah dengan mengidentifiasi data yang ada di sebelah kiri kemudian identifikasi data setelahnya, dan masukkan data tersebut pada variabel yang diinginkan. Pemisahan ini dilakukan pada sub komunikasi oncomm, programnya adalah:

Private Sub Comm1_OnComm()
Dim datamasuk As String
Dim kiri, head As String

On Error Resume Next
If Comm1.CommEvent = comEvReceive Then
    datamasuk = Comm1.Input
    Shape2.BackColor = vbGreen
Else
    Shape2.BackColor = vbYellow
End If

Text1.Text = datamasuk
Label9 = Comm1.InBufferCount

kiri = datamasuk
head = InStr(kiri, "s")
If Left(kiri, 1) = "s" Then
    data1 = Mid(kiri, head + 2, 1)
    data2 = Mid(kiri, head + 3, 1)
    data3 = Mid(kiri, head + 4, 1)
    data4 = Mid(kiri, head + 5, 1)
    data5 = Mid(kiri, head + 7, 1)
    data6 = Mid(kiri, head + 8, 1)
    data7 = Mid(kiri, head + 9, 1)
    data8 = Mid(kiri, head + 10, 1)

End If
Label12.Caption = "data1 = " & data1
Label13.Caption = "data2 = " & data2
Label14.Caption = "data3 = " & data3
Label15.Caption = "data4 = " & data4
Label16.Caption = "data5 = " & data5
Label17.Caption = "data6 = " & data6
Label18.Caption = "data7 = " & data7
Label19.Caption = "data8 = " & data8

        adc1 = data1 & data2 & data3 & data4
        adc2 = data5 & data6 & data7 & data8
       
Text2.Text = "Data masuk = " & adc1 & " " & adc2
End Sub

8. Tampilkan data. Pada program diatas data telah ditampilkan pada teks2 dan pada label 12 hingga label 19

9. Buat animasi untuk data yang telah diterima. Program untuk animasi ditempatkan pada sub timer. programnya adalah :

Line1.X1 = 8300
Line1.Y1 = 5100
Line1.X2 = 8300 + (3500 * Sin(sudut1 / 180 * pi))
Line1.Y2 = 5100 + (3500 * Cos(sudut1 / 180 * pi))

Line2.X1 = 8300
Line2.Y1 = 5100
Line2.X2 = 8300 + (3500 * Sin(sudut2 / 180 * pi))
Line2.Y2 = 5100 + (3500 * Cos(sudut2 / 180 * pi))

Line 1 untuk data adc yang tidak dikuatkan, sedangkan line 2 untuk data adc yang telah dikuatkan.

Hasil Percobaan

Pada percobaan pertama, saya membuka Port komunikasi saat form load, dan hasilnya seperti yang telah saya utarakan diatas, Laptop saya menjadi Hang dan hardisknya berhenti berputar. Beberapa waktu kemudian saya bertanya pada teman saya Bachtiar, yang pernah melakukan project yang sama, namun dia menampilkan komunikasi dari QuadCopter. Kemudian saya mempelajari program yang telah dia buat dan berhasil membuka port, namun tidak ada data yang diterima. seperti pada Video dibawah ini.

Kemudian saya mencoba menulis kembali program yang sebelumnya dengan menghilangkan On Error Resume Next, dan membaca sumber-sumber lain. Kemudian Errornya hilang tapi data yang diterima tidak bisa dibaca, muncul error yang baru, yaitu error 8020, yang intinya error saat membaca piranti comm. seperti pada video dibawah ini.

Saya berpikiran mungkin cara membacanya yang salah, sehingga saya mengubah cara membacanya, seperti pada video dibawah ini,

Namun masih tetap error, kemudian saya membaca di Sini, Sini,  Sini dan beberapa forum yang saya buka dari google dengan keyword "Run time error '8020' : Error reding comm device". Setelah membaca dari forum tersebut saya coba untuk mengupdate driver USB to Serial milik saya, saat itu drivernya versi 3.0 kemudian saya update ke versi 3.3 dan jadinya adalah sebagai berikut :

Video diatas sudah lengkap dengan animasinya. Saya lupa untuk mendokumentasikan saat data pertama kali dapat dibaca, dan cara membacanya lebih simple dari contoh yang saya baca, cara untuk membaca datanya adalah : datamasuk = MSComm1.Input dan data masuk bertipe string. Pada video diatas saya juga telah memisahkan data yang diperoleh satu-persatu. Namun saat mellihat animasi saya merasa perlu untuk menambahkan nilai pada garis penanda (garis putus-putus) sehingga dapat diketahui posisi jarum berada pada posisi sudut berapa derajat. Garis berwarna merah adalah sudut dari data yang telah dikuatkan, dan garis berwarna biru adalah sudut dari data tanpa penguatan. Dibawah ini adalah Videonya.

Pada Video diatas saya juga menambahkan Chart untuk data yang tidak dikuatkan. Dan penunjuk untuk mengetahui posisi jarum sekarang berada dimana. Demikian dari saya semoga bermanfaat. Jika ada pertanyaan atau anda tertarik untuk mempelajarinya silahkan komen atau silahkan kirimkan e-mail pada alamat e-mail saya diatas. Silahkan Download VBCodenya Di Sini (Google Drive)
Mohon maaf jika ada kekurangan.