Private Sub Form_Activate()
Dim c As Integer
c = 1
Do While c < 20
c = c + 2
List1.AddItem c
Loop
End Sub
Private Sub Form_Activate()
Dim c As Integer
c = 1
Do While c < 20
c = c + 2
List1.AddItem c
Loop
End Sub
Private Sub cmdbatal_Click()
TxtNAMA.SetFocus
TxtNAMA.Text = “”
txtnpm.Text = “”
txtkls.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbpa.Text = “”
txttotal.Text = “”
End Sub
Kucing Anfield(Reuters/Phil Noble)
Pertandingan Premier League antara Liverpool vs Tottenham Hotspur pada Selasa (7/2 dinihari WIB terpaksa dihentikan sementara akibat seekor kucing masuk dan berlari-lari di lapangan Anfield.
Dalam hitungan jam, kucing itu langsung populer.
Ternyata selain ‘The Anfield Cat’, ada lagi binatang-binatang yang mewarnai sejarah olahraga modern. Berikut ini 9 binatang lain yang mencuri berita utama olahraga, seperti yang dimuat di uk.eurosport.yahoo.com:
عَنْ عَلِيٍّ رَضِيَ اللَّهُ عَنْهُ قَالَ
أَهْدَى إِلَيَّ النَّبِيُّ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ حُلَّةَ سِيَرَاءَ فَلَبِسْتُهَا فَرَأَيْتُ الْغَضَبَ فِي وَجْهِهِ فَشَقَقْتُهَا بَيْنَ نِسَائِي
Ali r.a. berkata: Nabi saw.memberiku hadiah kain dari sutra, lalu aku memakainya, tiba-tiba aku melihat kemarahan di wajah Nabi saw., lalu aku bagi-bagikan kepada istriku. (Bukhari, Muslim)
Bola.net – Penjaga gawang Manchester City Joe Hart mengecilkan peluangnya untuk menjadi pengganti John Terry sebagai kapten tim nasional Inggris.
Baca lebih lanjut
Bola.net – Lionel Messi kembali menjadi pahlawan Barcelona di laga terakhir kontra Real Sociedad, bahkan pelatih lawan hingga Baca lebih lanjut
بِسۡمِ ٱللهِ ٱلرَّحۡمَـٰنِ ٱلرَّحِيمِ
بِسۡمِ ٱللهِ ٱلرَّحۡمَـٰنِ ٱلرَّحِيمِ (١)
Badan Pemeriksa Keuangan (BPK) menemukan adanya biaya perjalanan dinas fiktif atau masih diragukan kebenarannya dalam laporan keuangan Kementerian/ Lembaga (LKKL) tahun 2010. Bagaimana BPK bisa menemukan pemalsuan data-data untuk mendapatkan uang dinas itu?
“Pada audit atas laporan keuangan kementerian/lembaga tahun 2010 yang lalu, BPK banyak menemukan biaya perjalanan dinas fiktif atau paling tidak diragukan kebenarannya,” ujar Wakil Ketua BPK Hasan Bisri kepada detikFinance, Rabu (1/2/2012).
Untuk menindaklanjuti temuan tersebut, lanjut Hasan, Tim BPK melakukan konfirmasi ke Angkasa Pura (bandara) untuk mengecek kebenaran tiket dan boarding pass yang dilampirkan dalam laporan pertanggungjawaban anggaran perjalanan dinas.
“Ternyata banyak tiket yang tidak confirm. Artinya nama dan nomer tiket itu tidak ditemukan dalam manifest penerbangan yang bersangkutan,” jelasnya.
Setelah ditelusuri dan ditanyakan kepada PNS yang melakukan perjalanan dinas, Hasan menyatakan ternyata ada tiga kategori dari penyelewangan tersebut. Pertama para PNS tersebut benar-benar tidak melakukan perjalanan dinas (fiktif).
“Uangnya dikumpulkan sebagai dana taktis, untuk keperluan yang tidak ada anggarannya,” jelasnya.
Kedua, lanjut Hasan, para PNS itu pergi dinas, tetapi memakai maskapai penerbangan yang tiketnya lebih murah.
“Misalnya dalam Surat Perjalanan (SPJ) dilampirkan tiket dan boarding pass Garuda, tapi sebenarnya dia pergi pakai penerbangan lain yang lebih murah. Selisih uangnya mereka pakai,” jelasnya.
Sementara kategori ketiga, Hasan menyebutkan PNS itu melaksakan perjalanan dinas, tapi harinya lebih pendek dari yang tercantum dalam SPJ. Maskapai penerbangan yang dipakai pun juga yang lebih murah dibandingkan tiket dan boarding pass yang dilaporkan.
“Modus lainnya biasanya pada perjalanan dinas rombongan, misalnya dalam surat tugas disebutkan yang pergi 4 orang, tetapi praktiknya yang benar-benar jalan hanya satu orang,” paparnya.
Menanggapi temuan tersebut, Hasan menyatakan BPK memberikan beberapa rekomendasi, seperti mengembalikan selisih biaya yang diterima dari penyelewengan tersebut. Selain itu, oknum PNS yang melakukan diberikan surat peringatan.
“Rekomendasi BPK adalah agar dana dari perjalanan dinas fiktif ditarik kembali dan disetor ke kas negara, dan kepada personal yang bersangkutan diberikan peringatan tertulis,” tegasnya.
Private Sub cmdbatal_Click()
txtkd.SetFocus
txtkd.Text = “”
txtnama.Text = “”
txtjumlah.Text = “”
txtsisa.Text = “”
txtterjual.Text = “”
txtharga.Text = “”
txttotal.Text = “”
End Sub