Belajar Pemrograman

Harga Jual Blackberry iPhone Laptop Murah

2011-03-03T09:50:00.003+07:00

Kemana kalau kamu mau cari harga jual blackberry iphone laptop murah? Masih berburu di iklan suratkabar? Atau hunting di mall-mall? Nggak jaman banget sih! Sekarang eranya serba mudah. Gadget macam Blackberry (BB), iPhone hingga laptop bisa kamu miliki dengan harga jual yang murah dengan sekali klik! Asyik khan!

Harga Jual Blackberry iPhone Laptop Murah

Hargagila(dot)com adalah portal belanja yang fokus pada barang-barang gadget teranyar. iPad, iPhone 4, Blackberry Torch 9800 hingga laptop (notebook) keren sekelas Macbook Pro bisa kamu borong dari sana! Apa yang paling heboh dengan belanja gadget dari portal ini? Slogan mereka memang membuat tercengang para penggila gadget : Hanya klik cek harga, harga akan turun otomatis! Nggak percaya. Berikut beberapa testimoni mereka yang sudah pernah bermain-main dengan penurunan harga tersebut :

“Teman-teman,
Dengan modal 10 poin alias 50rb karena ndak sabaran nunggu turun terus
akhirnya saya menutup BB Curve 3G seharga Rp 2,636,000 ditambah biaya adm
25.000 jadi Rp 2,661,000. Jadi saya beli BB Curve 3G itu seharga Rp 2,711,000.
Lumayanlah bisa hemat >250rb dari harga normal di toko Rp 3 juta.
Hari Kamis saya tutup dan konfirmasi bayar, hari Jum’at langsung terima barangnya. HargaGila.com memang OK. Ayo siapa mau daftar ?”

Hargagila emaaang gilaaaa
iPhone gue bgs kaaan, Main cepet2an cek harga doang, Ya gue lah jagonya. Emang ini iPhone maunya sama gue. Sori ya guys gue yang dapetin inii iPhone akhirnya Blogilicious horas Medan..

Win-win Solution
Sistem bid harga jual agar semakin murah yang diterapkan hargagila memang menarik. Sistem ini merupakan barang baru dalam dunia online shopping di Indonesia. Lewat sistem “menurunkan harga” ini, kedua belah pihak sama-sama untung. Pembeli akan mendapatkan harga yang lebih murah ketimbang di pasaran, dan penjual akan mendapatkan untung balik dari sistem point yang dibelanjakan membernya. Dengan teknik yang smart seseorang akan mengambil keuntungan lewat sistem bid ini. Yang diperlukan adalah ketekunan dan ketepatan memilih momentum dalam melakukan cek harga jual blackberry iphone laptop murah

Sistem yang win-win solution ini dalam menekan harga itu dijembatani dengan metode point. Jadi member harus membeli point untuk bisa mengklik “Cek Harga” (berarti menurunkan harga). Satu point harga belinya adalah 6.800 rupiah, sedangkan satu kali klik cek harga akan turun sebesar Rp. 5.000. Jadi seandainya sebuah laptop Macbook Pro harga jual awalnya sebelas jutaan tapi karena banyak yang “cek harga”, maka harga jual laptop itu bisa turun drastis!

Sebagai contoh : Seseorang (kita sebut saja si A) sedang memburu BlackBerry Onyx II 9780. Tercantum harga saat itu adalah : Rp. 4.270.000. Lalu si A membeli point sebanyak 5 point. Untuk produk blackberry ini ternyata ada 10 orang yang melakukan “cek harga”, kasarnya masing-masing melakukan 5 kali. Berarti ada 10 x 5 pengecekan harga yang menyebabkan harga jual menjadi lebih murah Rp. 250.000. Dan tepat pada cek harga ke-5 si A langsung memutuskan membeli Blackberry tersebut. Berarti si A secara total membayar :

Harga Dasar BlackBerry Onyx II 9780 : 4.270.000 dikurangi Rp. 250.000 plus biaya “cek harga” sebesar 6.800 x 5 (=34.000). Jadi si A bisa menggondol pulang Blackberry tipe tersebut dengan mengeluarkan uang : Rp. 4.054.000. Berarti A mendapat barang dengan harga jual lebih murah khan?

Harga Jual Murah dan Bisa Dipercaya
Kehadiran portal belanja yang memiliki kredibilitas tinggi memang ditunggu-tunggu oleh masyarakat kita. Karena kian kemari, di satu sisi orang menuntut kemudahan bertransaksi dan di sisi lain butuh keyakinan bahwa transaksi onlinenya bisa berlangsung secara aman tanpa terjadi penipuan. Hargagila(dot)com lahir untuk memenuhi kebutuhan itu, sehingga orang tidak lagi harus hunting ke toko-toko offline untuk membeli “barang online”. Masa beli barang mutakhir seperti Blackberry, iPhone, Laptop masih pakai cara konvensional?

Jadi mulai sekarang kalau kamu mau cari Harga Jual Blackberry Iphone Laptop murah, sudah tahu portal mana yang harus dituju!

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Solusi Forum Komunitas Online Indonesia

2011-03-03T09:48:00.002+07:00

Solusiforum.com sebagai Solusi Forum Komunitas Online Indonesia sangatlah menarik untuk dijadikan tempat sharing, berbagi ilmu dan bahkan untuk berdiskusi untuk memecahkan masalah. Itu adalah hal yang menarik untuk dilakukan karena dengan semakin banyaknya kita berdiskusi maka semakin banyak kita mendapatkan pengalaman dan pengetahuan disana. Kali ini Solusiforum mengadakan kotes seo dengan kata kuci "Solusi Forum Komunitas Online Indonesia" yang menarik perhatin saya untuk mengikuti kontes ini dan sekaligus belajar seo. Di dalam forum ini juga banyak terdapat categori yang menarik. contoh kategori antara lain:

1. Applications : disana digunakan sebagai tempat berdiskusi masalah software meliputi Operating System, Software Portable, Security dan AntiSpyware. Jadi bagi yang ingin berdiskusi masalah tersebut maka disini temapat yang pass untuk itu.

2. Game : bagi yang ingin berdiskusi masalah Game ya disini temapatnya, disini yang bisa anda diskusikan yaitu Console & Handheld Games, Online Game. Web-based Games, Cheat Lounge, PC Games dan Privates Server.

3. Ebook & Tutorial : disini membahas masalah ebook dan tutorial, jadi yang pengen postinga tentang tutorial disinilah temapatnya.

sebenernya masih banyak lagi kategori yang ada di Blogilicious horas Medan sebagai Solusi Forum Komunitas Online Indonesia ini tapi itu saja yang saya bisa tulis karena kalo saya tulis semua bakalan panjang mending langsung lihat saja di forumnya Solusiforum.com. Sekian saja salam blogger

Menampilkan Kode ASCII dalam C++

2011-01-29T11:19:00.004+07:00

Wah… lagi susah mikirin buat Tutorial C++, jadi kali ini saya pengin memberikan TIPS & TRIK seputar pemrograman C++, dan untuk kali ini saya coba membuat bagaimana menampilkan Kode ASCII dalam pemrograman C++, dimana suatu proses Obat Kanker mengubah nilai number menjadi suatu karakter khusus/simbol yang ada dalam keyboard.

ASCII (American Standar Codes for Internasional Interchange) adalah merupakan kumpulan kode-kode yang dipergunakan untuk interaksi antara user dengan komputer. Jadi secara kasarnya, interaksi antara user dengan komputer dengan menggunakan hardware keyboard sebagai alat interaksi. ASCII merupakan karakter-karakter khusus yang dapat diinputkan melalui keyboard seperti angka, haruf, symbol, symbol grafis, dan kode komunikasi. Kode ASCII merupakan kode angka sebanyak 255 buah, dimana setiap angka mempunyai karakter khusus. 1 kode ASCII mewakili/mempunyai/berukuran nilai 1 byte (8 bit).

Tips : Melihat Kode ASCII dalam pemrograman C++

Catatan : Untuk melihat kode ASCII dari C++ hanya bisa dengan menggunakan file header stdio.h(standar input/output) karena dalam file header tersebut terdapat fungsi-fungsi format untuk input maupun output yang menggunakan fungsi scan format(scanf()) dan print format(printf())

Untuk format input dan output baca Tutorial C++ sebelumnya :”Input dan Ouput Dasar Dalam C++”

Source Code

Penjelasan Program

Untuk menampilkan output kode ASCII maka menggunakan stamtement perulangan for (baca Statement Perulangan). Seperti penjelasan diatas bahwa kode ASCII terdapat 255 kode jadi perulangan akan dilakukan sebanyak 255 kali.

for(x=1; x<=255; x++)

x = 1 merupakan inisialisasi nilai variabel x.

x <=255 merupakan syarat kondisi perulangan berlansung dan apabila bernilai false maka perulangan akan berhenti.

x++ merupakan step dari perulangan.

Jadi dari keterangan diatas perulangan akan berlangsung selama 255 kali

printf(“%i = %c “, x,x);

seperti pada tutorial sebelumnya tentang Input dan Output, jadi format %i berfungsi untuk mencetak nilai integer dari variabel x, sedangkan %c berfungsi untuk untuk mencetak nilai x dengan format character sehingga menghasilkan kode ASCII.

if( x % 10 ==0)

printf(“\n”);

Baris program diatas berfungsi untuk memanipulasi output Obat Kanker dimana menggunakan pengecekan if bila nilai variabel x mod 10 = 0 dengan menggunakan operator aritmatika modulus (simbol dalam C++ %) baca operator dasar C++, maka output akan pindah baris atau enter dengan menggunakan karakter khusus escape (\n). Baca Tutorial sebelumnnya statement pengecekan kondisi dan Tipe Data Dasar C++.

Output Program

TEMPAHAN PROGRAM & SKRIPSI SISTEM INFORMASI KOMPUTER (Harga Promo)

2011-01-03T16:12:00.010+07:00

Admin situs Belajar Pemrograman, saat ini menerima pemesan pembuatan program Sistem Informasi baik untuk mahasiswa D3 atau S1 Komputer. Bahasa program yang digunakan tergantung pemesanan konsumen yang anda boleh memilih sendiri berupa Bahasa Visual Basic 6.0, VB 2005, VB Net, dan Java. Selain itu, Kolaborasi dari PHP, HTML dan MySQL juga dapat dipesan disini.

Kami juga menyediakan Skripsi Mahasiswa Komputer dengan banyak judul baik untuk SistemInformasi Perpustakaan, Sistem Pakar, Sistem Pengambilan Keputusan, Sistem Ujian Online, Sistem Penjualan, Sistem Inventaris Gudang, Sistem Informasi Rumah Sakit, Sistem Informasi Rawat-Inap Hotel, e-Leaning System, e-Commerce System, dan masih banyak lagi.

Harga 1 Program = Rp. 350.000
Harga 1 Skripsi atau Tugas Akhir = Rp. 200.000 (seluruh BAB mulai dari Abstact, Daftar Isi, sampai Daftar Pustaka)
Boleh memesan lebih dari 1 program atau lebih 1 Judul skripsi juga lho...
Khusus mahasiswa dari Universitas Sumatera Utara (USU) akan mendapat DISKON khusus.

Buruan… Promo ini berlangsung dari January 2011 – April 2011 karena harga akan naik di waktu di luar Periode Pomo di atas. Ohya, khusus pemesan Mahasiswa dari Medan, Sumatera utara dapat menemui saya langsung dengan konfirmasi sms/ telpn di atas. Di luar Medan dapat SMS atau chatting dengan saya di zf_1221@yahoo.com, pasti langsung saya Balas..

Indonesia Siap Bersaing di SERP

2010-12-06T17:51:00.006+07:00

Indonesia Siap Bersaing di SERP
SERP atau ( Search Engine Results Page ) merupakan hasil pencarian Search Engine seperti google, yahoo dll. Ini biasanya berisi halaman Blog, web dan sedikit penjelasan singkat mengenai hasil pencarian. SERP sangat penting bagi Blogger karena kalau Blog tidak masuk daftar SERP ya sama aja bohong, tidak ada visitor maupun viewer menuju Blog kita deh, Kalo ada paling juga link halaman lain. Sekilas melihat judul tentang Indonesia Siap Bersaing di SERP, nah apakah Indonesia negeri tercinta ini mampu bersaing di SERP Dunia ? Sudahkan Indonesia Siap bersaing di SERP Dunia?Blogger indonesia siapa aja yang mampu bersaing di SERP Dunia ?

Kalo menurut saya sendiri alias nubitol yang masih belajar tentang optimasi SEO, Saya yakin Indonesia Siap Bersaing di SERP Dunia dengan keywordnya masing masing..kalo ditanya mengenai Obat Kanker Blog siapa saja yang menduduki di SERP dunia,,hmmmm... saya kurang tau Blog siapa, tapi yang pasti Banyak Blogger Indonesia yang mampu bersaing di Dunia. Banyak Blogger Indonesia yang sudah sukses di SERP Dunia dengan kata kunci yang pengunjunganya banyak,

Sedikit tips menembak keyword Indonesia Siap Bersaing di SERP dalam list SERP, sebaiknya kita menembak kata kunci yang paling banyak keluar dalam SERP, dengan hasil SERP yang banyak itu juga bisa mendatangkan pengunjung yang banyak dengan catatan Blog anda bisa Page One atau halaman pertama, hehe

Maraknya Kontes SEO juga menjadi Nilai penting dari persiapan Blogger Indonesia Siap Bersaing di SERP. Berbagai keyword dilombakan dalam kontes SEO Blogilicious horas Medan, pendaftar pun selalu membludak, ini menandakan kalo Indonesia Siap Bersaing di SERP. Kalo saya mengikuti Kontes SEO Sepertinya hanya sebagai penggembira saja karena belum pernah juara, tapi yang penting tetep ikutan alias eksis..hahaha...Tunggu apalagi ayo ramaikan Kontes SEO...kita tunjukkan kalau Blog kita juga siap bersaing di SERP...kalo mau ikutan Obat Kanker silahkan menuju link ini Kontes SEO DANUAKBAR.COM Berhadiah Jutaan Rupiah dan Kontes Peluang Usaha Membuka Loket Online - Syarat Mudah Proses Cepat untuk penyelanggara kontes itu sendiri Danu Akbar

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Enkripsi dan Deskripsi Teks dengan Visual Basic

2010-11-06T09:01:00.004+07:00

Enkripsi dan deskripsi teks…ya itu yang akan kita coba kali ini. Prinsipnya sebuah teks yang bersifat rahasia seperti pesan rahasia atau bisa juga surat cinta yang takut dibaca orang lain..hehehe..bisa kita enkripsikan menjadi chipertext dengan pasword tertentu, kemudian untuk membacanya lagi kita harus menggunakan pasword yang sama pula untuk mengembalikan teks yang terenkripsi menjadi plaintext atau teks awal sebelum di enkripsi.

Sekarang.. mari kita coba membuat program enkripsi dan deskripsi tersebut dengan Visual Basic 6.0.

Pertama masuk ke Visual Basic 6.0, kemudian buat project baru yaitu Standard.exe. Lalu buatlah tampilan form dengan menambahkan 1 buah Label, 2 buah TextBox dan 2 buah CommandButton sehingga menjadi seperti gambar d bawah ini :

Ganti properti caption dari Label dan CommandButton, kemudian kosongkan properti Text dari Text1 dan Text2, khusus Text1 atur properti MultiLine menjadi True sehingga tampilan menjadi seperti gambar di bawah ini :

Jika user interface sudah selesai langkah terakhir adalah Copy Paste Kode di bawah ini ke Kode Editor Visual Basic :

‘==========ENKRIPSI

Function EncryptText(strText, ByVal strPwd)
Dim i, c
Dim strBuff
If strPwd <> “” And strText <> “” Then
strPwd = UCase(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid(strText, i, 1))
c = c + Asc(Mid(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next
Else
strBuff = strText
End If
EncryptText = strBuff
Else
EncryptText = “”
End If
End Function

‘==========DESKRIPSI

Function DecryptText(strText, ByVal strPwd)
Dim i, c
Dim strBuff
If strPwd <> “” And strText <> “” Then
strPwd = UCase(strPwd)
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid(strText, i, 1))
c = c – Asc(Mid(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr(c And &HFF)
Next
Else
strBuff = strText
End If
DecryptText = strBuff
Else
DecryptText = “”
End If
End Function

Private Sub Command1_Click()
Text1.Text = EncryptText(Text1.Text, Text2.Text)
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.Text = DecryptText(Text1.Text, Text2.Text)
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub

Sekarang program tinggal dijalankan. Masukkan teks yang akan dienkripsikan kemudian masukkan password dan klik tombol ENKRIPSI maka teks akan terenkripsi seperti yang ditunjukkan oleh gambar berikut :

Untuk mendeskripsikan ke teks awal, dengan menggunakan password yang sama kemudian klik tombol DESKRIPSI, makan teks akan kembali menjadi plaintext semula seperti pada gambar berikut :

Selesai…
Selamat Mencoba

Menampilkan Kode Tombol Keyboard dan Mouse dengan Visual Basic

2010-11-06T08:43:00.005+07:00

Dulu ketika awal-awal saya belajar Visual Basic.. saya sempat kebingungan ketika membuat sebuah program, yaitu bagaimana caranya membuat Form Login dimana ketika tombol ENTER pada keyboard ditekan maka mengecek inputan user dan password kemudian login ke Form Utama. Dengan begitu user tidak perlu mengklik tombol Login dengan mouse.

Setelah tau rahasianya…ternyata logikanya ternyata mudah sekali.
Ketika program menerima event yang namanya “Keypress”, program mengecek tombol apakah itu, jika tombol itu adalah tombol ENTER maka fungsi untuk mengecek login dijalankan.

untuk tahu tombol apa yang kita tekan program menggunakan KeyAscii atau KeyCode dari tombol keyboard tersebut. Contohnya tombol ENTER memiliki KeyAscii dan KeyCode =13.

Kurang lebih kode programnya seperti ini:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
‘ disini letak fungsi atau pernyataan yang akan dijalankan
End If
End Sub

Berapa Kode untuk tombol SPASI,TAB, Huruf A, atau Karakter “?” ???
Susah pastinya jika kita harus menghapal semua kode tombol yang ada di keyboard kita.

Berikut ini adalah cara untuk menampilkan nilai KeyAscii dan KeyCode serta Nilai tombol Mouse di Visual Basic Form. Cara kerjanya yaitu ketika Tombol keyboard atau mouse ditekan maka program akan menampilkan Nilai Keyascii dan Keycodenya di Form.

Caranya :
1. Buatlah tampilan pada form sebagai berikut:

Tambahkan 6 Buah Label ke dalam form, kemudian ubah property Caption masing masing label seperti yang tertampil pada gambar di atas.

2. Copy Paste atau ketik kode berikut ini di Kode Editor :

==================================================================

‘menampilkan keycode

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = KeyCode
End Sub

‘menampilkan keyascii
Private Sub Form_KeyPress(KeyAscii As Integer)
Label2.Caption = KeyAscii
End Sub

‘menampilkan mousekey
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.Caption = Button
End Sub

==================================================================

3. Jalankan program kemudian coba tekan sembarang tombol pada keyboard, maka akan muncul kode dari tombol tersebut di form. kurang lebih tampilannya sebagai berikut :

Untuk diketahui:

KEYASCII: hanya terbatas pada karakter dan simbol saja, kode untuk huruf kecil berbeda dengan huruf kapital
KEYCODE: hampir semua tombol di keyboard, satu tombol satu kode
MOUSEKEY : klik kanan, klik kiri

Semoga Bermanfaat.

10 Coding Menarik Visual Basic 6

2010-11-06T08:29:00.008+07:00

Pagi-pagi begini, tiba-tiba saja timbul untuk meng-update artikel blog Belajar Pemrograman yang sudah lama saya tinggalkan. Wah, para pembaca, kali ini saya akan memberika 10 trik menggunakan coding dari Visual Basic 6. Silahkan mencoba.

1.Denied deletion file, this trick are open the file for simultan so the windows couldn’t delete the file until the aplication end or stopped
private sub form_load()
timer1.interval = 1
end sub
Private sub timer1_timer()
Open PathFilenya For Input As 1
end sub

2.Random Coloured label, this trick will change your label each sec
Private Sub Timer1_Timer()
randomize()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

3.Set the Attributes file without API function
Private Sub Command1_Click()
Setattr pathname,vbhidden+vbsystem+vbreadonly
End Sub
‘To make it normal
Private Sub Command1_Click()
Setattr pathname,vbnormal
End Sub

4. Animated form when unload
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
‘The form go up
Do Until Me.Top <= -5000 DoEvents Me.Move Me.Left, Me.Top – 10 DoEvents Loop Unload Me End Sub

5.Gradiation Back Color Form
Private Sub Form_Load()
Form1.AutoRedraw = True
For x = 0 To ScaleHeight
Line (1, x)-(ScaleWidth, x), RGB(5, 10, 255 – (x * 255) \ ScaleHeight)
Next x
End Sub

6. Select all content in textbox the easiest way and always used by POS or accounting application just insert these code to event proc
SendKeys “{home}+{end}”

7. UnClosed Form
Private Sub Form_Unload (Cancel as Integer)
Cancel = 1
End Sub

8. ASCII Detector
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.Caption = KeyCode
End Sub

9. Check the existence of Folder or Files
‘Check the Folder
If Dir$(Text1.Text, vbDirectory) = “” Then
msgbox “Folder Not Exist”, vbinformation
ElseIf Dir$(Text1.Text, vbDirectory) <> “” Then
msgbox “Folder Exist”, vbinformation
End If
‘Check The File
If Dir(Text1.Text) = “” Then
msgbox “File Not Exist”, vbinformation
ElseIf Dir(Text1.Text) <> “” Then
msgbox “File Exist”, vbinformation
End If

10. Dragging the Form from around of your form
Private move_x As Integer
Private move_y As Integer
Private move_form As Boolean
Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
move_x = X
move_y = Y
move_form = True
End Sub
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If move_form Then
Me.Move Me.Left + X – move_x, Me.Top + Y – move_y
DoEvents
End If
End Sub
Private Sub form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
move_form = False
End Sub

Contoh Aplikasi Database (VB6)

2010-11-06T08:22:00.007+07:00

Masih seputaran postingan VB, kali ini saya akan berbagi sedikit tentang membuat program database yang memakai Ms. Acces 2003. Tapi disini saya tidak menuliskan coding-coding nya karena terlalu panjang sob, capek ngetiknya. Jadi sob bisa download langsung disini.

Aplikasi ini tentang pencarian data pelanggan, input, edit, menghapus data dan mengexsport database ke excel file serta dilengkapi file setup nya kalau yang mau menginstall, Aplikasi ini merupakan Aplikasi saya yang pertama untuk pemrograman Database jadi coding nya masih belum begitu rapi hehehe. Bagi yang masih VB Beginner mohon konfirmasi dulu setelah mendownload karena aplikasi ini mempunyai Password. Screen shoot seperti gambar di atas.

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Blogger Templates Colorizetemplates.com

2010-07-17T17:27:00.006+07:00

Blogger Templates Colorizetemplates.com adalah keyword lomba kontes seo yang diadakan oleh colorizetemplates.com. Colorize.com sendiri adalah sebuah web penyedia templates.

Blogger Templates Colorizetemplates.com bila kita search di google maka akan muncul sebuah website dengan head berwarna biru. itu adalah salah satu penyedia template gratis untuk para pecinta blogger atau blogspot.

Bagi teman teman yang senang ngeblog dan ingin mempercantik blognya mampir saja di Blogger Templates Colorizetemplates.com kalian bisa download template sepuasnya. colorizetemplates.com selain menyediakan template mereka juga memberikan Blogilicious horas Medan tutorial singkat menginstal tutorial blogger. penasaran ingin meliah website ini silahkan ketikan ke pencarian google dengan colorizetemplates.com.

Di Blogger Templates Colorizetemplates.com ini, tersedia beberapa kategori themes blogger berdasarkan kolomnya, ada yang template blogger 2 kolom, 3 kolom dan juga yang 4 kolom. silahkan anda pilih sendiri.

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Permutasi dan Kombinasi dengan C

2009-06-22T21:53:00.012+07:00

Dengan memanfaatkan program faktorial, kita bias membuat suatu program lain yang juga bermanfaat, seperti misalnya program untuk menghitung permutasi dan kombinasi. Permutasi dan kombinasi merupakan proses perhitungan yang kerap dilakukan di bidang ilmu statistik. Rumus perhitungan permutasi dan kombinasi dapat dilihat pada gambar di bawah ini:

Huruf P menunjukkan permutasi dan huruf C menunjukkan kombinasi.
Huruf n dan r mewakili bilangan bulat positif dengan n >= r.
Berdasarkan rumus tersebut, kita akan membuat program untuk menghitung permutasi dan kombinasi.

Jika program tersebut dijalankan, salah satu kemungkinan hasilnya adalah sebagai berikut:

Program Menghitung
Permutasi atau
Kombinasi
nPr atau nCr
Masukkan nilai n : 5
Masukkan nilai r : 3
Pilih P (permutasi) atau C
(kombinasi) : p
5P3 = 60

Anda bias mengembangkan sendiri program di atas, misalnya diberi looping untuk member kesempatan pengguna melakukan perhitungan ulang setelah sebuah perhitungan selesai dilakukan.

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Menghitung Faktorial dgn bahasa C

2009-06-22T21:34:00.010+07:00

Suatu faktorial dilambangkan dengan tanda seru (!) dan mengikuti rumus sebagai berikut :
N! = N x (N-1) x (N-2) x … x 0
Dalam bentuk lain, rumus di atas bisa dituliskan sebagai berikut:
N! = N x (N-1)!
Nah, berikut ini adalah program bahasa C yang digunakan untuk menghitung faktorial.

Jika program tersebut dijalankan, hasilnya adalah sebagai berikut:

Program Menghitung
Faktorial
Masukkan
suatu bilangan bulat : 5
Nilai 5! adalah : 120

Alur program tersebut adalah sebagai berikut:
1. Deklarasi variabel.
2. Input bilangan yang akan difaktorial.
3. Pemeriksaan kondisi, jika bilangan kurang dari nol, maka muncul peringatan, jika bilangan lebih besar atau sama dengan nol, maka fungsi faktorial() dipanggil.

Untuk membantu Anda dalam membayangkan alur tersebut, lihat bagan seperti terlihat pada Gambar dibawah ini.

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

BERMAIN IMAGE DENGAN VB 6.0

2009-06-11T22:12:00.007+07:00

Membuat Image Transparan

Adobe Photoshop mempunyai fasilitas yang disebut dengan blending option. Ketika sebuah layer hendak diletakkan di atas layer yang lain, maka layer di atasnya bisa diset untuk
menumpuk layer dibawahnya dengan berbagai macam model, seperti hard light, soft light, difference, multiply, screen, dan sebagainya.

Tip kali ini adalah membuat efek blend dengan mode Lighten, Darken, Difference, dan Screen. Logika yang digunakan adalah mengambil nilai RGB pixel dari area yang hendak di-blend.
RGP Pixel tersebut akan diolah berdasar jenis blend yang diterapkan.

Langkah-langkahnya adalah:

1) Buat form yang terdiri dari sebuah dua buah picture box (dengan nama picture1 untuk citra yang asli, dan picture2 untuk citra yang hendak di-blend), serta 5 buah command button
dengan nama command1 (untuk Blend light), command2 (untuk Blend screen), command3 (untuk Blend Diff), command4 (untuk Blend Clear hasil blend).

2) Deklarasi awalnya mendefinisikan sebuah tipe bernama pixel untuk memudahkan pemrosesan setiap pixel-nya:
Option Explicit

Private Type Pixel 'warna 24 bit
blue As Integer
green As Integer
red As Integer
Trans As Integer
End Type

Dim a As Pixel, b As Pixel, c As Pixel

Fungsi-fungsi yang dibutuhkan adalah:
Private Function MaxB(ByVal inValA As Byte,
ByVal inValB As Byte) As Byte
MaxB = IIf(inValA > inValB, inValA,
inValB)
End Function

Private Function MinB(ByVal inValA As Byte,
ByVal inValB As Byte) As Byte
MinB = IIf(inValA < pixtolong =" RGB(.red," checkhighbyte =" IIf(inVal"> 255, 255,
nVal)
End Function
Private Function BlendLight(inPixA As Pixel,
inPixB As Pixel) As Pixel
With BlendLight ' Blend dengan mode
lighten
.red = MaxB(inPixA.red, inPixB.red)
.green = MaxB(inPixA.green, inPixB.
green)
.blue = MaxB(inPixA.blue, inPixB.blue)
End With
End Function
Private Function BlendDark(ByRef inPixA As
Pixel, ByRef inPixB As Pixel) As Pixel
With BlendDark ' Blend dengan mode darken
.red = MinB(inPixA.red, inPixB.red)
.green = MinB(inPixA.green, inPixB.
green)
.blue = MinB(inPixA.blue, inPixB.blue)
End With
End Function

Private Function BlendDiff(ByRef inPixA As
Pixel, ByRef inPixB As Pixel) As Pixel
With BlendDiff ' Blend dengan mode
difference
.red = Abs(inPixA.red - inPixB.red)
.green =
Abs(inPixA.green -
inPixB.
green)
.blue =
Abs(inPixA.blue -
inPixB.blue)
End With
End Function

Private Function
BlendScrn(inPixA As
Pixel,
inPixB As Pixel) As
Pixel
With BlendScrn
'Blend dengan mode
screen
.red =
CheckHighByte(inPixA.
red * (1 +
(inPixB.red / 255)))
.green =
CheckHighByte(inPixA.
green *
(1 + (inPixB.green /
255)))
.blue =
CheckHighByte(inPixA.
blue * (1
+ (inPixB.blue / 255)))
End With
End Function

Private Function LongToPix(inCol As Long) As
Pixel
With LongToPix 'Konversi dari long ke
piksel
.red = inCol And &HFF
.green = (inCol \ &H100) And &HFF
.blue =
(inCol \ &H10000)
And &HFF
End With
End Function

Private Sub
Blend(area As
PictureBox, x1 As
Integer, y1 As
Integer, X As
Integer, Y As
Integer, a As Pixel,
mode As Long)
Dim pix As Pixel
Dim bits_per_
pixel As Integer
Dim xc As
Integer, yc As
Integer

If y1 > Y Then
yc = Y
Y = y1
y1 = yc
End If
If x1 > X Then
xc = X
X = x1
Pemrograman
x1 = xc
End If

For yc = y1 To Y
For xc = x1 To X
pix = LongToPix(area.Point(xc, yc))
Select Case mode
Case 1: pix = BlendScrn(a, pix)
Case 2: pix = BlendLight(a, pix)
Case 3: pix = BlendDiff(a, pix)
Case 4: pix = BlendDark(a, pix)
End Select
area.PSet (xc, yc), PixToLong(pix)
Next xc
Next yc
End Sub

3) Event yang dicegat untuk masing-masing klik dari command button adalah:
Private Sub Command1_Click()
Blend Picture2, 10, 10, 100, 100, a, 1
Blend Picture2, 10, 110, 100, 210, b, 1
Blend Picture2, 110, 10, 200, 100, c, 1
End Sub
Private Sub Command2_Click()
Blend Picture2, 10, 10, 100, 100, a, 2
Blend Picture2, 10, 110, 100, 210, b, 2
Blend Picture2, 110, 10, 200, 100, c, 2

End Sub

Private Sub Command3_Click()
Blend Picture2, 10, 10, 100, 100, a, 3
Blend Picture2, 10, 110, 100, 210, b, 3
Blend Picture2, 110, 10, 200, 100, c, 3

End Sub

Private Sub Command4_Click()
Blend Picture2, 10, 10, 100, 100, a, 4
Blend Picture2, 10, 110, 100, 210, b, 4
Blend Picture2, 110, 10, 200, 100, c, 4

End Sub

Private Sub Command5_Click()
Set Picture2 = Picture1
End SubPrivate Sub Form_Load()
a.blue = 128
a.green = 0
a.red = 128

b.blue = 128
b.green = 128
b.red = 0

c.blue = 0
c.green = 128
c.red = 128

End Sub

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

4) Simpan dan jalankan program.

Membuat Jam Analog

2009-06-11T21:54:00.009+07:00

Meskipun sekarang adalah era digital, namun bagi banyak orang tetap lebih suka melihat jam dengan tampilan analog yang lengkap dengan angka 1-12 dibandingkan jam digital yang hanya menampilkan angka. Mungkin karena visualisasi pada jam analog mudah ditangkap ketimbang melihat jam digital.

Kali ini, kita akan coba membuat tampilan jam analog pada VB.Net.

Langkah-langkah untuk membuat tampilan jam analog di VB.Net adalah:

1) Buat sebuah project baru di VB.Net. Buat label sebanyak dengan caption 1-12 untuk menunjukkan angka pada jam. Beri nama masing-masinglabeldengan nama labeldigit0 (untuk angka 12), labeldigit1 (untuk angka 1), labeldigit2 (untuk angka 2), dan seterusnya. Tambahkan sebuah control timer dengan nama Timer1 dan interval 1000.

2) Untuk membuat jarum jam, menit dan detik kita akan menggunakan grafik dan perhitungan matematika. Deklarasi utamanya adalah sebagai berikut:

Imports System.Math
Public Class Form1
Inherits System.Windows.Forms.Form
Dim l As Label
Const HaftSize = 150
Const SecondHandLenght = 100
Const MinuteHandLenght = 80
Const HourHandLenght = 60
' Create a Pen object.
Dim Pen As New Drawing.Pen(System.Drawing.
Color.Red, 2)
Dim Second, Minute, Hour As Integer
Dim x1, y1, x2, y2 As Integer

3) Untuk event timer1 yang akan dipanggil setiap 1 detik adalah sebagai berikut:
Private Sub Timer1_Tick(ByVal sender As System.
Object, ByVal e As System.EventArgs) Handles Timer1.
Tick
Refresh() ' Clears Hands
Second = Microsoft.VisualBasic.DateAndTime.
Second(Now)
Minute = Microsoft.VisualBasic.DateAndTime.
Minute(Now)
Hour = Microsoft.VisualBasic.DateAndTime.
Hour(Now)
' Draws Hour-Hand:
Pen = New Drawing.Pen(System.Drawing.Color.
Red, 6)
x1 = Sin(((Hour Mod 12) * 30 + Minute / 2) *
PI / 180 + PI) * HourLength / 5 + HaftSize 'Tail x
y1 = Cos(((Hour Mod 12) * 30 + Minute / 2) *
PI / 180) * HourLength / 5 + HaftSize 'Tail y
x2 = Sin(((Hour Mod 12) * 30 + Minute / 2) *
PI / 180) * HourLength + HaftSize 'Head x
y2 = Cos(((Hour Mod 12) * 30 + Minute / 2) *
PI / 180 + PI) * HourLength + HaftSize 'Head y
Me.CreateGraphics.DrawLine(Pen, x1, y1, x2,
y2)
' Draws Minute-Hand:
Pen = New Drawing.Pen(System.Drawing.Color.
Red, 4)
x1 = Sin(Minute * PI / 30 + Second * PI /
1800 + PI) * MinuteLength / 5 + HaftSize
y1 = Cos(Minute * PI / 30 + Second * PI /
1800) * MinuteLength / 5 + HaftSize
x2 = Sin(Minute * PI / 30 + Second * PI /
1800) * MinuteLength + HaftSize
y2 = Cos(Minute * PI / 30 + Second * PI /
1800 + PI) * MinuteLength + HaftSize
Me.CreateGraphics.DrawLine(Pen, x1, y1, x2,
y2)
' Draws Second-Hand:
Pen = New Drawing.Pen(System.Drawing.
Color.Orange, 2)
x1 = Sin(Second * PI / 30 + PI) *
SecondLength / 5 + HaftSize
y1 = Cos(Second * PI / 30) * SecondLength /
5 + HaftSize
x2 = Sin(Second * PI / 30) * SecondLength +
HaftSize
y2 = Cos(Second * PI / 30 + PI) *
SecondLength + HaftSize
Me.CreateGraphics.DrawLine(Pen, x1, y1, x2,
y2)
End Sub

4) Untuk event form_load-nya adalah sebagai berikut:
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim Angle As Double
Dim i As Integer
Height = HaftSize * 2
Width = HaftSize * 2
'Draws and locates Digits:
For i = 0 To 11
Angle = i * PI / 6
x1 = Sin(Angle) * (SecondLength +
20) + HaftSize
y1 = Cos(Angle + PI) *
(SecondLength + 20) + HaftSize
l = CallByName(Me, "lblDigit" &
i, CallType.Get)
l.Left = x1 - l.Width / 2
l.Top = y1 -
l.Height / 2
Next
End Sub
End Class

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)
5) Tampilan program ketika dijalankan adalah sebagai berikut:

Menampilkan data pada VB.Net

2009-06-11T20:44:00.009+07:00

Menampilkan data dengan Data Grid View

Kali ini, kita akan coba buat data sederhana yang dapat ditampilkan secara langsung pada DataGridView.

Langkah-langkah untuk membuat Quick Sort di VB.Net adalah:

1. Buat sebuah project baru di VB.Net. Tambahkan kontrol DataGridView dengan nama DataGridView1, dan tiga buah commandbuttonyangmasing-masing bernama Button1 (dengan caption Load Data), Button 2 (dengan caption Clear Data), dan Button 3 (dengan caption Exit).

2. Kode berikut digunakan untuk mengisikan data yang hendak ditampilkan. Data yang ditampilkan menggunakan class TableData yang terdiri dari 3 property, yaitu Pemilik, Peliharaan, dan NamaPeliharaan. Masing-masing property berjenis string:

Public Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim td1 As New TableData
td1.Pemilik = "Frank"
td1.Peliharaan = "Sapi"
td1.NamaPeliharaan = "Mooow"
Dim td2 As New TableData
td2.Pemilik = "Goldi"
td2.Peliharaan = "Anjing"
td2.NamaPeliharaan = "Bleki"
Dim td3 As New TableData
td3.Pemilik = "Karlo"
td3.Peliharaan = "Katak"
td3.NamaPeliharaan = "Kwok-kwok"
Dim arr(3) As TableData
Dim i As Long
arr(0) = td1
arr(1) = td2
arr(2) = td3
DataGridView1.DataSource = arr
For i = 0 To 2
'autoresize each column
DataGridView1.AutoResizeColumn(i)
Next i
End Sub
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
DataGridView1.DataSource = Nothing
End Sub
End Class

3. Struktur data untuk data yang hendak ditampilkan, disimpan pada Class TableData:
Public Class TableData
Private mOwner As String
Private mPet As String
Private mPetname As String
Public Property Pemilik() As String

Get
Return mOwner
End Get
Set(ByVal value As String)
mOwner = value
End Set
End Property
Public Property Peliharaan() As String
Get
Return mPet
End Get
Set(ByVal value As String)
mPet = value
End Set
End Property
Public Property NamaPeliharaan() As String
Get
Return mPetname
End Get
Set(ByVal value As String)
mPetname = value
End Set
End Property

End Class

4. Jalankan program, dan hasil yang ditampilkan adalah:

Grafik Trigonometri dengan Visual Basic 6.0

2009-06-04T02:39:00.011+07:00

Fungsi trigonometri telah diajarkan sejak di bangku SMP kelas 3. Fungsi yang umum adalah fungsi Sin, Cos, dan Tangen. Bagi mahasiswa teknik, fungsi ini seringkali digunakan untuk
memodelkan suatu permasalahan sehingga bisa diplot grafik- nya dengan bantuan komputer.

Software pengolah grafik berbasis vektor, banyak menggunakan fungsi trigonometri ini untuk menghasilkan bentuk geometris lingkaran atau kurva tertentu. Tip kali ini adalah melihat model
grafik dari fungsi trigonometri untuk menghasilkan bentuk- bentuk geometris.

Langkah-langkah untuk membuatnya adalah:

1. Buat sebuah form baru dengan sebuah picture box yang bernama graph. Lalu, tambahkan tiga buah slider. Slider pertama untuk mengatur Amplitudo, bernama sldamp. Slider kedua untuk mengatur Frekuensi bernama sldfrq. Slider ketiga untuk mengatur Radius bernama sldradius. Tambahkan juga sebuah timer bernama timerstart dengan interval sebesar 100.

Properti yang perlu di- atur untuk sldamp adalah: LargeChange=1, Max=50, Min=-50, SelStart=-10. Untuk sldfrq: LargeCha- nge=1, Max=20, Min=0, SelStart=3. Untuk sldra-
dius: LargeChange=50, Max=3, Min=1, Selstart=2, Small- Change=50.

2. Jika komponen slider tidak ada, maka kita perlu menambahkan melalui menu Project >> Components.
Tandai komponen Microsoft Windows Common Controls 6.0 (SP6).

3. Berikutnya adalah melakukan inisialisasi, dan menuliskan modul yang diperlukan. Modul yang diperlukan adalah sub drawgraph yang berfungsi untuk menggambar grafik fungsinya, dan GraphCls untuk membersihkan bidang gambar grafik:

Dim th As Double
Dim radius As Integer
Dim scal As Double
Dim op1 As Integer
Dim op2 As Integer
Dim amp As Double
Dim frq As Double
Dim x As Double
Dim y As Double
Dim step As Double
Dim txtamp As Double
Dim txtfrq As Double

Private Sub drawgraph()
GraphCls
For th = -3.2 To 3.2 Step step
scal = radius - sldamp.Value * Sin(th *
sldfrq.Value)
x = scal * Sin(th)
y = scal * Cos(th)
SetPixel graph.hdc, 200 + x, 200 - y,
RGB(0, 0, 0)
Next th
graph.Refresh
End Sub

Public Sub
GraphCls()
graph.Cls
graph.Line
(200, 0)-(200,
400), RGB(255,
0, 0)
graph.Line (0,
200)-(400, 200),
RGB(255, 0, 0)
End Sub

4. Pencegatan event-event-nya adalah sebagai berikut:

Private Sub form_load()
GraphCls
step = 0.001
radius = 100
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub sldamp_Scroll()
txtamp = sldamp.Value
drawgraph
End Sub

Private Sub sldfrq_Scroll()
txtfrq = sldfrq.Value
drawgraph
End Sub

Private Sub sldradius_scroll()
radius = sldradius.Value * 50
drawgraph
End Sub

Private Sub Timerstart_Timer()
drawgraph
Timerstart.
Enabled
False

End Sub
5. Simpan, dan jalankanprogram. Tampilan yang didapatkan adalah sebagai berikut

MEMBUAT GAME SNAKE

2009-06-04T02:27:00.010+07:00

Game Snake pada Visual Basic 6.0

Kembali ke masa-masa di mana ponsel masih monokrom. Ingatkah Anda, game apa yang saat itu paling populer? Sebagian besar mungkin akan menjawab bahwa game yang paling populer saat itu adalah game Snake, yang mulai ada di ponsel Nokia seri 5110.

Tip kali ini adalah membuat game Snake sederhana dengan VB. Game ini dilengkapi dengan score, dan kecepatan yang berbeda untuk setiap levelnya.

Langkah-langkah untuk membuatnya adalah:

1. Buat sebuah form dengan 1 buah picture box dengan nama Picture1. 1
Ubah Property Width menjadi 4335, Height menjadi 3855, Backcolor menjadi H00FFFFFF&.

Deklarasi utamanya adalah sebagai

Const WarnaGrid = vbBlack
Const WarnaKepala = vbWhite
Const warnaTubuh = vbGreen
Const warnaMakanan = vbRed
Const warnaGaris = vbWhite
Private Declare Function GetTickCount Lib "kernel32" ()
As Long
Private Type Part
X As Integer
Y As Integer
End Type
Dim Part() As Part
Dim Level As Long
Dim vX As Integer, vY As Integer
Dim i As Integer
Dim CS As Single
Dim FX As Integer, FY As Integer
Dim X As Integer, Y As Integer
Dim bRunning As Boolean, died As Boolean

2. Inisialisasi dan event-event yang dicegat, pada saat game kali pertama dijalankan:

Private Sub Form_Load()
Randomize
Picture1.BackColor = warnaGaris
Picture1.ScaleMode = 3 'pixels
CS = 20

X = Int(Picture1.ScaleWidth / CS)

Y = = Int(Picture1.ScaleHeight / CS)

3. Subrutin lain yang dibutuhkan adalah:

Picture1.AutoRedraw = True
Picture1.ScaleWidth = X * CS
Picture1.ScaleHeight = Y * CS
Me.WindowState = 2
Me.Show
DrawGrid Picture1, CS
died = False
'set up the game
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
bRunning = True
Level = 1
Form1.Caption = "Score: " & UBound(Part) & " Level : "
& Level
MainLoop
End Sub
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift
As Integer)
Select Case KeyCode
Case vbKeyRight
vX = 1: vY = 0
Case vbKeyLeft
vX = -1: vY = 0
Case vbKeyUp
vX = 0: vY = -1
Case vbKeyDown
vX = 0: vY = 1
End Select
End Sub
Private Sub Picture1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then bRunning = False
If KeyAscii = Asc("p") Then MsgBox "Pause"

End Sub
Sub MainLoop()
Do While bRunning = True
Update
Draw
WAIT (160 - Level * 10)
Loop
Unload Me
End Sub
Sub Update()
'menggerakkan tubuh
For i = UBound(Part) To 1 Step -1
Part(i).X = Part(i - 1).X
Part(i).Y = Part(i - 1).Y
Next i
'kepala
Part(0).X = Part(0).X + vX
Part(0).Y = Part(0).Y + vY
'menabrak pinggiran
If Part(0).X <>= X Or Part(0).Y <>= Y Then
died = True
End If
'menabrak diri sendiri
For i = 1 To UBound(Part)
If Part(i).X = Part(0).X And Part(i).Y = Part(0).Y Then
died = True
End If
Next i
'makan
If Part(0).X = FX And Part(0).Y = FY Then
ReDim Preserve Part(UBound(Part) + 1)
Part(UBound(Part)).X = -CS
Part(UBound(Part)).Y = -CS
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
If UBound(Part) Mod 20 = 0 Then Level = Level + 1
Form1.Caption = "Parts: " & UBound(Part) & " Level
: " & Level
End If
If died = True Then NewGame
End Sub
Sub Draw()
Rectangle 0, 0, X * CS, Y * CS, WarnaGrid
For i = 1 To UBound(Part)
Rectangle Part(i).X * CS, Part(i).Y * CS, Part(i).X
* CS + CS, Part(i).Y * CS + CS, warnaTubuh
Next i
Rectangle Part(0).X * CS, Part(0).Y * CS, Part(0).X
* CS + CS, Part(0).Y * CS + CS, WarnaKepala
Rectangle FX * CS, FY * CS, FX * CS + CS, FY * CS +
CS, warnaMakanan
DrawGrid Picture1, CS
End Sub
Sub Rectangle(X1 As Integer, Y1 As Integer, X2 As
Integer, Y2 As Integer, color As Long)
Picture1.Line (X1, Y1)-(X2, Y2), color, BF
End Sub
Sub NewGame()
died = False
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0
vX = 0
vY = 0
FX = Int(Rnd * X)
FY = Int(Rnd * Y)
End Sub
Sub DrawGrid(Pic As Control, CS As Single)
Dim i As Integer, Across As Single, Up As Single
Across = Pic.ScaleWidth / CS
Up = Pic.ScaleHeight / CS
For i = 0 To Across
Pic.ForeColor = warnaGaris
Pic.Line (i * CS, 0)-(i * CS, Up * CS)
Next
For i = 0 To Up
Pic.ForeColor = warnaGaris
Pic.Line (0, i * CS)-(Across * CS, i * CS)
Next i
End Sub
Sub WAIT(Tim As Integer)
Dim LastWait As Long
LastWait = GetTickCount
Do While Tim >
GetTickCount - LastWait
DoEvents
Loop
End Sub

4. Simpan, dan jalankan program. Tampilan yang didapatkan adalah sebagai berikut:

Jalankan MP3 dengan VB 6.0 (bag.2)

2009-05-30T23:08:00.008+07:00

Jalankan MP3 tanpa OCX (bag.2)

Pada artilkel sebelumnya, kita telah mendeklarasikan hal-hal yang diperlukan. sekarang ini, masuklah kita kepada menulis fugnsi-fungsi yang diperlukan dan mencegat beberapa event.

Fungsi yang diperlukan adalah:

Public Function MP3Play(wndHandle As Long,
sFileName As String)
Dim cmdToDo As String * 255
Dim dwReturn As Long
Dim ret As String * 128
Dim tmp As String * 255
Dim lenShort As Long
Dim ShortPathAndFie As String, glo_HWND As Long
If Dir(sFileName) = "" Then
mmOpen = "Error with input file"
Exit Function
End If
lenShort = GetShortPathName(sFileName, tmp, 255)
ShortPathAndFie = Left$(tmp, lenShort)
glo_HWND = wndHandle
cmdToDo = "open " & ShortPathAndFie & " type
MPEGVideo Alias MP3Play"
dwReturn = mciSendString(cmdToDo, 0&, 0&, 0&)
If dwReturn <> 0 Then 'not success
mciGetErrorString dwReturn, ret, 128
mmOpen = ret
MsgBox ret, vbCritical
Exit Function
End If
mmOpen = "Success"
mciSendString "play MP3Play", 0, 0, 0
End Function
Public Function MP3Pause()
mciSendString "pause MP3Play", 0, 0, 0
End Function
Public Function MP3UnPause()
mciSendString "play MP3Play", 0, 0, 0
End Function
Public Function MP3Stop() As String
mciSendString "stop MP3Play", 0, 0, 0
mciSendString "close MP3Play", 0, 0, 0
End Function
Private Sub Open_file()
CommonDialog1.Filter = "MP3 Files *.mp3"
CommonDialog1.ShowOpen
nFileName = CommonDialog1.FileName
Text1.Text = nFileName
MP3Play hWnd, nFileName
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Exit Sub

ex:

Command1.Enabled = True
Command5.Enabled = True
End Sub
Pemrograman
Public Function IsPlaying() As Boolean
Static s As String * 30
mciSendString "status MP3Play mode", s, Len(s), 0
IsPlaying = (Mid$(s, 1, 7) = "playing")
End Function

4) Sedangkan event-event yang dicegat adalah:

Private Sub Check1_Click()
Timer1 = Not Timer1
If Timer1 Then Check1.Value = 1 Else Check1.
Value = 0
End Sub
Private Sub Command1_Click()
Command1.Enabled = False
Command5.Enabled = False
Open_file
End Sub
Private Sub Command2_Click()
If Command2.Caption = "Pause" Then
Command2.Caption = "Play"
MP3Pause
Else
Command2.Caption = "Pause"
MP3UnPause
End If
End Sub
Private Sub Command3_Click()
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Caption = "Pause"
MP3Stop
End Sub
Private Sub Command4_Click()
mciSendString "stop MP3Play", 0, 0, 0
mciSendString "play MP3Play from 0", 0, 0, 0
Command2.Caption = "Pause"
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
MP3Stop
End Sub

5) Simpan, dan jalankan program. Selamat Mencoba....!!

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Jalankan MP3 dengan VB 6.0 (bag.1)

2009-05-30T22:48:00.012+07:00

Jalankan MP3 tanpa OCX dengan VB 6.0

Tip kali ini adalah membuat sebuah player sederhana MP3 dengan menggunakan VB. Tidak seperti program-program lain yang menggunakan control atau komponen OCX, aplikasi ini
hanya menggunakan pemanggilan fungsi API.

Fungsi API yang penting dalam membuat aplikasi ini adalah fungsi mciSendString. Fungsi mciSendString berguna untuk mengirimkan perintah
ke device MCI. Jika sukses maka return value atau nilai yang dikembalikan adalah 0.

Langkah-langkah untuk membuat aplikasi ini adalah:

1) Buat form dengan sebuah textbox,

5 buah command button, dan sebuah check box. Command button yang pertama (command1) digunakan untuk membuka file MP3 yang hendak di-play. Command button ke-2 (command2) digunakan untuk mem-pause saat MP3 sedang dijalankan, command button ke-3 (command3) digunakan untuk menutup file MP3 yang sedang dijalankan, command button ke-4 (command4) digunakan untuk me-reset atau me-restart file MP3 yang sedang dijalankan, dan terakhir command button ke-5 (command5) digunakan un- tuk keluar dari program.
Check box digunakan untuk mengatur apakah
file MP3 yang di-play akan diulang atau tidak.
Tambahkan sebuah timer dengan nama timer1,
dan dialog box dengan nama dialogbox1.

2) Deklarasi yang digunakan adalah:
Private Declare Function mciGetErrorString _
Lib "winmm.dll" Alias "mciGetErrorStringA"
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, ByVal uLength As
Long) As Long
Private Declare Function mciSendString _
Lib "winmm.dll" Alias "mciSendStringA" (ByVal
lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal
uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private mmOpen As String, sec As Integer, mins

As Integer
Dim nFileName As String

bersambung...

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Menggerakkan Image dengan Java Script

2009-05-30T22:08:00.008+07:00

Window pop-up adalah suatu window yang muncul ketika kita membuka sebuah halaman baru. Biasanya, window pop-up menampilkan iklan yang berhubungan dengan situs yang dibuka. Karena mengganggu, maka biasanya window pop-up diblok agar tidak muncul.

Tip kali ini adalah membuat sebuah window pop-up yang "sopan". Window pop-up hanya muncul sekali dalam satu hari. Jika window pop-up ini sudah muncul hari ini, maka data kemunculan tersebut akan disimpan di cookie untuk mencegah kemunculan yang kedua kali dalam hari ini. Setelah lewat hari, window pop-up ini dapat muncul kembali.

Langkah-langkah untuk membuatnya adalah:

Buat header awal HTML serta script yang dibutuhkan untuk menyimpan..

download file selengkapnya :
disini

Database dengan Visual Basic 6.0 (part 2)

2009-05-24T02:28:00.012+07:00

Pada artikel sebelumnya, kita telah membuat database access, form1 pada Visual Basic Proyek.

Nah, sekarang kita akan mengisikan form 1 dengan listing program. Klik kanan form tersebut, lalu pilih "view code:

'Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\dataku.mdb"
Data1.RecordSource = "Mhs"End Sub

'Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

'Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

'Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

'Pada Command1 :
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub

'Pada Command3 :
Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub

'Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < text =" Data1.Recordset(" text =" Data1.Recordset(" k =" j" i =" (i" i =" i">

'Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

'Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub

Selamat menjalankan program....!!
Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)

Database dengan Visual Basic 6.0 (part 1)

2009-05-24T01:44:00.017+07:00

A. Koneksi Database.

Sebagai Latihan awal, buatlah database di Ms.Access Simpan di
D:\nama_nim\data1.mdb. Buatlah table dengan nama MHS sebagai berikut :

Kemudian jika perlu, isi field-filed pada NIM, Nama dan Alamat sebagai contoh.

Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :

Klik Tools, Database utilities, Convert database, to Access 97 format.
Simpan di folder yang sama, beri nama dataku.mdb, klik ok, kini tersedia
database dengan nama dataku dengan Ms.Access versi 97.
Keluar dari Ms.access.

Bekerja dengan Microsoft Visual Basic 6.0.(VB).

Langkah – Langkahnya :

Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam
Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada,
maka kita menambah komponen dengan cara klik kanan toolbox, klikComponents :

Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.

Sekarang buat tampilan sebagai berikut dengan objektext,label,command,data, dan DB Grid :

Set propertinya sebagai berikut :
Simpan form & Projectnya di folder tempat anda menyimpan database.
Cara memasukkan script adalah double click pada objeknya, berikut listing /
script programingnya :

bersambung....... (part 2)

Kelebihan dan Kekurangan Java Sript

2009-05-23T22:11:00.006+07:00

Setiap bahasa pemrograman pasti mempunyai kelebihan dan kekurangannya. begitupun dengan JavaSript. Adapun kelebihan JavaScript antara lain yaitu :

Cepat, karena diletakkan di halaman HTML, dan dapat langsung dicoba di browser.
Mudah, karena memiliki sediit sintaks.
Terbuka, (Platform Independent).
Ukurannya sangat kecil dibandingkan dengan pemrograman Java.

Sedangkan kekurangan dari bahasa pemrograman JavaScript antara lain yaitu :

Tidak dapat membuat program aplikasi secara tersendiri (mandiri tanpa bantuan aplikasi lain).
Objek yang dikelola JavaScript sangat terbatas.
Scriptnya dapat disalin atau di-copykan dari Web browser, sehingga setiap orang dapat menggunakan program JavaScript yang telah kita ciptakan.

Pengenalan Java Script

2009-05-23T22:08:00.005+07:00

SEJARAH JAVA SCRIPT

JavaScript pertama kali diperkenalkan oleh Netscape pada tahun 1995. Pada awalnya, bahasa yang sekarang disebut JavaScript ini bernama “LiveScript” yang berfungsi sebagai bahasa sederhana untuk browser Netscape Navigator 2. Kemudian, sejalan dengan semakin terikatnya kerjasama antara Netscape dan Sun, maka pada tanggal 4 Desember 1995 Netscape memberikan nama “JavaSript”. Pada sat yang sama, Microsoft sendiri mencoba untuk mengadaptasikan teknologi yang mereka sebut sebagai “Jscript” di browser milik mereka sendiri yaitu Internet Explorer 3. JavaSript sendiri merupakan modifikasi dari bahasa C++ yang penulisannya lebih disederhanakan.

Perbedaan JavaSript dan Java

Java merupakan bahasa pemrograman berorientasi objek yang didesain untuk eksekusi cepat dan keamanan penulisan. Mengenai keamanan penulisan terlihat dari dimungkinkannya perintah “int” pada sebuah referensi objek atau untuk mengambil ruang memoru khusus dengan cara mengurangi jumlah kode byte Java. Sebaliknya JavaSript memiliki kemampuan tinggi meskipun hanya dituliskan dalam beberapa baris perintah dinamis saja. Hal itu terlihat dalam program Hyper Talk atau dBase. Bahasa pemrograman script juga dilengkapi dengan alat-alat yang dapat memudahkan para pengguna dari berbagai kalangan. Diantaranya adanya syntax yang mudah, fungsi-fungsi khusus yang terpasang,dan kebutuhan minimal yang diperlukan dalam membuat sebuah objek.

Perhatikan perbandingan antara bahasa pemrograman Java dengan JavaSript dibawah ini : Java :

1) Kompilasi di server sebelum dieksekusi di client,

2) Applets dipisahkan dari HTML,

3) Tipe-tipe variable data harus dideklarasikan,

4) Ikatan statis (static binding),

5) Referensi onjek harus ada pada waktu dikompilasi.

JavaSript :

1) Diterjemahkan oleh client (tidak dikompilasi),

2) Applet tidak dipisahkan dari html,

3) Kode mengunakan obje-objek built-in, dan dapat dikembangkan tetapi tidak diperlukan kelas-kelas,

4) Ikatan dinamis (dynamic binding),

5) Referensi objek di cek pada alur waktu.

Aplikasi Login VB Tanpa Database

2009-05-04T09:19:00.006+07:00

Private Sub Form_Activate()
Text1. MaxLength = 8
Text2. MaxLength = 8
Text1. SetFocus
End Sub

Private Sub Form_Load()
‘Mendisable-kan menu utama dan submenunya.
MainMenu.mnData = False
MainMenu.mnLaporan = False
MainMenu.smLogin = False
Main Menu.sm Logout = False

Private Sub Text1_KeyPress (keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress (keyascii As Integer)
If keyascii = 13 Then
Command1_Click
End If
End Sub

Private Sub Command1_Click()
If Text1.Text = ‘Admin’ and Text2.Text = “zf_1221” Then
‘Mengenable-kan menu utama dan submenunya kecuali menu login.
MainMenu.mAdmin = True
MainMenu.mnData = True
MainMenu.mnLaporan = True
MainMenu.smLogin = False
Main Menu.sm Logout = True
Unload Me
ElseIf If Text1.Text = ‘’ and Text2.Text = “” Then
Pesan = MsgBox(“Woiy, form login musti diisi tuch…!!”, -
0, “informasi”)
Text1.SetFocus
Else
Pesan = MsgBox(“Anda tidak berhak mengakses program ini”, -
0, “Akses diTOLAK…!!”)
Text1.SetFocus
End If
End Sub

Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)