Sunday, 17 January 2016
WELCOME TO
Iga Daebak
( ^_^ )
PEMBUATAN PROGRAM GAMES
puzzle chancy
I. Cara Pembuatan Games puzzle chancy
Program games puzzle chancy adalah suatu program yang di
buat menggunakan aplikasi ”Visual basic” yang di tujukan untuk membuat sebuah
permainan puzzle yang kemas dengan tema dan aturan main sederhana agar bisa di
mainkan oleh semua usia
Pada program ini kami
menggunakan tipe permainan puzzeling (strategi) dimana untuk memainkan nya di
butuhkan ketelitian untuk mencapai level tertinggi, semakin tinggi level maka
kesulitan game ini makin tinggi,
Game ini sangat baik untuk
melatih daya pikir seseorang dalam menemukan suatu solusi dan melatih daya
pikir otak baik di mainkan oleh anak-anak yang sedang dalam masa pertumbuhan
Lalu dalam game ini juga
tentunya di beri suatu batasan kesalahan apabila dalam satu level tertentu
nyawa kita habis, maka game akan berhenti (game over) dan kita harus mengulang
nya kembali dari level awal. Dan score yang kita dapat akan di simpan pada
program ini jadi kita bisa melihat best score selama kita memainkan nya.
KODING PROGRAM
(Print Screen program)
.Main Menu
CODE :
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Form1
Form2.Show
End Sub
Private Sub Command3_Click()
Unload Form1
Form3.Show
End Sub
Private Sub Command4_Click()
Unload Form1
Form4.Show
End Sub
# Sub Menu
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command4_Click()
Unload Form2
Form1.Show #OPTIONS
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command4_Click()
Unload Form2
Form1.Show
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
End Sub
Private Sub Command4_Click()
Unload Form3
Form1.Show
End Sub
Private Sub Command5_Click()
Unload Form3
Form1.Show
End Sub
#Quit
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End
End Sub
Private Sub Command2_Click()
Unload Form4
Form1.Show
End Sub
