Membuat Warna Kedap Kedip Pada VB

Kita Langsung saja ya...!!!
Buka Program Visual Basic yang sudah terinstal di PC or Laptop anda.!


 Seperti Biasa, mulai dengan membuka Programnya.!

Gambar 1.1

START > All Program > Microsoft Visual Studio 6.0> Microsoft Visual 6.0

Tampilannya akan tampak seperti gambar di bawah ini...

Gambar 1.2

Kemudian Buatlah Sebuah Form baru seperti di Bawah ini..!

Gambar 1.3

Nah Sekarang buatlah object Lingkaran.
Warnai obyek lingkaran tersebut dengan warna merah saja. Nah warna dari lingkaran itulah yang akan kita buat kedap kedip menjadi warna Biru,Kuning, dan Merah... Secara berulang, sesuai dengan Interval Timer yang kita Setting.

Langkahnya:

Gambar 1.4

1. Buatlah Obyek Lingkaran, jika tampil kotak maka anda harus rubah di bagian Properti di sebelah kanan Di sana ada shape, anda pilih Circle. Lihat Gambar di sebelah kiri......... Yaaaaa....!!

2. Kita Masukkan timer pada Formnya, atur intervalnya menjadi 250
    Double click Timernya, And Masukkan Codingnya Di dalam Timer1 itu...
Lihat Gambar Form Beserta Timer di dalamnya.!  (Gambar 1.5)
Masukkan Codingnya.. Berikut Coding Sederhananya!!!


                 Private Sub Timer1_Timer()
                 If Shape1.BackColor = &HFF& Then
                            Shape1.BackColor = vbBlue

  

Gambar 1.5

             ElseIf Shape1.BackColor = vbBlue Then
                        Shape1.BackColor = vbYellow
              Else
                   Shape1.BackColor = &HFF&
     End If


     End Sub




Nah Jika Coding yang anda masukkan benar dan betul.. He.. Maka Lingkaran yang warna merah akan berubah menjadi warna Biru dan kuning....

Oya.. Code Warna bisa dicopykan atau ditulis dengan awalan VB(color name)