Jumat, 15 April 2011

Membuat Animasi LED Berjalan dengan Visual Basic

Telah banyak sekali artikel yang di tulis banyak web ataupun blog tentang membuat animasi led berjalan menggunakan visual basic seperti ini. Meskipun membuat animasi led berjalan dengan visual basic ini terbilang mudah dan sederhana namun animasi led berjalan ini cukup memiliki mamfaat bagi kita. Khususnya sebagai indicator untuk membuat sebuah project interfacing seperti interfacing paralel port dan interfacing serial port.
Pada postingan kali ini saya akan mencoba untuk mengulas kembali bagaimana cara membuat animasi led berjalan dengan visual basic. Visual basic yang saya gunakan adalah versi 6.0. Adapun langkah-langkahnya sebagai berikut:
1.    buka software visual basic yang telah terinstal di komputer anda.
2.    buat sebuah project baru.
3.    selanjutnya tambahkan delapan buah control shape dan ubah properties shape tadi sebagai barikut:
Name        : ShpLED1    sampai     ShpLED8
Shape        : 3-Circle
Backcolor     : pilih warna merah
backStyle    : Opaque
4.    tambahkan juga sebuah control timer dan ubah intervalnya menjadi 1000.
5.    Atur tampilannya sedemikian rupa atau seperti gambar.1

 
Gambar.1 Lay Out Program

6.    Berikutnya kita akan bermain dengan programnya. Buka jendela code dan ketikan code berikut
Dim Jalan As String

7.    klik dua kali control form dan ketikan code ini
Jalan = 1
8.    selanjutnya klik dua kali control timer dan ketikan code ini.
ShpLED1.BackColor = vbRed * ((Jalan / 2 ^ 0) And 1)
ShpLED2.BackColor = vbRed * ((Jalan / 2 ^ 1) And 1)
ShpLED3.BackColor = vbRed * ((Jalan / 2 ^ 2) And 1)
ShpLED4.BackColor = vbRed * ((Jalan / 2 ^ 3) And 1)
ShpLED5.BackColor = vbRed * ((Jalan / 2 ^ 4) And 1)
ShpLED6.BackColor = vbRed * ((Jalan / 2 ^ 5) And 1)
SHpLED7.BackColor = vbRed * ((Jalan / 2 ^ 6) And 1)
ShpLED8.BackColor = vbRed * ((Jalan / 2 ^ 7) And 1)

Jalan = Jalan * 2
If Jalan > 255 Then Jalan = 1

9.    selanjutnya jalankan program anda. Jika berhasil. Animasi led yang anda buat akan berjalan dari kiri ke kanan.
10.    simpan program anda dengan nama animasi_ledku.
11.    Anda dapat mengembangkan program tersebut. Misalnya anda tambahkan beberapa control label dan control Hscroll dan atur seperti berikut

 
Gambar.2 Animasi Led Berjalan

12.    dan anda juga bisa menggunakan program di atas sebagai indicator program interfacing paralel port dengan visual basic.

Terima Kasih Kepada :     Drs. Agfianto Eko Putra, M.Si (http://agfi.staff.ugm.ac.id)
                                        Elektronika00 (http://elektronika00.tk)

Andiero.http://bocah-cakil.blogspot.com

2 komentar:

  1. Sedikit penjelasan tentang Program Animasi Led Berjalan Dengan Visual Basic diatas.
    Untuk animasi Led kita gunakan shape dan pilih bentuk bulat (Circle) dan untuk warna awal, kita pilih warna merah.
    Untuk program utama
    Jalan = 1 (Kondisi Awal dari Fungsi Jalan bernilai 1)

    perhatikan Bag. 8.
    ShpLED1.BackColor = vbRed * ((Jalan / 2 ^ 0) And 1)
    ....
    ShpLED8.BackColor = vbRed * ((Jalan / 2 ^ 7) And 1)

    Jalan = Jalan * 2
    If Jalan > 255 Then Jalan = 1

    Untuk penjelasan :
    Jalan=jalan*2 artinya nilai jalan_akhir= nilai jalan_awal dikalikan 2
    contoh misal nilai jalan awal =1 maka nilai dari jalan_akhir = 1*2

    selanjutnya hubungkan dengan perintah
    ShpLED1.BackColor = vbRed * ((Jalan / 2 ^ 1) And 1)

    Jika nilai Jalan = 2 maka Jalan/2^1 = 1 selanjutnya 1 AND 1 = 1
    vbRed * 1 = vbRed jadi warna backcolor dari Shape adalah vbRed (Merah) jika nilai jalan = 4 maka untuk fungsi Jalan/2^1 tidak sama dengan 1 atau 0, dan 0 AND 1 = 0
    vbRed * 0 = 0 atau warna hitam dalam code warna.

    Jadi nilai yang sesuai akan menyebabkan warna merah dan lainnya berwarna hitam.

    BalasHapus

Need Your Comments, Please !!!