Nikelodeon Puzzle

Udah lama sekali saya tidak mengupdate blog...
Akhirnya terciptalah contoh source code untuk membuat game puzzle ini...

Nama game ini saya beri nama Nick Puzzle...
Dibikin dengan menggunakan pemrograman Visual Basic 6.0 sp6
Cara memainkannya simple sekali, Anda hanya mengingat gambar kemudian atur tata letak nya dengan menggunakan keyboard(1,2,3,4). Tapi ingat jangan sampai Anda Kehabisan waktu!!!

Jika Anda ingin mencoba game ini...
Silahkan Klik Link di bawah!






Installation :
http://www.4shared.com/file/ORViQAmL/Nick_Puzzle_Installation.html
Source Code :
http://www.4shared.com/file/eDEE81Hz/Nickelodeon__SC_.html

VB E-Book

Link Download
http://www.4shared.com/file/243563273/5745441f/learnvb.html

Tugas UTS

Di atas itu adalah tampilan animasi yang aku bikin saat ujian tengah semester lalu:
download source code!! ga pke pass!
http://www.4shared.com/file/243547250/9d8b310/06040110_AWahyudi.html

Aplikasi Wartel

Di sini ada 5 KBU!!














Source Code :
http://www.4shared.com/file/242875992/b076d8e0/Aplikasi_Wartel.html

Exe :
http://www.4shared.com/file/242876408/9b0cb60a/Wartel_Wahyu.html

Animasi Sprite dengan Object Mario Bros

Siapa yang tek kenal dengan Mario Bross? Yup betul, itu adalah salah satu karakter dalam permainan Nintendo.. Disini saya mencoba membuat simulasi permainan Mario Bros, dimana si Mario nya berjalan maju/mundur jongkok dan lompat...
Dengan tekhnik BitBlt (Sprite). Jangan lupa beri komentarnya yach..OKEEE!!

1. Mask Tiles













2. Object Tiles













Kalian dapat mendownload simulasinya di :
http://www.4shared.com/file/242847711/6919c03/Super_Mario_Bros_Animation.html

Source Code :
http://www.4shared.com/file/242849179/ba42b836/Animation_Sprite_SMB.html

Untuk menndapatkan passwordnya silahkan konfirmasi ke Facebook saya!

Dancing

Ini contoh animasi dengan Visual Basic 6.0
Langsung Download azahh...
http://www.4shared.com/file/240118196/74b220dd/Dancing.html

Voice Speak

Aplikasi untuk memerintahkan komputer berbicara sesuai dengan teks yg kita input/isi
Silahkan Anda mendownloadnya :
http://www.4shared.com/file/230624688/95e8d6d7/Contoh_VoiceSpeak.html

Kuis Sederhana

Command1 untuk melewati soal
Command2 untuk menjawab soal

Langsung dunlud aza buhannya ae..tpi jgn kada ingat kumen2 nya..Oke Bro!
http://www.4shared.com/file/227296192/262c9d91/Contoh_Kuis.html

7z Software

http://downloads.sourceforge.net/sevenzip/7z465.exe

Screensaver (from VB)

Download Project : http://www.4shared.com/file/223848124/61205598/SS1.html
Download SCR : http://www.4shared.com/file/223849093/a5ce14a2/Noe.html

Input Serial Key

name = Wahyu
serial key = 0989776211781212445000343745747111093778290

Link download :
http://www.4shared.com/file/220995794/761725b5/Contoh_Input_Serial.html

Search Kode ASCII

Dari programmer untuk programmer :
Apakah Anda tahu apa itu kode ASCII(American Standard Code for Information Interchange)?

Kode ASCII merupakan suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter "|". Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 00000000 hingga 11111111. Total kombinasi yang dihasilkan sebanyak 256, dimulai dari kode 0 hingga 255 dalam sistem bilangan Desimal. (http://id.wikipedia.org/wiki/ASCII)


Di sini telah saya sediakan aplikasi untuk mengetahui beberapa kode ASCII, Anda bisa mendownloadnya disini!















http://www.4shared.com/file/217297272/8cda6ec0/Contoh_KeyAscii.html

Key arrow

Source Code :
Private Sub cmd_start_Click()
cmd_start.Visible = 0
keyOn = 1
Label1.Visible = 1
End Sub

Private Sub Timer1_Timer()
Call movea
End Sub



Module Code :
Option Explicit
Public keyOn As Boolean
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Sub movea()
If keyOn Then

If GetAsyncKeyState(vbKeyUp) Then
Form1.Shape1.BackColor = vbBlue
End If

If GetAsyncKeyState(vbKeyDown) Then
Form1.Shape1.BackColor = vbRed
End If

If GetAsyncKeyState(vbKeyRight) Then
Form1.Shape1.BackColor = vbYellow
End If

If GetAsyncKeyState(vbKeyLeft) Then
Form1.Shape1.BackColor = vbGreen
End If

If GetAsyncKeyState(vbKeyEscape) Then
keyOn = False
Form1.Label1.Visible = 0
Form1.cmd_start.Visible = 1
End If

End If
End Sub

Link Download :
http://www.4shared.com/file/209540512/3b1868b0/Contoh_GetAsyncKeyStatedfd.html

Check Support Resolution Monitor

Source Code :

Private Sub Command1_Click()
If Screen.Width >= 19200 And Screen.Height >= 12000 Then
Label1.Caption = "1280 x 800"
Label3.Caption = Screen.Width
Label4.Caption = Screen.Height
GoTo ResSup
Else
If (Screen.Width >= 15360 Or Screen.Width <>= 11520 Then
Label1.Caption = "1024 x 768"
Label3.Caption = Screen.Width
Label4.Caption = Screen.Height
GoTo ResSup
Else
If (Screen.Width >= 12000 Or Screen.Width <> 9000 Then
Label1.Caption = "800 x 600"
Label3.Caption = Screen.Width
Label4.Caption = Screen.Height
GoTo ResNotSup
Else
GoTo ResNotSup
End If
End If
End If

ResSup: MsgBox "Resolution support!", vbOKOnly: Exit Sub
ResNotSup: MsgBox "Resolution does not support!", vbExclamation

End Sub



Private Sub Form_Load()
'19200 for Res 1280 x 800 '15360 for Res 1024 x 768 '12000 for Res 800 x 600
With Command1
If Screen.Width >= 19200 Then 'untuk Res 1280 x 800
.BackColor = vbGreen
Else
If Screen.Width = 15360 Then
.BackColor = vbBlue
Else
.BackColor = vbYellow
End If
End If
End With

End Sub

Download :
http://www.4shared.com/file/209503069/275ec3a/Contoh_Er_Resolution.html

Sprite Image

Contoh membuat background object menjadi transparant!
Langkah 1: Buat 2 buah gambar 1 dengan backgound hitam dan satunya background putih dengan warna object hitam dan ukuran yang sama. seperti dibawah ini! dibawah ini conntoh ukuran 297 x 295






Langkah 2: Masuk ke VB. Buat project baru dan tambahkan komponen picture1 dan picture2 isi dengan dua buah gambar tersebut! kemudian tambahkan timer1 dengan interval = 10. Isi form dengan gambar supaya dapat diketahui bahwa background image sudah berhasil di transparankan.



Langkah 3: Tambahkan code dibawah ini!

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Dim xx, yy, jml
Dim Rest As Long
Dim s As Long

Private Sub Form_Load()
xx = Me.ScaleWidth - 100
yy = (ScaleHeight - 296) \ 2
End Sub

Private Sub Timer1_Timer()
Static s As Long
Me.Cls
Rest = BitBlt(hDC, xx - s, yy, 297, 294, Picture2.hDC, 0, 0, vbSrcAnd)
Rest = BitBlt(hDC, xx - s, yy, 297, 294, Picture1.hDC, 0, 0, vbSrcPaint)
jml = xx - s

s = s + 32
Me.Refresh
If jml <= (Me.ScaleWidth - 297) / 2 Then Timer1.Enabled = False End Sub

Game Kujur Silang

Kujur Silang dengan AI
Created by Ahmad wahyudi@2010

Download
http://www.4shared.com/file/189501865/45b11e52/MGKS_Setup.html

Source Code
http://www.4shared.com/file/189512009/3b9b2219/MGKS_with_AI_SCode_.html