PROGRAM PERMAINAN PUZZEL

“PUZZLE”

Tujuan

Tujuan pembuatan program aplikasi puzzle ini adalah untuk memenuhi penugasan modul 3 yang diberikan oleh asisten Desision Suport System selain itu juga bertujuan untuk menghibur atau penghilang stress bagi para user dan menantang para user untuk dapat memenangkan sebuah permainan puzzle ini.

Sasaran

Sasaran dari pembuatan program aplikasi puzzle ini adalah semua usia baik anak-anak, remaja, maupun orang dewasa karena tujuan dari permainan ini untuk menghibur atkau untuk melepas penat dari segala kesibukan aktivitas.

Deskripsi

Program aplikasi puzzle terdiri dari  2 form dengan form pertama adalah permainan puzzle dan form ke 2 adalah gambar asli dari puzzle. Form 1 adalah tempat permainan puzzle dimana user  harus menean tombol start untuk mengacak gambar tersebut dan menekan tombol stop untuk menghentikan acakan gambar. Setelah gambar diacak maka user wajib menyusun gambar sesuai contoh yang ada di form 2 dengan cara menggeser ke arah kanan, kiri, atas maupun bawah. Apabila user dapat menyusun puzzle tersebut sesuai dengan contoh yang terdapat di form 2 maka user memenangkan permainan tersebut dan bila user tidak dapat menyelesaikan permainan ini maka gambar akan kembali seperti semula.

FLOWCHART DARI PROGRAM PUZZEL :

TUTORIAL PEMBUATAN PROGRAM :

1.Membuka Aplikasi Visual Basic 2010

2.Pilih Windows Form aplication

3. klik Ok, dan akan muncul tampilan seperti dibawah ini

4. Pilih toolbox yg ingin anda gunakan

5.buatlah tampilan seperti di bawah ini 

6. lalu masukan listing ke dalam setiap form

untuk form 1 :

ini adalah main form dari aplikasi Puzzle ini, berikut isi listingnya :

Public Class Form1

    Dim mulai As Integer

    Dim smt As String

    Dim gbr As Object

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True

        mulai = Rnd() * 50

        Label2.Text = 0

        Button1.Visible = False

        Label4.Text = Int(Label4.Text) + 1

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        smt = Button11.Text

        Button11.Text = Button6.Text

        Button6.Text = smt

        gbr = Button11.BackgroundImage

        Button11.BackgroundImage = Button6.BackgroundImage

        Button6.BackgroundImage = gbr

        smt = Button11.Text

        Button11.Text = Button5.Text

        Button5.Text = smt

        gbr = Button11.BackgroundImage

        Button11.BackgroundImage = Button5.BackgroundImage

        Button5.BackgroundImage = gbr

        smt = Button4.Text

        Button4.Text = Button9.Text

        Button9.Text = smt

        gbr = Button4.BackgroundImage

        Button4.BackgroundImage = Button9.BackgroundImage

        Button9.BackgroundImage = gbr

        smt = Button4.Text

        Button4.Text = Button8.Text

        Button8.Text = smt

        gbr = Button4.BackgroundImage

        Button4.BackgroundImage = Button8.BackgroundImage

        Button8.BackgroundImage = gbr

        smt = Button5.Text

        Button5.Text = Button10.Text

        Button10.Text = smt

        gbr = Button5.BackgroundImage

        Button5.BackgroundImage = Button10.BackgroundImage

        Button10.BackgroundImage = gbr

        smt = Button5.Text

        Button5.Text = Button3.Text

        Button3.Text = smt

        gbr = Button5.BackgroundImage

        Button5.BackgroundImage = Button3.BackgroundImage

        Button3.BackgroundImage = gbr

        smt = Button7.Text

        Button7.Text = Button10.Text

        Button10.Text = smt

        gbr = Button7.BackgroundImage

        Button7.BackgroundImage = Button10.BackgroundImage

        Button10.BackgroundImage = gbr

        smt = Button7.Text

        Button7.Text = Button9.Text

        Button9.Text = smt

        gbr = Button7.BackgroundImage

        Button7.BackgroundImage = Button9.BackgroundImage

        Button9.BackgroundImage = gbr

        smt = Button8.Text

        Button8.Text = Button3.Text

        Button3.Text = smt

        gbr = Button8.BackgroundImage

        Button8.BackgroundImage = Button3.BackgroundImage

        Button3.BackgroundImage = gbr

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button4.Text = "" Then

            gbr = Button3.BackgroundImage

            Button3.BackgroundImage = Button4.BackgroundImage

            Button4.BackgroundImage = gbr

            smt = Button3.Text

            Button3.Text = Button4.Text

            Button4.Text = smt

        ElseIf Button6.Text = "" Then

            gbr = Button3.BackgroundImage

            Button3.BackgroundImage = Button6.BackgroundImage

            Button6.BackgroundImage = gbr

            smt = Button3.Text

            Button3.Text = Button6.Text

            Button6.Text = smt

        End If

        Label2.Text = Int(Label2.Text) + 1

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button3.Text = "" Then

            gbr = Button4.BackgroundImage

            Button4.BackgroundImage = Button3.BackgroundImage

            Button3.BackgroundImage = gbr

            smt = Button4.Text

            Button4.Text = Button3.Text

            Button3.Text = smt

        ElseIf Button7.Text = "" Then

            gbr = Button4.BackgroundImage

            Button4.BackgroundImage = Button7.BackgroundImage

            Button7.BackgroundImage = gbr

            smt = Button4.Text

            Button4.Text = Button7.Text

            Button7.Text = smt

        ElseIf Button5.Text = "" Then

            gbr = Button4.BackgroundImage

            Button4.BackgroundImage = Button5.BackgroundImage

            Button5.BackgroundImage = gbr

            smt = Button4.Text

            Button4.Text = Button5.Text

            Button5.Text = smt

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button4.Text = "" Then

            gbr = Button5.BackgroundImage

            Button5.BackgroundImage = Button4.BackgroundImage

            Button4.BackgroundImage = gbr

            smt = Button5.Text

            Button5.Text = Button4.Text

            Button4.Text = smt

        ElseIf Button8.Text = "" Then

            gbr = Button5.BackgroundImage

            Button5.BackgroundImage = Button8.BackgroundImage

            Button8.BackgroundImage = gbr

            smt = Button5.Text

            Button5.Text = Button8.Text

            Button8.Text = smt

        End If

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button3.Text = "" Then

            gbr = Button6.BackgroundImage

            Button6.BackgroundImage = Button3.BackgroundImage

            Button3.BackgroundImage = gbr

            smt = Button6.Text

            Button6.Text = Button3.Text

            Button3.Text = smt

        ElseIf Button7.Text = "" Then

            gbr = Button6.BackgroundImage

            Button6.BackgroundImage = Button7.BackgroundImage

            Button7.BackgroundImage = gbr

            smt = Button6.Text

            Button6.Text = Button7.Text

            Button7.Text = smt

        ElseIf Button9.Text = "" Then

            gbr = Button6.BackgroundImage

            Button6.BackgroundImage = Button9.BackgroundImage

            Button9.BackgroundImage = gbr

            smt = Button6.Text

            Button6.Text = Button9.Text

            Button9.Text = smt

        End If

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button4.Text = "" Then

            gbr = Button7.BackgroundImage

            Button7.BackgroundImage = Button4.BackgroundImage

            Button4.BackgroundImage = gbr

            smt = Button7.Text

            Button7.Text = Button4.Text

            Button4.Text = smt

        ElseIf Button6.Text = "" Then

            gbr = Button7.BackgroundImage

            Button7.BackgroundImage = Button6.BackgroundImage

            Button6.BackgroundImage = gbr

            smt = Button7.Text

            Button7.Text = Button6.Text

            Button6.Text = smt

        ElseIf Button10.Text = "" Then

            gbr = Button7.BackgroundImage

            Button7.BackgroundImage = Button10.BackgroundImage

            Button10.BackgroundImage = gbr

            smt = Button7.Text

            Button7.Text = Button10.Text

            Button10.Text = smt

        ElseIf Button8.Text = "" Then

            gbr = Button7.BackgroundImage

            Button7.BackgroundImage = Button8.BackgroundImage

            Button8.BackgroundImage = gbr

            smt = Button7.Text

            Button7.Text = Button8.Text

            Button8.Text = smt

        End If

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button5.Text = "" Then

            gbr = Button8.BackgroundImage

            Button8.BackgroundImage = Button5.BackgroundImage

            Button5.BackgroundImage = gbr

            smt = Button8.Text

            Button8.Text = Button5.Text

            Button5.Text = smt

        ElseIf Button7.Text = "" Then

            gbr = Button8.BackgroundImage

            Button8.BackgroundImage = Button7.BackgroundImage

            Button7.BackgroundImage = gbr

            smt = Button8.Text

            Button8.Text = Button7.Text

            Button7.Text = smt

        ElseIf Button11.Text = "" Then

            gbr = Button8.BackgroundImage

            Button8.BackgroundImage = Button11.BackgroundImage

            Button11.BackgroundImage = gbr

            smt = Button8.Text

            Button8.Text = Button11.Text

            Button11.Text = smt

        End If

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button6.Text = "" Then

            gbr = Button9.BackgroundImage

            Button9.BackgroundImage = Button6.BackgroundImage

            Button6.BackgroundImage = gbr

            smt = Button9.Text

            Button9.Text = Button6.Text

            Button6.Text = smt

        ElseIf Button10.Text = "" Then

            gbr = Button9.BackgroundImage

            Button9.BackgroundImage = Button10.BackgroundImage

            Button10.BackgroundImage = gbr

            smt = Button9.Text

            Button9.Text = Button10.Text

            Button10.Text = smt

        End If

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button7.Text = "" Then

            gbr = Button10.BackgroundImage

            Button10.BackgroundImage = Button7.BackgroundImage

            Button7.BackgroundImage = gbr

            smt = Button10.Text

            Button10.Text = Button7.Text

            Button7.Text = smt

        ElseIf Button11.Text = "" Then

            gbr = Button10.BackgroundImage

            Button10.BackgroundImage = Button11.BackgroundImage

            Button11.BackgroundImage = gbr

            smt = Button10.Text

            Button10.Text = Button11.Text

            Button11.Text = smt

        ElseIf Button9.Text = "" Then

            gbr = Button10.BackgroundImage

            Button10.BackgroundImage = Button9.BackgroundImage

            Button9.BackgroundImage = gbr

            smt = Button10.Text

            Button10.Text = Button9.Text

            Button9.Text = smt

        End If

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Label2.Text = Int(Label2.Text) + 1

        If Button10.Text = "" Then

            gbr = Button11.BackgroundImage

            Button11.BackgroundImage = Button10.BackgroundImage

            Button10.BackgroundImage = gbr

            smt = Button11.Text

            Button11.Text = Button10.Text

            Button10.Text = smt

        ElseIf Button8.Text = "" Then

            gbr = Button11.BackgroundImage

            Button11.BackgroundImage = Button8.BackgroundImage

            Button8.BackgroundImage = gbr

            smt = Button11.Text

            Button11.Text = Button8.Text

            Button8.Text = smt

        End If

    End Sub

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

        Me.CenterToScreen()

        

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        If Button1.Visible = True Then

            MsgBox("anda belum menyelesaikan permainan anda", MsgBoxStyle.Critical, "error")

        Else

            MsgBox("selamat anda berhasil menyelesaikan game dalam " & Label2.Text & "" & "langkah", MsgBoxStyle.Information, "congratulation")

        End If

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        Button1.Visible = True

        Label2.Text = 0

        Button3.Text = 1

        Button4.Text = 2

        Button5.Text = 3

        Button6.Text = 4

        Button7.Text = 5

        Button8.Text = 6

        Button9.Text = 7

        Button10.Text = 8

        Button11.Text = ""

        Button3.BackgroundImage = WindowsApplication1.My.Resources.bt11

        Button4.BackgroundImage = WindowsApplication1.My.Resources.bt2

        Button5.BackgroundImage = WindowsApplication1.My.Resources.bt3

        Button6.BackgroundImage = WindowsApplication1.My.Resources.bt4

        Button7.BackgroundImage = WindowsApplication1.My.Resources.bt5

        Button8.BackgroundImage = WindowsApplication1.My.Resources.bt6

        Button9.BackgroundImage = WindowsApplication1.My.Resources.bt7_2

        Button10.BackgroundImage = WindowsApplication1.My.Resources.bt8_2

        Button11.BackgroundImage = Nothing

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        Form2.Show()

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

       

        If Form3.Visible = True Then

            MsgBox("pemuatan gagal !!!!!")

        Else

            Form3.ListBox1.Items.Add(Label2.Text)

            Form3.ListBox2.Items.Add(Label4.Text)

            Form3.Show()

        End If

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        End

    End Sub

End Class

untuk form 2 :

sedangkan form 2 adalah form untuk menunjukan contoh gambar yg harus disusun,isi listingnya sebagai berikut :

Public Class Form2

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

    End Sub

End Class

untuk form 3 :

sedangkan form 3 digunakan sebagai rekaan data dari permainan, isi listing sebagai berikut :

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

    End Sub

End Class

program dapat didownload di :

Puzzel

Read More

PROGRAM CASINO SLOT MACHINE

“Casino”                                  

Tujuan

Tujuan pembuatan program aplikasi casino ini adalah untuk memenuhi penugasan modul 3 yang diberikan oleh asisten Desision Suport System selain itu juga bertujuan untuk menghibur atau penghilang stress bagi para user dan menantang para user untuk dapat memenangkan sebuah permainan slot ini.

Sasaran

Sasaran dari pembuatan program aplikasi casino ini adalah semua usia baik anak-anak, remaja, maupun orang dewasa karena tujuan dari permainan ini untuk menghibur atkau untuk melepas penat dari segala kesibukan aktivitas.

Deskrips

Program Aplikasi Casino ini terdiri dari 2 permainan yaitu secara classic maupun modern. Casino classic merupakan permainan slot angka dimana para user harus memasukan modal yang akan Ia pilih selain itu para user juga harus memasukkan bet sebagai bahan taruhannya. Untuk memulai permainan para user harus menekan tombol start dan angka akan berputar, untuk menghentikan angka tersebut user harus menekan tombol stop. Apabila saat user menekan tombol stop terdapat 2 angka kembar maka user akan mendapatkan tambahan uang dari bet yang Ia pasang di awal permainan, tetapi bila tidak terdapat 2 angka kembar maka user akan kehilangan modalnya sebesar bet yang Ia pasang. Hal ini juga terjadi dengan casino modern dimana casino modern ini berupa gambar.

FLOWCHART DARI PROGRAM CASINO SLOT MACHINE :

TUTORIAL PEMBUATAN PROGRAM :

1.      Membuka Aplikasi Visual Basic 2010

2.     Pilih Windows Forms Application

3.Klik  ok maka akan mucul tampilan seperti berikut

.4.      Menampilkan toolbox yang digunakan

5. Buatlah tampilan program aplikasi seperti dibawah ini 

(design dapat disesuaikan dengan selera anda )

6. Masukkan listing sebagai berikut

untuk Form 1 :

Public Class Form1

    Dim mulai As Integer

   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

        If ComboBox1.Text = "" Then

            MsgBox("PILIH MODAL ANDA TERLEBIH DAHULU !!!!!", MsgBoxStyle.Critical, "!!!!!!PERINGATAN !!!!!")

        ElseIf Int(Label2.Text) <= 499 Then

            MsgBox("MAAF UANG ANDA HABIS, ANDA TIDAK DAPAT BERMAIN LAGI, TOLONG ULANG PERMAINAN ANDA", MsgBoxStyle.Information, "INFORMASI ")

        ElseIf Label7.Text = 0 Then

            MsgBox("TOLONG PILIH BET ANDA TERLEBIH DULU !!!", MsgBoxStyle.Critical, "PERINGATAN !!!!!")

        ElseIf Int(Label7.Text) > Int(Label2.Text) Then

            MsgBox("BET anda terlalu besar, tolong pilih bet yang lebih kecil !!!!! ", MsgBoxStyle.Critical, "PERINGATAN")

            ComboBox2.Visible = True

        Else

            Timer1.Enabled = True

            Label3.Text = CStr(Int(Rnd() * 8))

            Label4.Text = CStr(Int(Rnd() * 8))

            Label5.Text = CStr(Int(Rnd() * 8))

            Button1.Visible = False

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False

        If Button1.Visible = True Then

            MsgBox("TOLONG SPIN TERLEBIH DULU")

        ElseIf Label3.Text = Label4.Text Or Label3.Text = Label5.Text Or Label4.Text = Label3.Text Or Label4.Text = Label5.Text Or Label5.Text = Label3.Text Or Label5.Text = Label4.Text Then

            Label2.Text = Int(Label2.Text) + Int(Label7.Text)

            MsgBox("selamat anda benar")

            Button1.Visible = True

        ElseIf Label3.Text = 7 And Label4.Text = 7 And Label5.Text = 7 Then

            Label2.Text = Int(Label2.Text) + (Int(Label7.Text) * 2)

            Button1.Visible = True

        Else

            Label2.Text = Int(Label2.Text) - Int(Label7.Text)

            MsgBox("anda kurang beruntung")

            Button1.Visible = True

        End If

        If Label2.Text = 0 Then

            MsgBox("permainan anda berakhir")

            Button1.Visible = True

        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label3.Text = CStr(Int(Rnd() * 8))

        Label4.Text = CStr(Int(Rnd() * 8))

        Label5.Text = CStr(Int(Rnd() * 8))

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        mainform.Show()

        Me.Hide()

    End Sub

  

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

        Me.CenterToScreen()

        MsgBox("selamat bermain angka")

    End Sub

   

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Label7.Text = 0

        ComboBox2.Visible = True

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = 5000 Then

            Label2.Text = 5000

            ComboBox1.Visible = False

        ElseIf ComboBox1.Text = 10000 Then

            Label2.Text = 10000

            ComboBox1.Visible = False

        ElseIf ComboBox1.Text = 20000 Then

            Label2.Text = 20000

            ComboBox1.Visible = False

        ElseIf ComboBox1.Text = 30000 Then

            Label2.Text = 30000

            ComboBox1.Visible = False

        End If

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        If ComboBox2.Text = 500 Then

            Label7.Text = ComboBox2.Text

            ComboBox2.Visible = False

        ElseIf ComboBox2.Text = 1000 Then

            Label7.Text = ComboBox2.Text

            ComboBox2.Visible = False

        ElseIf ComboBox2.Text = 2000 Then

            Label7.Text = ComboBox2.Text

            ComboBox2.Visible = False

        End If

    End Sub

End Class

untuk Form 2 : 

Public Class Form2

    Dim m, n1, n2, n3 As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If PictureBox1.Visible = False And PictureBox2.Visible = False And PictureBox3.Visible = False Then

            PictureBox1.Visible = True

            PictureBox2.Visible = True

            PictureBox3.Visible = True

        End If

        If ComboBox1.Text = "" Then

            MsgBox("PILIH MODAL ANDA TERLEBIH DAHULU !!!!!", MsgBoxStyle.Critical, "!!!!!!PERINGATAN !!!!!")

       

        ElseIf Label7.Text = 0 Then

            MsgBox("TOLONG PILIH BET ANDA TERLEBIH DULU !!!", MsgBoxStyle.Critical, "PERINGATAN !!!!!")

        ElseIf Int(Label7.Text) > Int(Label1.Text) Then

            MsgBox("BET anda terlalu besar, tolong pilih bet yang lebih kecil !!!!! ", MsgBoxStyle.Critical, "PERINGATAN")

            ComboBox2.Visible = True

        Else

            Timer1.Enabled = True

            Button1.Visible = False

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False

        If Button1.Visible = True Then

            MsgBox("TOLONG SPIN TERLEBIH DULU")

        ElseIf n1 = n2 Or n1 = n3 Or n2 = n3 Then

            MessageBox.Show("Congratulation! you get the point")

            Label1.Text = Int(Label1.Text) + Int(Label7.Text)

            Button1.Visible = True

        ElseIf n1 = 6 And n2 = 6 And n3 = 6 Then

            MsgBox("congratulation !!!!!, you get the jackpot !!!!!!")

            Label1.Text = Int(Label1.Text) + (Int(Label7.Text) * 2)

            Button1.Visible = True

        Else

            MsgBox("sorry")

            Label1.Text = Int(Label1.Text) - Int(Label7.Text)

            Button1.Visible = True

        End If

        If Label1.Text = 0 Then

            MsgBox("Sorry, you must try again.", 0, "Peringatan")

            Label1.Text = "5"

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        mainform.Show()

        Me.Close()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        m = m + 1

        If m < 1000 Then

            n1 = Int(1 + Rnd() * 7)

            n2 = Int(1 + Rnd() * 7)

            n3 = Int(1 + Rnd() * 7)

            Select Case n1

                Case 1

                    PictureBox1.Image = ImageList1.Images.Item(0)

                Case 2

                    PictureBox1.Image = ImageList1.Images.Item(1)

                Case 3

                    PictureBox1.Image = ImageList1.Images.Item(2)

                Case 4

                    PictureBox1.Image = ImageList1.Images.Item(3)

                Case 5

                    PictureBox1.Image = ImageList1.Images.Item(4)

                Case 6

                    PictureBox1.Image = ImageList1.Images.Item(5)

                Case 7

                    PictureBox1.Image = ImageList1.Images.Item(6)

            End Select

            Select Case n2

                Case 1

                    PictureBox2.Image = ImageList1.Images.Item(0)

                Case 2

                    PictureBox2.Image = ImageList1.Images.Item(1)

                Case 3

                    PictureBox2.Image = ImageList1.Images.Item(2)

                Case 4

                    PictureBox2.Image = ImageList1.Images.Item(3)

                Case 5

                    PictureBox2.Image = ImageList1.Images.Item(4)

                Case 6

                    PictureBox2.Image = ImageList1.Images.Item(5)

                Case 7

                    PictureBox2.Image = ImageList1.Images.Item(6)

            End Select

            Select Case n3

                Case 1

                    PictureBox3.Image = ImageList1.Images.Item(0)

                Case 2

                    PictureBox3.Image = ImageList1.Images.Item(1)

                Case 3

                    PictureBox3.Image = ImageList1.Images.Item(2)

                Case 4

                    PictureBox3.Image = ImageList1.Images.Item(3)

                Case 5

                    PictureBox3.Image = ImageList1.Images.Item(4)

                Case 6

                    PictureBox3.Image = ImageList1.Images.Item(5)

                Case 7

                    PictureBox3.Image = ImageList1.Images.Item(6)

            End Select

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Timer1.Enabled = False

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        ComboBox1.Visible = True

        ComboBox2.Visible = True

        Label1.Text = 0

        Label7.Text = 0

    End Sub

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

        Me.CenterToScreen()

        MsgBox("SIAPKAN MENTAL DAN UANG ANDA")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim LABEL2 = Label1

        If ComboBox1.Text = 5000 Then

            Label2.Text = 5000

            ComboBox1.Visible = False

        ElseIf ComboBox1.Text = 10000 Then

            Label2.Text = 10000

            ComboBox1.Visible = False

        ElseIf ComboBox1.Text = 20000 Then

            Label2.Text = 20000

            ComboBox1.Visible = False

        ElseIf ComboBox1.Text = 30000 Then

            Label2.Text = 30000

            ComboBox1.Visible = False

        End If

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

        If ComboBox2.Text = 500 Then

            Label7.Text = ComboBox2.Text

            ComboBox2.Visible = False

        ElseIf ComboBox2.Text = 1000 Then

            Label7.Text = ComboBox2.Text

            ComboBox2.Visible = False

        ElseIf ComboBox2.Text = 2000 Then

            Label7.Text = ComboBox2.Text

            ComboBox2.Visible = False

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        ComboBox2.Visible = True

        Label7.Text = 0

    End Sub

End Class

untuk Form main form :

Public Class mainform

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form2.Show()

        Me.Hide()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        MessageBox.Show("THANK YOU FOR JOIN THE GAME")

        Me.Close()

    End Sub

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

        Me.CenterToScreen()

        MsgBox("selamat datang di permainan ini, siapkan mental dan keberuntungan anda !!!")

    End Sub

End Class

UNTUK MELIHAT PROGRAM BISA DI DOWNLOAD DISINI :

CASINO

Read More