ACAK
WARNA, ANGKA DAN GAMBAR
Trik berikut ini akan
membahas bagaimana cara kita untuk melakukan pengacakan nilai warna, angak dan
gambar.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Kamudian masukkan tiga komponen TextBox dan Image ke dalam area form, ubahlah propertis Stretch pada masing – masing komponen Image Menjadi True.
3.
Selanjutnya masukkan sebuah komponen Timer dan CommandButton ke dalam area form dan ubahlah propertis Enabled menjadi False dan Interval
komponen Timer menjadi 100.
4.
Setelah itu klik ganda pada komponen Timer dan ketiklah perintah di bawah
ini.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Private
Sub Timer1_Timer()
Dim
MyNumber0 As Integer
Dim
MyNumber1 As Integer
Dim
MyNumber2 As Integer
Static
a As Integer
Randomize
a
= a + 1
If
a = 5 Then Timer1.Enabled = False: a = 0
MyNumber0
= 5 * Rnd
MyNumber1
= 5 * Rnd
MyNumber2
= 5 * Rnd
Text1.Text
= MyNumber0
Text2.Text
= MyNumber1
Text2.Text
= MyNumber2
BackColor
= RGB(255 * Rnd, 255 * Rnd)
Image1.Picture
= LoadPicture(App.Path & "\" & MyNumber0 &
".jpg")
Image2.Picture
= LoadPicture(App.Path & "\" & MyNumber1 &
".jpg")
Image3.Picture
= LoadPicture(App.Path & "\" & MyNumber2 &
".jpg")
End
Sub
|
Keterangan
Kode
2-6
7-8
9-14
15
16-18
|
Mendeklarasikan
bebrapa variabel dengan tipe data Integer dan membuat perintah spaya nilai
pengacakan angka lebih acak.
Menambahkan
nilai variabel a dengan nilai pada
variabel itu sendiri dengan nilai satu secara terus menerus dan membuat
perintah logika apabila nilai a
sama dengan 5, maka komponen Timer dimatikan dan memberi nilai a sama dengan 0.
Mengisi
variabel MyNumber0 sampai 2 dengan
nilai acak 0-5 dan menampilkan nilai acak tersebut ke dalam komponen Text1
sampai Text3.
Mengubah
warna backgroud dari form dengan warna acak RGB (Merah, Hijau, Biru).
Mengisi
gambar pada komponen Image1 sampai 3 dengan gamabr yang telah disediakan di
dlaam folder dimana file ini disimpan.
|
5.
Kemudian ke tampilan desain dan klik
ganda komponen CommandButton,
kemudian ketiklah perintah di bawah ini untuk mengaktifkan komponen Timer.
|
1
2
3
|
Private
Sub Command1_Click()
Timer1.Enabled
= True
End
Sub
|
EmoticonEmoticon