Biodata_Ku

 
Nama  : Lisa Handayani.

T.T.Lahir : Medan, 02 Februari 1991.

Agama : Islam.
Alamat : Jl. Pertiwi.
Status Hubungan : Menikah.

Suami : Ricky Syahputra.

Sekolah :

•  TK Sandhy Putra (thn 1996 s/d 1997).
•   SD Swasta IRA (thn 1997 s/d 2003). 
•  SLTP Swasta IRA(thn 2003 s/d 2006).
• SMA Swasta Teladan Medan(thn  2006 s/d 2009).
• STMIK BUDIDARMA MEDAN(thn 2009 s/d 2013)

Makes : Mie Ayam/Pangsit, Nasi Goreng, dn Seafood.

Mikes : Air Mineral.
Barkes : yang penting pernak-pernik.

Cerita Lucu

Aуαм : Gυє ραℓιηg вєη¢ι αмα мαηυѕια. Sαρι : Bєυн, мαηg кєηαρє, уαм?? Aуαм : Cσвα αנα ℓσ ριкιяιη Pу (ραηggιℓαη ѕι ѕαρι), мαѕα вαяυ мαєη-мαєη вєηтαя ∂ι тєяαѕ яυмαн мαηυѕια, ℓαηgѕυηg ∂ιυѕιя, ѕαмρє ∂ι ℓємραя-ℓємραя вαтυ ѕєgαℓα. Mєяєкα gαк ιηgєт кαℓσ тιαρ αяι мαкαη тєℓυя ∂αη ∂αgιηg gυє. Sєвєℓ!!! вєη¢ι вηgт gυє ѕαмα уαηg ηαмαηуα мαηυѕια. Sαρι : Eмαηg ℓσ ∂σαηg уαηg вєη¢ι???? Gυє ℓєвιн вєη¢ι мєяєкα ∂αяι ѕιαραρυη! Aуαм : Eмαηg ℓσ кєηαρα.. Pу? Sαρι : Cσвα єℓσ вαуαηgιη, αмριя тιαρ αяι ѕυѕυ gυє ∂ι єℓυѕ-єℓυѕ, ∂ιρєη¢єт-ρєη¢єт, ∂ιяємαѕ-яємαѕ, тαρι мαηυѕια ∂υяנαηα ιтυ gα ρєяηαн ηιкαнιη gυє, вσяσ-вσяσ ηgєℓαмαя... Sαкιιιιттт вαηgєт вαтιη gωє , ємαηgηуα gω נαв1αу.!!!!! ========================================================================= Sєσяαηg вσ¢αн ѕαηgαт ιηgιη мєℓαηנυткαη ѕєкσℓαн,тєтαρι σяαηg тυαηуα тι∂αк мємρυηуαι υαηg υηтυк мємвιαуαι ѕєкσℓαнηуα. Lαgιρυℓα ιвυηуα уαηg ѕє∂αηg ѕαкιт мємвυтυнкαη вιαуα υηтυк мємвєℓι σвαт. Aкнιяηуα ∂ια мємυтυѕкαη υηтυк мєηυℓιѕ ѕυяαт кєρα∂α Tυнαη : Kєρα∂α Yтн Tυнαη ∂ι Sυяgα Tυнαη уαηg вαιк, ѕαуα мαυ мєℓαηנυткαη ѕєкσℓαн, тαρι σяαηg тυα ѕαуα тι∂αк ρυηуα υαηg. Iвυ ѕαуα נυgα ѕє∂αηg ѕαкιт, мαυ вєℓι σвαт. Tυнαη ѕαуα вυтυн υαηg Rρ 20.000 υтк вєℓι σвαт ιвυ, Rρ 20.000 υηтυк мємвαуαя υαηg ѕєкσℓαн,Rρ 10.000 υηтυк мємвαуαя υαηg ѕєяαgαм,∂αη υαηg вυкυ Rρ 10.000. Jα∂ι ѕємυαηуα Rρ 60.000 Tєяιмα кαѕιн Tυнαη, ѕαуα тυηggυ кιяιмαη υαηgηуα. Dαяι : Rισ Rισ ρυη ρєяgι кє кαηтσя ρσѕ υηтυк мєηgιяιм ѕυяαтηуα. Mємвα¢α тυנυαη ѕυяαт тєяѕєвυт, ρєтυgαѕ кαηтσя ρσѕ мєяαѕα ιвα мєℓιнαт Rισ, ѕєнιηggα тι∂αк тєgα мєηgємвαℓιкαη ѕυяαтηуα. Bιηgυηg мαυ ∂ι кємαηαιη ѕυяαт ιтυ, αкнιяηуα ρєтυgαѕ ρσѕ ιтυ мєηуєяαнкαηηуα кє кαηтσя ρσℓιѕι тєя∂єкαт. Mємвα¢α ιѕι ѕυяαт ιтυ, Kσмαη∂αη ρσℓιѕι мєяαѕα ιвα ∂αη тєяgєяαк нαтιηуα υтк мєη¢єяιтαкαη нαℓ тѕв кєρα∂α αηαк вυαнηуα. Wαℓнαѕιℓ, ραяα ρσℓιѕι ρυη мєηgυмρυℓкαη ∂αηα υтк ∂ι вєяιкαη кє Rισ, тєтαρι ∂αηα уαηg тєякυмρυℓ нαηуα Rρ 55.000,- Sαηg Kσмαη∂αη ρυη мємαѕυкαη υαηg уαηg тєякυмρυℓ кє ∂αℓαм αмρℓσρ, мєηυℓιѕкαη кєтєяαηgαη : " Dαяι Tυнαη ∂ι Sυяgα " ∂αη мєηуєяαнкαη кє αηαк вυαнηуα υтк ∂ιкємвαℓιкαη кє Rισ. Mєηєяιмα υαηg тѕв, Rισ мєяαѕα ѕαηgαт ѕєηαηg ρєямιηтααηηуα тєякαвυℓ, ωαℓαυρυη уαηg ∂ι тєяιмα нαηуα Rρ 55.000,-. Rισ ρυη вєяgєgαѕ мєηgαмвιℓ кєятαѕ ∂αη ρєηѕιℓ, ∂αη мυℓαι мєηυℓιѕ ѕυяαт ℓαgι : TERIMA KASIH TUHAN, TAPI LAIN KALI KALO MAU KIRIM UANG, JANGAN LEWAT POLISI, KARENA KALO LEWAT POLISI DI POTONG RP 5.000,- ========================================================================= ¢є : мαѕ... кιтα ρυтυѕ !!! ¢σ : ωαн ѕαуαηg.. ρα∂αнαℓ αкυ вαяυ αנαн вєℓι мσвιℓ вυαт кιтα נαℓαη вιαя gαк кєραηαѕαη ℓαgι!! ¢є : Mαѕα? нєнє, ѕαуα ¢υмα вє¢αη∂α ∂σαηg кσк мαѕ. ¢σ : Hαнαнα, αкυ נυgα ¢υмα вє¢αη∂α кσк ѕαу.. ¢є : *%)(!!($*#@... *αмвιℓ вαтα ѕιαρ ∂ιℓємραя. ========================================================================= Sєσяαηg вαву ѕιттєя вαяυ ѕє∂αηg мєяαуυ αηαк вαℓιтα мαנιкαη ηуα αgαя мαυ тι∂υя ѕιαηg, Bαву ѕιттєя: "Dєк.....Bσвσ уυυυк" Sι αηαк мєηנαωαв : "Dαѕαя кαυ кєσηg яα¢υη, вαяυ кєηαℓ υ∂αн ηgαנαк тι∂υя. ========================================================================= Sυαтυ нαяι Mαяια (4 тαнυη) тιвα-тιвα мєη∂αтαηgι мαмαηуα уαηg ѕє∂αηg α∂α ∂ι ∂αρυя. Mαяια : "Mαмα..мαмα.. Tσℓσηg Fιтяι мαмα.." Mαмα (кєвιηgυηgαη - ѕιαρα тυ Fιтяι?) : "Kєηαρα ѕαуαηg? Fιтяι ηуα кєηαρα?" Mαяια : "ιтυ мαмα, Mαяια ℓιαт ∂ι тινι, Fιтяι ιмυт ∂ιgσ∂αιη 3 ρяємαη נєℓєк.." Mαмα : *Gυвяαк* ========================================================================= Sυαтυ нαяι, ѕєσяαηg ωαηιтα ρємвαηтυ яυмαн тαηggα мєη∂αтαηgι мαנιкαη ρєяємρυαηηуα. Pємвαηтυ: "ηуσηуα, ѕαуα мαυ мιηтα ηαιк gαנι.." Nуσηуα: "кєηαρα ѕαуα нαяυѕ мєηαιккαη gαנι кαмυ?" Pємвαηтυ: "α∂α 3 αℓαѕαη ηуσηуα.. Pєятαмα ѕαуα мємвєяѕιнкαη яυмαн ℓєвιн вєяѕιн ∂αяιρα∂α ηуσηуα." Nуσηуα: "ѕιαρα уg вιℓαηg?" Pємвαηтυ: "Tυαη уg вιℓαηg ηуσηуα". Nуσηуα: "σн..." Pємвαηтυ: "кє∂υα, ѕαуα мємαѕαк ℓєвιн єηαк ∂αяιρα∂α ηуσηуα." Nуσηуα: "ѕιαρα уg вιℓαηg?" Pємвαηтυ: "Tυαη уg вιℓαηg." Nуσηуα: "σн..." Pємвαηтυ: :кєтιgα, ѕαуα ∂ι яαηנαηg ℓєвιн нєвαт ∂αяιρα∂α ηуσηуα." Nуσηуα: "Hαн!!! Aρα тυαη נυgα уαηg вιℓαηg !!?!! (Sє∂ιкιт ηα∂α-ηα∂α ¢υяιgα)" Pємвαηтυ: "Bυкαη ηуσηуα.., тαρι тυαη ѕєвєℓαн яυмαн уαηg вιℓαηg, кαℓσ ηуσηуα кυяαηg нєвαт ∂ι яαηנαηg" Nуσηуα: "Sѕѕѕѕтт!!! Kαмυ мιηтα ηαιк вяρ???" ========================================================================= Pα∂α ѕυαтυ ρєℓαנαяαη Mαтємαтιкα. Gυяυ : "Sєαη∂αιηуα ρєѕαωαт Bσєιηg 747 Lιση Aιя ∂ιριℓσтι σℓєн ρєηуαвυ, ∂αη мєηgαηgкυт 560 σяαηg αηggσтα DPR RI, мєℓє∂αк ∂ι кєтιηggιαη 10.000 ƒєєт ∂αη נαтυн ∂ι ρєgυηυηgαη вєявαтυ тαנαм ∂єηgαη кємιяιηgαη 45 ∂єяαנαт, вєяαρα кємυηgкιηαη уαηg ѕєℓαмαт ?" Mυяι∂-Mυяι∂ (Sєяєηтαк) : уαηg ѕєℓαмαт 250 Jυтα яαкуαт ιη∂σηєѕια, Bυ...". Gυяυ: "Mємαηg Aηαк Yαηg Cєя∂αѕ....." ========================================================================= Aℓкιѕαн α∂α ѕєσяαηg кαуα яαуα ѕє∂αηg мєηgα∂αкαη ρєѕтα ∂ι яυмαнηуα. Kєкαуααη σяαηg ιηι ηggαк кιяα-кιяα, ∂υιтηуα вєנιвυη, вєℓση яυмαнηуα ∂ι вєвєяαρα кαωαѕαη єℓιт ∂ι ѕєℓυяυн ∂υηια, ρυηуα вαηуαк ѕιмραηαη ¢єωєк. Dια נυgα ρυηуα вєвєяαρα нєℓιкσρтєя & ρєѕαωαт тєявαηg. Oяαηgηуα яα∂α ηуєηтяιк. Kσℓαм яєηαηgηуα ∂ιιѕι вαηуαк вυαуα. Lαgι ρα∂α ρєѕтα ∂ι ριηggιя кσℓαм, ѕι ∂σι вєя∂ιяι ∂ι αтαѕ мєηαяα ℓιƒє gυαя∂ ѕυραуα тємєη-тємєηηуα вιѕα ηgєℓιαт. Tєяυѕ ∂ια ѕυяυн ѕємυαηуα тєηαηg & вєякαтα Bαιкℓαн, σяαηg ρєятαмα уg вєяαηι яєηαηg ∂ι кσℓαм ιηι ∂αяι υנυηg кє υנυηg вαкαℓαη gυє кαѕιн ѕємυα ∂υιт gυє. Sємυα ρα∂α ∂ιєм. Sι кαуα ηgєℓιαт кє тємєη-тємємηуα ∂єηgαη gємєѕ ℓαℓυ вєякαтα OK, σяαηg ρєятαмα уαηg вєяαηι яєηαηg ∂ι кσℓαм ιηι ∂αяι υנυηg кє υנυηg, gυє кαѕιн ѕємυα ∂υιт gυє ρℓυѕ яυмαн gυє. Tєтαρ ηggαк α∂α נυgα уαηg вєяєαкѕι. OK, кαℓαυ gιтυ ѕємυα ∂υιт gυє, яυмαн, мσвιℓ-мσвιℓ, ρєѕαωαт тєявαηg, ѕємυα мιℓιк gυє, ѕαнαм, ѕυяαт вєянαяgα ∂αη ѕємυα ¢єωєк gυє, ρσкσкє ѕємυα уg gυє мιℓιкι. SPLASH!!! A∂α уαηg тєяנυη! Bυαуα-вυαуα ρα∂α ηgєяυвυтιη тαρι ∂ια вєякєℓιт αנє кαуαк Tαяzαη. Bєякєℓιт кє ѕσησ-ѕιηι, вєякєℓαнι נυgє ∂єηgαη вυαуα ιтυ. Aкнιяηуα ηуαмρє נυgα ∂ι ѕєвєяαηg. Sι кαуα тυяυη ∂αяι ℓιƒє gυαя∂ тσωєя ℓαℓυ вєяℓαяι кє σяαηg ιтυ. Kαуα: Gιℓє ℓυ! Hєвαт вєηєя, gυα ηggαк ηуαηgкα кαℓσ α∂α уαηg вєяαηι мєℓαкυкαηηуα. Eℓυ мαυ ∂υιтηуα ѕєкαяαηg? Nєкα∂: Nggαк! gυє ηggαк мαυ ∂υιт! Kαуα: Eℓυ мαυ яυмαнηуα ѕєкαяαηg? Nєкα∂: Nggαк! gυє ηggαк мαυ яυмαнηуα Kαуα: Eℓυ мαυ мσвιℓ αмα ρєѕαωαтηуα ѕєкαяαηg αтαυ ηтαя? Nєкα∂: Nggαк! gυє נυgα ηggαк мαυ ρєѕαωαт Kαуα: Eℓυ мιηтα ѕαнαм αтαυ ѕυяαт вєянαяgα? Nєкα∂: Nggαк! gυє ηggαк мαυ Kαуα: Eℓυ мιηтα ¢єωєк gυє? Nєкα∂: Nggαк gυє נυgє ηggαк мαυ ιтυ Kαуα: Hαвιѕ, єℓυ ιтυ мαυηуα αρα????? Nєкα∂: Gυє мαυ тαнυ ѕιαρα вєנιηgαη уαηg ∂σяσηg gυє тα∂ι! =========================================================================

Cara Membuat Kriptografi

Gambar

Listing Untuk Kriptografi

Public Class Form1

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        Dim x As String

        TextBox2.Text = ""

        For i = 1 To Len(TextBox1.Text)

            x = Microsoft.VisualBasic.Mid(TextBox1.Text, i, 1)

            x = Chr(Asc(x) + 3)

            TextBox2.Text = TextBox2.Text & x

        Next i

    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click

        Dim x As String

        TextBox3.Text = ""

        For i = 1 To Len(TextBox2.Text)

            x = Microsoft.VisualBasic.Mid(TextBox2.Text, i, 1)

            x = Chr(Asc(x) - 3)

            TextBox3.Text = TextBox3.Text & x

        Next i

    End Sub

End Class

Hasil Gambar

Jawaban soal no.3 (_Penggajian Karyawan_)

Public Class Form1

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

        nik.Items.Add("A01")

        nik.Items.Add("B02")

        nik.Items.Add("C03")

       

        Jabatan.Items.Add("Mandor")

        Jabatan.Items.Add("Kepala Bagian")

        Jabatan.Items.Add("Staff")

        status.Items.Add("Belum Menikah")

        status.Items.Add("Menikah")

        jmlhlmbur.Items.Add("1 jam")

        jmlhlmbur.Items.Add("2 jam")

        jmlhlmbur.Items.Add("3 jam")

       

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "A01" Then

            nama.Text = "Lisa Handayani"

        ElseIf nik.Text = "B02" Then

            nama.Text = "Edi"

        ElseIf nik.Text = "C03" Then

            nama.Text = "Lia Cienaga"

        Else

            nama.Text = "Empty"

        End If

    End Sub

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

        If status.Text = "Belum Menikah" Then

            tunjanak.Text = 0

            tunjistri.Text = 0

        ElseIf status.Text = "Menikah" Then

            tunjistri.Text = 175000

        Else

            tunjanak.Text = 0

            tunjistri.Text = 0

        End If

    End Sub

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

        If jumlahank.Text <= 2 Then

            tunjanak.Text = jumlahank.Text * (0.03 * gaji.Text)

        ElseIf jumlahank.Text >= 2 Then

            tunjanak.Text = jumlahank.Text * (0.07 * gaji.Text)

        End If

        If jmlhlmbur.Text = "1 jam" Then

            Lembur.Text = 7500

        ElseIf jmlhlmbur.Text = "2 jam" Then

            Lembur.Text = 10000

        ElseIf jmlhlmbur.Text = "3 jam" Then

            Lembur.Text = 15000

        Else

            Lembur.Text = 0

        End If

        Pajak.Text = 0.015 * gaji.Text

        Total.Text = Val(gaji.Text) + Val(tunjanak.Text) + Val(tunjistri.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        nik.Text = ""

        nama.Text = ""

        Jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        jumlahank.Text = ""

        tunjistri.Text = ""

        tunjanak.Text = ""

        Pajak.Text = ""

        Lembur.Text = ""

        jmlhlmbur.Text = ""

        Total.Text = ""

        nik.Focus()

    End Sub

    Sub bonusgaji()

        If status.Text = "MENIKAH" Then

            tunjistri.Text = 0.09 * gaji.Text

            If jumlahank.Text = "1" Then

                tunjanak.Text = 0.03 * gaji.Text

            ElseIf jumlahank.Text = "2" Then

                tunjanak.Text = 0.07 * gaji.Text

            ElseIf jumlahank.Text >= "2" Then

                tunjanak.Text = 0.07 * gaji.Text

            End If

        Else

            tunjistri.Text = "0"

            tunjanak.Text = "0"

        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

            gaji.Text = 1750000

        ElseIf Jabatan.Text = "Kepala Bagian" Then

            gaji.Text = 2500000

        ElseIf Jabatan.Text = "Staff" Then

            gaji.Text = 1250000

        Else

            gaji.Text = 0

        End If

    End Sub

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

        End

    End Sub

    Private Sub jmlhlmbur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhlmbur.SelectedIndexChanged

        If Jabatan.Text = "Mandor" Then

            Lembur.Text = 7500

        ElseIf Jabatan.Text = "Kepala Bagian" Then

            Lembur.Text = 10000

        ElseIf Jabatan.Text = "Staff" Then

            Lembur.Text = 5000

        Else

            Lembur.Text = 0

        End If

    End Sub

End Class