contoh PROGRAM VB

kami adalah mahasiswa PII KOMPUTINDO yang belajar program hanyalah 1 thun atau kalau selesai mendapat gelar DIPLOMA. kami bagi jurusan CIM (Computer information Manajemen) di wajibkan untuk membuat sebuah BLOG pada caturwulan dua ini. yang mana Blog ini akan di isi berbagai macam tugas yang di suruh oleh Dosen. dan pada bagian ini kamik di suruh membuat program yang memakai rumus IF dengan Combobox. jujur sya sangat tertantang dengan hal ini. Nah.... kali ini aq akan mencoba membuat program yang bertemakan Gaji Pegawai Warnet. yang mana tema  ini saya ambil karna saya sedang bekerja di sebuah warnet. oke.., kita mulai y...

soal:
diketahui slip gaji pegawai Qe,net sbb. data yang di imput NIK, NAMA, BULAN, JABATAN, dan  JUMLAH HARI KERJA.
data yang di proses  GAJI POKOK yaitu 80.000, TUNJANAGAN MAKAN yaitu jhk * 3500, TUNJANGAN TRANSPORT yaitu jhk*3500, TUNJANGAN LEBARAN, BONUS DAN DLL. GOLONGAN, untuk golongan GOLONGAN BIASA yaitu bonus 0, SENIOR dpt bonus 50.000DAN JUNIOR dapat bonus 25000. TUNJANGAN KEHADIRAN *10000 dan  gaji yang diterima GP+TM+TT +TL+B+TK.

.

Nah... DI atas adalah contoh program yg dibuat di vb.   kita akan menjelaskan bagaimana cara membuat dan menjalankan program yang tertera diatas. 
1.    Rumus
Untuk menjalan kan program di atas ada 3 tombol yg di perhatikan. Yg pertama adalah tombol  “jumlah”, “clear” dan “close. Disitu terletak semua rumus.
a.    Jumlah
Private Sub Command1_Click()
Text2 = 80000
Text1 = Val(Text1) * Val(1000)
Text3 = Val(Text8) * Val(3500)
Text4 = Val(Text8) * Val(3500)
Text7 = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6)
End Sub

b.    Clear
Private Sub Command2_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
End Sub

c.    Close
Private Sub Command3_Click()
MsgBox "trimakasih telah memakai program kami....!!"
MsgBox "semoga bermanfaat...."
MsgBox "assalamualaikum....!!"
End
End Sub

    Untuk golongan di combo 5 tulis rumus sebagai berikut.
Private Sub Combo5_Click()
If Combo5 = "SENIOR" Then
    Text6 = 50000
Else
If Combo5 = "JUNIOR" Then
    Text6 = 2500
Else
    Text6 = 0
End If
End If
End Sub

2.    Cara menjalankan nya
Untuk menjalankannya kita harus mengisi jumlah hari kerja dan tunjangan perjam. Setelah itu kita isi apa yg perlu diisi. Tekan jumlah maka kita akan mendapatkan hasilnya. Untuk tombol clear fungsi nya untuk membesihkan kotak yang telah berisi. Dan close untuk menutup.
Dan insa allah program ini akan saya pulihkan lagi agar dapat di manfaatkan secara maksimal.
3.    Penjelasan
Untuk membuat nama judul, kita bisa menggunakan word di tulisan indah atau serig disebut dengan clipart. Caranya dengan mengkopi tulisan di word dan msuk ke program vb. Setelah itu di program vb pilih image buat ukuran yg kita inginkan, Setelah itu di paste.
Dan untuk  tulisan yang di transparankan  kita menggunakan label, dan kotak ada pilihan kita bisa menggunakan combobox. Untuk kotak yang akan diisi kita menggunakan text. Dan tombol yang bisa di fungsikan kita menggunakan commandbatom. sekian dan terimakasih.....