Belajar VB6 : Combo Box dengan Fungsi (For..To..Next" dan "Select Case)

Buat sebuah aplikasi baru :

File -> New Project -> Standard Exe

Pada Form, masukkan 1 Combo Box, 1 Text Box, dan 1 Label

- Double click pada badan form untuk memasukkan code

- Tulis code berikut ini:

Private Sub Form_Load()
Combo1.Clear
For i = 1 To 12
Combo1.AddItem i
Next i
Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Label1.Caption = "January"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 1
Label1.Caption = "February"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 2
Label1.Caption = "Maret"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 3
Label1.Caption = "April"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 4
Label1.Caption = "Mei"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 5
Label1.Caption = "Juni"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 6
Label1.Caption = "July"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 7
Label1.Caption = "Agustus"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 8
Label1.Caption = "September"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 9
Label1.Caption = "Oktober"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 10
Label1.Caption = "November"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 11
Label1.Caption = "Desember"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
End Select
End Sub

- Tekan "F5" untuk menjalankan/melihat hasilnya.

Download Source : bulan.rar

Salam Codet

Aplikasi Penghitung Masa Kerja Pada PNS

Aplikasi ini dibuat untuk memudahkan seorang PNS dalam menghitung total masa kerja berlaku sampai dengan tanggal hari ini, berdasarkan setting time / date dari komputer yang bersangkutan.

Pengoperasian yang sangat mudah, bahkan untuk anak es-de sekalipun (input data hanya menggunakan scroll mouse). Hanya dengan memasukkan NIP dan tekan tombol "proses", maka akan didapat hasil kalkulasi berupa.

- TMT SK PNS
- Tanggal lahir
- Usia saat ini
- Jenis kelamin
- Tahun pensiun normal (56 th)
- Masa kerja TMT SK PNS
- Masa kerja honorer
- Jumlah masa kerja keseluruhan
- Sisa masa kerja (usia 56 th)

seperti yang terlihat pada gambar dibawah ini, dengan meng-input sebuah NIP contoh.

download MasaKerjaPNS.rar

Salam Codet.

Cara Memberikan Password Database Pada Microsoft Access 2007

Jika anda terlupa untuk memberikan password pada file database anda, maka pada tricky kali ini akan dibahas persoalan tersebut. Caranya :

1. Buka Microsoft Access 2007

2. Open File (ctrl + o)

3. Cari file yang dimaksud, pada tombol "open" klik tanda panah drop-down menu, seperti yang ditampilkan pada gambar dibawah ini :

4. Pada drop-down menu, pilih menu "Open Exclusive".

5. Pada tab menu, pilih tab "Database Tools"

6. Kemudian pilih tombol menu "Set Database Password"

7. Masukkan password yang diinginkan, pada kolom isian berikut kolom verify nya.

8. Database telah dipasang Password.

Salam Codet.

RF-Online : Cara Tempa Ele BBB

Elemental BBB atau kepanjangan dari "Black Blood Brother's Leash" merupakan salah satu elemental yang terdapat di dalam game RF (Rising Force) Online yang berjenis Amulet. Elemental (ele) BBB didapat dari hasil tempa ele 3D (Dagon, Dagan, Dagnu) yang digabungkan menjadi 1 sehingga menghasilkan satu ele BBB, sehingga menghasilkan efek lebih kepada pemakainya.

Efek yang ada pada Ele BBB :
- Menambah daya attack = 30%
- Menambah tingkat pertahanan = 30%
- Vampire attack damage ke HP 10%
- Detect (melihat musuh yang dalam keadaan stealth)

Bisa dilihat pada gambar dibawah ini :

Untuk membuatnya diperlukan ele 3D satu set dan ditempa/digabungkan di Hero (pahlawan) dengan membawa uang masing-masing bangsa (jumlah uang tidak tentu, masing-masing server tidak mematok harga pasti).

Dagan + Dagnu + Dagon -----> BBB

Lihat gambar dibawah ini untuk menggabungkan ele 3D :

Ele BBB belum lengkap jika tidak dipakai tanpa ele 3D, untuk mendapatkan efek special ele BBB + 3D, maka ele 3D (satu set) dipakai dengan ele BBB.

Pada Amulet :
- Ele Dagon
- Ele BBB

Pada Ring :
- Ele Dagan
- Ele Dagnu

Sehingga akan mendapatkan efek special penambahan :
- Attack meningkat 30%
- Defense meningkat 30%
- Max FP meningkat 20%

Lihat gambar berikut ini ele BBB + 3D setelah dipakai bersamaan, maka akan mendapat efek special :

Tulisan yang berwarna kuning tersebut adalah efek special yang didapat setelah ele BBB dipakai bersamaan dengan ele 3D (dagon, dagan, dan dagnu).

Selamat bermain RF-Online. Salam codet.