Tutorial Aplikasi Mushwoom Slot Machine

Konsep Aplikasi Program Mushroom Slot Machine :

1.      Deskripsi

Aplikasi program Mushroom Slot Machine adalah sebuah aplikasi game yang bertujuan untuk mendapatkan dua gambar yang sama dari tiga baris gambar atau tiga gambar yang sama dalam tiga baris.

2.      Tujuan

·         Mendapatkan nilai yang bagus dalam jurnal praktikum Teknologi Informatika 2012 modul 3.

·         Sebagai sarana refreshing dan hiburan bagi pengguna program.

3.      Manfaat

·         Mengetahui fungsi koding-koding yang dipakai dalam pembuatan game di visual basic 2010.

·         Memahami fungsi operator yang digunakan dalam visual basic 2010 dalam membuat game.

·         Memperoleh nilai dalam jurnal praktikum Teknologi Informatika 2012 modul 3.

4.      Sasaran User

Semua orang dari segala umur yang mengerti memainkan permainan ini.

FlowChart:

     Penjelasan Flowchart

·         MULAI

·         Pada Interface akan muncul tampilan ‘LIVES : 5’ sebagai nyawa dalam permainan.

·         Klik SPIN untuk mengacak gambar (ada 6 gambar)

·         Klik STOP untuk menghentikan putaran gambar

·         Apabila ada 2 gambar dari 3 yang sama maka LIVES : +2

·         Apabila ada 3 gambar dari 3 yang sama maka LIVES : +3

·         Apabila LIVES : 0 maka GAME OVER

·         Klik TRY AGAIN untuk mengembalikan 5 LIVES yang hilang ketika GAME OVER

·         STOP

2.      Tutorial

Buka program Visual Basic 2010

Pilih NEW PROJECT

Design form sesuai bentuk game slot gambar

Form 1

Komponen Toolbox yang Digunakan

No	Komponen	Properties	Keterangan
1	Form1	Name Text BackColor ForeColor	Form1 Form1 White Blue
2	Label1	Name Text Visible	Label1 0 False
3	Label2	Name Text Visible	Label2 0 False
4	Label3	Name Text Visible	Label3 0 False
5	Label4	Name Text	Label4 Lives:
6	Label5	Name Text	Label5 5
7	Label6	Name Text	Label6 Mushroom Slot Machine
8	Picturebox1	Name Text SizeMode	Picturebox1 StretchImage
9	Picturebox2	Name Text SizeMode	Picturebox2 StretchImage		Picturebox1 StretchImage
10	Picturebox3	Name Text SizeMode	Picturebox3 StretchImage
11	Button 1	Name Text	Button 1 SPIN
12	Button2	Name Text	Button2 STOP
13	Button3	Name Text	Button3 TRY AGAIN
14	Button4	Name Text	Button4 END
15	Timer1	Name	Timer1

3.      Analisis Listing

Public Class Form1

    Sub Spin()

        Label1.Text = CStr(Int(Rnd() * 6))

        Label2.Text = CStr(Int(Rnd() * 6))

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

        'mengacak 3 label yang dihubungkan ke gambar

    End Sub

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

        Call Spin()

        If Label5.Text = 1 Then Button1.Enabled = False

        Label5.Text = Val(Label5.Text - 1)

        Timer1.Enabled = True

        Label1.Text = ""

        Label2.Text = ""

        Label3.Text = ""

        If Timer1.Enabled = True Then Button1.Enabled = False

        If Timer1.Enabled = True Then Button2.Enabled = True

        If Timer1.Enabled = True Then Button3.Enabled = False

        'apabila tombol spin di klik maka, perintah spin akan berjalan. perintah spin akan berjalan apabila ada 1 atau lebih lives yang kita miliki

    End Sub

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

        Timer1.Enabled = False

        If Label1.Text = Label2.Text Or Label2.Text = Label3.Text Or Label1.Text = Label3.Text Then MessageBox.Show("Congratulations, 2 Kinds")

        If Label1.Text = Label2.Text Or Label2.Text = Label3.Text Or Label1.Text = Label3.Text Then Label5.Text = Label5.Text + 1

        'apabila ada 2 gambar dari 3 yang sama maka akan mucul msgbox dan menang extra lives +1

        If Label1.Text = Label2.Text = Label3.Text Then MessageBox.Show("Congratulations, 3 Kinds")

        If Label1.Text = Label2.Text = Label3.Text Then Label5.Text = Label5.Text + 3

        'apabila ada 3 gambar dari 3 yang sama maka akan muncul msgbox dan menang extra lives +3

        If Label5.Text = 0 Then

            MsgBox("SORRY YOU LOSE")

            Button1.Enabled = False

            Button2.Enabled = False

            Button3.Enabled = True

            Button4.Enabled = True

        Else

            Button1.Enabled = True

            Button2.Enabled = True

            Button3.Enabled = False

            Button4.Enabled = True

            'apabila lives = 0 maka game over dan hanya tombol try again yang dapat digunakan

        End If

    End Sub

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

        Call Spin()

        If Label1.Text = 1 Then PictureBox1.Image = My.Resources.Image1

        If Label1.Text = 2 Then PictureBox1.Image = My.Resources.Image2

        If Label1.Text = 3 Then PictureBox1.Image = My.Resources.Image3

        If Label1.Text = 4 Then PictureBox1.Image = My.Resources.Image4

        If Label1.Text = 5 Then PictureBox1.Image = My.Resources.image5

        If Label1.Text = 0 Then PictureBox1.Image = My.Resources.image6

        If Label2.Text = 1 Then PictureBox2.Image = My.Resources.Image1

        If Label2.Text = 2 Then PictureBox2.Image = My.Resources.Image2

        If Label2.Text = 3 Then PictureBox2.Image = My.Resources.Image3

        If Label2.Text = 4 Then PictureBox2.Image = My.Resources.Image4

        If Label2.Text = 5 Then PictureBox2.Image = My.Resources.image5

        If Label2.Text = 0 Then PictureBox2.Image = My.Resources.image6

        If Label3.Text = 1 Then PictureBox3.Image = My.Resources.Image1

        If Label3.Text = 2 Then PictureBox3.Image = My.Resources.Image2

        If Label3.Text = 3 Then PictureBox3.Image = My.Resources.Image3

        If Label3.Text = 4 Then PictureBox3.Image = My.Resources.Image4

        If Label3.Text = 5 Then PictureBox3.Image = My.Resources.image5

        If Label3.Text = 0 Then PictureBox3.Image = My.Resources.image6

        'perintah memunculkan gambar apabila memenuhi kondisi angka acak yang bersangkutan

    End Sub

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

        Label5.Text = 5

        Button1.Enabled = True

        Button2.Enabled = True

        Button3.Enabled = False

        Button4.Enabled = True

        'menambah 5 lives apabila telah game over dan memulai kembali games

    End Sub

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

        End

        'mengakhiri program

    End Sub

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

        Button2.Enabled = False

        Me.ForeColor = Color.Blue

        Me.BackColor = Color.White

        'warna background putih dan warna tulisan biru, serta tombol stop tidak dapat digunakan pada awal permainan

    End Sub

End Class

download aplikasi

http://www.4shared.com/rar/rtE1oAr1/Mushroom_Slot_Machine.html

»» READ MORE..