Semua Mimpi Besar di mulai oleh Satu Tindakan Kecil

Jumlah Satu itu sedikit atau banyak?

Tergantung Satu apa?

Satu Rupiah sedikit, Satu juta rupiah Banyak.

Satu menit sebentar, Satu hari lumayan.

Satu tahun waktu yang lama, apalagi Satu abad.

Satu butir nasi apalah artinya.

Satu piring nasi barulah namanya makan, Satu bakul nasi jatah 4 atau 5 org.

Sekali lagi, tergantung satu apa?

Satu Talenta bukan jumlah yg sedikit, sesungghnya sangat besar nilai nya..

Tetapi yg paling sedikt pun tetap jumlah yg besar..

Jadi, tidak ada alasan untuk memendamnya..

Tidak ada alasan tuk berkata  “Tidak Cukup”..

Kita sering mengira “Satu” itu sedikit dan tak ada artinya, Padahal tidak demikian..

Satu Senyuman memulai sebuah Persahabatan..

Satu Nyanyian ikut Menciptakan suasana Romantis..

Satu Tepukan di pundak mampu memompa Semangat..

Satu Bintang dapat Memandu pelaut..

Satu hak suara sanggup mengubah wajah suatu bangsa..

Satu langkah menjadi awal sebuah perjalanan panjang..

Satu kata mengawali sebuah Doa..

Satu orang diri Kita berharga di Mata NYA..

Satu orang Percaya maka seisi rumah di selamatkan..

Satu orang beriman bisa menghantar 10, 100, 1000 org tuk mengenal Tuhan..

Satu peran menjadikan sebuah pelayanan menjadi lengkap..

Jadi semua dimulai dari Satu..

Semua angka lain berawal dari angka Satu,

Semua Mimpi Besar di mulai oleh Satu tindakan kecil..

Mat 25 : 14 - 30, Roma 5 : 15

CINTA SEJATI

LupakanLah menCari seseOrang yg terBaik !
Tetap FokusLah pd diriMu untuk menJadi yg terBaik !
HormatiLah diriMu , jika Kamu Ingin menDapatKan Cinta yg mengHormatiMu !
Tdk perLu meRasa Takut keHilangan seaeOrang , Krn Masih banyak Orang diSekelilingMu yg Takut keHilanganMu 
Cinta akan teRasa Indah jika Saling MenYayanGi , Saling PerCaya and Saling SetiA !
SeseOrang tdk Akan Selingkuh Krn mengHargai PasanGan na yg SetiA
Cinta itu tdk sll meNuntut keSemPurNaan ..
Cinta itu keTika Qta dapat meNutupi keKuraGan seseOrang dlm keBersamAan ..
GOD gantikan kePedihan dgn keSenangan , jd kanLah keSedihan itu AWAL dr sBuah keBahaGiaan and Sinarkan Rasa Takut menJadi Rasa TenTraM
Betapa pun sulit na PerJalananMu , sll Ingatlah pd GOD !
Smua tdk Akan ada ARTI na jk hanya seBatas Kata" BelaKa
Smua tdk akan ada HASIL na jk hanya meMendaM Rasa saja
Jgn Suka meLihat FISIK dlm Cinta , krn Cinta bkn seKedar meMuji ..
Ingatlah Cinta Sejati Akan dtg INDAH pd Waktu na !
Jk Qm Sungguh" meNanti na 
krn diDunia ini GOD CiptaKan Qta Hidup berPasangaN , jd Jgn Takut
" Asal sll Tetap PerCaya pd PeNanTian , smua Itu Pasti Akan Bisa jd KenYaTaAn " ..
PerCayaLah
:)

tugas bahasa pemograman

PENGGAJIANKARYAWAN MENGGUNAKAN LISTVIEW  PADAPROGRAM MICROSOFT VISUAL STUDIO 2008

1.      Design form:

 

2. Listing program

Public Class Form1

    Sub buattabel()

        Lv.Columns.Add("nik", 40, HorizontalAlignment.Center)

        Lv.Columns.Add("nama", 40, HorizontalAlignment.Center)

        Lv.Columns.Add("jabatan", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("gaji", 60, HorizontalAlignment.Center)

        Lv.Columns.Add("status", 60, HorizontalAlignment.Center)

        Lv.Columns.Add("tunj_istri", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("jmlh_anak", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("tunj_anak", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("jmlh_lembur", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("honor_lembur", 90, HorizontalAlignment.Center)

        Lv.Columns.Add("pajak", 50, HorizontalAlignment.Center)

        Lv.Columns.Add("total", 50, HorizontalAlignment.Center)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nik.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tunj_istri.Text)

        lst.SubItems.Add(jmlh_anak.Text)

        lst.SubItems.Add(tunj_anak.Text)

        lst.SubItems.Add(jam_lembur.Text)

        lst.SubItems.Add(honor_lembur.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        Lv.Items.Add(lst)

    End Sub

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

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("kepala bagian")

        jabatan.Items.Add("staff")

        For i = 1 To 4

            jmlh_anak.Items.Add(i)

        Next i

        For i = 1 To 10

            jam_lembur.Items.Add(i)

        Next i

        status.Items.Add("menikah")

        status.Items.Add("tidak menikah")

        buattabel()

    End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "mandor" : gaji.Text = 1750000

            Case "kepala bagian" : gaji.Text = 2500000

            Case "staff" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "menikah" : tunj_istri.Text = 0.09 * gaji.Text : jmlh_anak.Enabled = True

            Case "tidak menikah" : tunj_istri.Text = 0 : jmlh_anak.Enabled = False : tunj_anak.Text = 0

        End Select

    End Sub

    Private Sub jmlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlh_anak.SelectedIndexChanged

        If jmlh_anak.Text >= 2 Then

            tunj_anak.Text = 0.07 * gaji.Text

        ElseIf jmlh_anak.Text = 1 Then

            tunj_anak.Text = 0.03 * gaji.Text

        Else

            jmlh_anak.Text = 0

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim honor As Double

        If jabatan.Text = "mandor" Then

            honor = 7500

        ElseIf jabatan.Text = "kepala bagian" Then

            honor = 10000

        ElseIf jabatan.Text = "staff" Then

            honor = 5000

        Else

            honor = 0

        End If

        honor_lembur.Text = honor * jam_lembur.Text

        total.Text = Val(honor_lembur.Text) + Val(gaji.Text) + Val(tunj_istri.Text) + Val(tunj_anak.Text) - Val(pajak.Text)

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_anak.Text = ""

        tunj_istri.Text = ""

        jmlh_anak.Text = ""

        jam_lembur.Text = ""

        honor_lembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Dim i As MsgBoxResult

        i = MsgBox("Apa anda ingin keluar dari program ini?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Daftar Nilai")

        If i = MsgBoxResult.Yes Then

            Close()

        End If

    End Sub

  

 Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_istri.Text = ""

        jmlh_anak.Text = ""

        tunj_anak.Text = ""

        jam_lembur.Text = ""

        honor_lembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

End Class

hasil

 

 

3. Hasil program tsb setelah di simpan ke listview