Visual Basic 1, menampilkan random angka 7 dan gambar

deskripsi program :
menampilkan angka 7 secara acak (random) pada 3 kolom yang telah tersedia. ketika angka 7 muncul di salah satu kolom maka akan muncul sebuah gambar. jika tidak ada angka 7 yang muncul maka gambar tidak akan muncul.



langkah pembuatan :
1. buatlah desain seperti di bawah ini :

2. Mengatur properties tombol Command1 dan Command2

     - Klik tombol Command1 pada form

     - Lihat jendela Properties dari tombol Command1 (biasanya terletak di sebelah kanan)

     - Klik ganda Properties "Caption" dan ketikkan "Spin" lalu tekan enter

     - Klik tombol Command2 pada form

     - Klik ganda Properties "Caption" dan ketikkan "End" lalu tekan enter

3. Mengatur properties Label1, Label2, Label3

     - Klik Label1, lalu klik tombol Shift pada keyboard dan tahan sambil klik Label2 dan Label3

     - Klik Properties "Alignment", lalu pilih "2-Center"

     - Klik Properties "BorderStyle", lalu pilih "1-Fixed Single"

     - Klik ganda Properties "Font", ubah Font menjasi "Times NEw Roman", Font Style menjadi "Bold" dan Size menjadi 24, kemudian klik OK

     - Klik pada form untuk menghilangkan bingkai pilihan dari ketiga label, kemudian klik pada Label1

     - Klik ganda Properties "Caption" lalu tekan "Delete". lakukan seperti demikian untuk Label2 dan Label3

4.  Mengattur properties Label4

      - Klik objek label4

      - Ubahlah properties Caption menjadi "Lucky Seven"

      - Ubahlah properties Font sesuai keinginan Anda

      - Ubahlah properties ForeColor, Klik pada tab Pallete, lalu pilih warna ungu

Source code :

Tombol SPIN =

Private Sub Command1_Click()
Image1.Visible = False
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then
    Image1.Visible = True
    Beep
End If
End Sub

Private Sub Command2_Click()
   End
End Sub

DOWNLOAD PROGRAM VB disini