Apa yang di maksud dengan class? Class adalah blueprint dari object, dengan kata lain object akan tercipta mengikuti class yang dibuat. Jadi sebelum object ada tentunya harus ada class dahulu. tidak akan ada object apabila class tidak ada. Mengapa memakai class? sebab dengan membuat class program akan lebih mudah maintenancenya disamping itu class bisa dipakai kembali, sehingga mempersingkat penulisan code.
Contoh class dalam kehidupan sehari-hari: cetakan kue adalah class, sementara objectnya adalah kue dan kue tersebut akan mengikuti bentuk dari cetakan.
contoh sederhana, class customer. Misalnya class tersebut dibuat dengan memiliki property Nama Customer, Alamat Customer, dan Telp Customer. Jadi setiap kali membuat object dari class tersebut maka object tersebut pasti memiliki property Nama, Alamat dan telp.
Bagi yang baru memahami class mungkin akan sulit, tapi seiring berjalannya waktu akan banyak sekali manfaatnya bila sudah benar-benar paham akan class
Membangun software yang banyak menggunakan tombol. Pemakaian property index pada CommandButton tentunya akan sangat membantu sekali.
Artikel ini ditulis untuk catatan dan bisa mengingatkan kembali, lebih bersyukur lagi bila ada manfaatnya bagi pemula yang sedang mencari artikel visual basic 6 atau sedang belajar VB6.
property index dalam CommandButton bisa dimanfaatkan untuk meringkas penulisan code, tentu saja ini sangat membantu karena penulisan kode akan menjadi singkat. Ini ada pengaruhnya bila program di compile, setidaknya walaupun tidak banyak, akan memperkecil ukuran file exe yang dihasilkan nantinya.
untuk memanfaatkan property index pada CommandButton :
1. Buka VB6 klik StandardExe, pilih open
2. dobel klik label pada toolbox yang berada sebelah kiri
3. dobel klik commandbutton, copy command1, paste command1, Do you want to create a control array?, Click Yes
4. paste kembali sebanyak yang disukai
5. klik kanan pada form1, pilih view code
6. copykan, kode dibawah ini
'---code
Private Sub Command1_Click(Index As Integer)
'Tulis kode disini dengan mengunakan
'Pencabangan select case atau elseif untuk setiap index yang terpilih
With Label1
.Caption = "Anda memilih index : " & Index
.FontSize = 14
.Width = Me.Width
End With
End Sub
'--- end code
Dalam mendevelop software, kadang kala perlu untuk merubah caption commandbutton, sehingga bisa dipakai untuk dua perintah. misal user akan tekan tombol edit data dan pada saat selesai edit data tentunya user akan mencari tombol simpan untuk untuk menyimpan perubahan data.
Itu semua bisa dilakukan dalam satu commandbutton dimana pada saat user klik pada commandbutton tersebut, commandbutton akan segera mengganti caption dan bila di klik kembali commandbutton akan segera mengganti ke semula
Untuk prosesnya sangat sederhana, disini digunakan variabel tipe data boolean dimana nilainya kalau bukan true pasti false. jadi pada Saat setiap tombol diklik variabel tersebut akan segera di rubah
1. Buka visual basic 6 atau VB6, pilih StandardEXE lalu klik tombol open
2. pada toolbox dobel klik command button
3. klik kanan pada form1, pilih view code, lalu copykan code di bawah ini
'--- kode
Dim pilih As Boolean
Private Sub Command1_Click()
pilih = Not pilih
If pilih Then
Command1.Caption = " Edit data"
Else
Command1.Caption = "Simpan"
End If
End Sub
'--- end code
untuk menjalankannya
1. tekan tombol F5, lalu klik tombol command1 lihat apa yang terjadi bila di klik kembali
Pada saat buat blgroll tentunya data akan bertambah banyak dengan seiring berjalannya waktu. Untuk itu bisa memakai kotak daftar, sehingga bisa mengemat tempat dan bagus dilihat. Bisa dibayangkan bila tidak memakai Kotak Daftar tentu akan sangat panjang berderet kebawah.
Kotak daftar atau listbox bisa dipakai untuk blogroll. kode dibawah adalah untuk membuat kotak daftar atau listbox langkahnya :
<div style = "border: 1px solid rgb(153, 153, 153);
overflow: auto;
width: 225px;
height: 225px;
text-align: left; ">
<a href = "http://ingat-catatan.blogspot.com/" target = blank> Ingat Catatan</a><br />
</div>
untuk width, height dan text-align disesuaikan dengan letak isi dan ukuran listbox. link http://ingat-catatan.blogspot.com hanya sekedar contoh
Pada saat memberikan perintah pada keyboard langsung, maka program akan langsung menjalankan perintah tersebut. Itu semua bisa dilakukan dengan merubah nilai property KeyPreview di form.
Form bisa menerima event dengan merubah property KeyPreview menjadi true, nilai defaultnya adalah false
Dipakai bila ingin memberikan perintah lewat keyboard langsung, tanpa memakai mouse dan tombol
langkahnya:
1. Buka vb6 pilih StandarExe klik tombol Open
2. double click commandbutton pada Toolbox sebelah kiri
3. klik kanan pada form1, pilih View Code
Copykan Code dibawah ini
'---code
Private Sub Form_Load()
'Perintah dibawah ini yang membuat Form bisa menerima perintah
Me.KeyPreview = True
End Sub
Private Sub Command1_Click()
MsgBox "dilakukan lewat command1" , vbInformation
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
MsgBox "Perintah lewat keyboard" , vbInformation
End If
End Sub
'---end code
Jalankan dengan tekan tombol F5. setelah form keluar, kemudian tekan tombol F4
bagi yang perlu software kunjungi http://www.talagasoft.com
Bila kita develop program adakalanya user diharuskan untuk memilih, untuk hal tersebut kita bisa memberikan pilihan pada user. misalnya data untuk simpanan wajib pada program koperasi.
Contoh : Simpanan wajib untuk Koperasi karyawan harus di Update setiap awal bulan, sehingga setiap awal bulan gaji karyawan dipotong untuk simpanan wajib koperasi. Dari contoh ini, kita bisa memakai fungsi MsgBox.
Langkahnya adalah :
Private Sub Command1_Click()
'copykan disini
End Sub
lalu Copykan code dibawah di antara Private dan end sub
'--- code
Dim Msg, Style, Title, Response
Msg = "Tambahkan Simpanan Wajib bulan ini?"
Style = vbYesNo + vbDefaultButton2
Title = " Simpanan Wajib "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
'letakan Kode disini bila di Update . . .
MsgBox "Simpanan Wajib telah ditambahkan"
Else
'letakan Kode disini bila tidak jadi . . .
MsgBox "Dibatalkan"
End If
'--- end code
setelah selesai, running dengan tekan tombol F5, lalu tekan tombol command1, mesagebox langsung keluar
Bila kita perhatikan orang yang sedang chatting namanya atau nicknamenya aneh-aneh. Bagaimana untuk membuat nickname itu? apakah kita harus buat email baru setiap kita menginginkan nama baru.
Ternyata itu tidak perlu, kita bisa membuat beberapa nickname dalam satu email.
Untuk membuat beberapa nickname di yahoo meseenger adalah
selamat mencoba dan semoga bermanfaat
Mencari Software? kunjungi www.talagasoft.com
Pertama saat keluar kota, saya perkirakan sebentar disana, ternyata disana lumayan lama. Saya tanya-tanya tentang laundry murah, akhirnya ada yang menunjukan "Disana pak, perempatan jalan belok kiri". Akhirnya saya pergi dengan tidak lupa mengucapkan terimakasih kepada yang telah memberi tahukan letak laundry itu kepada saya.
Sekian lama akhirnya saya sampai, lalu saya menghampiri yang sedang bertugas disana, kami pun melalukan transaksi. Pulang dari Laundry saya berpikir, kenapa tidak mencoba membuat software laundry.
Akhirnya kesampaian juga membuat software laundry.
Software Laundry yang saya buat adalah:
1. Mencatat Data Customer
Saat Customer datang, petugas menanyakan data customer tersebut, bila customer tersebut telah tercatat langsung dilakukan transaksi, bila tidak ada, pencatatan customer pun dilakukan
2. waktu proses Laundry
Customer bisa memilih waktu proses laundry 3 hari, 2 hari, 1 hari, 10 jam atau 5 jam, lebih cepat tentunya biaya disesuaikan
3. Penghitungan Jumlah barang yang dicuci
4. Pilihan jenis Laundry, memakai paket, kiloan atau yang satuan
5. lalu di lakukan pembayaran, pembayaran bisa dilakukan secara cash atau dengan credit card.