tugas 2

Private Sub Form_Activate()

Dim c As Integer

c = 1

Do While c < 20

c = c + 2

List1.AddItem c

Loop

End Sub

Baca lebih lanjut

tugas vb

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

Baca lebih lanjut

10 Binatang Menghebohkan di Dunia Olahraga

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:

Baca lebih lanjut

HARAM MEMAKAI CINCIN EMAS DAN SUTRA BAGI LAKI-LAKI

عَنْ عَلِيٍّ رَضِيَ اللَّهُ عَنْهُ قَالَ
أَهْدَى إِلَيَّ النَّبِيُّ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ حُلَّةَ سِيَرَاءَ فَلَبِسْتُهَا فَرَأَيْتُ الْغَضَبَ فِي وَجْهِهِ فَشَقَقْتُهَا بَيْنَ نِسَائِي
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)

Hart: Jabatan Kapten Inggris Bukan Prioritas

Bola.net – Penjaga gawang Manchester City Joe Hart mengecilkan peluangnya untuk menjadi pengganti John Terry sebagai kapten tim nasional Inggris.
Baca lebih lanjut

Messi Adalah Seorang Penyihir

Bola.netLionel Messi kembali menjadi pahlawan Barcelona di laga terakhir kontra Real Sociedad, bahkan pelatih lawan hingga Baca lebih lanjut

سُوۡرَةُ البَقَرَة

بِسۡمِ ٱللهِ ٱلرَّحۡمَـٰنِ ٱلرَّحِيمِ

الٓمٓ (١) ذَٲلِكَ ٱلۡڪِتَـٰبُ لَا رَيۡبَ‌ۛ فِيهِ‌ۛ هُدً۬ى لِّلۡمُتَّقِينَ (٢) ٱلَّذِينَ يُؤۡمِنُونَ بِٱلۡغَيۡبِ وَيُقِيمُونَ ٱلصَّلَوٰةَ وَمِمَّا رَزَقۡنَـٰهُمۡ يُنفِقُونَ (٣) وَٱلَّذِينَ يُؤۡمِنُونَ بِمَآ أُنزِلَ إِلَيۡكَ وَمَآ أُنزِلَ مِن قَبۡلِكَ وَبِٱلۡأَخِرَةِ هُمۡ يُوقِنُونَ (٤) أُوْلَـٰٓٮِٕكَ عَلَىٰ هُدً۬ى مِّن رَّبِّهِمۡ‌ۖ وَأُوْلَـٰٓٮِٕكَ هُمُ ٱلۡمُفۡلِحُونَ (٥) إِنَّ ٱلَّذِينَ كَفَرُواْ سَوَآءٌ عَلَيۡهِمۡ ءَأَنذَرۡتَهُمۡ أَمۡ لَمۡ تُنذِرۡهُمۡ لَا يُؤۡمِنُونَ (٦) خَتَمَ ٱللَّهُ عَلَىٰ قُلُوبِهِمۡ وَعَلَىٰ سَمۡعِهِمۡ‌ۖ وَعَلَىٰٓ أَبۡصَـٰرِهِمۡ غِشَـٰوَةٌ۬‌ۖ وَلَهُمۡ عَذَابٌ عَظِيمٌ۬ (٧) وَمِنَ ٱلنَّاسِ مَن يَقُولُ ءَامَنَّا بِٱللَّهِ وَبِٱلۡيَوۡمِ ٱلۡأَخِرِ وَمَا هُم بِمُؤۡمِنِينَ (٨) يُخَـٰدِعُونَ ٱللَّهَ وَٱلَّذِينَ ءَامَنُواْ وَمَا يَخۡدَعُونَ إِلَّآ أَنفُسَهُمۡ وَمَا يَشۡعُرُونَ (٩) فِى قُلُوبِهِم مَّرَضٌ۬ فَزَادَهُمُ ٱللَّهُ مَرَضً۬ا‌ۖ وَلَهُمۡ عَذَابٌ أَلِيمُۢ بِمَا كَانُواْ يَكۡذِبُونَ (١٠) وَإِذَا قِيلَ لَهُمۡ لَا تُفۡسِدُواْ فِى ٱلۡأَرۡضِ قَالُوٓاْ إِنَّمَا نَحۡنُ مُصۡلِحُونَ (١١) أَلَآ إِنَّهُمۡ هُمُ ٱلۡمُفۡسِدُونَ وَلَـٰكِن لَّا يَشۡعُرُونَ (١٢) وَإِذَا قِيلَ لَهُمۡ ءَامِنُواْ كَمَآ Baca lebih lanjut

سُوۡرَةُ الفَاتِحَة

بِسۡمِ ٱللهِ ٱلرَّحۡمَـٰنِ ٱلرَّحِيمِ (١)

ٱلۡحَمۡدُ لِلَّهِ رَبِّ ٱلۡعَـٰلَمِينَ (٢) ٱلرَّحۡمَـٰنِ ٱلرَّحِيمِ (٣) مَـٰلِكِ يَوۡمِ ٱلدِّينِ (٤) إِيَّاكَ نَعۡبُدُ وَإِيَّاكَ نَسۡتَعِينُ (٥) ٱهۡدِنَا ٱلصِّرَٲطَ ٱلۡمُسۡتَقِيمَ (٦) صِرَٲطَ ٱلَّذِينَ أَنۡعَمۡتَ عَلَيۡهِمۡ غَيۡرِ ٱلۡمَغۡضُوبِ عَلَيۡهِمۡ وَلَا ٱلضَّآلِّينَ (٧)
artinya
In the name of Allah, the Beneficent, the Merciful (1)

Praise be to Allah, Lord of the Worlds, (2) The Beneficent, the Merciful. (3) Owner of the Day of Judgment, (4) Thee (alone) we worship; Thee (alone) we ask for help. (5) Show us the straight path, (6) The path of those whom Thou hast favoured. Not (the path) of those who earn Thine anger nor of those who go astray. (7)

Cara PNS Palsukan Biaya Perjalanan Dinas

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.

QUIS 1 VB


Private Sub cmdbatal_Click()

txtkd.SetFocus

txtkd.Text = “”

txtnama.Text = “”

txtjumlah.Text = “”

txtsisa.Text = “”

txtterjual.Text = “”

txtharga.Text = “”

txttotal.Text = “”

End Sub

Baca lebih lanjut