Cerkak b.jawa Dhagelan

“DHAGELAN”
    Alhamdulillah yen diparingi sehat, cobo wae bayangna yen suggih kabeh kabutuhan kecukupan. Nduwe omah apik, nduwe mobil, nduwe tivi limo nanging yen mripate belekken lakyo ora wangun tha? Aku banjur kelingan dek dina kamis, dina iku Alhamdulillah aku sehat. Aku menyang sekolah kaya biasane,  aku sekolah ing SMP faforit yaiku SMP Negeri 1 Pengasih. Tekan sekolah aku banjur mlebu kelas, ora kroso bel wis muni, iku tandane pelajaran wis arep dilekasi. 15 menit sakdurunge pelajaran iku tadarus moco Al-Qur’an. Ora kroso anggone jam pelajaran kepisan tekan pelajaran jam ke-telu uwes rampung, saiki wektune istirahat. Aku lan konco-koncoku padha dolanan nang njeron kelas, ngrembug pelajaran karo mangan-mangan. Gandeng kanca-kancaku padha crita pengalamane dhewe-dhewe aku nduwe cerita lucu kanggo kanca-kancaku, judule : “NGADUSI KUCING” saka judule wae wus lucu, kucing kui lak kewan sing wedi karo banyu tha? Genea ngopo kog diadusi?
Ceritane ngene ana bocah cilik jenenge Andi, Andi nduwe ingon-ingon kang awujud kucing, ono ing salah sawijining dina, andi ngomong karo bapakne, “Pak, nyuwun dhuwite?” bapakne banjur takon “arep tok nggo opo to, ndi ?”, Andi njawab “ kangge tumbas RINSO (deterjen) pak” , karo sumeh Bapakne nerusake takon “ wah kog dingaren arep ngumbah klambimu dhewe?”karo rodo bingung Andi Mangsuli pitakone Bapakne, “ ngeten Pak, kula niki gadah kucing, kucinge wau mboten adus pirang-pirang dino, nah…. Kulo tumbas RINSO (deterjent) wau kangge ngadusi kucing kula.” Bapakne ngampet ngguyu “ owalahhh Andi Andi anake Bapak sing bagus dhewe kucingmu kui ojo diadusi, mengko iso mati nek tok adusi”. Andi ngeyel tetep pengen tuku RINSO (deterjent) kanggo ngadusi kucinge, “tak jamin mboten pak”, gandheng Andi ngeyel bapakne banjur menehke duit Rp1000,- “iki ndi cukup tha?” “cukup pak”.
Sakwise ngedusi kucing Andi banjur marani bapakne karo ngomong, “PAAAAKK KUCINGKU MATI” karo ngampet ngguyu bapakne omong “ tenan tha? Opo jare bapak kucingmu kui wedi banyu, lha nek tok adusi yo iso mati” Andi banjur nangis “Pak kucing kula mati mboten amargo tak adusi” , “ lha terus keneng opo kucingmu ki?” pitakone bapakne marang andi. “kucing kula mati amargi kula PERES”. Kanca-kancaku podho ngguyu ger-geran nganti bel masuk wes muni. Rasane seneng banget nek iso nggawe kancaku ngguyu.

contoh Visual Basic Restorant

Private Sub cmdBERSIH_Click()

Option1 = 0

Option2 = 0

Option3 = 0

Option4 = 0

txtHARGA_PORSI = ""

txtJUMLAH_PORSI = ""

txtBAYAR = ""

txtBONUS = ""

txtPOTONGAN = ""

txtTOT_BAYAR = ""

txtPPN = ""

txtUANG_KEMBALI = ""

txtUANG_BAYAR = ""

End Sub

Private Sub cmdEXIT_Click()

a = MsgBox("Yakin ingin Keluar dari form ini?", vbYesNo + vbInformation, "PESAN")

If a = vbYes Then

End

End If

End Sub

Private Sub cmdHITUNG_Click()

txtBAYAR = Val(txtHARGA_PORSI) * Val(txtJUMLAH_PORSI)

If txtJUMLAH_PORSI >= 10 Then

txtBONUS = "3 Porsi"

txtPOTONGAN = Val(txtBAYAR) * 10 / 100

ElseIf txtJUMLAH_PORSI >= 5 Then

txtBONUS = "1 Porsi"

txtPOTONGAN = Val(txtBAYAR) * 5 / 100

Else

txtBONUS = "Tidak Ada Bonus"

txtPOTONGAN = 0

End If

txtPPN = 10 / 100 * (Val(txtBAYAR) - Val(txtPOTONGAN))

txtTOT_BAYAR = (Val(txtBAYAR) - Val(txtPOTONGAN)) + Val(txtPPN)

txtPPN = Format(txtPPN, "currency")

txtPOTONGAN = Format(txtPOTONGAN, "currency")

txtUANG_BAYAR.SetFocus

End Sub

Private Sub Form_Load()

Option1.Value = 0

Option2.Value = 0

Option3.Value = 0

Option4.Value = 0

End Sub

Private Sub Option1_Click()

txtHARGA_PORSI.Text = 7000

txtJUMLAH_PORSI.SetFocus

End Sub

Private Sub Option2_Click()

txtHARGA_PORSI.Text = 9000

txtJUMLAH_PORSI.SetFocus

End Sub

Private Sub Option3_Click()

txtHARGA_PORSI.Text = 12000

txtJUMLAH_PORSI.SetFocus

End Sub

Private Sub Option4_Click()

txtHARGA_PORSI.Text = 5000

txtJUMLAH_PORSI.SetFocus

End Sub

Private Sub Timer1_Timer()

lbljam.Caption = Format(Time, "hh:mm:ss AM/PM")

lbltgl.Caption = Format(Date, "dd:mm:yy")

End Sub

Private Sub txtJUMLAH_PORSI_Change()

'cmdHITUNG.SetFocus

End Sub

Private Sub txtUANG_BAYAR_Change()

txtUANG_KEMBALI = Val(txtUANG_BAYAR) - Val(txtTOT_BAYAR)

End Sub