SimCity dengan Visual Basic 6.0

SimCity adalah permainan simulasi pembangunan kota yang diproduksi oleh Maxis, anak perusahaan Electronic Arts. Permainan ini dirilis pada 14 Januari, 2003 saat ini sudah mencapai seri ke 4 dari simcity.Pada permainan ini pemain dapat membuat sebuah kawasan dengan membentuk tanah di sekitarnya, dan kemudian mendesain dan mengembangkan sebuah pemukiman yang nantinya akan menjadi sebuah kota besar.

Pemain juga dapat meletakkan zona untuk membangun daerah komersial, industrial, atau perumahan, dan juga membangun dan memperbaiki layanan umum, transportasi dan utilitas. Agar sukses pemain juga harus mengurus keuangan, lingkungan, dan kualitas kehidupan bagi para penduduknya. Pada kesempatan kali ini saya memposting sebuah Game SimCity yang dibuat dg VB 6.0 Sim City yang dibuat dengan VB 6.0 ini mungkin terlihat agak kuno, tetapi anda bisa mengembangkannya sendiri ataupun memperindah gambar gedung, jalan dan lain sebagainya.

cocok untuk pembuatan Tugas akhir
Jika ada yang berminat silahkan download langsung DISINI
semoga berguna... :)

Klik disini untuk melanjutkan »»

[Source Code VB 6.0] Pertukaran File dalam jaringan

Ok pada postingan kali ini saia akan memberikan sedikit tutorial mengenai share file/dokumen didalam suatu jaringan dengan menggunakan program VB 6.0, gambar diatas adalah screenshot program yang dibuat dg Visual Basic 6.0 bagaimana penerapan transfer dan menerima file melalui jaringan. Diterapkan dengan metode client server.

Dikarenakan source code yang akan dipaparkan cukup panjang n' sedikit ribet jadi saia akan memberikan file'y saja dalam bentuk link dibawah, source code ini masih bisa teman-teman edit n' improve sendiri sesuai dengan kebutuhan. Silahkan bagi siapa saja yang ingin mempelajari source code n' program'y saia sudah menyediakan link downloadnya DISINI Semoga bermanfaat...

Klik disini untuk melanjutkan »»

Membuka dan Menutup CD-Rom dg Visual Basic

Disini saya punya sebuah program sederhana yang dibuat dg visual basic 6.0, program ini dapat digunakan untuk membuka dan menutup CD-Rom yang ada di kompi kita. Source code'y yang dibutuhkan juga nggak terlalu banyak dan ribet. Seperti biasa karena program ini masih sederhana jadi masih dapat dikembangkan lagi dengan improvisasi sendiri...hehe,
Ok, lansung aja saya akan memberikan tutorialnya secara live disini...Let's cekidot...

Pertama-tama Buka project baru dengan standard exe
pada form masukkan
[-] 2 buah command button
[-] Tambahkan sebuah module (Project - add module)
Kemudian Masukkan script ini didalam form :

Private Sub Command1_Click()
x = mciSendString("set cdaudio door open", 0&, 0, 0)
End Sub

Private Sub Command2_Click()
x = mciSendString("set cdaudio door closed", 0&, 0, 0)
End Sub

Lalu masukkan lagi script ini pada module :

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hWndCallback As Long) As Long

compile dan jalankan, Selamat Mencoba... :)

Klik disini untuk melanjutkan »»

Efek Tetesan Air Diatas Monitor

Pada tulisan kali ini penulis ingin berbagi/share sedikit tutorial pemrograman, Tutorial ini tentang sebuah aplikasi yang dibuat dengan menggunakan Visual Basic 6.0 yaitu efek tetesan air di monitor, Sehingga monitor kompi kita nantinya tampak menjadi lebih hidup dan berwarna. . .hahaha, Mungkin tutorial ini masih sederhana sehingga masih dapat dikembangkan lagi. Oke langsung aja deh, Let's Cekidot...

- Pertama-tama buka project baru dan buat sebuah form
- Lalu masukan timer kedalam form dengan enabled = true dan interval = 1
- Next, Isikan coding berikut pada form dan jalankan

Option Explicit
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
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
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Dim x As Integer, y As Integer
Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
End If
End Sub

Private Sub Form_Load()
Desktop = GetWindowDC(GetDesktopWindow())
hBitmap = CreateCompatibleDC(Desktop)
hScreen = CreateCompatibleDC(Desktop)
Buffer = CreateCompatibleBitmap(Desktop, 32, 32)
ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)
SelectObject hBitmap, Buffer
SelectObject hScreen, ScreenBuffer
BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY
End Sub

Private Sub Form_Unload(Cancel As Integer)
BitBlt Desktop, 0, 0, Screen.Width / 15, Screen.Height / 15, hScreen, 0, 0, SRCCOPY
End Sub

Private Sub timer1_Timer()
y = (Screen.Height / 15) * Rnd
x = (Screen.Width / 15) * Rnd
BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY
BitBlt Desktop, x + (3 - 6 * Rnd), y + (2 - 4 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY
End Sub

Klik disini untuk melanjutkan »»

Aplikasi Enkripsi dan Dekripsi Fle

Salah satu cara aman ‘menyembunyikan’ file agar tidak bisa sembarangan dibuka atau diakses adalah dengan cara mengubah ekstensinya. Misalnya mengganti ekstensi file yang awalnya bernama “fileku.3gp” menjadi “fileku.ico”, dijamin orang lain tidak akan tertarik untuk membukanya...hehe,
Cara lainnya adalah dengan mengenkripsi. Istilah enkripsi kalau diterjemahkan secara bebas yaitu ‘membungkus’. Artinya kita membungkus file yang kita miliki dengan ‘kemasan’ lain. Proses enkripsi akan mengubah ‘isi’ dari file menjadi bentuk (binari) lain.
Bagaimana jika kedua cara tersebut digabungkan? Tentunya akan lebih aman dong?

Untuk melakukan hal di atas, kita bisa mempelajari dan mengembangkan Source code-nya. Silakan bagi yang tertarik download disini

Untuk mengenkripsi bisa dilakukan dengan cara:
- Tentukan nama file yang akan dienkripsi
- Tentukan alamat target penyimpanan dari file terenkripsi
- Ketikkan nama dan ekstensi baru untuk file terenkripsi
- Ketikkan Password dan Konfirmasi Password untuk file terenkripsi (isikan dengan nilai yang sama, misalnya: “passwordku”)
- Klik tombol ENKRIP

Bisa ‘membungkus’ berarti bisa pula ‘membuka bungkusnya’. Jika suatu saat ingin mengakses file yang sudah dienkripsi, maka harus ‘membuka bungkusnya’.

Untuk mendekrip bisa dilakukan dengan cara:
- Tentukan nama file yang akan didekripsi
- Tentukan alamat target penyimpanan dari file terdekripsi
- Ketikkan nama dan ekstensi baru untuk file terdekripsi
- Ketikkan Password dan Konfirmasi Password untuk file terdekripsi (isikan dengan nilai yang sama, misalnya: “passwordku”). Perlu diingat: Password dan Konfirmasi adalah Password dan Konfirmasi yang dimasukkan ketika mengenkripsi file ini sebelumnya.
- Klik tombol DEKRIP.

Selamat mencoba!

Klik disini untuk melanjutkan »»

Membuat Program Numerologi dg VB 6.0

Oke, pada postingan kali ini penulis ingin mencoba berbagi sedikit ilmu, disini ada sebuah program yang dibuat dengan menggunakan Visual Basic 6.0 namanya Program Numerologi. Apa sih Numerologi itu? Jadi Numerologi adalah sebuah metode meramal dengan memakai tanggal lahir sebagai objeknya. Jadi ketika user menginput tanggal lahirnya maka program akan langsung memulai proses meramal hasilnya berupa angka kehidupan, dari angka itu akan dianalisa segala kepribadian, sifat, dan karakter kita.
Oia program ini sifatnya just for fun aja ya, jadi jgn dibawa serius...^^ Syukur2 klo ramalannya bagus...hehe :) Silahkan bagi siapa saja yang tertarik dan ingin mempelajarinya langsung aja download sorce codenya disini

Klik disini untuk melanjutkan »»

Membuat Efek Salju dg VB 6.0

Ok, Langsung aja deh disini saya punya sebuah program menarik yang dibuat dengan menggunakan Visual Basic 6.0 namanya Program salju putih atau klo bahasa kerennya mah 'snow white program' hehe... Program ini berfungsi untuk mempercantik tampilan form yang sudah kita buat sehingga terlihat lebih excited...:) Silahkan bagi siapa saja yang ingin mempelajari dan mencobanya langsung aja download source codenya
disini

Klik disini untuk melanjutkan »»

MP3 Player Sederhana dg VB 6.0

Pada postingan kali ini penulis ingin berbagi sedikit ilmu yang bisa dibilang Masih sangat sederhana, maklum masih pemula...hehe, Disini ada sebuah program MP3 player yang di buat dengan bahasa pemrograman Visual Basic 6.0, Program ini masih bisa di edit dan dikembangkan lagi lebih jauh. Jika ada yang berminat silahkan download tutorial dan source codenya disini

Klik disini untuk melanjutkan »»

Animasi bola berjalan dg VB 6.0

Kali ini saya ingin kembali share ilmu tentang program animasi bola berjalan yang berkelap kelip. Program yang amat sederhana ini dibuat dengan menggunakan Visual Basic 6.0, Biasanya animasi seperti ini banyak dijumpai di program" multimedia yang dibuat dengan Flash atau Director, tapi disini penulis mencoba untuk bereksplor dengan menggunakan VB 6.0
Ok, langsung aja seperti biasa bagi yang tertarik dengan program ini silahkan download tutorial dan source codenya disini

Klik disini untuk melanjutkan »»

Text lampu LED Billboard dg VB 6.0

Pada postingan kali ini penulis ingin berbagi sedikit ilmu tentang program text lampu LED Billboard yg sering kita lihat di jalan", biasanya yang dipasang di papan iklan (billboard) iklan" baris, tapi pada tutorial kali ini yang akan menjadi objeknya adalah nama kita sendiri...hehe, narsiez dikit..
Text lampu billboard ini dibuat dengan menggunakan program Visual Basic 6.0, Jika ada yang tertarik dan ingin mempelajarinya silahkan ikuti dan download source codenya disini

Klik disini untuk melanjutkan »»

Membuat Efek Bintang Di Luar Angkasa dg VB 6.0

ini adalah contoh program VB 6.0 dengan animasi efek bintang. seolah2 kita berada dalam kapal luar angkasa dan melewati sejumlah bintang. Untuk mencoba program ini silahkan ikuti tutorial dan download source codenya disini

Klik disini untuk melanjutkan »»