Minggu, 16 Juni 2013

Cindelaras and Chicken Sakti


Cindelaras and supernatural Chicken
        Jenggala kingdom led by a king named Raden Putra. He was accompanied by a consort of good heart and a concubine who has the nature of envy and jealousy. King's son and his two wives had been living in a very stately palace and peaceful. Until one day the king's concubines planning something bad on the consort of theking. This was done because the concubine Raden Putra want to become empress .
Concubine of the king and then conspired with a physician's palace to carry out the plan. Concubine king pretended to seriously ill. Physician's palace and then immediately called the King. After examining these concubines, the physician said that someone had put poison in the drink lady. "The man was none other than the consort of King himself," said the physician. King became angry to hear the explanation the court physician. He immediately ordered the governor to get rid of the empress to the woods and kill him.
 The Patih immediately bring empress who was pregnant with it into the middle of the jungle. But, the wise governor did not want to kill the empress. Apparently the governor had known the king's concubines malicious intent. "Mr. daughter not to worry, I will report to the king that the princess was murdered servant," said the governor. To deceive the king, his vizier stain his sword with the arrest of rabbit blood. The king was satisfied when the governor reported that he had killed the empress.
After several months in the jungle, the empress gave birth to a boy. The boy was given the name Cindelaras. Cindelaras grow into a child who is smart and handsome. Since childhood he had been friends with forest-dwelling animals. One day, when you're busy playing, a hawk dropped the chicken egg. Cindelaras then took the egg and the intended menetaskannya. After 3 weeks, the eggs hatch into a chick who is very funny. Cindelaras chicken with diligent care of the child. Kian day chick grew into a cock that manly and strong. But there is a strange one from the chicken. The sound of crowing cock is different from other chickens. "Kukuruyuk ... lord Cindelaras, his house in the middle of the jungle, the roof of palm leaves, his father Raden Putra ...", crowing chicken
Cindelaras very surprised to hear crowing chickens and immediately showed it to her mother. Then, the mother tells the origin Cindelaras why they got in the forest. Hearing the story of his mother, Cindelaras determined to expose the crime to the palace and the king's concubines. Having allowed his mother, Cindelaras went to the palace accompanied by a rooster. While on the way there are some people who were risking chicken. Cindelaras then summoned by the penyabung chicken. "Come on, if you dare, adulah jantanmu chicken with my chicken," she challenged. "Well," replied Cindelaras. When pitted, it turns out Cindelaras cock fight with powerful and in a short time, he can beat his opponent. After a few times pitted, chicken Cindelaras unbeatable.
News of the wonders of chicken Cindelaras spread quickly to get to the Palace. Raden Putra finally heard the news. Then, Raden Putra told Cindelaras hulubalangnya to invite to the palace. "I was facing his excellency," said Cindelaras politely. "The boy is handsome and intelligent, it seems he is not a descendant of the common people," thought the king. Chicken Cindelaras pitted with chicken Raden Putra on one condition, if the chicken Cindelaras lose then he was willing to cut off his head, but if the chicken wins then half the wealth belongs Cindelaras Raden Putra.
Two chickens were fighting bravely. But in a short time, chicken chicken Cindelaras conquered the King. The audience cheered and chanted Cindelaras chicken. "Well I admit defeat. I will keep my promise. But who are you, young man? "Tanya King Raden Putra. Cindelaras immediately bent like whispered something in his chicken. Not long after the chicken immediately rang. "Kukuruyuk ... lord Cindelaras, his house in the middle of the jungle, the roof of palm leaves, his father Raden Putra ...," the rooster crowed repeatedly. Raden Putra Cindelaras shocked to hear crowing cock. "Is it true?" Ask the king surprise. "Yes sir, name Cindelaras servant, the servant is the consort of King's mother."
Simultaneously, the governor immediately face and tell all the events that really happened in consort. "I've made a mistake," said King Raden Putra. "I'll give justly punished in my mistress," continued the king with rage. Then, the concubine Raden Putra was in the exhaust into the forest. Raden Putra immediately embraced her and apologized for his mistakes after that, Raden Putra and district chief consort to the forest to pick up soon .. Finally Raden Putra, empress and Cindelaras can get together again. After Raden Putra died, Cindelaras replace his father. He ruled his country with a fair and wise.

Deer and buffalo


Deer and buffalo

         
            Began before dawn, the sun rays showed up, and red Shubuh began to appear. White mist began to thin, cold start running, Chicken crowed shouted, and the dawn Adhan was echoed all over the country.

Meanwhile, in a bush near the village plantations, the Kancil was lazy to get up early. He just woke up from sleep.

"Hmmmh, today I had to go to school. Learning a variety of science and knowledge. Duh, males still ..., "muttered Kancil and moved from his bed.
Then he quickly toward the creek near his house to get a shower. Not forgetting the fine bath and morning prayers he cleaned his bed. (Like the song just woke up ...) The Kancil mother was ready with breakfast, a plate of her favorite cucumber-unyil the Kancil. Yes, Kancil-unyil his full name.

"Assalam Alaikum," came the greeting from the Buffalo-keribo, friend-unyil Kancil, in front of the house.

"Wa'alaikum greetings," said the mother Kancil.

"Hey Cow, let's go first. The Kancil was breakfast tuh, let follow-up ... "said the mother Kancil to Buffalo.

"Thanks Mom, I had breakfast a big basket of fresh grass, was at home," said Buffalo.

"Buffalo, I took a while yes my school bag before," said Kancil which is fine breakfast.

Then the two best friends were also going to school, walking merrily. Across the forest, crossing rivers, passing through paddy fields, fields to reach their schools.

At school they met other friends. There's Monkey, Tortoise, Cat, Rat, Tiger, Snail, and Crocodile. They all learn in the same class. When the time comes, learning began. They were taught by their teacher is clever and wise, Mrs. Elephant name.

Home from school, Kancil and Buffalo went home together. At times The sun was scorching-hot, it seems that the Kancil was exhausted and hungry on the road. Buffalo had already started overheating.



"We had a break there tuh yuk," said Kancil at Buffalo, pointing to shady places near the dike fields where they walk. Buffalo agreed.

"Cil, I also want ngadem yes in a puddle before it tuh," said Buffalo continues into the mud near the Kancil rest.

While resting under a shade tree, growing hunger becomes. He wanted to get to the house, but the distance is far. And he thought of his favorite foods fresh cucumber. Continues then thought, how he got the cucumber. Mind "clever" but the bad start penetrating. Sang Kancil thought of how his friend asked for help the Buffaloes to take Mr. Farmer's cucumbers near the place of rest.

Meanwhile, the Buffalo while bathing in a puddle of water and washed bermanja-spoiled him, he's thinking about homework solution given by Mrs. Elephant this morning. You see it like this.

I have ten pieces of cucumber. Then be divided in two parts. The number of each part I multiply by himself, and when I add the two multiplication results, the number is fifty-eight. How many of each section?

Buffalo thinking hard trying to solve the problem. Because he remembered the message her mother, that he must learn to be diligent so that clever people are useful later. But, after a long bath and think, solving the problem never found.

"Cil, homework from Mrs. Elephant had engga you can," said Buffalo, moved from the puddle, and headed to the Kancil was resting. Kancil replied, "Well yes, I do not know. I have not mikirin PR. My other thinkers. "

"I've been thinkers, can not too. Maybe if you're a thinker, able to easily answer that question. Itukan questions about Cucumber, your favorite food, "said Buffalo on Kancil.

"By the way, I was starving, we yuk Mr. Farmer cucumber ngambil there tuh," said Kancil.

"Cil Gemana way?"

"Ah, simple enough. Gini's how ... "Kancil said then whispered into the ears of Buffalo.

Buffalo thought repeatedly. At first he will be tempted. And will obey the word deer. But then he remembered the message her mother, that he should not be naughty. Not steal.

"Ngambil? Ga ga like ah that old saying to Mr. Farmer! If ngambil not say anything, it's called stealing, ga mau ah, "said Buffalo firmly.

Minggu, 29 Januari 2012

TUGAS 3 (PESTA ULI DAMERIA)

KASUS : KLIK DISINI

FORM LOGIN


LISTING PROGRAM




Public Class Form1

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        If USERNAME.Text = "PESTA" And PASSWORD.Text = "12345" Then
            FormMenu.Show()
            Me.Hide()
        Else
            MsgBox("MAAF! PASSWORD SALAH!")
            USERNAME.Text = ""
            PASSWORD.Text = ""
        End If
    End Sub

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

    End Sub


End Class


FORM MENU
  

 LISTING PROGRAM

Public Class FormMenu

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

    Private Sub DATAPENGGAJIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENGGAJIANToolStripMenuItem.Click
        karyawan.show()
    End Sub

End Class



FORM PENGGAJIAN KARYAWAN



LISTING PROGRAM


Public Class karyawan
    Sub TdkAktif()
        ISTRI.Visible = False
        TUNJA.Visible = False
        ANAK.Visible = False
    End Sub
    Sub Aktif()
        ISTRI.Visible = True
        TUNJA.Visible = True
        ANAK.Visible = True
    End Sub
    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TdkAktif()
        BUATTABEL()
        ISITABEL()

        JABATAN.Items.Add("KABAG")
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("STAF")

        STATUS.Items.Add("Menikah")
        STATUS.Items.Add("Belum Menikah")
    End Sub
    Sub BUATTABEL()
        LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)
        LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)
        LV.Columns.Add("ISTRI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JAM KERJA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL LEMBUR", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        For i = 1 To 3
            NIP.Items.Add("000" & i)
        Next
       
    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        If NIP.Text = "0001" Then
            NAMA.Text = "DEDE"
        ElseIf NIP.Text = "0002" Then
            NAMA.Text = "SUSI"
        ElseIf NIP.Text = "0003" Then
            NAMA.Text = "DIDI"
        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 = "KABAG" Then

            GAJI.Text = 2500000

        ElseIf JABATAN.Text = "STAF" Then

            GAJI.Text = 1250000

        End If
        PAJAK.Text = GAJI.Text * 0.015
    End Sub

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

        If STATUS.Text = "Menikah" Then
            ISTRI.Text = GAJI.Text * 0.9
            Aktif()

        ElseIf STATUS.Text = "Belum Menikah" Then
            TdkAktif()
        Else
            ISTRI.Text = 0
        End If


    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        Dim sublv As New ListViewItem
        sublv.Text = NIP.Text
        sublv.SubItems.Add(NAMA.Text)
        sublv.SubItems.Add(JABATAN.Text)
        sublv.SubItems.Add("RP. " & GAJI.Text)
        sublv.SubItems.Add(STATUS.Text)
        sublv.SubItems.Add("RP. " & ISTRI.Text)
        sublv.SubItems.Add(" RP. " & TUNJA.Text)
        sublv.SubItems.Add(ANAK.Text)
        sublv.SubItems.Add("RP. " & PAJAK.Text)
        sublv.SubItems.Add(JAM.Text)
        sublv.SubItems.Add("RP. " & TLEMBUR.Text)
        sublv.SubItems.Add("RP. " & TOTAL.Text)
        LV.Items.Add(sublv)
    End Sub

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

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NIP.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        ISTRI.Text = ""
        TUNJA.Text = ""
        ANAK.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
        NIP.Focus()
    End Sub

    Private Sub TUNJA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ISTRI.TextChanged
        ISTRI.Text = GAJI.Text * 0.9
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANAK.TextChanged
        If ANAK.Text = "1" Then
            TUNJA.Text = GAJI.Text * 0.3
        ElseIf ANAK.Text = "2" Then
            TUNJA.Text = GAJI.Text * 0.7
        ElseIf ANAK.Text >= 2 Then
            TUNJA.Text = GAJI.Text * 0.7

        End If
    End Sub

    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged
        If JABATAN.Text = "STAF" Then
            TLEMBUR.Text = JAM.Text * 5000
        ElseIf JABATAN.Text = "KABAG" Then
            TLEMBUR.Text = JAM.Text * 10000
        ElseIf JABATAN.Text = "MANDOR" Then
            TLEMBUR.Text = JAM.Text * 7500


        Else
            TLEMBUR.Text = 0
        End If
        TOTAL.Text = Val(GAJI.Text) + Val(ISTRI.Text) + Val(TUNJA.Text) + Val(TLEMBUR.Text) - Val(PAJAK.Text)
    End Sub

 
End Class