MbHLmC7e_GA/maxresdefault.jpg' alt='Tutorial Membuat Game Sederhana Dengan Vbspu' title='Tutorial Membuat Game Sederhana Dengan Vbspu' />Tutorial Membuat Game Sederhana Dengan VbtTUTORIAL MEMBUAT GAME SEDERHANA DENGAN VISUAL BASICAnda pernah main game Gamer Mania. Game online seperti counter strike, point blank, poker, 3 kingdom, dan Dota saya yakin ini game tidak asing lagi ditelinga anda karena hampir di setiap sudut warung internet kita dapat menjumpainya. Tapi jika ditanya Anda pernah bermain game buatan anda sendiri Baik kali ini saya akan menguraikan tentang proses bagaimana membuat game dengan software visual basic. Tetapi disini kita akan membuat game yang sederhana bukan membuat game seperti yang disebutkan diatas karena game seperti itu saya yakin sulit atau bahkan tidak bisa dibuat oleh satu orang artinya memerlukan banyak kepala dalam proses pembuatannya dan algoritma yang dipakai pun pasti sangat rumit. Bukalah aplikasi visual basic yang telah terinstall di PC anda, kemudian seperti biasa buat new project dengan standar. Kemudian tambahkan 4 buah frame, 4 label, 9 kontrol image, 9 kontrol shape, 2 Command. Button, dan 2 buah timer pada form. Lalu desainlah menjadi seperti gambar dibawah ini 4. Aturlah properties kontrol kontrol sesuai gambar diatas dan isikan interval 1. Bukalah jendela kode, lalu ketikkan kode script listing program seperti di bawah ini Dim Merah, M1, M2, M3, M4, M5, M6, M7, M8, M9 As Boolean. Tutorial Membuat Game Sederhana Dengan VbacBuat Game Perkalian sederhana dengan VB 6. Aku berharap dengan tutorial sederhana ini dapat. Cara membuat game sederhana di vb60 dengan menggunakan Shape dan image. Tutorial Visual Basic. Membuat. Pembahasan kali ini mengenai gameengine yang digunakan dalam pembuatan game dengan. QDSRN99sqw/TfnKWjw9ndI/AAAAAAAAAls/-kILsgrnyWc/s1600/Game+Sederjana+dengan+VB.JPG' alt='Tutorial Membuat Game Sederhana Dengan Vbo' title='Tutorial Membuat Game Sederhana Dengan Vbo' />Dim Hitam, H1, H2, H3, H4, H5, H6, H7, H8, H9 As Boolean. Dim PointMerah As Integer. Dim PointHitam As Integer. Function HiddenShape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. M1 False M2 False M3 False M4 False. M5 False  M6 False M7 False  M8 False  M9 False. H1 False H2 False H3 False H4 False. H5 False  H6 False H7 False  H8 False H9 False. End Function. Private Sub Command. ClickHidden. PointMerah 0. PointHitam 0. End Sub. Private Sub Command. ClickEnd. End Sub. Private Sub FormLoadMerah True. Hitam False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. Shape. Visible False. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 1. Visible True. Shape. 1. Back. Color vb. Red. M1 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 1. Visible True. Shape. 1. Back. Color vb. Black. H1 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 2. Visible True. Shape. 2. Back. Color vb. Red. M2 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 2. Visible True. Shape. 2. Back. Color vb. Black. H2 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 3. Visible True. Shape. 3. Back. Color vb. Red. M3 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 3. Visible True. Shape. 3. Back. Color vb. Black. H3 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 4. Visible True. Shape. 4. Back. Color vb. Red. M4 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 4. Visible True. Shape. 4. Back. Color vb. Black. H4 True. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 5. Visible True. Shape. 5. Back. Color vb. Red. M5 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 5. Visible True. Shape. 5. Back. Color vb. Black. H5 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 6. Visible True. Shape. 6. Back. Color vb. Red. M6 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 6. Visible True. Shape. 6. Back. Color vb. Black. H6 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 7. Visible True. Shape. 7. Back. Color vb. Red. M7 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 7. Visible True. Shape. 7. Back. Color vb. Black. H7 True. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 8. Visible True. Shape. 8. Back. Color vb. Red. M8 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 8. Visible True. Shape. 8. Back. Color vb. Black. H8 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Image. ClickIf Merah True And Shape. Visible False Then. Shape. 9. Visible True. Shape. 9. Back. Color vb. Red. M9 True. Hitam True. Merah False. Exit Sub. End If. If Hitam True And Shape. Visible False Then. Shape. 9. Visible True. Shape. 9. Back. Color vb. Black. H9 True. Merah True. Hitam False. Exit Sub. End If. End Sub. Private Sub Timer. TimerIf M1 True And M2 True And M3 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M4 True And M5 True And M6 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M7 True And M8 True And M9 True Then. How To Treat My Dry Cracked Heels. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M1 True And M5 True And M9 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M1 True And M4 True And M7 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M3 True And M5 True And M7 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M3 True And M6 True And M9 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If M2 True And M5 True And M8 True Then. Msg. Box Pemain Merah yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointMerah PointMerah 1. Timer. 1. Enabled True. End If. If H1 True And H2 True And H3 True Then. Msg. Box Pemain Hitam yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointHitam PointHitam 1. Timer. 1. Enabled True. End If. If H4 True And H5 True And H6 True Then. Msg. Box Pemain Hitam yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden. PointHitam PointHitam 1. Timer. 1. Enabled True. End If. If H7 True And H8 True And H9 True Then. Msg. Box Pemain Hitam yang Menang, vb. OKOnly. Timer. 1. Enabled False. Hidden.