Cara Membuat Game Dadu Dengan Visual Basic 6.0

Pada tutorial kali ini akan membahas bagaimana Cara membuat game dadu dengan cepat dan mudah di Visual Basic 6.
Visual Basic 6.0 biasanya digunakan untuk membuat program berbasis desktop yang memudahkan manusia dalam kehidupan sehari-hari. Contohnya aplikasi Point of Sale, aplikasi keuangan dan lain sebagainya. Pada artikel ini admin akan coba membahas fungsi Visual Basic berbeda dengan yang lain. Jika dilihat pada gambar pembuka, kalian pasti tidak asing lagi, bukan? Yap, itu adalah sebuah dadu. Kenapa bisa sampai ada dadu di sini? Kali ini kita akan mencoba membuat animasi dadu di Microsoft Visual Basic 6.0. Jadi, kamu seakan-akan bisa untuk memainkan dadu ini, entah itu buat main ular tangga ataupun main mahyong. Keren, buka? Nah, jangan lewatkan materi kali ini. Terus, bagaimana ya caranya membuat program aplikasi seperti ini di Microsoft Visual Basic 6.0? Biar tidak penasaran, berikut kami ulas materi cara membuat permainan dadu Di Microsoft Visual Basic 6.0. Check it out!

Dadu Visual Basic 6.0
Dadu Visual Basic 6.0

Daftar Isi

Persiapan Pertama: Download Visual Basic 6 Enterprise

Persiapan awal yang harus dilakukan yaitu memiliki software Visual Basic 6. Jika kalian sudah install VB 6 persiapan awal ini bisa di skip.
LINK Download Visual Basic 6 Enterprise Visit Link

Persiapan Kedua: 3 Langkah Memulai Visual Basic 6

Selanjutnya di persiapan kedua ini, sobat akan diajarkan bagaimana langkah-langkah membuat project baru.
LINK 3 Langkah Mudah Memulai Visual Basic 6 Visit Link

Yuk Simak Cara Membuat Game Dadu Visual Basic 6

Setelah sobat mengikuti seluruh persiapan diatas, sobat akan bisa membuat projek baru dengan nama sesuai keinginan sobat. Ikuti tutorial dibawah ini untuk membuat game dadu.
  1. Langkah pertama yang harus kamu lakukan, buat form aplikasinya terlebih dahulu sesuai dengan gambar yang ada di bawah ini.
  2. Step 1 - Game Dadu Visual Basic 6
    Step 1 - Game Dadu Visual Basic 6
  3. Kemudian jangan lupa untuk men-setting properties dari masing-masing komponen yang digunakan sesuai dengan tabel pengaturan di bawah ini.
  4. Object Name Shape Backcolor
    Shape1 shp_dadu 4-Rounded Rectangle &H80000005&
    Shape2(0) node(0) 3-Circle &H80000000&
    Shape2(1) node(1) 3-Circle &H80000000&
    Shape2(2) node(2) 3-Circle &H80000000&
    Shape2(3) node(3) 3-Circle &H80000000&
    Shape2(4) node(4) 3-Circle &H80000000&
    Shape2(3) node(5) 3-Circle &H80000000&
    Shape2(3) node_mid 3-Circle &H80000000&
  5. Lalu, ketikkan source code di bawah ini ke dalam form aplikasi yang kita buat. Kamu juga bisa copy-paste source code di bawah ini ke dalam form aplikasi yang kamu buat.
  6. 
    Dim x As Integer
    Dim i As Integer
    
    Private Sub kocok()
    x = x + 10
    Randomize Timer
    N = Int(1 + Rnd * 6)
    For i = 0 To 5
    node(i).Visible = False
    Next
    
    If N = 1 Then
    node(3).Visible = True
    node_mid.FillColor = &HC0C0C0
    End If
    
    If N = 2 Then
    node(2).Visible = True
    node(4).Visible = True
    node_mid.FillColor = &H8080FF
    End If
    
    If N = 3 Then
    node(2).Visible = True
    node(3).Visible = True
    node(4).Visible = True
    node_mid.FillColor = &H80FF&
    End If
    
    If N = 4 Then
    node(0).Visible = True
    node(2).Visible = True
    node(4).Visible = True
    node(5).Visible = True
    node_mid.FillColor = &HFFFF00
    End If
    
    If N = 5 Then
    node(0).Visible = True
    node(2).Visible = True
    node(3).Visible = True
    node(4).Visible = True
    node(5).Visible = True
    node_mid.FillColor = &HFFFF&
    End If
    
    If N = 6 Then
    node(0).Visible = True
    node(1).Visible = True
    node(2).Visible = True
    node(3).Visible = True
    node(4).Visible = True
    node(5).Visible = True
    node_mid.FillColor = &HFF00FF
    End If
    End Sub
    
    Private Sub Form_Load()
    tim_play.Enabled = False
    End Sub
    
    Private Sub tim_play_Timer()
    If x < 1000 Then
    kocok
    Else
    tim_play.Enabled = False
    End If
    End Sub
    
    Private Sub cmd_play_Click()
    tim_play.Enabled = True
    x = 0
    End Sub
    
  7. Kemudian klik Button Play pada toolbar VB 6 untuk menjalankan aplikasi.
  8. Step 4 - Game Dadu Visual Basic 6
    Step 4 - Game Dadu Visual Basic 6

Penting: Untuk mulai memainkan dadu, klik Play. Dadu tersebut seakan-akan sedang dilempar dan berubah-ubah nilainya. Nilai terakhir yang tampak itulah yang menjadi nilaimu.

Kesimpulan

Nah, itulah tadi cara membuat permainan dadu di Microsoft Visual Basic 6.0. File materi Microsoft Visual Basic 6.0 kali ini bisa kamu simpan dengan cara mengunduhnya terlebih dahulu lewat link berikut ini. Silakan di download.
AutoID Network Navigator
Source Code Project Game Dadu VB 6.0 Last Update Dewa Teknik

Sobat bisa membuat kreasi sesuai keinginan bentuk maupun warna nya seperti pada gambar dibawah ini.
Step 5 - Game Dadu Visual Basic 6
Step 5 - Game Dadu Visual Basic 6