Minggu, 31 Januari 2010

INTERFACING SERIAL PORT (LED) Dengan Visual Basic(VB) 6.0

    Konsep dasar dari pemrograman serial port menggunakan VB sebenarnya mirip dengan pemrograman pada port parallel. Tapi di serial lebih banyak memiliki register yang harus di setting. Tapi hal tersebut bukan maslah. Sebagai pemula (saya juga pemula) kita dapat menggunakan fungsi tambahan pada VB. Yakni MSCOMM yang dapat ditambahkan pada toolbox dengan cara tekan tombol Ctrl+T dan pilih microsoft comm control 6.0.Akan muncul icon seperti ini
   
Gambar.1 Icon Mscomm
    Sebelum melangkah lebih jauh ada baiknya jika kita terlebih dahulu membuat rangkaian dari led yang akan kita gunakan. Lihat gambar.2 dibawah

Gambar.2 Rangkaian LED
   
    Dari gambar tersebut kita dapat melihat pin-pin yang akan kita gunakan dan hubungkan. Dan kita juga akan menggunakan Pin DB9 yang bisa kita lihat dari Gambar.3

Gambar.3 Konfigurasi Pin

    Dan sekarang kita telah mengetahui pin yang akan kita gunakan. Selanjutnya kita akan langsung membuat program yang akan kita gunakan untuk mengakses serial port. (Disini saya telah menganggap kalian mampu untuk menggunaka Perogram Visual Basic 6.0 jadi saya tidak perlu emnjelasakan tentang VB 6.0 pada kalian.)

Langkah-langkah membuat proram:
  • Hubungkan pin-pin port serial ke pin-pin led sesuai dengan konfigurasi yang ada.
  • Buka Program VB 6.0(jika sudah terinstal,jika belum installah dulu.Oke....).
  • buat project baru. Dan Tambahkan Fungsi Mscomm.Dengan cara tekan Ctrl+T>muncul form Commponent>pilih Microsoft Comm Control 6.0
  • Dan buat tampilan form seperti ini.

Gambar.4 Tampilan Form

  • Kita lihat jika kita gunakan 4 buah Shape,2 buah Command Button tiga buah timer dan satu buah Mscomm. Setting propertisnya dapat anda lakukan sendiri sesuka anda.hanya saja untuk Mscomm1.dan timer buat seperti dibawah
Tabel.1 Properties

Note. Untuk CommPort dapat anda isikan tergantung Port Com Berapa yang anda gunakan. Disini saya gunakan Com 1.
  • Kemudian ketikan Listing Program berikut.

Private Sub Form_Load()
Shape1.FillColor = &H0
Shape2.FillColor = &H0
Shape3.FillColor = &HFF
Command2.Enabled = False
Command2.BackColor = &HC0C0FF
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Command1.Enabled = False
Command1.BackColor = &HC0C0FF
Command2.Enabled = True
Command2.BackColor = &HFF
If Not MSComm1.PortOpen Then
    MSComm1.PortOpen = True
End If
End Sub

Private Sub Command2_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
Command1.Enabled = True
Command1.BackColor = &HFF
Command2.Enabled = False
Command2.BackColor = &HC0C0FF
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
Unload Me
End Sub

Private Sub Timer1_Timer()
Shape1.FillColor = vbYellow
Shape2.FillColor = &H0
Shape3.FillColor = &H0
MSComm1.DTREnable = True
MSComm1.RTSEnable = False
End Sub

Private Sub Timer2_Timer()
Shape1.FillColor = &H0
Shape2.FillColor = vbGreen
Shape3.FillColor = &H0
MSComm1.DTREnable = False
MSComm1.RTSEnable = True
End Sub

Private Sub Timer3_Timer()
Shape1.FillColor = &H0
Shape2.FillColor = &H0
Shape3.FillColor = &HFF
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
End Sub

  • Jalankan proram yang anda buat dan lihat rangkaian Led Serial yang anda buat. Lampu akan menyala satu-satu dan acak.

    Karena saya merasa program ini masih jauh kurangnya maka dengan sangat silahkan dikembangkan. Dan tolong disharekan kesemua. Semoga bermamfaat.

Note.Jika terjadi hal yang tidak diinginkan atas penggunaan artikel ini saya tidak bertanggung jawab. Informasi ini semoga bermamfaat untuk kita semua.

5 komentar:

  1. Mas mungkin sedikit memperbaiki program interfacing serial port tersebut pada program visual basicnya cukup gunain satu timer aja.

    terus pin 3 dan ground di tuker. emang entar pin 3 nya kayak lampu flash. untuk itu gunain fungsi khusus dari file dllnya

    BalasHapus
  2. mas kalau buat menggerakan rangkaian motor dc
    codenya sama gak??
    klw beda bedanya dimana??
    tolong bantuannya mas
    n juga kalau buat grafik dari alat gimn?
    makasih atas bantuannya

    BalasHapus
  3. Itu baru 3 led...
    klu ingin kendalikan lebih dari 3 led?
    caranya gmna mas?

    BalasHapus
  4. @pengen_sesuatu :
    Led disana lebih digunakan sebagai indikator untuk keluaran serial port.
    Jika ingin mengendalikan lebih banyak led menggunakan PC, anda bisa menggunakan controler seperti mikrokontroler untuk mengendalikan Led Driver.

    Coba baca artikel lain di Blog ini tentang interfacing Serial Port dengan Mikrokontroler.

    BalasHapus

Need Your Comments, Please !!!