Sofy Cantik

Pantun Agama

Diposting oleh sofy cantik Selasa, 31 Januari 2012 0 komentar

Sungguh indah pintu dipahat
Burung puyuh di atas dahan
Kalau hidup hendak selamat
Taat selalu perintah Tuhan

Daun terap diatas dulang
Anak udang mati dituba
Dalam kitab ada terlarang
Yang haram jangan dicoba

Bunga kenanga diatas kubur
Pucuk sari pandan Jawa
Apa guna sombong dan takabur
Rusak hati badan binasa

Anak ayam turun sepuluh
Mati seekor tinggal sembilan
Bangun pagi sembahyang subuh
Minta ampun kepada Tuhan

Belatuk di atas dahan
Terbang pergi ke lain pokok
Hidup mati ditangan Tuhan
Kepada Allah kita bermohon

Daun tetap di atas dulang
Anak udang mati dituba
Dalam kitab ada terlarang
Perbuatan haram jangan dicuba

Kulit lembu celup samak
Mari buat tapak kasut
Harta dunia janganlah tamak
Kalau mati tidak diikut

Pak Kulup anak juragan
Mati diracun muntahkan darah
Hidup di dunia banyak dugaan
Kepada Allah kita berserah

Sayang-sayang buah kepayang
Buah kepayang hendak dimakan
Manusia hanya boleh merancang
Kuasa Allah menentukan

Pantun Gombal

Diposting oleh sofy cantik 0 komentar

Ada odong-odong, nabrak tukang jamu.
Mau dong, ditembak kamu.

Miara kebo, di depan gerbang.
Ga bisa bobo, kalau belum denger suara abang.

Dipukulin sapu, gara-gara nyolong.
Gapapa deh sepupu, yang penting kinclong.

Kulit memerah, ditempel Salonpas.
Yang baju merah, jangan sampai lepas.

Turun bero, gara-gara kayang.
Ga mau di panggil bro, maunya ayang.

Kondangan di Menteng, mesti pake batik.
Abang ganteng, cocoknya sama neng yang cantik.

Sarapan ayam panggang, di Kota Kembang.
Jangan cuma pegang-pegang, kawinin dong bang.

Belah duren, di dalam kamar.
Abang keren, mau dong di lamar!

Fansnya pada nyengir, dapet cium dari Lady Gaga.
Neng udah lama naksir, tapi kok belum ditembak juga?

Beli lobak, di pasar ikan.
Gapapa deh neng yang nembak, asal kita balikan.

Jadi orang berada, kadang berat.
Kamu selalu ada, walaupun aku melarat.

Beli layang-layang, tokonya udah pindah.
Senyum di wajahmu sayang, adalah yang terindah.

Latihan kayang, di atas meja makan.
Senyummu sayang, sungguh menggetarkan.

Jualan brownis, di jembatan layang.
Hai neng manis, sini abang sayang.

Jika kita mencintai seseorang
Berusahalan untuk tampil apa adanya
karena Cinta sejati selalu dapat
Menerima Kelebihan dan Kekurangan

arti : Cinta datang kepada orang yang masih mempunyai harapan, walaupun mereka telah dikecewakan. Kepada mereka yang masih percaya, walaupun mereka telah dikhianati. Kepada mereka yang masih ingin mencintai, walaupun mereka telah disakiti sebelumnya dan Kepada mereka yang mempunyai keberanian dan keyakinan untuk membangunkan kembali kepercayaan.

Setetes kebencian di dalam hati
Pasti akan membuahkan penderitaan
Tapi setetes cinta di dalam relung hati
akan membuahkan kebahagiaan sejati

arti : Tak ada yg sempurna, berhentilah mencarinya. Jika seseorang mengerti dan mencintai kamu apa adanya, kamu dan dia pantas bersama.

Cinta yang belum matang berkata:
"Aku cinta kamu karena aku butuh kamu"
Cinta yang sudah matang berkata:
"Aku butuh kamu karena aku cinta kamu"

arti :

Kalahkan Kemarahan dengan Cinta Kasih
Kalahkan Kejahatan dengan Kebajikan
Kalahkan kekikiran dengan Kemurahan Hati

Kalahkan Kesombongan dengan Kejujuran

Cinta Tak Harus Saling Memiliki
Kadang Kala Mereka Harus Melepaskan Cinta Tersebut
Karena Cinta yang Sejati Selalu Ingin Membahagiakan
Orang Yang dicintai

arti : Di antara mereka yang saya sukai atau kagumi,
saya tidak dapat menemukan suatu kesamaan
Tetapi di antara mereka yang saya kasihi,
saya dapat menemukannya: mereka semua membuat saya tertawa

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

arti : Cinta tidak dapat dipaksakan
Cinta tidak dapat dibujuk dan digoda
Cinta muncul dari Surga tanpa topeng dan tanpa dicari

CINTA SATUKAN KITA

Diposting oleh sofy cantik 0 komentar

Dia sepi d sini..
Tak seperti yang lain...
Walau sudah waktunya...
Namun dia tetap tersenyum...

Bahagialah bila...
Kau masih punya mimpi...
Hidup hanya 1x...
Berikanlah yang terbaik...

Merindukan purnama...
Bertahan walau d dalam duka...
Bersyukurnya lah kita...
Masih banyak yang sayangi kita...

Merindukan purnama...
Meraih cinta...
Cinta yang menyatukan kita...

IBU

Diposting oleh sofy cantik Senin, 30 Januari 2012 0 komentar

Ibu…

adalah wanita yang telah melahirkanku

merawatku

membesarkanku

mendidikku

hingga diriku telah dewasa

Ibu…

adalah wanita yang selalu siaga tatkala aku dalam buaian

tatkala kaki-kakiku belum kuat untuk berdiri

tatkala perutku terasa lapar dan haus

tatkala kuterbangun di waktu pagi, siang dan malam

Ibu…

adalah wanita yang penuh perhatian

bila aku sakit

bila aku terjatuh

bila aku menangis

bila aku kesepian

Ibu…

telah kupandang wajahmu diwaktu tidur

terdapat sinar yang penuh dengan keridhoan

terdapat sinar yang penuh dengan kesabaran

terdapat sinar yang penuh dengan kasih dan sayang

terdapat sinar kelelahan karena aku

Aku yang selalu merepotkanmu

aku yang selalu menyita perhatianmu

aku yang telah menghabiskan air susumu

aku yang selalu menyusahkanmu hingga muncul tangismu

Ibu…
engkau menangis karena aku
engkau sedih karena aku
engkau menderita karena aku
engkau kurus karena aku
engkau korbankan segalanya untuk aku

I LOVE U MY MOTHER

jawaban soal no 3 (sofy)

Diposting oleh sofy cantik Jumat, 27 Januari 2012 0 komentar

Public Class Form1

Private Sub process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles process.Click

If user.Text = "ferdel" And pasword.Text = "npm526" Then

FormKaryawan.Show()

Me.Hide()

Else

MsgBox("Password Anda Salah")

user.Text = ""

pasword.Text = ""

End If

End Sub

End Class

hasil login no 3:

Listing program form karyawan

Public Class FormKaryawan

Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

If NIP.Text = "098811" Then

Nama.Text = "Pintar"

ElseIf NIP.Text = "098812" Then

Nama.Text = "Dody"

Else

Nama.Text = "Feresi Daeli"

End If

End Sub

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

If JABATAN.Text = "Mandor" Then

GAJIPOKOK.Text = "1750000"

PAJAK.Text = (0.015 * Val(GAJIPOKOK.Text))

ElseIf JABATAN.Text = "KaBag" Then

GAJIPOKOK.Text = "2500000"

PAJAK.Text = (0.015 * Val(GAJIPOKOK.Text))

ElseIf JABATAN.Text = "Staff" Then

GAJIPOKOK.Text = "1250000"

PAJAK.Text = (0.015 * Val(GAJIPOKOK.Text))

Else

JABATAN.Text = "0"

End If

End Sub

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

If STATUS.Text = "Menikah" Then

TUNISTRI.Text = (0.09 * Val(GAJIPOKOK.Text))

Else

TUNISTRI.Text = "0"

JUMANAK.Text = "0"

TUNANAK.Text = "0"

End If

End Sub

Private Sub jmlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMANAK.TextChanged

If JUMANAK.Text = "1" Then

TUNANAK.Text = (0.03 * Val(GAJIPOKOK.Text))

ElseIf JUMANAK.Text = "2" Then

TUNANAK.Text = (0.07 * Val(GAJIPOKOK.Text))

Else

TUNANAK.Text = (0.07 * Val(GAJIPOKOK.Text))

End If

End Sub

Private Sub jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMJAM.SelectedIndexChanged

If JUMJAM.Text = "1" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "7500"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "5000"

Else

GAJILEMBUR.Text = "10000"

End If

ElseIf JUMJAM.Text = "2" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "15000"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "10000"

Else

GAJILEMBUR.Text = "20000"

End If

ElseIf JUMJAM.Text = "3" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "22500"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "15000"

Else

GAJILEMBUR.Text = "30000"

End If

ElseIf JUMJAM.Text = "4" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "30000"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "20000"

Else

GAJILEMBUR.Text = "40000"

End If

ElseIf JUMJAM.Text = "5" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "37500"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "25000"

Else

GAJILEMBUR.Text = "50000"

End If

ElseIf JUMJAM.Text = "6" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "45000"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "30000"

Else

GAJILEMBUR.Text = "60000"

End If

ElseIf JUMJAM.Text = "7" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "52500"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "35000"

Else

GAJILEMBUR.Text = "70000"

End If

ElseIf JUMJAM.Text = "8" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "60000"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "40000"

Else

GAJILEMBUR.Text = "70000"

End If

ElseIf JUMJAM.Text = "9" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "67500"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "35000"

Else

GAJILEMBUR.Text = "70000"

End If

ElseIf JUMJAM.Text = "10" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "75000"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "40000"

Else

GAJILEMBUR.Text = "80000"

End If

ElseIf JUMJAM.Text = "11" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "82500"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "45000"

Else

GAJILEMBUR.Text = "90000"

End If

ElseIf JUMJAM.Text = "12" Then

If JABATAN.Text = "Mandor" Then

GAJILEMBUR.Text = "90000"

ElseIf JABATAN.Text = "Staf" Then

GAJILEMBUR.Text = "50000"

Else

GAJILEMBUR.Text = "100000"

End If

End Sub

Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click

TOTAL.Text = Val(GAJIPOKOK.Text) + Val(TUNISTRI.Text) + Val(TUNANAK.Text) + Val(GAJILEMBUR.Text) - Val(PAJAK.Text)

End Sub

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

Buattabel()

End Sub

Sub Buattabel()

LV.Columns.Add("NIP", 70, HorizontalAlignment.Center)

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

LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)

LV.Columns.Add("G.Pokok", 70, HorizontalAlignment.Center)

LV.Columns.Add("Status", 120, HorizontalAlignment.Center)

LV.Columns.Add("T. Istri", 70, HorizontalAlignment.Left)

LV.Columns.Add("J. Anak", 70, HorizontalAlignment.Center)

LV.Columns.Add("T. Anak", 70, HorizontalAlignment.Center)

LV.Columns.Add("Pajak", 70, HorizontalAlignment.Center)

LV.Columns.Add("Gaji Lambur", 100, HorizontalAlignment.Left)

LV.Columns.Add("J.Jam", 70, HorizontalAlignment.Center)

LV.Columns.Add("Total", 70, HorizontalAlignment.Center)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

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(GAJIPOKOK.Text)

lst.SubItems.Add(STATUS.Text)

lst.SubItems.Add(TUNISTRI.Text)

lst.SubItems.Add(JUMANAK.Text)

lst.SubItems.Add(TUNANAK.Text)

lst.SubItems.Add(PAJAK.Text)

lst.SubItems.Add(GAJILEMBUR.Text)

lst.SubItems.Add(JUMJAM.Text)

lst.SubItems.Add(TOTAL.Text)

LV.Items.Add(lst)

End Sub

Private Sub BTNProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSimpan.Click

Dim x As String

x = MsgBox("Yakinkah Anda Menyimpan keListView ..?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Simpan Data")

If x = vbYes Then

isitabel()

NIP.Text = ""

Nama.Text = ""

JABATAN.Text = ""

GAJIPOKOK.Text = ""

STATUS.Text = ""

TUNISTRI.Text = ""

JUMANAK.Text = ""

TUNANAK.Text = ""

PAJAK.Text = ""

GAJILEMBUR.Text = ""

JUMJAM.Text = ""

TOTAL.Text = ""

NIP.Focus()

End If

End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

Dim x As String

x = MsgBox("Anda yakin akan keluar..?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")

If x = vbYes Then

End

End If

End Sub

Private Sub BtnHpsYangdilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsYangdilih.Click

LV.Items.Remove(LV.SelectedItems(0))

End Sub

Private Sub btnhpsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpsemua.Click

LV.Items.Clear()

End Sub

hasil program penggajian karyawan

Mau liat klik disini

jawaban soal no 2 (sofy)

Diposting oleh sofy cantik 0 komentar

Public Class Form1

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

    End Sub

    Sub buattabel()
        LV.Columns.Add("NPM", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Nama", 120, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        LV.Items.Add(lst)

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
        NPM.Focus()

    End Sub

    Private Sub BTNHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapussemua.Click
        LV.Items.Clear()

    End Sub

    Private Sub BTNHapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapuspilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Dim x As String
        x = MsgBox("Anda yakin akan keluar..?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")

        If x = vbYes Then
            End
        End If

    End Sub
End Class

HASIL DARI PROGRAM SOAL NO.2

Mau dliat klik disini

Followers

Pantun Agama

Pantun Gombal

Kata-kata mutiara CINTA

CINTA SATUKAN KITA

IBU

jawaban soal no 3 (sofy)

jawaban soal no 2 (sofy)

About Me

Blog Archive