Membuat Animasi Dadu dengan Visual Basic 6.0

Membuat Animasi Dadu dengan Visual Basic 6.0 - Pada pertemuan kali ini tip dan trik akan membuat sebuah animasi sederhana yaitu membuat animasi Dadu. Dadu adalah sebuah kotak kecil yang berbentuk kubus yang sisi-sisinya terdapat beberapa titik (dot) yang mewakili suatau angka.Cara menggunakan dadu sangat mudah, Anda tinggal meletakan kedalam alat pengocok dadu yang berbentuk tabung atau gelas sebagai alat pengocoknya kemudian menjatukannya. Dengan cara melihat sisi atas dadu maka kita bisa melihat jumlah titik yang ada diatas dadu tersebut yang mewakili angka misalnya 5 titik maka angka yang kita dapat adalah 5. Permainan Dadu sering di gunakan pada permainan anak-anak misalnya permainan ular tangga.

Dengan tip ini di harapkan Anda dapat membuat sebuah Game yang bernama game ular tangga yang dilengkapi dengan program pengacak angka yang berupa dadu sebagai alat bantu untuk menentukan banyaknya angka yang timbul.

Pada pertemuan kali ini Saya ingin memberikan tip bagaiman membuat Dadu di Visual Basic 6, bagi Anda yang penasaran bagaimana cara membuatnya perhatikan langkah berikut dibawah ini:

Cara Membuat Animasi Dadu dengan VB6 :

1. Tambahkan 3 shape, 1 Commandbutton dan 1 TimerCara Desain Form :

• Tanamkan Shape1 di form sebagai media dadu berwarna putih
• Tanamkan Shape2 (warna hitam) didalam Shape1 yang berwrna putih
• Copy-paste Shape2 sebanyak 5 shape kemudian susun shape yang Anda copy sebelah kiri 3 Sahpe dan sebelah kanan 3 Shape
• Kemudian tanamkan Shape3 (warna hitam) di tengah-tengah Shape1 berwarna putih, lihat Gambar dibawah ini :

Form Desain

2.  Atur Timer dengan Interval =1

3. Commandbutton1 Caption "Kocok"

4. Kemudian Anda ketik kode dibawah ini :

Dim x As Integer

Dim i As Integer

Sub roll()

x = x + 10

Randomize Timer

N = Int(1 + Rnd * 6)

For i = 0 To 5

Shape2(i).Visible = False

Next

If N = 1 Then

Shape2(3).Visible = True

Shape3.FillColor = &HC0C0C0

End If

If N = 2 Then

Shape2(2).Visible = True

Shape2(4).Visible = True

Shape3.FillColor = &H8080FF

End If

If N = 3 Then

Shape2(2).Visible = True

Shape2(3).Visible = True

Shape2(4).Visible = True

Shape3.FillColor = &H80FF&

End If

If N = 4 Then

Shape2(0).Visible = True

Shape2(2).Visible = True

Shape2(4).Visible = True

Shape2(5).Visible = True

Shape3.FillColor = &HFFFF00

End If

If N = 5 Then

Shape2(0).Visible = True

Shape2(2).Visible = True

Shape2(3).Visible = True

Shape2(4).Visible = True

Shape2(5).Visible = True

Shape3.FillColor = &HFFFF&

End If

If N = 6 Then

Shape2(0).Visible = True

Shape2(1).Visible = True

Shape2(2).Visible = True

Shape2(3).Visible = True

Shape2(4).Visible = True

Shape2(5).Visible = True

Shape3.FillColor = &HFF00FF

End If

End Sub

Private Sub command1_Click()

Timer1.Enabled = True

x = 0

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If x < 1000 Then

roll

Else

Timer1.Enabled = False

End If

End Sub

5. Simpan kode Anda dan jalankan program

Demikian tip cara Membuat Animasi Dadu dengan Visual Basic 6.0. Selamat mencoba semoga berhasil.

Related Post: Animasi