Membuat Aplikasi “Roulette Table” dengan Visual Basic 6.0

Aplikasi satu ini mungkin tergolong kategori games / permainan. Tapi bila disimak dalam pembuatannya aplikasi ini termasuk kedalam proses aritmarika. Walaupun terlihat sederhana namun aplikasi ini cukup menyenangkan. Dan bila teman-teman sempat untuk memodifikasi sehingga menjadi semirip dengan yang aslinya! silahkan…karena niat saya dalam pembuatan aplikasi ini hanya sebagai percontohan proses aritmatika. (Sumber: Buku Latihan Microsoft Visual Basic 6.0;Drs. Ario Suryo Kusumo;PT Elex Media Komputindo)

1. Jalankan aplikasi Visual Basic 6.0

2. Pada jendela “New Project” pilih “Standard EXE” kemudian tekan tombol “Open”

3. Berikut setingan kontrol properti yang terdapat pada aplikasi ini

Object	Name	Properties	Setting
Form	Form1	Border Style	1 - Fixed Single
		Caption	Roulette Table
		Font	Tahoma; 10pt
		Start Up Position	2 - Center Screen
Label	lblDisplay1	Alignment	2 - Center
		Back Color	&HFFFFFF
		Caption	(Empty)
		Font	Tahoma; 28pt
Label	lblDisplay2	Alignment	2 - Center
		Back Color	&HFFFFFF
		Caption	(Empty)
		Font	Tahoma; 28pt
Label	lblDisplay3	Alignment	2 - Center
		Back Color	&HFFFFFF
		Caption	(Empty)
		Font	Tahoma; 28pt
Picture Box	picDisplay	Border Style	0 - None
		Picture	C:\Program Files\Microsoft Visual Studio\Common\Graphics\Metafile\Business\MONEY.WMF
		Visible	False
Command Button	cmdSpin	Caption	Spin
Command Button	cmdExit	Caption	E&xit

4. Berikut event code program

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdSpin_Click()
    picDisplay.Visible = False
    lblDisplay1.Caption = Int(Rnd * 10)
    lblDisplay2.Caption = Int(Rnd * 10)
    lblDisplay3.Caption = Int(Rnd * 10)
    If lblDisplay1.Caption = 9 Or lblDisplay2.Caption = 9 Or lblDisplay3.Caption = 9 Then
        picDisplay.Visible = True
    End If
End Sub

Private Sub Form_Load()
    Randomize
End Sub