::Biarkan Anakku Tertawa, Sebelum Tahu Ibunya Sudah Tiada::
Suatu petang ketika orang2 sedang sibuk berebut waktu untuk segera pulang kerumah masing2 setelah melakukan rutinitas pekerjaannya, di sebuah halte busway terlihat seorang bapak dengan 3 anaknya yang masih kecil2.
Mereka sedang menunggu datangnya busway yang sebentar lagi akan membawa mereka pulang.
Ketiga anak itu berusia sekitar 8, 5 dan 3 tahun.
Anak terkecil bagaikan seorang putri, ia begitu cantik dalam dekapan sang bapak. Sedangkan kedua anak lainya yang putra sedang asyik bermain2 kesana kemari. Itulah ciri anak seantero dunia.
Tibalah saatnya busway ditunggu datang.
para penumpang pun seperti robot yang diperintahkan sama bergegas menuju pintu masuk busway, termasuk sang bapak dan ketiga anaknya.
Kemudian keluarga itu dapat duduk di kursi busway yang disusun seperti kereta api listril(KRL). Lalu kedua putranya beranjak dari kursinya dan bermain petak umpet di sela sela tubuh orang dewasa yang sebagian besar mengisi ruang busway itu. mereka sambil berteriak girang.
Terlihat beberapa penumpang yang wajahnya menjadi begitu muram.
Mereka merasa tidak nyaman dengan kegaduhan itu.
Hingga akhirnya ada seorang penumpang pria yang ketus menyatakan protesnya ke sang bapak,
"Pak,tolong anaknya di atur ya, disini kan penumpang juga ingin tenang, sudah capek kerja, eh pulang kok masih aja ada yang ganggu!!".
Lalu sang bapak sambil menggendong putrinya pun menjawabnya dengan senyum,
"Maaf ya mas, ibu mereka baru saja meninggal sore ini di rumah sakit,dan saya belum mengatakan hal ini ke mereka. Nanti begitu sampai rumah saya akan mengatakannya, biarlah mereka merasakan kegembiraan yang menjadi hak mereka, karna saya merasa mereka akan banyak kehilangan kegembiraan setelah tahu bahwa ibu yang biasa mengasuh mereka dan menyayangi mereka setiap saat sudah tidak bersama mereka lagi selamanya, mas tidak keberatan kan, kalau mereka bermain sebentar saja di bus ini?".
Mendengar apa yg dibicarakan sang bapak, sebagian penumpang yang mendengarnya lalu terdiam dan merenung, termasuk sang pria yang baru saja memperotes sang bapak dengan ketus, tiba tiba mereka teringat akan kasih sayang dan kesalahan-kesalahan yang pernah mereka perbuat kepada ibunya.
Diam-diam diantara mereka ada yang menggambil handphone di saku celananya, lalu jari jempolnya membuat bari kalimat, "Ibu apa kabar? besok pagi saya mau pulang menjenguk ibu. Maafkan segala salah saya,ibu"
Kemudian dia mengirimkan sms itu ke nomor ibunya, dan berharap ia masih diberi kesempatan untuk berjumpa dengan ibunya besok...
=>>Raal_21<<=
Rabu, 18 September 2013
Jumat, 13 September 2013
Bagi yang doyan Visual Basic ataupun mau belajar, ini saya kasih satu script untuk membuat Struk Belanja I Hope U Guys Like It!
Dim Bayar As Single
Private Sub cmdBersih_Click()
txtjumlah.Text = ""
txtharga.Text = ""
lblHasil = ""
txtjumlah.SetFocus
End Sub
Private Sub cmdHitung_Click()
Bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
lblHasil = Format (bayar, "Rp ###,###,###") & ",-"
Cmdbersih.Enabled = True
Cmdkeluar.Enabled = True
End Sub
Private Sub cmdkeluar_click()
psn = MsgBox ("Anda yakin akan Keluar", 32 + 4, "Informasi")
If psn = vbYes Then
MsgBox "Terima kasih", 32, "Informasi"
End
Else
If psn = vbNo Then
MsgBox "Lho... Kok Ga jadi", 32, "Informasi"
End If
End If
End Sub
Private Sub Form_Load()
Cmdhitung.Enabled = false
Cmdbersih.Enabled = false
Cmdkeluar.Enabled = false
End Sub
Private Sub txtharga_Change()
bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
On error Resume next
lblhasil = Format (" Rp ") & ",-"
Exit Sub
End Sub
Private Sub txtharga_KeyPress (KeyAscii as integer)
If KeyAscii = 13 then
Cmdhitung.Enabled = True
CmdHitung.SetFocus
Else
If Not (KeyAscii >= Asc("0") And keyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
MsgBox "Hanya Boleh Memasukan angka!", 16, "Informasi"
KeyAscii = 0
End If
End If
End Sub
=>>Raal_21<<=
Dim Bayar As Single
Private Sub cmdBersih_Click()
txtjumlah.Text = ""
txtharga.Text = ""
lblHasil = ""
txtjumlah.SetFocus
End Sub
Private Sub cmdHitung_Click()
Bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
lblHasil = Format (bayar, "Rp ###,###,###") & ",-"
Cmdbersih.Enabled = True
Cmdkeluar.Enabled = True
End Sub
Private Sub cmdkeluar_click()
psn = MsgBox ("Anda yakin akan Keluar", 32 + 4, "Informasi")
If psn = vbYes Then
MsgBox "Terima kasih", 32, "Informasi"
End
Else
If psn = vbNo Then
MsgBox "Lho... Kok Ga jadi", 32, "Informasi"
End If
End If
End Sub
Private Sub Form_Load()
Cmdhitung.Enabled = false
Cmdbersih.Enabled = false
Cmdkeluar.Enabled = false
End Sub
Private Sub txtharga_Change()
bayar = Val(txtjumlah.Text) * Val(txtharga.Text)
On error Resume next
lblhasil = Format (" Rp ") & ",-"
Exit Sub
End Sub
Private Sub txtharga_KeyPress (KeyAscii as integer)
If KeyAscii = 13 then
Cmdhitung.Enabled = True
CmdHitung.SetFocus
Else
If Not (KeyAscii >= Asc("0") And keyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
MsgBox "Hanya Boleh Memasukan angka!", 16, "Informasi"
KeyAscii = 0
End If
End If
End Sub
=>>Raal_21<<=
Langganan:
Postingan (Atom)
