Visual Basic animated dice

Visual Basic animated dice - Tutorial Visual Basic kali ini, saya membuat program vb mirip dengan program dadu kecuali bahwa saya telah membuat animasi ke program. Untuk menambahkan efek animasi, kamu perlu menyertakan kontrol timer ke dalam program. Pada jendela properti timer, mengatur timer diaktifkan untuk palsu dan interval hingga 10. kamu dapat mengubah interval untuk setiap nomor yang kamu inginkan.Untuk membuat efek animasi, kamu hanya perlu untuk mendeklarasikan variabel global x dan menetapkan nilai awal 0, maka termasuk pernyataan x = x +10 sehingga nilai x meningkat 10 unit setelah selang waktu 10 milidetik. Akhirnya, menghasilkan pernyataan



If x < 1000 Then
roll
Else
Timer1.Enabled = False
End If

di bawah subrutin timer untuk menghentikan penghitung waktu. Ketika Anda mengklik tombol roll dadu, Anda akan melihat bahwa wajah ketiga dadu itu akan berubah dan berhenti. program ini dibuat dengan microsoft visual basic







Source code:

Sub roll( )
x = x + 10
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
Shape2.FillColor = &HC0C0C0

End If
If n = 2 Then
Shape1(2).Visible = True
Shape1(4).Visible = True
Shape2.FillColor = &H8080FF
End If

If n = 3 Then
Shape1(2).Visible = True
Shape1(3).Visible = True
Shape1(4).Visible = True
Shape2.FillColor = &H80FF&
End If

If n = 4 Then
Shape1(0).Visible = True
Shape1(2).Visible = True
Shape1(4).Visible = True
Shape1(6).Visible = True
Shape2.FillColor = &HFFFF00
End If

If n = 5 Then
Shape1(0).Visible = True
Shape1(2).Visible = True
Shape1(3).Visible = True
Shape1(4).Visible = True
Shape1(6).Visible = True
Shape2.FillColor = &HFFFF&
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
Shape2.FillColor = &HFF00FF
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
x = 0
End Sub

Private Sub Timer1_Timer()
If x < 1000 Then
roll
Else
Timer1.Enabled = False
End If
End Sub