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 :
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.
3 comments:
Selamat Malam Poker mania!!!
Mari yuk main poker di www.idolapoker.com yang aman dan terpercaya slightsmile emoticonKeunggulan idolapoker:
- PROMO BONUS 10% untuk DEPOSIT Pertama
- BONUS Turn Over/Cashback 0.5% setiap Minggunya
- Bonus Referral 20% Seumur Hidup!Kelebihan bermain bersama kami adalah :
- Minimal deposit dan withdraw hanya 15.000 rb.
- Tidak ada batas untuk melakukan withdraw/penarikan serta perpindahan credit.
- Pelayanan yang ramah dan memuaskan setiap hari 24 jam nya.
- Tingkat Persentase Kemenangan Yang Besar.
- Dengan Server yang besar beserta ribuan pemain di seluruh indonesia, idolapoker pasti selalu ramai selama 24 jam nya setiap hari nya.Permainan menyenangkan : Poker, CAPSA, Bandar Poker, Bandar Q, Adu QQ dengan dilayani oleh CS cantik, sopan, dan ramah kiki emoticonlangsung saja hubungi kami di:
Pin BBM: 7AFF4A66
YM: cs.idolapoker
Line: cs.idolapoker
Wechat: idolapoker
Telepon : 081269903693
atau bisa langsung chat kami di Livechat yang tersedia pada Website www.idolapoker.com
Selamat Malam Poker mania!!!
Mari yuk main poker di www.idolapoker.com yang aman dan terpercaya slightsmile emoticonKeunggulan idolapoker:
- PROMO BONUS 10% untuk DEPOSIT Pertama
- BONUS Turn Over/Cashback 0.5% setiap Minggunya
- Bonus Referral 20% Seumur Hidup!Kelebihan bermain bersama kami adalah :
- Minimal deposit dan withdraw hanya 15.000 rb.
- Tidak ada batas untuk melakukan withdraw/penarikan serta perpindahan credit.
- Pelayanan yang ramah dan memuaskan setiap hari 24 jam nya.
- Tingkat Persentase Kemenangan Yang Besar.
- Dengan Server yang besar beserta ribuan pemain di seluruh indonesia, idolapoker pasti selalu ramai selama 24 jam nya setiap hari nya.Permainan menyenangkan : Poker, CAPSA, Bandar Poker, Bandar Q, Adu QQ dengan dilayani oleh CS cantik, sopan, dan ramah kiki emoticonlangsung saja hubungi kami di:
Pin BBM: 7AFF4A66
YM: cs.idolapoker
Line: cs.idolapoker
Wechat: idolapoker
Telepon : 081269903693
atau bisa langsung chat kami di Livechat yang tersedia pada Website www.idolapoker.com
Kodenya d masukkin ke button kocok?
Post a Comment