Kamis, 11 Februari 2010

Interfacing Serial Port

(Motor DC)
Dengan Visual Basic 6.0

Sebagai penulis,saya telah melakukan percobaan sendiri dan mendapatkan hasil yang memuaskan. Oleh karena itu disini saya tidak sekedar menuliskan artikel ini. Tapi saya sudah melakukannya sendiri dan sekarang saya akan membagikannya untuk kita semua.

    Seperti materi sebelumnya pada bab Led,kita juga akan menggunakan pin-pin yang sama dari serial port tapi hanya tiga pin yakni RTS dan DTR serta ground. Kita juga akan menggunakan IC L293D sebagtai driver Motoor DC yang kita gunakan. Silakan Lihat datasheetnya terlebih dahulu.
Gambar.1 Konfigurasi Pin L293D

    Disini kita akan menggunakan Pin nomor 1 hingga 8 dan juga pin nomor 16. Terlebih dahulu buatlah rangkaian Motor Dc seperti dibawah ini.
Gambar.2 Rangkaian Motor Dc

    Setelah Semua telah siap kini kita tinggal merancang program yang akan kita gunakan untuk mengendalikan motor dc tersebut. Disini saya hanya akan mengendalikan arah perputaran motor dc dan tidak untuk kecepatannya. Sehingga pin enable tidak saya gunakan.

    Hampir sama dengan program pada led kita juga akan menggunakan fungsi Microsoft Comm Control 6.0 untuk mengakses Serial Port PC ini. Dan langkah-langkahnya dapat anda lihat dibawah.


Langkah-langkah:
1.    Buka Program VB 6.0
2.    Buat Project baru
3.    buat tampilan form seperti ini

Gambar.3 Tampilan Form

4.    Ubah Properties masing-masing sesuai gambar. Untuk Mscomm1 ubah sama seperti pada Led,yakni
Tabel.1 Properties

Untuk command matikan cukup ubah nilai captionnya saja.


5.    kemudian ketikan listing program berikut
Private Sub Command1_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
kanan.Enabled = False
kiri.Enabled = False
Command1.Caption = "HidupKan"
Shape1.FillColor = vbBlack
Shape2.FillColor = vbBlack
Else
Command1.Caption = "Matikan"
kanan.Enabled = True
kiri.Enabled = True
MSComm1.PortOpen = True
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
End If
End Sub


Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

Private Sub kanan_Click()
MSComm1.RTSEnable = True
kiri.Enabled = True
If MSComm1.RTSEnable = True Then
    MSComm1.DTREnable = False
    kanan.Enabled = False
    Shape1.FillColor = vbBlack
    Shape2.FillColor = vbRed
End If
End Sub

Private Sub kiri_Click()
MSComm1.DTREnable = True
kanan.Enabled = True
If MSComm1.DTREnable = True Then
    MSComm1.RTSEnable = False
    kiri.Enabled = False
     Shape1.FillColor = vbRed
    Shape2.FillColor = vbBlack
End If
End Sub

6.    Jalankan Program dan lihat yang terjadi pada motor dc anda.


    Disini tegangan yang keluar dari Port DB9 PC mencapai 12 volt dc.Oleh karena itu saya sarankan terlebih dahulu anda melakukan pengukuran terhadap tegangan yang akan dikeluarkan oleh pc anda. Dan juga gunakan resisitor dengan ukuran yang tepat. Bisa jadi hal yang tidak diinginkan akan merusak Hardware yang anda buat.
    Dan sekali lagi sebagai penulis saya tidak akan bertanggungjawab atas segala penggunaan artikel ini.

3 komentar:

  1. halo...
    saya sudah buat seperti yang ada di artikel ini...
    tapi tetap ngga jadi...
    kan di artikel ini ngga ditulis kalo mo pake pin yang mana untuk serial portnya...
    maksudnya, pin serial yang no brapa yang di pake untuk di sambung...

    kemarin saya cari di wikipedia untuk port serial,,,
    trus saya sambungkan yang RTS di Pin7 dan DTR di PIN4 untuk port serialnya...
    benar ngga sambungannya???
    ato ada yang harus saya tambah lagi perintah di programnya ato bagaimana?

    tolong yah...
    terima kasih...

    God Bless ^_^

    BalasHapus
  2. halo...
    saya sudah buat seperti yang ada di artikel ini...
    tapi tetap ngga jadi...
    kan di artikel ini ngga ditulis kalo mo pake pin yang mana untuk serial portnya...
    maksudnya, pin serial yang no brapa yang di pake untuk di sambung...

    kemarin saya cari di wikipedia untuk port serial,,,
    trus saya sambungkan yang RTS di Pin7 dan DTR di PIN4 untuk port serialnya...
    benar ngga sambungannya???
    ato ada yang harus saya tambah lagi perintah di programnya ato bagaimana?

    tolong yah...
    terima kasih...

    God Bless ^_^

    BalasHapus
  3. saya sarankan kepada anda untuk mempelajari terlebih dahulu konsep dasar port serial. agar anda tahu bagaimana konfigurasi dan pemrograman pada port serial.

    http://bocah-cakil.blogspot.com/2010/02/interfacing-serial-port.html

    BalasHapus

Need Your Comments, Please !!!