contoh penggajian karyawan dengan menggunakan Listview pada VB 2008

Ciontoh Program Listview Penggajian Karyawan.

Desainlah Gambar seperti di bawah ini :

dan ketik koding berikukt

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cmbnik.Items.Add("14110114")

        cmbnik.Items.Add("14110115")

        cmbnik.Items.Add("14110116")

        cmbjabatan.Items.Add("Manajer")

        cmbjabatan.Items.Add("Dosen")

        cmbjabatan.Items.Add("Staf")

        cmbstatus.Items.Add("Menikah")

        cmbstatus.Items.Add("Tidak Menikah")

        For i = 1 To 10

            cmbjumlahanak.Items.Add(i)

        Next i

        For i = 1 To 10

            cmblembur.Items.Add(i)

        Next i

        buattable()

    End Sub

    Private Sub cmbnik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbnik.SelectedIndexChanged

        If cmbnik.Text = "14110114" Then

            txtnama.Text = "EDISOKHI WARUWU"

        End If

        If cmbnik.Text = "14110115" Then

            cmbnik.Text = "DAFITRIUS LOMBU"

        End If

        If cmbnik.Text = "14110116" Then

            cmbnik.Text = "DASARIUS GULO"

        End If

    End Sub

    Private Sub cmbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjabatan.SelectedIndexChanged

        If cmbjabatan.Text = "Manajer" Then

            txtgaji.Text = "4000000"

        End If

        If cmbjabatan.Text = "Dosen" Then

            txtgaji.Text = "3000000"

        End If

        If cmbjabatan.Text = "Staf" Then

            txtgaji.Text = "2000000"

        End If

        txtpajak.Text = 0.015 * txtgaji.Text

    End Sub

    Private Sub cmbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbstatus.SelectedIndexChanged

        If cmbstatus.Text = "Menikah" Then

            txttunjistri.Text = 0.09 * txtgaji.Text

        End If

        If cmbstatus.Text = "Tidak Menikah" Then

            txttunjistri.Text = 0

        End If

    End Sub

    Private Sub cmbjumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjumlahanak.SelectedIndexChanged

        If cmbjumlahanak.Text >= "2" And cmbstatus.Text = "Menikah" Then

            txttunjanak.Text = 0.07 * txtgaji.Text

        ElseIf cmbjumlahanak.Text = "1" And cmbstatus.Text = "Tidak Menikah" Then

            txttunjanak.Text = 0.03 * txtgaji.Text

        Else

            txttunjanak.Text = 0

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If cmbjabatan.Text = "Manajer" Then

            cmblembur.Text = cmblembur.Text * 7500

        ElseIf cmbjabatan.Text = "Dosen" Then

            cmblembur.Text = cmblembur.Text * 8000

        ElseIf cmblembur.Text = "Staff" Then

            cmblembur.Text = cmblembur.Text * 5000

        Else

            cmblembur.Text = 0

        End If

        txttotal.Text = Val(cmblembur.Text) + Val(txtgaji.Text) + Val(txttunjistri.Text) + Val(txttunjanak.Text) - Val(txtpajak.Text)

        txthonor.Text = Val(cmblembur.Text) + Val(txtgaji.Text) + Val(txttunjistri.Text) + Val(txttunjanak.Text) - Val(txtpajak.Text)

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Sub buattable()

        LV.Columns.Add("NIK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Center)

        LV.Columns.Add("JABATAN", 100, HorizontalAlignment.Center)

        LV.Columns.Add("GAJI", 100, HorizontalAlignment.Center)

        LV.Columns.Add("STATUS", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TUNJANGAN ISTRI", 100, HorizontalAlignment.Center)

        LV.Columns.Add("JUMLAH ANAK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TUNJANGAN ANAK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)

        LV.Columns.Add("JAM LEMBUR", 100, HorizontalAlignment.Center)

        LV.Columns.Add("HONOR LEMBUR", 100, HorizontalAlignment.Center)

        LV.Columns.Add("TOTAL GAJI", 100, HorizontalAlignment.Center)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitable()

        Dim isi As New ListViewItem

        isi.Text = cmbnik.Text

        isi.SubItems.Add(txtnama.Text)

        isi.SubItems.Add(cmbjabatan.Text)

        isi.SubItems.Add(txtgaji.Text)

        isi.SubItems.Add(cmbstatus.Text)

        isi.SubItems.Add(txttunjistri.Text)

        isi.SubItems.Add(cmbjumlahanak.Text)

        isi.SubItems.Add(txttunjanak.Text)

        isi.SubItems.Add(txtpajak.Text)

        isi.SubItems.Add(cmblembur.Text)

        isi.SubItems.Add(txthonor.Text)

        isi.SubItems.Add(txttotal.Text)

        LV.Items.Add(isi)

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call isitable()

        cmbnik.Text = ""

        txtnama.Text = ""

        cmbjabatan.Text = ""

        txtgaji.Text = ""

        cmbstatus.Text = ""

        txttunjistri.Text = ""

        cmbjumlahanak.Text = ""

        txttunjanak.Text = ""

        txtpajak.Text = ""

        cmblembur.Text = ""

        txthonor.Text = ""

        txttotal.Text = ""

    End Sub

End Class

hasil yaitu

 Selamat belajar ea???

Read More

Program Mengecek Kelulusan Siswa

Coding Programnya :

uses crt;
var
nama         : string[25];
kelas          : string[5];
no_absen   : string[3];
n_tugas      : byte;
n_u_hari     : byte;
n_u_umum : byte;
rerata         : real;
lulus            : boolean;
predikat      : string[20];
begin
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘Input Data Siswa’);
writeln(‘—————-‘);
write(‘Nama : ‘); readln(nama);
write(‘Kelas : ‘); readln(kelas);
write(‘No Absen : ‘); readln(no_absen);
write(‘Nilai Tugas : ‘); readln(n_tugas);
write(‘Nilai Ulangan Harian : ‘); readln(n_u_hari);
write(‘Nilai Ulangan Umum : ‘); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘ Siswa dengan’);
writeln(‘—————-‘);
writeln(‘Nama : ‘,nama);
writeln(‘Kelas : ‘,kelas);
writeln(‘No Absen : ‘,no_absen);
writeln(‘Nilai Tugas : ‘,n_tugas);
writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);
writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);
writeln(‘Rata – rata : ‘,rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:=’memuaskan’
else if rerata <90 then predikat:=’sangat memuaskan’
else predikat:=’dengan pujian';
writeln(‘Dinyatakan Lulus dengan ‘,predikat);
end
else
writeln(‘Dinyatakan Tidak Lulus’);
readln;
end.

Hasil Outputnya :

Read More

Contoh Penjualan Buah dengan Program turbo pascal

Uses crt;

Var

napem,nb                   :string[15] ;

            hrg,jb,jh,disc,tot        :real;

Ul                                :char;

begin

Repeat

clrscr;

writeln;

writeln('----------------------------------------');

writeln(' DATA PENJUALAN BUAH SEGAR /KG');

writeln('----------------------------------------');

writeln;

write('Nama Pembeli     =  '); readln(napem);

writeln;

write('Buah Yang Dibeli =  '); readln(nb);

writeln('.............................');  

if nb='jeruk' then hrg:=5000 else

if nb='mangga' then hrg:=7000 else   

if nb='apel' then hrg:=9000 else

if nb='duren' then hrg:=11000;

begin

end;

writeln;

write('HargaBuah       =','Rp',hrg:6:0,'/Kg');

writeln;

writeln;

write('JumlahBeli      =  '); readln(jb);

writeln;

jh:= hrg*jb;

write('JumlahHarga     =','Rp',jh:10:0);

writeln;

writeln('.............................');

writeln;

ifjb> 3 then disc:=0.2*jh;

begin

end;

write('Anda Dapat Diskon=','Rp',disc:10:0);

writeln;

writeln('.............................');

writeln;                                           

writeln;

write('Total Bayar      =','Rp',hrg*jb-disc:10:0);

writeln;

writeln('----------------------------------------');writeln;

write('Terima kasih atas Kunjungannya');

readln;

Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);

Until Upcase(Ul)<>'Y';

end.

Hasil outputnya seperti berikut:

Read More