Jawaban soal no 3,Pengajiaan pegawai

listingnya :
Public Class Form1

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If password.Text = "1002267" Then
            Menu_utama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf Password anda masih salah !!!")
        End If
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        MsgBox("Anda yakin ingin keluar")
        End
    End Sub
End Class


Hasil formnya:

Public Class Menu_utama
    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
        MsgBox("Anda yakin ingin keluar dari program ini!")
        End
    End Sub
    Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click
        data.Show()
        Me.Hide()
    End Sub
End Class

Hasil formnya:

Public Class data

    Private Sub data_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Staff")
        status.Items.Add("Menikah")
        status.Items.Add("Belum Menikah")
        buat_tabel()
    End Sub
    Sub proses()
        If jabatan.Text = "Mandor" Then
            gaji.Text = "1750000"
            pajak.Text = 0.015 * Val(gaji.Text)
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = "2500000"
            pajak.Text = 0.015 * Val(gaji.Text)
        ElseIf jabatan.Text = "Staff" Then
            gaji.Text = "1250000"
            pajak.Text = 0.015 * Val(gaji.Text)
        End If
        Select Case status.Text
            Case "Menikah" : tunjanganis.Text = 0.09 * Val(gaji.Text)
            Case "Belum Menikah" : tunjanganis.Text = 0
        End Select
        If anak.Text = "1" Then
            tunjgank.Text = 0.03 * Val(gaji.Text)
        ElseIf anak.Text = "2" Then
            tunjgank.Text = 0.07 * Val(gaji.Text)
        ElseIf anak.Text >= "2" Then
            tunjgank.Text = 0.07 * Val(gaji.Text)
        ElseIf anak.Text <= "1" Then
            tunjgank.Text = 0
        End If
        If jabatan.Text = "Mandor" Then
            If lembur.Text = "0" Then
                gjlmbr.Text = 0
            ElseIf lembur.Text = "1" Then
                gjlmbr.Text = 7500
            ElseIf lembur.Text >= "1" Then
                gjlmbr.Text = 7500 * Val(lembur.Text)
            End If
        ElseIf jabatan.Text = "Kepala Bagian" Then
            If lembur.Text = "0" Then
                gjlmbr.Text = 0
            ElseIf lembur.Text = "1" Then
                gjlmbr.Text = 10000
            ElseIf lembur.Text >= "1" Then
                gjlmbr.Text = 10000 * Val(lembur.Text)
            End If
        ElseIf jabatan.Text = "Staff" Then
            If lembur.Text = "0" Then
                gjlmbr.Text = 0
            ElseIf lembur.Text = "1" Then
                gjlmbr.Text = 5000
            ElseIf lembur.Text >= "1" Then
                gjlmbr.Text = 5000 * Val(lembur.Text)
            End If
        End If
        totgj.Text = Val(gaji.Text) + Val(tunjanganis.Text) + Val(tunjgank.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
    End Sub
    Sub buat_tabel()
        With LV
            .Columns.Add("Nama ", 110, HorizontalAlignment.Left)
            .Columns.Add("Jabatan", 90, HorizontalAlignment.Left)
            .Columns.Add("Gaji", 80, HorizontalAlignment.Center)
            .Columns.Add("Status", 100, HorizontalAlignment.Left)
            .Columns.Add("Tunjangan Istri", 98, HorizontalAlignment.Center)
            .Columns.Add("Anak", 40, HorizontalAlignment.Center)
            .Columns.Add("Tunjangan Anak", 98, HorizontalAlignment.Center)
            .Columns.Add("Pajak", 55, HorizontalAlignment.Center)
            .Columns.Add("Lembur", 50, HorizontalAlignment.Center)
            .Columns.Add("Gaji Lembur/jam", 100, HorizontalAlignment.Center)
            .Columns.Add("Total Gaji", 90, HorizontalAlignment.Center)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Sub isi_tabel()
        Dim lst As New ListViewItem
        lst.Text = nama.Text
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tunjanganis.Text)
        lst.SubItems.Add(anak.Text)
        lst.SubItems.Add(tunjgank.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(lembur.Text)
        lst.SubItems.Add(gjlmbr.Text)
        lst.SubItems.Add(totgj.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Call proses()
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        Call proses()
    End Sub
    Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
        Call proses()
    End Sub
    Private Sub anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anak.TextChanged
        Call proses()
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isi_tabel()
    End Sub
    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjanganis.Text = ""
        anak.Text = ""
        tunjgank.Text = ""
        pajak.Text = ""
        lembur.Text = ""
        gjlmbr.Text = ""
        totgj.Text = ""
        nama.Focus()
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Clear()
    End Sub
    Private Sub btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        MsgBox("Terima Kasih telah melakukan penginputan")
        Menu_utama.Show()
    End Sub
End Class

Hasil formnya:

Menggunakan button, checkbox, combobox,pada Visual Basic

option button, checkbox, combobox dan objek array

1. Buat project baru dengan memilih Standar EXE pada New Project
2. Isikan pada objek Form tersebut beberapa objek seperti yang terlihat pada gambar dibawah ini.
    
   Atur properti dari masing-masing objek diatas seperti pada tabel dibawah ini:

   Nama Objek	Properti	Nilai
   Form1	Name Caption	Form1 Form1
   Label1	Name Caption Font	Label1 Nim : Font : Ms Sans Serif Font Style : regular Sie : 8
   Label2	Name Caption Font	Label2 Nama : Font : Ms Sans Serif Font Style : regular Size : 8
   Label3	Name Caption Font	Label3 Jurusan : Font : Ms Sans Serif Font Style : regular Size : 8
   Label4	Name caption Font	Label4 Jenis Kelamin Font : Ms Sans Serif Font Style : regular Size : 8
   Label5	Name Caption Font	Label5 Hobi Font : Ms Sans Serif Font Style : regular Size : 8
   Text1	Name	Text1
   Text2	Name	Text2
   Option1	Name Caption	Option1 TI
   Option1	Name Caption	Option1 SI
   Option1	Name Caption	Option1 KA
   Option1	Name Caption	Option1 SK
   Combo1	Name Text List	Combo1 Pilih Laki-laki perempuan
   Check1	Name caption	Check1 masak
   Check1	Name caption	Check1 Baca buku
   Check1	Name caption	Check1 Olah raga
   Check1	Name caption	Check1 Nonton
   Check1	Name caption	Check1 Lain-lain
   Command1	Nama Caption	Command1 OK

   
   
   Tulis perintah dibawah ini pada code window
   
   
   

Memahami ToolBox pada Visual Basic

ToolBox 1 (Inputbox & Msgbox)

• Inputbox adalah fungsi yang menghasilkan kotak yang meminta input tertentu dari user.
• Input box menampilkan kotak dialog yang berisi kotak teks yang bisa di isi oleh nilai tertentu oleh user yang berupa string.
  Contoh:
  

InputBox

• Membuat input box, syntaknya :

strNamaVariabel = InputBox(pesan [, strJudul, strDefault, IntxPos, IntYPos] )

• strNamaVariabel : variabel untuk menyimpan hasil yang dikembalikan oleh fungsi InputBox().
• pesan : teks atau kalimat yang ingin ditampilkan pada kotak input (dalam tanda kutib)
• strJudul : Judul yang akan ditampilkan pada baris teratas kotak input (diapit tanda kutib).
• strDefault : teks yang ditampilkan sebagai jawaban default (sudah tersedia) pada kotak input (diapit tanda kutib)
• intXPos : lokasi pada sumbu X di mana kotak input akan muncul pada layar.
• intYPos : lokasi pada sumbu Y dimana kotak input akan muncul pada layar.
  

Message Box (MsgBox)

• Adalah fungsi yang menghasilkan kotak yang menampilkan pesan-pesan untuk user.
• Pesan ini bisa berupa pesan peringatan, pesan error, pesan untuk mematikan suatu tindakan, dsb.
• Membuat Message box, syntaknya :

intNamaVariabel = MsgBox(pesan [, intType, strJudul] )

• intNamaVariabel : variabel untuk menyimpan hasil yang dikembalikan oleh fungsi MsgBox().

• pesan : teks atau kalimat yang ingin ditampilkan pada kotak pesan (diapit tanda kutib).
• intType : nilai yang berfungsi untuk menampilkan pilihan-pilihan tertentu pada kotak pesan.
• strJudul : judul yang akan ditampilkan pada baris teratas kotak pesan (diapit tanda kutib).

• Parameter yang terdapat dalam tanda kurung siku […] sifatnya opsional.
  
  Label

• Label lebih sering digunakan untuk menampilkan judul, teks, penjelasan disebelah kotak teks, keterangan dsb.
• Untuk menggunakan label ini digunakan kontrol Label (), pada umumnya yang harus diset pada kontrol label hanyalah propertinya saja, seperti ukuran, warna, dsb.

Memahami Objek pada Visual Basic

Setiap objek pada Visual Basic didefmisikan oleh suatu class. Untuk memahami hubungan antara objek dengan class-nya, perhatikan contoh berikut :

• Kontrol-kontrol yang barada pada jendela Toolbox pada Visual Basic merupakan class-class. Objek tersebut dikenal sebagai kontrol tidak akan ada sampai anda menanamkannya pada suatu form. Ketika anda menanamkan suatu kontrol, anda telah membuat suatu duplikasi atau instance dari class kontrol tersebut.

• Form dimana anda bekerja pada saat desain adalah suatu class. Pada scat run time, Visual Basic menciptakan suatu instance dari class form.
  

Gambar 2-1, kontrol Text] yang ditanam diatas form berasal dari class Textbox

Misalnya anda menamkan sebuah textbox diatas forml, coba perhatikan jendela properti kontrol tersebut akan menampilkan Text l (nama dari kontrol textbox tersebut) dan Textbox (nama dari class kontrol tersebut).

 

Gambar 2-2, jendela property menunjukkan nama kontrol dan jenis Class-nya 
 

Semua objek merupakan duplikasi dari class mereka. Sesaat setelah menjadi objek berdiri sendiri, masing-masing dapat memiliki properti yang berbeda-beda.

Misalnya anda menanam tiga bush command button pada suatu form, masing-masing command button merupakan instance dari class CommandButton sehingga memiliki sejumlah karakteristik dan kemampuan (properti-properti, metode-metode, dan event-event) yang sama, dimana yang terdefuusi pada class-nya. Tetapi, masing-masing dapat memiliki Name, Caption, BackColor, Style yang berbeda sesuai dengan pengaturan pada masing-masing properti.

 

Gambar 2-3, masing-masing kontrol dapat memiliki properti masing-masing