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!

Belajar Membuat Traffic Light Dengan Visual Basic 6

Belajar Membuat Traffic Light Dengan Visual Basic 6

Ketik Visual Basic! Selamat pagi, dah lama tidak memposting sebuah catatan di blog belajar visual basic 6.0. Hal ini dikarenakan kesibukan ... 13.19

Ketik Visual Basic! Selamat pagi, dah lama tidak memposting sebuah catatan di blog belajar visual basic 6.0. Hal ini dikarenakan kesibukan bekerja dan belajar seni investasi, maklumlah untuk menyambut hari esok yang lebih baik. OK, kita langsung saja bahas topik dipagi hari ini yaitu belajar membuat traffic light dengan visual basic 6.0.

Perlu diketahui bahwa prinsip traffic light ini sangat mirip dengan yang sering kita jumpai di perempatan jalan yaitu nyalanya lampu berwarna hijau, kuning, dan merah secara bergantian berdasarkan waktu. Berapa lama mereka nyala disesuaikan dengan padat tidaknya perempatan jalan tersebut. Berikut ini adalah gambaran sederhanya,

yang perlu dipersiapkan untuk membuat traffic light ini adalah sebuah form, timer, dan shape (1,2,3,&4). Setelah itu memasukkan kode pemrograman visual basic 6.0 seperti berikut:

Private Sub Timer1_Timer()
If Shape2.Visible Then

Shape3.Visible = True
Shape2.Visible = False
Shape4.Visible = False

ElseIf Shape3.Visible Then

Shape4.Visible = True
Shape3.Visible = False
Shape2.Visible = False

Else

Shape2.Visible = True
Shape3.Visible = False
Shape4.Visible = False

End If

End Sub

Sebelum menjalankannya silahkan setting object visual basic seperti berikut ini: Timer1=4000 (setara 4 secon); Shape2=True; Shape3=False; dan Shape4=False.

Nah, jika sudah mengikuti langkah-langkah tersebut silahkan dicoba untuk menjalankan program ini. Dan hasilnya akan kelihatan seperti gambar berikut,

Seperti terlihat di dalam kode pemrograman bahwa traffic light perempatan tersebut hanya sebuah permainan display warna dan waktu tunda.

Sekian posting pada kesempatan kali ini dan selamat mencoba membuat traffic light dengan visual basic 6.0. Semoga bermanfaat.