Sofy Cantik: Januari 2012

Kata-kata Gokil

Diposting oleh sofy cantik Selasa, 31 Januari 2012 0 komentar

Co: knapa malem ini gelap banget ya
Ce: mendung kali bang
Co: kyknya nggak dech
Ce: trus napa bang
Co: soalnya bulannya sedang menerangi & menemaniku disini

co: bapak kamu maling ya?
ce: ih….kow jahat sie bapak ku dibilang maling. kow gitu?
co: iya soalnya kamu pintar banget mencuri hatiku..

ce: mmm,, kalo aye jadi bulan, abang jadi apa?
co: abang tetep pengen jadi matahari neng…
ce: kan matahari ma bulan ga isa ketemu bang??
co: kan bulan bisa bersinar karena sinar matahari

co : kamu tahu apa definisi dari indah ??
ce : mm..yg jelas indah itu cantik…
co : well bener sih, tp menurut gw …indah itu adalah saat dimana kita
ngga merasakan sedikit pun keburukan di dalamnya ..kmu pernah ngerasain
yg begitu ???
ce : mungkin kalee ya
co : klo aku sering bgt…dan itu adalah saat…..
diriku bersama dengan dirimu

Gawat, gue lagi di kantor polisi nie sekarang. Mereka punya semua bukti buat nahan gue. Tapi nie, bayangin aja mereka nahan cuman gara-gara punya TAMPANG IMUT, kan bukan salah gue ya ..

Doa’in gue ya, please! Tadi gue baru chek-up ke dokter, gue kena penyakit BEAUTIFULIST! Semacam penyakit MAKIN CANTIK gitu dee! Emang cie ga’ bisa nular ke orang lain, cuman gak bisa sembuh aja… so, makin cantik terus dee gue

Pantun Jenaka

Diposting oleh sofy cantik 0 komentar

Naik kebukit membeli lada
Lada sebiji dibelah tujuh
Apanya sakit berbini janda
Anak tiri boleh disuruh

    Orang Sasak pergi ke Bali
    Membawa pelita semuanya
    Berbisik pekak dengan tuli
    Tertawa si buta melihatnya

Jalan-jalan ke rawa-rawa
Jika capai duduk di pohon palm
Geli hati menahan tawa
Melihat katak memakai helm

    Mari dik mari makan kuaci
    Boleh dimakan asin kulitnya
    Katanya kamu pandai bernyanyi
    Perutku sakit mendengarnya

Beli bandeng
di malaysia
Gue ganteng
kayak pasia (wkwkw, pasha ungu)

    Bunga mawar jangan di bungkus
    kalau dibungkus hilang sarinya,
    punya pacar jangan diputus
    kalau diputus sakit hatinya

Hujan turun rintik-rintik
Duduk berdua di teras rumah
Ingin punya cewek cantik
Syaratnya rumah dan mobil mewah

    Ke Palembang beli empek-empek
    Jangan lupa kasih cuka.
    Hidungmu itu memang pesek
    Makanya gak ada yang suka (wah menghina banget ya,wkwkw)

kalau mau menanam padi
lihat dulu cuacanya
kalau tau ku mau mandi
Jangan lupa, ngintip ya! (iih, porno deh)

    seorang anak bernyanyi ria
    sambil bernyanyi menari pula
    siapa yang tidak bakal tertawa
    disangka waras ternyata gila

Kalau punya gigi ompong
cepat cepat ke dokter gigi
kalau jadi anak sombong
pasti nanti jadi rugi.

Disini bingung, Disana linglung
mangnya enak, engga nyambung….

Berakit-rakit ke hulu
Berenang-renang ke tepian
Berakit-rakit melulu
Kapan aku dapat gantian?

    Beli kain warnanya merah
    Dari kediri pakenya batik
    Digodain jangan marah
    Salah sendiri punya wajah cantik

ndah cinta karena sayang
indah senyuman karena kenal
indah dia karena masih bujangan
indah itu,,,,, awas gombal

    Nonton bioskop horor Indonesia
    Bersama pacar cantik jelita
    Hidup jangan disia-sia
    Dekati wanita sebanyak-banyaknya (wah, parah ni)

Malam hari main kulintang
ditemani sobat sobat tersayang
gimana hati kagak bimbang
Kepala botak minta dikepang

    Daun sirih daun kelor
    Ayam berkokok mau bertelor
    apa isi di balik kolor
    satu pistol dua pelor

seorang anak bernyanyi ria
sambil bernyanyi menari pula
siapa yang tidak bakal tertawa
disangka waras ternyata gila

perut melilit makan jengkol
orang pelit doyan miscoll

Makan Jengkol Perut Melilit
Doyan Miscall pulsa sedikit

Buah kedondong Biji selasih
Dulu bencong sekarang masihhhhhh

Buah semangka buah duren
Nggak nyangka gue keren

    Ada padi, Ada jagung
    Ada singkong, Ada pepaya
    Panen ni yeeee!

makan kue, minum sekoteng
ternyata gue emang ganteng

    Baju baru dipake sayang
    beli dimall pake atm mandiri
    knapa semua pada kabur sayang
    itu karena kamu belum mandi

kalo mau menanam padi
lihat dulu cuacanya
kolo tau Q mau mandi
Jangan lupa, ngintip ya!
    Pergi ke pasar naik onta
    Membeli anting intan permata
    Gak peduli situ udah tua
    Yang penting saling mencinta

Pantun Agama

Diposting oleh sofy cantik 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.

Kata-kata mutiara CINTA

Diposting oleh sofy cantik 0 komentar

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

Kata-kata Gokil

Pantun Jenaka

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