Offenbar hast du diese Funktion zu schnell genutzt. Du wurdest vorübergehend von der Nutzung dieser Funktion blockiert.
Wenn dies deiner Meinung nach nicht gegen unsere Gemeinschaftsstandards verstößt,
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’
Dim kurang As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static counter As Integer
counter = counter + 1
kurang = 10 - counter
TextBox4.Text = counter
TextBox5.Text = kurang
If TextBox4.Text = "" Then
If TextBox4.Text = "10" Then
MessageBox.Show("You lost! ")
Timer1.Enabled = False
TextBox1.Text = CStr(Int(Rnd() * 10))
TextBox2.Text = CStr(Int(Rnd() * 10))
TextBox3.Text = CStr(Int(Rnd() * 10))
Timer1.Enabled = True
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
Timer1.Enabled = False
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
Form1.TextBox1.Text = "0"
Form1.TextBox2.Text = "0"
Form1.TextBox3.Text = "0"
Form1.TextBox4.Text = ""
Form1.TextBox5.Text = ""
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
Form1.TextBox1.Text = "0"
Form1.TextBox2.Text = "0"
Form1.TextBox3.Text = "0"
Form1.TextBox4.Text = ""
Form1.TextBox5.Text = ""
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
Offenbar hast du diese Funktion zu schnell genutzt. Du wurdest vorübergehend von der Nutzung dieser Funktion blockiert.
Wenn dies deiner Meinung nach nicht gegen unsere Gemeinschaftsstandards verstößt,
Offenbar hast du diese Funktion zu schnell genutzt. Du wurdest vorübergehend von der Nutzung dieser Funktion blockiert.
Wenn dies deiner Meinung nach nicht gegen unsere Gemeinschaftsstandards verstößt,
Offenbar hast du diese Funktion zu schnell genutzt. Du wurdest vorübergehend von der Nutzung dieser Funktion blockiert.
Offenbar hast du diese Funktion zu schnell genutzt. Du wurdest vorübergehend von der Nutzung dieser Funktion blockiert.
Wenn dies deiner Meinung nach nicht gegen unsere Gemeinschaftsstandards verstößt,
