Selasa, 12 Juni 2012

tuq mu yG mengenali Q

kenaLi aq ap ada nya,,
sayangi aq bukan krn ad ap nya,,
jgn lh meminta apa yg tdak Aq punya,,
jgn lah mengharap yg tdk bsa Aq lkukan,.

Aq adalah orag tdk sempUrna,,
hnya 1 yg aq minta,,
jgn pernah menyesal mengenal Q,
jika suatu hari nanti Kamu
mnmukan ss'Org yg lbih baik dr Q,,
sisa kn 1 ruang kcil d'Hati mu
tuk mnyimpan knngan bersama Q,
wLau pun knNgan itu phit ntuk d'knang..

Senin, 11 Juni 2012

Sayang

bukan maksud Q tuk menyakiti hatimu sayang,
cinta q tuk Mu masih teruKir di hati q,
beri kan kesempatan n maaf ntuk Q syg,
jgn lepas kn cinta kita ber'2,..

Aq harap dimu bisa memahami kepribadian Q
seperti ini,
n menerima arti sebuah cinta 
n sYg yang begitu tuluS tuK mu,..

Aq gak rela jika kita tidak ber'1 lagi,
q ingin dr mu n dri q ttap bersatu 
tuK SELAMA NYA.....
i love u darLing......

 

Sabtu, 21 April 2012

CintA

Cinta sejati adalah ketika dia mencintai orang lain, dan kamu masih mampu tersenyum, sambil berkata: aku turut bahagia untukmu.

Jangan sesekali mengucapkan selamat tinggal jika kamu masih mau mencoba. Jangan sesekali menyerah jika kamu masih merasa sanggup. Jangan sesekali mengatakan kamu tidak mencintainya lagi jika kamu masih tidak dapat melupakannya.

Jika kita mencintai seseorang, kita akan sentiasa mendoakannya walaupun dia tidak berada disisi kita.

Perasaan cinta itu dimulai dari mata, sedangkan rasa suka dimulai dari telinga. Jadi jika kamu mahu berhenti menyukai seseorang, cukup dengan menutup telinga. Tapi apabila kamu Coba menutup matamu dari orang yang kamu cintai, cinta itu berubah menjadi titisan air mata dan terus tinggal dihatimu dalam jarak waktu yang cukup lama.

Jangan simpan kata-kata cinta pada orang yang tersayang sehingga dia meninggal dunia , lantaran akhirnya kamu terpaksa catatkan kata-kata cinta itu pada pusaranya . Sebaliknya ucapkan kata-kata cinta yang tersimpan dibenakmu itu sekarang selagi ada hayatnya.

Cinta bukan mengajar kita lemah, tetapi membangkitkan kekuatan. Cinta bukan mengajar kita menghinakan diri, tetapi menghembuskan kegagahan. Cinta bukan melemahkan semangat, tetapi membangkitkan semangat.

Cinta…
Jika anda memilikinya, anda tidak memerlukan sesuatu pun yang lain
Dan jika anda tidak memilikinya, apa pun yang lain yang anda miliki tidak banyak berarti
Cinta tidak dapat dipaksakan
Cinta tidak dapat dibujuk dan digoda
Cinta muncul dari Surga tanpa topeng dan tanpa dicari
Cinta dapat mengubah pahit menjadi manis, debu beralih emas, keruh menjadi bening, sakit menjadi sembuh, penjara menjadi telaga, derita menjadi nikmat, dan kemarahan menjadi rahmat.

Cinta yang dikaitkan dengan kepentingan pribadi akan berubah menjadi putus asa.

Cinta bukanlah dari kata-kata tetapi dari segumpal keinginan diberi pada hati yang memerlukan.

Cinta pertama adalah kenangan, Cinta kedua adalah pelajaran, dan cinta yang seterusnya adalah satu keperluan karena hidup tanpa cinta bagaikan masakan tanpa garam. Karena itu jagalah cinta yang dianugerahkan itu sebaik-baiknya agar ia terus mekar dan wangi sepanjang musim.

Tangisan bukanlah pengobat cinta karena ia tidak mengerti perjalanan hati nurani.

Siapapun pandai menghayati cinta, tapi tak seorangpun pandai menilai cinta karena cinta bukanlah suatu objek yang bisa dilihat oleh kasat mata, sebaliknya cinta hanya dapat dirasakan melalui hati dan perasaan.

Minggu, 01 April 2012

" LOVE"

feeling of love is something that can not be seen but can be felt, therefore do not love the person through physical but through feelings.


Mereka yang mencari, 
karena mereka yg menghargai cinta,.
penting nya orang" yg pernah hadir dalam hidup mereka.....
seseorang yg mengerti arti nya cinta, apabila dia telah merasakan bagaimana 
sakit nya kehilangan cinta....
jangan mencintai seseorang seperti bunga,
karena bunga mati kala musim berganti,,
cintai lah seseorang seperti sungai,
sebab sungai mengalir selamanya...  

Kamis, 22 Maret 2012

"my love story"

Runs its Sometimes hard To start someTimes all too hAppy,,

its hard to, i love the guy friend i Love, n eVend can nOt forGet to mikE in it,..

its fun, i love the Guy the same as mE,,

Who had neVer experienced love n feel what it's like,,

n as wEll as having Much in cOmmon.....

" COBAAN"

Malam yg diNgin,

Hjan yG dras d'Luar sana serta 

d'tmni anGin-angin n ptir yg mnymbar2..


Q tdur sndRi d'trnGi cHya lmpU yg mnYla..

trdngAr ss'Kli suaRA kcing d'smping kmar,

serta suara nymuK2 kcil yg brnynyi..


Aq mrsa ktkutan,

tp aQ lwan smua Ktkutan aq it,,

krna Aq mrsa it hnyalah s'Buah.........

"COBAAN"

Minggu, 29 Januari 2012

Postingan 2

Jawaban Soal 3 (Nining Elpika)



Public Class Form_Login


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If User.Text = "vika" And Pass.Text = "admin" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf User Name dan Password Salah !")
            User.Text = ""
            Pass.Text = ""
            User.Focus()
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub


    Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        User.Text = ""
        Pass.Text = ""
    End Sub
End Class

Imports System.Windows.Forms


Public Class Menu_Utama


    Private Sub Pegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pegawai.Click
        Form_Data_Pegawai.Show()


    End Sub


    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub
End Class



Public Class Form_Data_Pegawai


    Private Sub Form_Data_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        status.Items.Add("Menikah")
        status.Items.Add("Tidak_Menikah")


        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staff")
        jabatan.Items.Add("Kepala Bagian")


        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub


    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nip.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(jabatan.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(gaji.Text)
        Lst.SubItems.Add(tunjangan_Keluarga.Text)
        Lst.SubItems.Add(jumlah_anak.Text)
        Lst.SubItems.Add(tunjangan_anak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Gaji_lembur.Text)
        Lst.SubItems.Add(pajak.Text)
        Lst.SubItems.Add(total_gaji.Text)
        lv.Items.Add(Lst)
    End Sub
    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        'Call status_karyawan()
        Call TunjangaanIstri()
    End Sub
    Sub hitung_TA()
        If jumlah_anak.Text = 1 Then
            tunjangan_anak.Text = 0.03 * Val(gaji.Text)
        ElseIf jumlah_anak.Text = 2 Then
            tunjangan_anak.Text = 0.07 * Val(gaji.Text)
        Else
            tunjangan_anak.Text = 0.07 * Val(gaji.Text)
        End If


    End Sub
    Sub HitungLembur()
        If jabatan.Text = "Staff" Then
            Gaji_lembur.Text = Val(Jam.Text) * 5000
        ElseIf jabatan.Text = "Mandor" Then
            Gaji_lembur.Text = Val(Jam.Text) * 7500
        Else
            Gaji_lembur.Text = Val(Jam.Text) * 10000
        End If
    End Sub
    Sub TunjangaanIstri()
        If status.Text = "Menikah" Then
            tunjangan_Keluarga.Text = 0.09 * Val(gaji.Text)
        Else
            tunjangan_Keluarga.Text = "0"
        End If
    End Sub
    Sub hitung_gaji()
        total_gaji.Text = Val(gaji.Text) + Val(tunjangan_Keluarga.Text) + Val(tunjangan_anak.Text) + Val(Gaji_lembur.Text) - Val(pajak.Text)
    End Sub
    Sub hitung_pajak()
        pajak.Text = 0.015 * Val(gaji.Text)
    End Sub
    Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress
        If e.KeyChar = Chr(13) Then
            Call hitung_TA()
        End If
    End Sub
    Private Sub Proses_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses_Simpan.Click
        Call IsiTabel()


        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub
    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub


    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nip.Text = ""
        nama.Text = ""
        Gaji_lembur.Text = ""
        Jam.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjangan_Keluarga.Text = ""
        jumlah_anak.Text = ""
        tunjangan_anak.Text = ""
        pajak.Text = ""
        total_gaji.Text = ""
    End Sub


    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        lv.Items.Clear()
    End Sub


    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub


    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Mandor" Then
            gaji.Text = "1750000"
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = "2500000"
        Else
            gaji.Text = "1250000"
        End If
    End Sub


    Private Sub Jam_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jam.KeyPress
        If e.KeyChar = Chr(13) Then
            Call HitungLembur()
            Call hitung_pajak()
            Call hitung_gaji()
        End If
    End Sub


End Class