martuasyah

Jumat, 15 April 2016

16 April 2012-2016

kisah cinta yang begitu indah di tanggal 16 April 2012 awal menjalani hubungan dengan mengungkapkan rasa cinta melalui sms dan telpon kala itu saya mengungkapkan rasa cinta pada tanggal 16 april 2012 pukul 21.42.38 Wib.
Martuasa : mengungkapkan rasa cinta terhadap seorang perempuan yang bernama Asamara Dewi.
paada saat itu cinta dan kasih sayang begitu indah sehingga sms tak pernah terhenti untuk terus mngsms dan begitu juga menelpon tak pernah terhenti .
cinta memang indah kalau dijalani dengan kejujuran . pada saat itu saya martuasa ingin mengajak dia / asmara jalan2 di lukbon kala itu saya mendapatkantantangn harus izin kepada orang tua dan abang ipar serta kakaknya . dengan niat yang baik dan cinta yang tinggi terhadap kekasih saya . saya memberanikan diri untuk minta izin untuk mengajak sang kekasih jalan2 . dan ketika itu alhamdulillah kami akhirnya diperbolehkan untuk jalan2. ketika sampe dilukbon kami mencari tempat untuk mandi di tempat yang begitu ramenya yang di penuhi oleh masyarakat yang berwisata yang menikmati keindahan lukbon. kami pun dengan asyiknya mandi juga bersama orang yang berwisata disana / lukbon. ketika hendak pulang hampir terjadi musibah yang begitu mengagetkan saya kala ketika hendak pulang . air begitu deras sehingga kami menyeberang sungai air lukbon tersebut. ketika hendak menyebrang atau melewati. sang kekasih yang saya cintai terpeleset hingga dan hampir terjatuh dan hanyut mengikuti aliran arus air. syukur alhamdulillah dengan izin Allah saya menggenggam tangan sang kekasih dengan erat. sehingga diapun selamat. akan tetapi barang yang ada di tangan kami hanyut yaitu berupa celana sandal hanyut terbawa arus air. kala itu sang kekasih pun mengejar baju saya yang hanyut. ketiak saya senyum berbicara dalam hati uda syukur dirimu cinta yang selamat malah memikirkan bajuku yang hanyut . akhirnya saya berkata udahlah jngan lagi di kejar kalau kita kejar gak bakalan dapat arus deras sayang . itulah yang saya ungkap padanya. ketika plang dia tertawa melihat saya tidak mempunyai celana hanya celana pendek yang tersisa. kahirnya saya meminjam celananya . dia memberi sambil tertawa ketika melihat saya memakai celannya . dan saya pun ikut tertawa.
tidak lama hubungan kami berjalan ibunda saya meninggal dunia pada tanggal 25 juni 2012 dikala itu tiada tempat untuk saya bersandar bercerita kecuali kepada dia/ asmara . saya bangga terhadapnya yang kala itu datang dan terus memandang saya yang ketika itu saya duduk di samping jenazah almarhumah ibunda saya . sampai saat keliang lahat atau tempat peristrihatan terakhirnya. waktu pun berjalan hari berganti bulan ikut berganti dan tahun pun ikut berganti banyak hal yang terindah yang kami lalui yang tak pernah saya lupakan . di ujung dari kisah cinta kami ketika saya menjemput dia bekerja. pada tanggal 9 oktober 2015 kala kami hendak plang saya membawa 2 hp.untuk hp yang satu untuk membantu teman satu kampus untuk menyiapkan skripsinya tiba2 kantong saya diperiksa oleh sang kekasih tercinta kala itu dia santai dan ini siapa saya menjawab ngak tahu. ketiak ata perkataan dengan seorang yang pernah saya ucapkanatau teman dekat ketika waktu di medan dan diapun"asmara bertanya kok dia kenal yang namaya ini dan dia pun marah kala itu memang saya takut atas kemarhannya karena saya sangat mncintai dia/asmara akhirnya saya membohonginya dengan kata saya tidak mngenalnya.terpaksa saya membohonginya karena saya takut kehilangannya. ketika saya membohonginya dia marah kepada saya. tapi saya tidak ada niat untuk menduakannya saya hany bercanda memanggil sayang kepada teman satu kampus karena saya menganggap hanya sebatas teman bukan lebih. tapi di tanggal 16 april 2016 kami tidak bersama lagi hanya kisah2 cinta kami yang indah inlah yang membuat saya sadar arti dari cinta sesungguhnya berulang kali saya meminta bahkan memohon untu kmebali dia hanya diam dan terus diam ketika saya menemuinya dia bilang kalaulah jodoh tidak kemana bahkan kita intropeksi diri. yang saya pertanyakan kenapa sampai seberat ini yang saya rasakan bahkan saya tidak apa dal pikirannya. walaupun begitu saya tetap mencintainya . I WILL ALWAYS SO REMEMBER IT, N I MISS DERA N I LOVE DERA FOREVER

Minggu, 13 Oktober 2013

At-Taubah | Quran-Terjemah.org

Quran Surat At-Taubah Terdiri dari 129 Ayat, Termasuk surat Madaniyyah , Surat ini di turunkan kepada Nabi Muhammad SAW setelah hijrah ke Madinah

بَرَاءَةٌ مِنَ اللَّهِ وَرَسُولِهِ إِلَى الَّذِينَ عَاهَدْتُمْ مِنَ الْمُشْرِكِينَ

(Inilah pernyataan) pemutusan hubungan dari Allah dan Rasul-Nya (yang dihadapkan) kepada orang-orang musyrikin yang kamu (kaum muslimin) telah mengadakan perjanjian (dengan mereka).
(QS: At-Taubah Ayat: 1)

فَسِيحُوا فِي الْأَرْضِ أَرْبَعَةَ أَشْهُرٍ وَاعْلَمُوا أَنَّكُمْ غَيْرُ مُعْجِزِي اللَّهِ ۙ وَأَنَّ اللَّهَ مُخْزِي الْكَافِرِينَ

Maka berjalanlah kamu (kaum musyrikin) di muka bumi selama empat bulan dan ketahuilah bahwa sesungguhnya kamu tidak akan dapat melemahkan Allah, dan sesungguhnya Allah menghinakan orang-orang kafir.
(QS: At-Taubah Ayat: 2)

وَأَذَانٌ مِنَ اللَّهِ وَرَسُولِهِ إِلَى النَّاسِ يَوْمَ الْحَجِّ الْأَكْبَرِ أَنَّ اللَّهَ بَرِيءٌ مِنَ الْمُشْرِكِينَ ۙ وَرَسُولُهُ ۚ فَإِنْ تُبْتُمْ فَهُوَ خَيْرٌ لَكُمْ ۖ وَإِنْ تَوَلَّيْتُمْ فَاعْلَمُوا أَنَّكُمْ غَيْرُ مُعْجِزِي اللَّهِ ۗ وَبَشِّرِ الَّذِينَ كَفَرُوا بِعَذَابٍ أَلِيمٍ

Dan (inilah) suatu permakluman daripada Allah dan Rasul-Nya kepada umat manusia pada hari haji akbar bahwa sesungguhnya Allah dan Rasul-Nya berlepas diri dari orang-orang musyrikin. Kemudian jika kamu (kaum musyrikin) bertobat, maka bertaubat itu lebih baik bagimu; dan jika kamu berpaling, maka ketahuilah bahwa sesungguhnya kamu tidak dapat melemahkan Allah. Dan beritakanlah kepada orang-orang kafir (bahwa mereka akan mendapat) siksa yang pedih.
(QS: At-Taubah Ayat: 3)

إِلَّا الَّذِينَ عَاهَدْتُمْ مِنَ الْمُشْرِكِينَ ثُمَّ لَمْ يَنْقُصُوكُمْ شَيْئًا وَلَمْ يُظَاهِرُوا عَلَيْكُمْ أَحَدًا فَأَتِمُّوا إِلَيْهِمْ عَهْدَهُمْ إِلَىٰ مُدَّتِهِمْ ۚ إِنَّ اللَّهَ يُحِبُّ الْمُتَّقِينَ

kecuali orang-orang musyrikin yang kamu telah mengadakan perjanjian (dengan mereka) dan mereka tidak mengurangi sesuatu pun (dari isi perjanjian)mu dan tidak (pula) mereka membantu seseorang yang memusuhi kamu, maka terhadap mereka itu penuhilah janjinya sampai batas waktunya. Sesungguhnya Allah menyukai orang-orang yang bertakwa.
(QS: At-Taubah Ayat: 4)

فَإِذَا انْسَلَخَ الْأَشْهُرُ الْحُرُمُ فَاقْتُلُوا الْمُشْرِكِينَ حَيْثُ وَجَدْتُمُوهُمْ وَخُذُوهُمْ وَاحْصُرُوهُمْ وَاقْعُدُوا لَهُمْ كُلَّ مَرْصَدٍ ۚ فَإِنْ تَابُوا وَأَقَامُوا الصَّلَاةَ وَآتَوُا الزَّكَاةَ فَخَلُّوا سَبِيلَهُمْ ۚ إِنَّ اللَّهَ غَفُورٌ رَحِيمٌ

Apabila sudah habis bulan-bulan Haram itu, maka bunuhlah orang-orang musyrikin itu dimana saja kamu jumpai mereka, dan tangkaplah mereka. Kepunglah mereka dan intailah ditempat pengintaian. Jika mereka bertaubat dan mendirikan sholat dan menunaikan zakat, maka berilah kebebasan kepada mereka untuk berjalan. Sesungguhnya Allah Maha Pengampun lagi maha Penyayang.
(QS: At-Taubah Ayat: 5)

وَإِنْ أَحَدٌ مِنَ الْمُشْرِكِينَ اسْتَجَارَكَ فَأَجِرْهُ حَتَّىٰ يَسْمَعَ كَلَامَ اللَّهِ ثُمَّ أَبْلِغْهُ مَأْمَنَهُ ۚ ذَٰلِكَ بِأَنَّهُمْ قَوْمٌ لَا يَعْلَمُونَ

Dan jika seorang diantara orang-orang musyrikin itu meminta perlindungan kepadamu, maka lindungilah ia supaya ia sempat mendengar firman Allah, kemudian antarkanlah ia ketempat yang aman baginya. Demikian itu disebabkan mereka kaum yang tidak mengetahui.
(QS: At-Taubah Ayat: 6)

كَيْفَ يَكُونُ لِلْمُشْرِكِينَ عَهْدٌ عِنْدَ اللَّهِ وَعِنْدَ رَسُولِهِ إِلَّا الَّذِينَ عَاهَدْتُمْ عِنْدَ الْمَسْجِدِ الْحَرَامِ ۖ فَمَا اسْتَقَامُوا لَكُمْ فَاسْتَقِيمُوا لَهُمْ ۚ إِنَّ اللَّهَ يُحِبُّ الْمُتَّقِينَ

Bagaimana bisa ada perjanjian (aman) dari sisi Allah dan Rasul-Nya dengan orang-orang musyrikin, kecuali orang-orang yang kamu telah mengadakan perjanjian (dengan mereka) di dekat Masjidil haraam? maka selama mereka berlaku lurus terhadapmu, hendaklah kamu berlaku lurus (pula) terhadap mereka. Sesungguhnya Allah menyukai orang-orang yang bertakwa.
(QS: At-Taubah Ayat: 7)

Page: 12 3 4 5 »10

player

Mendengarkan dan membaca Al-Quran Via Online

Situs Al-Quran Terjemah dengan Reciter/Qori Sheikh Mishary Al afasy dan Sheikh Sa-ad Al-Ghamidi, jika anda menemukan bug atau error, atau kesalahan baik terkait dengan isi konten , performa atau apapun, mohon kesediaannya untuk menghubungi saya di www.haryantoblog.com Atau melalalui Facebook di https://www.facebook.com/QuranTerjemah. Terimakasih atas partisipasinya.

Download Software Quran-Terjemah

Quran-Terjemah.org Telah mengeluarkan software versi windows, sehingga anda bisa membaca dan mendengarkan Al Quran tanpa koneksi internet Info lebih lanjut di sini

File Source

Mp3 Reciter : versebyversequran.com (converted to ogg files)
Database : www.qurandatabase.org

Senin, 10 Desember 2012

Contoh Program Absensi Sederhana Dengan Visual Basic 6.0

Diposting oleh : Hazmi Fadhilah
Kamis, 19 April 2012 - 18:53:08 WIB - Kategori: Pemrograman - Dibaca: 27183 kali

Setelah membahas tentang program simpan, edit dan hapus, pada artikel kali ini saya akan coba membuat program absensi sederhana menggunakan visual basic 6 yang menampilkan perhitungan banyaknya kehadiran dan total tidak masuk siswa, program absensi ini bisa teman-teman kembangkan lagi sesuai dengan kebutuhan, semoga bisa membantu teman-teman yang ingin belajar visual basic.. ^_^

Daripada lama-lama dan tambah bingung, lebih baik kita mulai saja pembahasannya,, :D

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb

Nama Tabel : Absen

Field	Data Type	Size
NRP	Text	10
Nama	Text	35
Jurusan	Text	50
Matkul	Text	50
Masuk	Byte
Sakit	Byte
Izin	Byte
Alpa	Byte
Total	Byte

Setelah membuat database selesai, lalu buat desain form absen seperti ini :

Componen tambahan pada Toolbox :

Adodc dan DataGrid

Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :

1. Public ConN As New ADODB.Connection

2. Public RsAbsen As New ADODB.Recordset

4. Sub koneksi()

5. Set ConN = New ADODB.Connection

6. Set RsAbsen = New ADODB.Recordset

7. ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"

8. End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,

Setelah itu isikan kode berikut pada Form

1. Private Sub Form_Activate()

3. Call koneksi

4. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"

5. Adodc1.RecordSource = "absen"

6. Adodc1.Refresh

7. Set DataGrid1.DataSource = Adodc1

8. DataGrid1.Refresh

9. End Sub

10.

11.Private Sub Form_Load()

12.Text1.Text = ""

13.Text2.Text = ""

14.Combo1.Text = ""

15.Combo2.Text = ""

16.Combo3.Text = ""

17.Label11.Caption = 0

18.Label12.Caption = 0

19.Label13.Caption = 0

20.Label14.Caption = 0

21.Label15.Caption = 0

22.Combo1.AddItem "Sistem Informasi"

23.Combo1.AddItem "Teknik Informatika"

24.Combo1.AddItem "Manajemen Informatika"

25.Combo1.AddItem "Komputer Akuntansi"

26.Combo2.AddItem "Pemprograman Visual I"

27.Combo2.AddItem "Pemprograman Visual II"

28.Combo3.AddItem "Hadir"

29.Combo3.AddItem "Tidak Hadir"

30.Option1.Value = False

31.Option2.Value = False

32.Option3.Value = False

33.Option1.Enabled = False

34.Option2.Enabled = False

35.Option3.Enabled = False

36.Text1.Enabled = False

37.Text2.Enabled = False

38.Combo1.Enabled = False

39.Combo2.Enabled = False

40.Combo3.Enabled = False

41.End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

1. Function CariData()

2. Call koneksi

3. RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN

4. End Function

6. Private Sub TampilkanData()

7. Text2 = RsAbsen!nama

8. Combo1.Text = RsAbsen!jurusan

9. Combo2.Text = RsAbsen!matkul

10.Label11.Caption = RsAbsen!masuk

11.Label12.Caption = RsAbsen!sakit

12.Label13.Caption = RsAbsen!izin

13.Label14.Caption = RsAbsen!alpa

14.Label15.Caption = RsAbsen!total

15.End Sub

16.

17.

18.

19.Private Sub kosong()

20.Text1.Text = ""

21.Text2.Text = ""

22.Combo1.Text = ""

23.Combo2.Text = ""

24.Combo3.Text = ""

25.Label11.Caption = 0

26.Label12.Caption = 0

27.Label13.Caption = 0

28.Label14.Caption = 0

29.Label15.Caption = 0

30.Option1.Value = False

31.Option2.Value = False

32.Option3.Value = False

33.Option1.Enabled = False

34.Option2.Enabled = False

35.Option3.Enabled = False

36.End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

1. Private Sub Text1_LostFocus()

2. On Error Resume Next

3. Call CariData

4. If Not RsAbsen.EOF Then

5. TampilkanData

6. Text1.Enabled = False

7. Text2.Enabled = False

8. Combo1.Enabled = False

9. Combo2.Enabled = False

10. MsgBox "NRP Sudah Ada"

11. Command1.Enabled = False

12. End If

13.End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :

1. Private Sub Combo3_Click()

2. If Combo3.Text = "Hadir" Then

3. Option1.Enabled = False

4. Option2.Enabled = False

5. Option3.Enabled = False

6. Label11.Caption = Val(Label11.Caption) + 1

7. Else

8. Option1.Enabled = True

9. Option2.Enabled = True

10.Option3.Enabled = True

11.End If

12.End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

1. Private Sub Option1_Click()

2. If Option1.Value = True Then

3. Label12.Caption = Val(Label12.Caption) + 1

4. Else

5. Label12.Caption = Val(Label12.Caption) + 0

6. End If

7. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)

8. End Sub

10.Private Sub Option2_Click()

11.If Option2.Value = True Then

12.Label13.Caption = Val(Label13.Caption) + 1

13.Else

14.Label13.Caption = Val(Label13.Caption) + 0

15.End If

16.Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)

17.End Sub

18.

19.Private Sub Option3_Click()

20.If Option3.Value = True Then

21.Label14.Caption = Val(Label14.Caption) + 1

22.Else

23.Label14.Caption = Val(Label14.Caption) + 0

24.End If

25.Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)

26.End Sub

Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :

1. Private Sub Command1_Click() 'Kode Perintah Untuk tombol Simpan

2. Dim SQLSimpan As String

3. SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"

4. ConN.Execute SQLSimpan

5. Form_Activate

6. Call kosong

7. End Sub

10.Private Sub Command2_Click() ' Kode Perintah Untuk tombol Edit

11.If Command2.Caption = "Edit Data" Then

12.Text1.Enabled = False

13. Text2.Enabled = True

14. Combo1.Enabled = True

15. Combo2.Enabled = True

16. Combo3.Enabled = True

17.Command2.Caption = "Edit"

18.Else

19.

20.Dim SQLAbsen As String

21. SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"

22. ConN.Execute SQLAbsen

23. Form_Activate

24. Call kosong

25. Command2.Caption = "Edit Data"

26. End If

27.End Sub

28.

29.Private Sub Command3_Click() 'Kode Perintah Untuk Tombol Absen

30.Dim SQLAbsen As String

31. SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"

32. ConN.Execute SQLAbsen

33. Form_Activate

34. Call kosong

35.End Sub

36.

37.Private Sub Command4_Click() 'KOde Perintah Untuk Tombol Hapus

38.Adodc1.Recordset.Delete

39.Adodc1.Recordset.Update

40.DataGrid1.Refresh

41.End Sub

42.

43.Private Sub Command5_Click() 'Kode Perintah Untuk Tombol Selesai

44.pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")

45.If pesan = vbYes Then

46.Unload Me

47.Else

48.End If

49.End Sub

50.

51.Private Sub Command6_Click() 'Kode Perintah Untuk Tombol Isi Data

52.Text1.Enabled = True

53. Text2.Enabled = True

54. Combo1.Enabled = True

55. Combo2.Enabled = True

56. Combo3.Enabled = True

57. Text1.SetFocus

58.End Sub

Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,

Selamat Mencoba ^_^

Update 4 Mei 2012