Tutorial Game Slot Pemula 2023 Slot Gacor Terbaru

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