Membuat Animasi LED Berjalan dengan Visual Basic

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.