Menampilkan Sistem Properties

Pada sesi belajar VB6 kali ini, kita akan belajar bagaimana menampilkan jendela sistem properties dari Windows. Caranya sangatlah mudah, kita cukup menambahkan sebuah command button pada form lalu klik ganda pada tombol command tersebut dan ketikkan kode berikut ini :

Private Sub Command1_Click()
id = Shell("rundll32.exe shell32.dll, Control_RunDLL sysdm.cpl,,0", vbNormalFocus)
End Sub

Download kodenya di sini

Memecah Pesan Dialog Menjadi Beberapa Baris

Di sesi pelajaran Visual Basic 6 kali ini, kita akan belajar bagaimana memecah pesan pada kotak dialog (Message Box) menjadi beberapa baris.

Untuk menampilkan pesan yang sangat panjang pada message box menjadi beberapa baris, kita dapat menggunakan konstanta vbCrlf. Dalam penggunaannya, konstanta vbCrlf harus diapit dengan tanda +.

Sebagai contoh, ikuti langkah berikut ini :
1. Letakkan sebuah Command Button pada form.
2. Buka jendela kode dan ketikkan kode berikut ini :

Private Sub Command1_Click()
MsgBox "Perhatikan tampilan pesan ini" + vbCrLf + _
"akan terpecah" + vbCrLf + _
"menjadi 3 baris."
End Sub

Untuk mendownload contoh program ini, silakan klik di sini.

Teknik Dasar VB : Bagian Keenam --- Overflow

Dalam membuat program, mungkin kita pernah mendapati pesan kesalahan overflow. Mengapa overflow bisa terjadi? Overflow terjadi apabila kita memberi nilai pada suatu tipe data yang melebihi batas.

Misal, seperti kita ketahui bahwa tipe Integer dapat menampung nilai -32768 sampai 32767. Oleh karena itu, wajar jika assignment di atas direspon error oleh karena nilainya melebihi batas tipe Integer.

Contoh penggunaan program yang dapat menyebabkan overflow:

dim iInteger as integer
iInteger=32767 + 1
Print iInteger

Teknik Dasar VB : Bagian Kelima --- Meng-assign String Kosong

Untuk menginisialisasi suatu string dengan nilai kosong, umumnya kita menggunakan tanda kutip ganda. Contoh :

strText = ""

Cara di atas memang sudah bekerja dengan baik seperti yang diharapkan. Akan tetapi, pertimbangkan bahwa tanda kutip ganda memerlukan 6 byte memori. Sebagi alternatif, kita dapat menggunakan konstanta vbNullString.

Walaupun kedua pendekatan ini memiliki tujuan sama, tetapi ada perbedaan yang sangat penting. Di mana, konstanta vbNullString adalah konstanta khusus yang menyatakan string null. Sementara itu, tanda kutip ganda menyatakan string kosong (empty).

Bagaimanapun juga, string empty adalah suatu string nyata, sedangkan null sebernarnya adalah 0. Jika kita bekerja dengan bahasa C atau C#, vbNullString ekuivalen dengan Null. Oleh karena itu di dalam prakteknya, penugasan dan pemrosesan vbNullString akan lebih cepat dibanding string empty.

Dibalik kekurangannya, tanda kutip ganda merupakan sintaks yang umum dan mampu mempertahankan kompabilitas. Untuk kasus penggunaan komponen atau API non-VB, bisa jadi konstanta vbNullString tidak dikenali sehingga akan lebih tepat jika kita menggunakan tanda kutip ganda.

Menghasilkan Uang Melalui Apenta

Program Afiliasi Apenta memberikan kesempatan bagi kita para blogger untuk mendapatkan uang melalui komisi dengan cara turut mempromosikan jasa web hosting dari Apenta.com

Apenta.com adalah penyedia jasa web hosting yang telah melayani ratusan pelanggan di Indonesia, baik perusahaan maupun perorangan. Informasi lengkap silahkan klik di sini.

Apa keuntungan-nya menjadi anggota afiliasi?

Bonus Rp. 50.000,- saat anda mendaftar.

• Penghasilan tambahan lewat komisi 10% dari setiap transaksi yang anda referensikan.
• Bonus 10% dari pendapatan downline atau level 1.
• Bonus handphone setiap bulan untuk satu anggota yang mencapai komisi Rp.500.000,- atau lebih pada bulan yang bersangkutan.
• Tanpa resiko.
• Tanpa modal.

Siapa saja boleh bergabung?

Program Afiliasi Apenta terbuka untuk siapa saja yang ingin menghasilkan uang dari Internet. (Tidak terbatas hanya kepada pelanggan Apenta)

Bagaimana cara kerja-nya?

• Join menjadi afiliasi di sini. Gratis!
• Login dan copy kode HTML banner yang tersedia di ruang anggota.
• Pasang kode HTML banner tersebut di website atau blog Anda.
• Anda akan mendapatkan komisi untuk setiap pelanggan hosting yang datang dari banner di website atau blog Anda.

Tertarik, bergabunglah bersama Apenta. Klik di sini untuk bergabung...

Teknik Dasar VB : Bagian Keempat --- Penggunaan DoEvents

Method DoEvents akan mengembalikan kontrol ke sistem operasi untuk sementara sehingga sistem operasi dapat memproses event-event lain yang mungkin terjadi. Method ini tepat sekali jika diimplementasikan pada kode program yang membutuhkan proses lama sehingga event lain yang sudah mengantri bisa didahulukan.

Contoh penggunaan DoEvents pada proses iterasi (loop) dapat dilihat di bawah ini :

For i = 1 To 200
Text1.Text = i
DoEvents
'Inner loop yang lebih lama
For j = 1 To 100000
Next j
Next i
Text1.Text = "ok"

Bagaimanapun juga, DoEvents bukanlah suatu solusi yang tanpapotensi masalah. Sebagai contoh, jika Anda memanggil suatu method, Anda harus memastikan bahwa method tidak dipanggil kembali sampai eksekusi dikembalikan.

Teknik Dasar VB : Bagian Ketiga --- Konstanta Built-In

Pada saat kita membuat suatu program, terkadang kita memerlukan karakter-karakter yang merepresentasikan fungsionalitas spesifik. Contohnya, karakter yang merepresentasikan backspace, enter, tab dan baris baru.

Sebenarnya, di VB6, karakter-karakter spesifik tersebut telah didefinisikan dalam suatu konstanta built-in. Kita tinggal menggunakannya saja, tanpa melakukan definisi lagi. Tabel di atas adalah daftar konstanta built-in yang tersedia.

Konstanta	Ekuivalen	Keterangan
vbNullChar	Chr(0)	null (NULL)
vbBack	Chr(8)	Backspace
vbTab	Chr(9)	Tab Horizontal
vbLf	Chr(10)	Line Feed
vbVerticalTab	Chr(11)	Tab Vertikal
vbFormFeed	Chr(12)	Formfeed
vbCr	Chr(13)	Carriage Return
vbCrLf	Chr(13) + Chr(10)	Carriage Return dan Line Feed
vbNewLine	Chr(13) + Chr(10)	Sama seperti vbCrLf, yaitu baris baru

Konstanta-konstanta di atas bisa Anda gunakan ketika mencetak output di kontrol, message box, atau langsung ke form. Contoh penggunaannya seperti berikut :

'Mencetak output setelah tabulasi
Print vbTab; "Hello"
Print Chr(9); "Hello"

Dua konstanta terakhir, yaitu vbCrlf dan vbNewLine, pada prinsipnya memang memiliki kegunaan sama. Tetapi, dalam beberapa kasus, vbNewLine dieksekusi lebih cepat dibanding vbCrlf.

Teknik Dasar VB : Bagian Kedua --- UDT

Di Visual Basic, kita bisa menciptakan sendiri suatu tipe data, yang dikenal dengan istilah UDT (User-Defined Type). Umumnya dilakukan apabila kita memerlukan tipe data spesifik yang tidak tersedia di Visual Basic.

Pada prinsipnya, UDT bisa dideklarasikan sebagai Private atau Public. Meskipun demikian, di Visual Basic 6, semua modul dapat meng-include definisi UDT Public, kecuali form. Oleh karena itu, jika Anda mendefinisikan UDT di form, gunakan access modifier Private. Contoh implementasinya sebagai berikut :

Private Type Employee
Nama As String
Alamat As String
End Type

Begitu kita selesai mendefinisikan struktur UDT, kita bisa mendeklarasikan variabel kemudian meng-assign item atau atributnya. Cara mengaksesnya menggunakan tanda titik sebagai berikut :

'Deklarasikan variabel dengan tipe UDT
Dim Emp As Employee

Emp.Nama = "Aubrey Naurah Aditya"
Emp.Alamat = "Desa Sasak Panjang No. 66, Tajur Halang, Bogor"

With Emp
Print .Nama
Print .Alamat
End With

Teknik Dasar VB : Bagian Pertama -- Deklarasi Variabel

Untuk bisa membuat kode program, kita harus mengetahui teknik dasarnya terlebih dahulu. Selain itu, kita juga perlu mencari solusi praktis guna menghasilkan kode program yang lebih baik dan efisien. Kode program yang efisien akan membuat program yang dihasilkan berjalan dengan lebih cepat.

Teknik dasar VB pada bagian pertama ini, saya akan membicarakan mengenai pendeklarasian variabel. Untuk mendeklarasikan variabel-variabel lokal, gunakanlah pernyataan Dim. Sementara itu, untuk variabel di level global (atau level modul), gunakan access modifier ( Private atau Public).

Apabila kita ingin mendeklarasikan beberapa variabel sekaligus, jangan menetapkan tipe data hanya sekali. Contohnya seperti berikut :
Dim x, y, z As Integer
Contoh di atas akan menjadikan z suatu variabel dengan tipe Integer. Sedangkan x dan y bertipe Variant. Secara otomatis, Visual Basic akan menetapkan tipe Variant untuk setiap variabel yang tidak dideklarasikan tipenya secara eksplisit. Adapun agar deklarasi sesuai dengan yang diharapkan, tetapkan datanya secara eksplisit seperti berikut ini :
Dim x As Integer, y As Integer, z As Integer

Pada kenyataannya, tipe data Variant sangat lambat dan mengkonsumsi memori lebih banyak dibandingkan dengan tipe data native. Yang perlu diingat adalah bahwa pemilihan tipe data yang tepat untuk suatu variabel akan sangat mempengaruhi jalannya program yang dihasilkan.





Thomas Alfa Edison

Thomas Alfa Edison lahir di Ohio, Amerika Serikat. Pada masa kecilnya, Edison selalu mendapat nilai buruk di sekolahnya. Oleh karena itu ibunya memberhentikannya dari sekolah dan mengajar sendiri di rumah. Di rumah dengan leluasa Edison kecil dapat membaca buku-buku ilmiah dewasa dan mulai mengadakan berbagai percobaan ilmiah sendiri. Pada Usia 12 tahun ia mulai bekerja sebagai penjual koran, buah-buahan dan gula-gula di kereta api. Kemudian ia menjadi operator telegraf, Ia pindah dari satu kota ke kota lain. Di New York ia diminta untuk menjadi kepala mesin telegraf yang penting. Mesin-mesin itu mengirimkan berita bisnis ke seluruh perusahaan terkemuka di New York.

Pada tahun 1870 ia menemukan mesin telegraf yang lebih baik. Mesin-mesinnya dapat mencetak pesan-pesan di atas pita kertas yang panjang. Uang yang dihasilkan dari penemuannya itu cukup untuk mendirikan perusahaan sendiri. Pada tahun 1874 ia pindah ke Menlo Park, New Jersey. Disana ia membuat sebuah bengkel ilmiah yang besar dan yang pertama di dunia. Setelah itu ia banyak melakukan penemuan-penemuan yang penting. Pada tahun 1877 ia menemukan Gramofon. Dalam tahun 1879 ia berhasil menemukan lampu listrik kemudian ia juga menemukan proyektor untuk film-film kecil. Tahun 1882 ia memasang lampu-lampu listrik di jalan-jalan dan rumah-rumah sejauh satu kilometer di kota New York. Hal ini adalah pertama kalinya di dunia lampu listrik di pakai di jalan-jalan. Pada tahun 1890, ia mendirikan perusahaan General Electric.

Edison dipandang sebagai salah seorang pencipta paling produktif pada masanya, memegang rekor 1.093 paten atas namanya. Ia juga banyak membantu dalam bidang pertahanan pemerintahan Amerika Serikat. Beberapa penelitiannya antara lain : mendeteksi pesawat terbang, menghancurkan periskop dengan senjata mesin, mendeteksi kapal selam, menghentikan torpedo dengan jaring, menaikkan kekuatan torpedo, kapal kamuflase, dan masih banyak lagi.

Ia meninggal pada usianya yang ke-84, pada hari ulang tahun penemuannya yang terkenal, bola lampu modern.

..::Ilmu diambil dari Wikipedia

Command Button

Sesuai dengan janji saya di awal, bahwa saya akan memposting beberapa ilmu yang saya punyai mengenai Visual Basic 6. Ok, pada tahap awal ini saya akan coba menjelaskan penggunaan dari komponen 'Command Button'.

Pertama-tama, buatlah Project baru dan Form baru dari Visual Basic 6. Drag dan Drop 'Command Button' yang ada di bagian ToolBox Standard di sisi kiri layar dan letakan di Form baru tersebut.

Klik ganda pada 'Command Button' sehingga akan pindah ke jendela selanjutnya, dan ketik tulisan seperti berikut :

Private Sub Command1_Click()
MsgBox "Selamat...." & vbCrLf & "Anda telah belajar Visual Basic 6 : Bagian Pertama.", vbOKOnly + vbInformation
End Sub

Dan lihatlah hasilnya ketika program tersebut dijalankan, maka akan timbul kotak pesan di layar monitor. Selamat mencoba....

Bila ingin mendownload program ini, silakan klik di sini.

Pay Pal

PayPal Inc. adalah perusahaan online yang menyediakan jasa transfer uang melalui surat elektronik, menggantikan metode lama yang masih menggunakan kertas, seperti cek dan money order. PayPal juga menyediakan jasa untuk para pemilik situs e-commerce, pelelangan, dan jenis usaha lain. Markas perusahaan ini terletak di San Jose , California, Amerika Serikat.

PayPal Corp. sebenarnya adalah sebuah perusahaan hasil penggabungan antara Confinity dengan X.com yang dilakukan pada tahun 2000. Confinity didirikan pada bulan Desember 1998 oleh Peter Thiel dan Max Levchin dengan tujuan awal sebagai perusahaan perantara pembayaran Palm Pilot dan penyedia layanan kriptografi. Adapun X.com didirikan oleh Elon Musk pada bulan Maret 1999 sebagai penyedia jasa perencanaan keuangan. Kantor pusat kedua perusahaan ini mulanya terletak di 165 University Avenue, Palo Alto, California, Amerika Serikat.

Melihat masa depan PayPal yang menjanjikan, ebay menyimpulkan PayPal cocok digunakan sebagai perantara pembayaran lelang online mereka. Sebelumnya, ebay telah membeli Billpoint pada bulan Mei 1999 dan menjadikannya sebagai perantara pembayaran satu-satunya yang diakui oleh ebay walaupun pilihan untuk menggunakan metode pembayaran lain masih diizinkan. Pada bulan Februari 2000, rata-rata ada sekitar 200.000 penawaran barang per hari yang menggunakan PayPal, sedangkan yang menggunakan Billpoint hanya mencapai 4.000 penawaran saja. Bahkan pada bulan April 2000, sudah ada lebih dari satu juta penawaran yang menggunakan PayPal.

Akhirnya pada tahun 2002, ebay mengakuisisi PayPal seharga US$ 1,5 miliar. ebay belakangan menghapus layanan pembayaran melalui Billpoint untuk meningkatkan potensi PayPal. Banyak pesaing utama PayPal yang akhirnya bangkrut atau dijual, seperti Citibank C2IT yang ditutup pada akhir 2003, Yahoo! PayDirect yang tutup pada akhir 2004, dan layanan BidPay milik Western Union yang ditutup pada tahun 2005. Pesaing PayPal lain yang masih bertahan hingga sekarang antara lain adalah AlertPay, e-gold, Kagi, dan Moneybookers.

Pada kuartal pertama 2006, total transaksi yang dilakukan melalui PayPal mencapai US$ 8 miliar, meningkat 41% dari tahun ke tahun.

..::Ilmu diambil dari Wikipedia

Pengenalan Visual Basic 6

Postingan pertama saya adalah mengenai Pengenalan Visual Basic 6. Mungkin tulisan ini agak berbau programming sedikit dan sedikit aneh bagi Anda yang memang jarang atau bahkan tidak pernah bergaul dengan programmer (hehehe...). But, gak ada salahnya kan kalau saya mencoba agar Anda mulai mengenal apa itu Visual Basic 6. Oke, mari kita mulai.

Visual Basic 6 merupakan bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis Sistem Operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa pemrograman Basic dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Object (DAO), Remote Data Object (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX.

Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic. Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi eksternal tambahan.

Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Walaupun termasuk bahasa pemrograman yang cukup lawas, tetapi di kalangan programmer, Visual Basic 6 akan selalu melekat di hati (termasuk saya). Karena apa? Karena Visual Basic 6 itu adalah bahasa pemrograman yang paling mudah untuk dimengerti dan sampai detik ini pun banyak sekali tools-tools yang dibuat oleh pihak ketiga (Third Party) yang mendukung keberadaan Visual Basic 6. Ambil contoh nih, salah satu orang Indonesia yang cukup sukses dengan membuat tools/komponen Visual Basic 6 adalah mas Osen dengan produknya yang diberi nama Osen XP Suite (bisa dilihat di http://osenxpsuite.net). Dan masih banyak lagi contoh-contoh komponen yang dibuat oleh pihak ketiga yang sangat bagus dan dapat menunjang kinerja para programmer Visual Basic 6.

Nah setelah Anda membaca postingan saya yang pertama ini, bagaimana? Apakah Anda mulai tertarik untuk belajar Visual Basic 6? Kalau jawabannya iya, nantikan postingan-postingan saya selanjutnya yang bermaterikan Visual Basic 6 Programming.