Membuat Animasi Bintang Dengan Visual Basic 6.0

Buat sebuah form dengan beberapa label dan sebuah timer, dengan propertis masing2 sbb :
Label1 dst... --> backstyle = 0-transparant
Caption = *
Font = arial black (size =48)
Disini saya menggunakan 12 label
Timer1 --> interval = 300
Memuat foto
Tampilan setelah kita jalankan

Berikut Listing Yang Kita Gunakan

Klik dua kali pada timer lalu masukkan listing dibawah ini:
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label4.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label5.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label6.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label7.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label8.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label9.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label10.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label11.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label12.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub




Program ini dibuat oleh Heri Afrizal di bireuen
http://hery-pc.blogspot.com

Popular posts from this blog

Image
Saya sarankan jangan melihat gambar gambar ini..!!
Read more

Membuat nomor urut secara otomatis pada database MySQL menggunakan php

Image
Waktu dulu pernah saya tulis tutorial serupa tentang Cara membuat nomor urut terbentuk secara otomatis pada database MySQL, hanya saja kali ini saya akan memberikan contoh pemrosesan nya menggunakan php, yang mana pada saat pemrosesanya nanti akan dibuatkan query ke MySQL terlebih dahulu untuk mengambil data nomor yang terakhir, dan nantinya data nomor tersebut akan ditambah 1 (satu) sebelum dimasukan ke table database. Baiklah, kita langsung saja membuatkan contohnya.... Pertama-tama silahkan buat terlebih dahulu database baru bernama terserah anda, dan tambahkan table beserta field-field nya, silahkan copy saja contoh table dibawah ini agar lebih mempercepat tutorial ini, hehe... CREATE TABLE `namatable` (   `nomor` int(11) NOT NULL,   `nama` varchar(50) NOT NULL,   `alamat` varchar(100) NOT NULL,   PRIMARY KEY  (`nomor`) ) ENGINE=MyISAM DEFAULT CHARSET=utf8; Baiklah, database baru berikut contoh table diatas sudah terbentuk, kemudian si...
Read more

Membuat nomor urut secara otomatis pada database MySQL menggunakan php

Image
Waktu dulu pernah saya tulis tutorial serupa tentang Cara membuat nomor urut terbentuk secara otomatis pada database MySQL, hanya saja kali ini saya akan memberikan contoh pemrosesan nya menggunakan php, yang mana pada saat pemrosesanya nanti akan dibuatkan query ke MySQL terlebih dahulu untuk mengambil data nomor yang terakhir, dan nantinya data nomor tersebut akan ditambah 1 (satu) sebelum dimasukan ke table database. Baiklah, kita langsung saja membuatkan contohnya.... Pertama-tama silahkan buat terlebih dahulu database baru bernama terserah anda, dan tambahkan table beserta field-field nya, silahkan copy saja contoh table dibawah ini agar lebih mempercepat tutorial ini, hehe... CREATE TABLE `namatable` (   `nomor` int(11) NOT NULL,   `nama` varchar(50) NOT NULL,   `alamat` varchar(100) NOT NULL,   PRIMARY KEY  (`nomor`) ) ENGINE=MyISAM DEFAULT CHARSET=utf8; Baiklah, database baru berikut contoh table diatas sudah terbentuk, kemudian silahkan buatlah...
Read more