TUTORIAL MEMBUAT GAME SLOT MACHINE MODUL 3

TUTORIAL CARA MEMBUAT GAME SLOT MACHINE MENGGUNAKAN APLIKASI VISUAL BASIC 2010 KELOMPOK 42 TEKNIK INDUSTRI UNDIP 2012 Disini kami akan menjelaskan bagaimana membuat program game slot machine menggunakan aplikasi Visual Basic 2010. Berikut ini adalah penjelasan berdasarkan contoh dari yang kami buat Berikut adalah list tool yang kami gunakan untuk membuat program Berikut ini adalah listing programnya : Listing program untuk mengacak 10 angka pertama (0-9) Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = Int(Rnd() * 10) TextBox2.Text = Int(Rnd() * 10) TextBox3.Text = Int(Rnd() * 10) Listing program untuk menghitung jumlah ‘CREDIT’ dan ‘YOUR TRY’ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox4.Text = “10” Then MessageBox.Show(“You lost! “) TextBox1.Text = CStr(Int(Rnd() * 10)) TextBox2.Text = CStr(Int(Rnd() * 10)) TextBox3.Text = CStr(Int(Rnd() * 10)) Listing program untuk menghentikan putaran atau acakan angka Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If (TextBox2.Text = TextBox1.Text) Or (TextBox1.Text = TextBox3.Text) Or (TextBox2.Text = TextBox3.Text) Then Listing program untuk keluar dari permainan Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Listing program untuk mencoba kembali saat sudah kalah bermain Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Timer1.Enabled = False Listing program untuk mencoba kembali bermain saat sudah berhasil menang Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Timer1.Enabled = False Listing program untuk menunjukan petunjuk permainan Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Form4.Show() End Sub Listing program untuk kembali ke form sebelumnya Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Show() Me.Hide() End Sub