All About VB_ Cara Membuat Game Sederhana Di Visual Basic 6

6/9/2017

Al l About VB: C ar a M em bu buat Gam e Seder ha hana di Vi sual Basi c 6.0

Home

About Me

Contact Us

Table of of Contents

Privacy Policy

Disclaimer

Terms of Service

Rss

All About VB Tips dan Trik Unik Visual Basic

Home » Aplikasi sederhana » Game Game » Cara Membuat Game Sederhana di Visual Basic 6.0

SEARCH

Cara Membuat Game Sederhana di Visual Basic 6.0 FRIDAY, 23 OCTOBER 2015

Diposkan oleh Nurhasan Nurhasan Achan

Kotak Pencarian..... Search

di 10:45:00 10:45:00

Kategori Aplikasi sederhana, Kategori Aplikasi sederhana, Game

Cara Membuat Game Game Sederhana di Visual Basic Basic 6.0 - Ma Masih sih setia di tip dan trik Visual Basic, pada pertemuan pertemuan kali ini Saya ingin mengajak Anda untuk bersenangsenang dengan memberikan tip tip Cara bagaimana bagaimana membuat membuat Game sederhana dengan Visual Basic.Siapa Basic .Siapa si yang tidak pernah perna h maen Game, Game, semua orang pasti pernah bermain game baik itu di komputer, HP atau Gamebot dll. Bahkan ada yang sudah menjadi hobi terutama dikalangan An ak-anak masa masa kini, mereka sering bermain game Online di internet. Coba Anda lihat di warnet rata-rata warnet sekarang dipenuhi anak-anak untuk bermain Game tak terkcuali orang dewasa. Dalam tutorial kali ini Saya ingin memberikan trik bagaimana membuat Game yang sangat sederhana dan mudah dipahami dan setelah itu Anda bisa bersenangsenag dengan Game buatan Anda sendiri. Ga me ini saya beri beri nama "Si "Si Bule & Si Buluk". Buluk ". Berikut adalah langkah-langkah:

Cara Membuat Membuat Game Sederh Sederha ana di VB6 : 1. Buka form Standar EXE VB6 2. Tambahkan Form di Project Anda lalu Tanamkan 4 Frame, Frame , 2 Control Timer , 3 CommandButton,, 2 buah label, CommandButton label, 9 Control Image Image dan 9 Shape. Shape . Untuk lebih jelasnya lihat ga mbar dibawah ini"

ENTRI POPULER Cara Mencetak Database di Form dan di Printer di VB6 Cara Mencetak Database di Form dan di Printer dengan VB6 - Pada pertemuan kali ini Saya ingin membuat sebuah Aplikasi cetak, baik cetak...

Cara Membuat Program Mesin Kasir di Visual Basic 6.0 Cara Membuat Program Mesin Kasir di Visual Basic 6.0 - Selamat berjumpa kembali di trip dan trik Visual Basic 6.0, kemarin beb erapa waktu...

Cara Merubah Background Form dengan Latar Belakang Warna dan Image di VB6 Cara Merubah Background Form dengan Latar Belakang Warna dan Image di VB6 Pada pertemuan kali ini Saya ingin membagikan membagik an sebuah trik yang...

Cara Membuat Program Penggajian dengan Visual Basic 6.0 Cara Membuat Program Penggajian dengan Visual Basic 6.0 - Selamat siang dan selamat bersantap makan siang untuk untuk sobat semua, kali ...

Cara Membuat Form Data Input Lengkap dengan Tombol Tambah,Simpan, Hapus dan Ubah dengan VB6 Cara Membuat Form Data Input Lengkap dengan Tom Tombol bol Tambah, Simpan, Hapus dan Ubah dengan VB6 - Selamat pagi para pencinta tip dan tri...

Form yang sudah diatur

2. Lalu klik ganda area kosong form Anda dan copy-pastekan copy-pastekan kode kode dibawah ini :

Dim Merah, M1, M2, M3, M4, M5, M6, M7, M8, M9 As Boolean Dim Hitam, H1, H2, H3, H4, H5, H6, H7, H8, H9 As Boolean Dim Point_Merah As Integer Dim Point_Hitam As Integer Function Hidden() Shape1.Visible = False Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Shape9.Visible = False M1 = False: M2 = False: M3 = False: M4 = False M5 = False: M6 = False: M7 = False: M8 = False: False: M9 = False False H1 = False: H2 = False: H3 = False: H4 = False http://ti pandtr ic ickuni kvb.bl ogspot.co.i d/ d/2015/10/car aa- me mem buat- ga gam e- se seder ha hana- di di - vi vi su sual .h .htm l

Cara Membuat Jam Dinding atau Jam Analog di VB 6.0 Assalamualikum Wr.W Wr.Wb, b, jumpa lagi kita d i Tip dan Trik Visual Basic 6.0 , pada pertemuan kali saya ingin bagikan kepada Anda baga imana cara...

Cara Membuat Aplikasi Billing Warnet Sederhana di VB6 Cara Membuat Aplikasi Billing Warnet Sederhana di VB6 - Pada pertemuan kali ini Saya akan membuat tutorial Bagaimana Cara membuat Billing...

RECENT POST Cara Membuka dan Membaca File Data Excel dengan ListView VB6 Cara Membuat Program dan Memainkan File Multi Media di VB6 Jenis Objek Multi Media Player yang ada di Visual basic 6.0 Jenis-jenis Button dan Icon pada MessageBox di VB6 Objek Objek Standar yang Ada di Visual Basic 6.0 dan Fungsinya (Part 2)

1/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0 H5 = False: H6 = False: H7 = False: H8 = False: H9 = False End Function

LABELS AKUNTANSI ANIMASI

Private Sub Command1_Click() Hidden Point_Merah = 0 Point_Hitam = 0 End Sub

APLIKASI SEDERHANA ARRAY ARTIKEL COMBOBOX COMMANDBUTTON CONTROL ACTIVEX DATABASE DATE/TIME FONT FORM GAME HSCROLLBAR-VSCROLLBAR IMAGE

Private Sub Command2_Click() End End Sub

INSTALL VISUAL BASIC INTERNET KONEKSI DATABASE LABEL/TEXT MATEMATIKA MESSAGEBOX MULTI MEDIA OBJEK QURSOR

Private Sub Command3_Click() MsgBox " Klik kotak kosong satu per satu semuanya" + vbCrLf + "Lalu muncul lingkaran,lawannya Bule dan Buluk" + vbCrLf + "Yang menang akan mendapat Point bila belum ada-" + vbCrLf + "yang mendapat point terus mainkan dengan menekan tobol Reset", vbOKOnly, "Cara Main" End Sub

TOOLS UNCATEGORIES WINDOWS

BLOG ARCHIVE October (32)

Private Sub Form_Load() Merah = True Hitam = False Shape1.Visible = False Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Shape9.Visible = False End Sub Private Sub Image1_Click() If Merah = True And Shape1.Visible = False Then Shape1.Visible = True Shape1.BackColor = vbRed M1 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape1.Visible = False Then Shape1.Visible = True Shape1.BackColor = vbBlack H1 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image2_Click() If Merah = True And Shape2.Visible = False Then Shape2.Visible = True Shape2.BackColor = vbRed M2 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape2.Visible = False Then Shape2.Visible = True Shape2.BackColor = vbBlack H2 = True Merah = True Hitam = False Exit Sub http://tipandtr ickunikvb.blogspot.co.i d/2015/10/car a- membuat- game- seder hana- di- vi sual .html

2/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0 End If End Sub Private Sub Image3_Click() If Merah = True And Shape3.Visible = False Then Shape3.Visible = True Shape3.BackColor = vbRed M3 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape3.Visible = False Then Shape3.Visible = True Shape3.BackColor = vbBlack H3 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image4_Click() If Merah = True And Shape4.Visible = False Then Shape4.Visible = True Shape4.BackColor = vbRed M4 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape4.Visible = False Then Shape4.Visible = True Shape4.BackColor = vbBlack H4 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image5_Click() If Merah = True And Shape5.Visible = False Then Shape5.Visible = True Shape5.BackColor = vbRed M5 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape5.Visible = False Then Shape5.Visible = True Shape5.BackColor = vbBlack H5 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image6_Click() If Merah = True And Shape6.Visible = False Then Shape6.Visible = True Shape6.BackColor = vbRed M6 = True

http://tipandtr ickunikvb.blogspot.co.i d/2015/10/car a- membuat- game- seder hana- di- vi sual .html

3/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0 Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape6.Visible = False Then Shape6.Visible = True Shape6.BackColor = vbBlack H6 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image7_Click() If Merah = True And Shape7.Visible = False Then Shape7.Visible = True Shape7.BackColor = vbRed M7 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape7.Visible = False Then Shape7.Visible = True Shape7.BackColor = vbBlack H7 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image8_Click() If Merah = True And Shape8.Visible = False Then Shape8.Visible = True Shape8.BackColor = vbRed M8 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape8.Visible = False Then Shape8.Visible = True Shape8.BackColor = vbBlack H8 = True Merah = True Hitam = False Exit Sub End If End Sub Private Sub Image9_Click() If Merah = True And Shape9.Visible = False Then Shape9.Visible = True Shape9.BackColor = vbRed M9 = True Hitam = True Merah = False Exit Sub End If If Hitam = True And Shape9.Visible = False Then Shape9.BackColor = vbBlack Shape9.Visible = True H9 = True


4/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0 Merah = True Hitam = False Exit Sub End If End Sub Private Sub Timer1_Timer() If M1 = True And M2 = True And M3 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M4 = True And M5 = True And M6 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M7 = True And M8 = True And M9 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M1 = True And M5 = True And M9 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M1 = True And M4 = True And M7 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M3 = True And M5 = True And M7 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M3 = True And M6 = True And M9 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If If M2 = True And M5 = True And M8 = True Then MsgBox "Pemain Si Bule yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Merah = Point_Merah + 1 Timer1.Enabled = True End If


5/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0 If H1 = True And H2 = True And H3 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H4 = True And H5 = True And H6 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H7 = True And H8 = True And H9 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H1 = True And H5 = True And H9 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H1 = True And H4 = True And H7 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H3 = True And H5 = True And H7 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H3 = True And H6 = True And H9 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If If H2 = True And H5 = True And H8 = True Then MsgBox "Pemain Si Buluk yang Menang", vbOKOnly, "Perhatian" Timer1.Enabled = False Hidden Point_Hitam = Point_Hitam + 1 Timer1.Enabled = True End If End Sub Private Sub Timer2_Timer() Label1.Caption = Point_Merah Label2.Caption = Point_Hitam End Sub


6/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0 3. Simpan hasil pekerjaan Anda dan jalankan program dengan F5, hasilnya tampak seperti gambar dibawah ini:

Demikian tip Cara Membuat Game Sederhana di Visual Basic 6.0. Selamat mencoba semoga berhasil........dan Selamat be rsenang-senang semoga bahagia...!!

Related Post: Aplikasi sederhana Game Cara Membuat Game Tebak Angka Perkalian Matematika dengan Visual Basic 6.0 Cara Membuat Game Sederhana di Visual Basic 6.0 Cara Membuka dan Membaca File Data Excel dengan ListView VB6 Cara Membuat Program dan Memainkan File Multi Media di VB6 Cara Membuat Serial Number (SN) di Visual Basic 6.0 Cara Membatasi Jumlah Login Sampai Jumlah Tertentu dengan Visual Basic 6.0 Cara Menyembunyikan Sembarang Window di Visual Basic 6.0 Cara Membuat Game TicTacToe di VB6 Menggerakan Objek dengan Event Keyboard tanda panah di vb6 Membuat Operasi Penjumlahan Matematika Versi Game di VB6

+1 Recommend this on Google

3 comments: mimin mia 21 November 2016 at 16:30 kak guna dari visible itu apa sih kak? knp saya coba dan pas di running selalu error dibagian visiblenya itu kak, terimaa kasih Reply Replies Nurhasan Achan

21 November 2016 at 17:05

Visible artinya menyatakan kondisi,bila kondisi visible=true berarti aktif dan terlihat,jika visible=false berarti tdk aktif dan tidak terlihat Reply

Nurhasan Achan

21 November 2016 at 16:59

Visible artinya menyatakan kondisi bila visible='true' berarti kondisi aktif dan terlihat dan sebaliknya Reply

NEWER POST

HOME


OLDER POST

7/8

6/9/2017

All About VB: Car a Mem buat Game Seder hana di Visual Basic 6.0

Copyright © 2015 - 2017. | | Desain Template By : Nurhasan Blogger | All Rights Reserved.

Powered by Blogger .


8/8

All About VB_ Cara Membuat Game Sederhana Di Visual Basic 6

Recommend Documents