Membuat Aplikasi “Roulette Table” dengan Visual Basic.NET 2010

Setelah sebelumnya pada Visual Basic 6.0 kini saya coba terapkan pembuatan aplikasi ini pada Visual Basic.NET 2010 sepertinya tidak banyak yang berubah dalam pemrogramannya. Hanya sedikit perubahan seting pada kontrol Label khususnya pada properti “Caption” (VB6) dan “Text” (VB.NET) selebihnya nyaris tidak ada.

 

1. Jalankan terlebih dahulu aplikasi Visual Basic 2010

2. Pada tabulasi “Start Page” pilih “New Project” atau bisa juga dengan menekan tombol “Ctrl + N” pada keyboard

3. Pada jendela “New Project” pilih “Windows Forms Application” kemudian tekan tombol “OK”

4. Berikut setingan kontrol properti yang terdapat pada aplikasi ini

Object	Name	Properties	Setting
Form	Form1	Font	Tahoma; 10pt
		Form Border Style	Fixed Single
		Maximize Box	False
		Minimize Box	False
		Start Position	Center Screen
		Text	Roulette Table
Label	lblDisplay1	Auto Size	False
		Back Color	White
		Font	Tahoma; 28pt
		Text	(Empty)
		Text Align	Middle Center
Label	lblDisplay2	Auto Size	False
		Back Color	White
		Font	Tahoma; 28pt
		Text	(Empty)
		Text Align	Middle Center
Label	lblDisplay3	Auto Size	False
		Back Color	White
		Font	Tahoma; 28pt
		Text	(Empty)
		Text Align	Middle Center
Picture Box	picDisplay	Image	C:\Program Files\Microsoft Visual Studio\Common\Graphics\Metafile\Business\MONEY.WMF
		Size Mode	Stretch Image
		Visible	False
Button	cmdSpin	Text	Spin
Button	cmdExit	Text	E&xit

5. Berikut event code program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        End
    End Sub

    Private Sub cmdSpin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSpin.Click
        picDisplay.Visible = False
        lblDisplay1.Text = Int(Rnd() * 10)
        lblDisplay2.Text = Int(Rnd() * 10)
        lblDisplay3.Text = Int(Rnd() * 10)
        If lblDisplay1.Text = 9 Or lblDisplay2.Text = 9 Or lblDisplay3.Text = 9 Then
            picDisplay.Visible = True
        End If
    End Sub

End Class