Membuat Game Kasino Animasi dengan Visual Basic

Membuat Game Kasino Animasi dengan Visual Basic - Kali ini VB Kode akan membahas bagaimana cara membuat game kasino dengan vb. Game Ini adalah mesin slot animasi. Disini, VB Kode menggunakan timer dan subprogram untuk menciptakan efek animasi. Selain itu, kamu harus menambahkan Control Multimedia untuk menghasilkan efek suara. Untuk menyertakan kontrol multimedia sebagai salah satu alat, klik pada project pada menu dan pilih components, kemudian klik pada Microsoft Kontrol Multimedia 6.0. Tarik Kontrol Multimedia dalam bentuk Anda dan membuatnya terlihat saat startup. Dalam program ini, kami menggunakan dua kontrol Multimedia, satu untuk memainkan suara berputar dan yang lainnya untuk suara jackpot. Berikut ini adalah tampilan dan kode program game kasino.

Kode program: 

Dim jumlah ,x, a, b, c As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
MMControl1.Command = "Close"
MMControl2.Command = "close"

x = 0
Label2.Caption = "Saldo Anda"jumlah = Val(Text1)
End Sub


Private Sub Form_Load()
Label1.Caption = " Selamat Bermain"
Label3.Visible = False
End Sub

Private Sub instruct_click()
Label3.Visible = True
End Sub

Private Sub Text1_Change()jumlah = Val(Text1)
End Sub

Private Sub Timer1_Timer()
If x < 500 Then
spin
Else
Timer1.Enabled = False
MMControl1.Command = "Berhenti"
Label1.Alignment = 2


If (a = 3 And b = 3 And c <> 3) Or (a = 3 And c = 3 And b <> 3) Or (b = 3 And c = 3 And a <> 3) Then
Label1.Caption = " Kamu memenangkan Rp. 200,000"jumlah = jumlah + 200000
End If

If (a = 4 And b = 4 And c <> 4) Or (a = 4 And c = 4 And b <> 4) Or (b = 4 And c = 4 And a <> 4) Then
Label1.Caption = " Kamu memenangkan Rp. 300,000"jumlah = jumlah + 300000
End If

If (a = 5 And b = 5 And c <> 5) Or (a = 5 And c = 5 And b <> 5) Or (b = 5 And c = 5 And a <> 5) Then
Label1.Caption = " Kamu memenangkan Rp. 400,000"jumlah = jumlah + 400000
End If

If (a = 3 And b = 3 And c = 3) Or (a = 4 And b = 4 And c = 4) Or (a = 5 And b = 5 And c = 5) Then
MMControl2.Notify = False
MMControl2.Wait = True
MMControl2.Shareable = False
MMControl2.DeviceType = "WaveAudio"
MMControl2.FileName = "D:\Liew Folder\VB program\audio\endgame.wav"
MMControl2.Command = "Buka"
MMControl2.Command = "Bermain"


Label1.Caption = " Selamat! Jackpot! Kamu Memenangkan Rp. 2,000,000"jumlah = jumlah + 2000000
End If

If (a = 3 And b = 4 And c = 5) Or (a = 3 And b = 5 And c = 4) Or (a = 4 And b = 3 And c = 5)

Or (a = 4 And b = 5 And c = 3) Or (a = 5 And b = 4 And c = 3) Or (a = 5 And b = 3 And c = 4) Then

Label1.Caption = " Sayang sekali, kamu kehilangan Rp. 500,000"jumlah = jumlah - 50
End If

If jumlah < 0 Then
Label1.Caption = "Oh tidak! Kamu bangkrut!"
End If
Text1.Text = Str$(jumlah)
End If
End Sub

Sub spin( )

x = x + 10
Randomize Timer
a = 3 + Int(Rnd * 3)
b = 3 + Int(Rnd * 3)
c = 3 + Int(Rnd * 3)

MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "D:\Liew Folder\VB program\audio\slot2.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"

Label1.Caption = "Semoga Beruntung!"
Label1.Alignment = a - 3
Shape1(0).Shape = a
If a = 3 Then
Shape1(0).FillColor = &HFF00&
End If
If a = 4 Then
Shape1(0).FillColor = &HFF00FF
End If
If a = 5 Then
Shape1(0).FillColor = &HFF0000
End If

Shape1(1).Shape = b
If b = 3 Then
Shape1(1).FillColor = &HFF00&
End If
If b = 4 Then
Shape1(1).FillColor = &HFF00FF
End If

If b = 5 Then
Shape1(1).FillColor = &HFF0000
End If

Shape1(2).Shape = c
If c = 3 Then
Shape1(2).FillColor = &HFF00&
End If
If c = 4 Then
Shape1(2).FillColor = &HFF00FF
End If
If c = 5 Then
Shape1(2).FillColor = &HFF0000
End If

End Sub

Sekian tutorial pembuatan aplikasi Membuat Game Kasino Animasi dengan Visual Basic.