Belajar Membuat Permainan Dadu Dengan Visual Basic 6.0

Belajar Membuat Permainan Dadu Dengan Visual Basic 6.0

Ketik Visual Basic! ketemu lagi dengan kami di pagi hari yang notabene masih banyak yang tidur dalam tutorial belajar membuat permainan dad... 12.49

Ketik Visual Basic! ketemu lagi dengan kami di pagi hari yang notabene masih banyak yang tidur dalam tutorial belajar membuat permainan dadu dengan visual basic 6. Kami yakin bahwa hampir semua orang tahu apakah itu permainan dadu, iya betul permainan dadu adalah permainan yang sangat sederhana hanya dengan melempar sebuah kubus yang bagian sisinya diberi tanda bulatan-bulatan yang berjumlah antara 1-6 kemudian melihat/menghitung berapa jumlah bulatan yang berada diatasnya. Jika bagian sisi yang berada diatas tersebut terdapat bulatan berjumlah 3 maka nilainya adalah 3, nah begitu juga dengan nilai yang lainnya.

Permainan dadu ini adalah sebuah permainan dasar yang akan digunakan untuk permainan lainnya misalnya permainan ular tangga. Dan di pagi hari ini akan dijelaskan bagaimana membuat permainan dadu yang sederhana ini menggunakan bantuan Visual Basic 6 (VB 6.0). Dan tentu kita tidak akan membahas permainan lainnya yang menggunakan dadu loh ya....

Untuk membuat permainan dadu, silahkan buka project baru di Visual Basic 6 (VB 6.0) kemudian buatlah sebuah tampilan seperti gambar diatas. Adapun object yang digunakan adalah sebuah Form, Shape, dan Button kemudian aturlah tampilannya sedemikian rupa seperti gambar diatas.

Klik dua kali Button (Kocok Dadunya!) --> masukkan kode program berikut ini, jangan sampai keliru loh ya...

        Private Sub Command1_Click()
        Randomize Timer
        n = Int(1 + Rnd * 6)
        For i = 0 To 6
        Shape1(i).Visible = False
        Next

        If n = 1 Then
        Shape1(3).Visible = True
        End If

        If n = 2 Then
        Shape1(1).Visible = True
        Shape1(4).Visible = True
        End If

        If n = 3 Then
        Shape1(0).Visible = True
        Shape1(3).Visible = True
        Shape1(6).Visible = True
        End If

    If n = 4 Then
    Shape1(0).Visible = True
    Shape1(2).Visible = True
    Shape1(5).Visible = True
    Shape1(6).Visible = True
    End If

    If n = 5 Then
    Shape1(0).Visible = True
    Shape1(2).Visible = True
    Shape1(3).Visible = True
    Shape1(5).Visible = True
    Shape1(6).Visible = True
    End If

    If n = 6 Then
    Shape1(0).Visible = True
    Shape1(1).Visible = True
    Shape1(2).Visible = True
    Shape1(4).Visible = True
    Shape1(5).Visible = True
    Shape1(6).Visible = True
    End If
    End Sub

Silahkan simpan dan jalankan program permainan dadu tersebut dan hasilnya akan terlihat seperti gambar berikut. Dan untuk mencobanya silahkan tekan tombol Kocok Dadunya! maka secara random atau acak akan terlihat nilai dadu tersebut.

Karena ini adalah permainan dasar untuk menjalankan permainan selanjutnya maka jangan lupa untuk mengikuti permainan lainnya menggunakan Visual Basic 6 (VB 6.0) ya. Selamat mencoba dan Selamat Beraktivitas!