Program Jackpot - Latihan Bahasa Pemograman Visual Basic 6.0

Langkah - langkah membuat program jackpot :

·   Jalankan Visual Basic dalam Standard EXE.

·   Disain tampilan form seperti gambar dibawah ini dengan menggunakan 4 buah kontrol Label dan 2 Bbuah kontrol Command Button

 

  Gbr 1

·   Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
CommandButton1	Name        Caption	cmd_putar &Putar
CommandButton2	Name         Caption	cmd_selesai &Selesai
Label1	Caption             Border Style     Font                 Fore Color	(dikosongkan) 1-Fixed Single Times New Roman, Bold Italic, 65 &H00FF0000&
Label2	Caption             Border Style     Font                 Fore Color	(dikosongkan) 1-Fixed Single Times New Roman, Bold Italic, 65 &H00FF0000&
Label3	Caption             Border Style     Font                 Fore Color	(dikosongkan) 1-Fixed Single Times New Roman, Bold Italic, 65 &H00FF0000&
Label4	Caption	(dikosongkan)

Form1

Name Caption

frm_jackpot Program Jackpot

·   Klik ganda (double klik) pada command button Putar kemudian ketik source code (kode program) dibawah ini :

Private Sub cmd_putar_Click()

Me.Label1.Caption = Int(Rnd * 10)

Me.Label2.Caption = Int(Rnd * 10)

Me.Label3.Caption = Int(Rnd * 10)

If (Me.Label1.Caption = 9) Or (Me.Label2.Caption = 9) Or (Me.Label3.Caption = 9) Then

    Me.Label4.ForeColor = &H80FF&

    Me.Label4.Caption = "Selamat anda menang 100 US$"

ElseIf (Me.Label1.Caption = 9) And (Me.Label2.Caption = 9) And (Me.Label3.Caption = 9) Then

    Me.Label4.Caption = "Selamat anda menang 1000 US$"

Else

    Me.Label4.ForeColor = &H40&

    Me.Label4.Caption = "Anda Belum Beruntung, Silahkan coba lagi...!"

End If

End Sub

·   Klik ganda (double click) pada CommandButton Selesai kemudian ketik  source code (kode program) dibawah ini :

Private Sub cmd_selesai_Click()

End

End Sub

·   Klik ganda (double click) pada CommandButton Selesai kemudian ketik  source code (kode program) dibawah ini :

Private Sub Form_Load()

Randomize

End Sub

·   Lakukan eksekusi program dengan menekan tombol F5 atau klik menu Run => Start.

·   Hasil program ketika program dijalankan

 

 Gbr 2

Gbr 3

 Download Program Jackpot disini