Bubble 01 - Bubble 05 pada program sorting

PROGRAM SORTING
Berikut adalah kumpulan Bubble pada pemrograman, dapat digunakan dalam pemrograman vb maupun delphi.
Fungsi dari Bubble sendiri adalah untuk program sorting data atau yang disebut dengan mengurutkan data dari yang terkecil ke terbesar(ascending) maupun sebaliknya.
1. Bubble 01:

Sub Bubble01()
        Dim X, Y, C As Integer
        For X = 1 To N - 1
            For Y = X + 1 To N
                If AR(X) < AR(Y) Then
                    C = AR(X)
                    AR(X) = AR(Y)
                    AR(Y) = C
                End If
            Next
        Next
    End Sub

 Dituliskan pada Buttonnya, berikut coding dibawah :

Bubble01()
        T = ""
        For X = 1 To N
            T += Trim(Str(AR(X))) & "  "
        Next
        TextBox2.Text = T
    End Sub

2. Bubble 02 :
   Sub Bubble02()
        Dim X, Y, C As Integer
        For X = 1 To N
            For Y = 1 To N - X
                If AR(Y) > AR(Y + 1) Then       'ascending
                    C = AR(Y)
                    AR(Y) = AR(Y + 1)
                    AR(Y + 1) = C
                End If
            Next Y
        Next X

    End Sub
Dituliskan pada Buttonnya, berikut coding dibawah :
Bubble02()
        T = ""
        For X = 1 To N
            T += Trim(Str(AR(X))) & "  "
        Next
        TextBox2.Text = T
    End Sub

3. Bubble 03  atau With Flag:
    Sub Bubble03()
        Dim X, Y, C, F As Integer
        X = 0
        Do
            F = 0
            X = X + 1
            For Y = 1 To N - X
                If AR(Y) > AR(Y + 1) Then       'ascending
                    C = AR(Y)
                    AR(Y) = AR(Y + 1)
                    AR(Y + 1) = C
                    F = 1
                End If
            Next Y
        Loop Until F = 0

    End Sub

Dituliskan pada Buttonnya, berikut coding dibawah :
Bubble03()
        T = ""
        For X = 1 To N
            T += Trim(Str(AR(X))) & "  "
        Next
        TextBox2.Text = T

4. Bubble 04 atau Select Sort:
Sub Bubble04()
        Dim X, Y, C, S As Integer
        For X = 1 To N - 1
            S = X
            For Y = X + 1 To N
                If AR(S) < AR(Y) Then S = Y 'descending
            Next Y
            If S <> X Then
                C = AR(S)
                AR(S) = AR(X)
                AR(X) = C
            End If
        Next X

    End Sub
 

Dituliskan pada Buttonnya, berikut coding dibawah :

Bubble04()
        T = ""
        For X = 1 To N
            T += Trim(Str(AR(X))) & "  "
        Next
        TextBox2.Text = T

5. Bubble 05 atau Shell Sort:
Sub Bubble05()
        Dim X, Y, C, G, F As Integer
        G = N \ 2
        While G > 0
            Do
                F = 0
                For X = 1 To N - G
                    If AR(X) > AR(X + G) Then       'ascending
                        C = AR(X)
                        AR(X) = AR(X + G)
                        AR(X + G) = C
                        F = 1
                    End If
                Next X
            Loop Until F = 0
            G = G \ 2
        End While

    End Sub

 

Dituliskan pada Buttonnya, Coding dibawah ini :
Bubble05()
        T = ""
        For X = 1 To N
            T += Trim(Str(AR(X))) & "  "
        Next
        TextBox2.Text = T

Demikian informasi tentang Bubble Sort. Semoga bermanfaat. n


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Natal

Sekarang kita membahas tentang pengertian dari perayaan Hari raya umat Kristiani, yaitu Natal.
Pengertian Natal
Christmas atau Natal berasal dari kata Cristes maesse, frase dalam Bahasa Inggris yang berarti Mass of Christ (Misa Kristus). Kata Christmas juga sering disingkat menjadi Xmas. Dalam bahasa Yunani, X adalah kata pertama dalam nama Kristus (Yesus).
Huruf ini sering digunakan sebagai simbol suci. Natal adalah hari raya umat Kristiani untuk memperingati hari kelahiran Yesus Kristus. Tidak ada yang tahu tanggal berapa tepatnya hari lahir Kristus, namun kebanyakan orang Kristen memperingati Hari Natal pada tanggal 25 Desember.
Pada hari itu, banyak yang pergi ke gereja untuk mengikuti perayaan keagamaan khusus. Selama masa Natal, mereka bertukar kado dan menghiasi rumah mereka dengan pohon Natal. Di sini pakai pohon cemara ya.

Sejarah Natal
Kisah Natal (Christmas) berasal dari Injil Santo Lukas dan Santo Matius dalam Perjanjian Baru. Menurut Lukas, seorang malaikat memunculkan diri kepada para gembala di luar kota Betlehem dan mengabari mereka tentang lahirnya Yesus.
Matius juga menceritakan bagaimana orang-orang bijak, yang disebut para majus, mengikuti bintang terang yang menunjukkan kepada mereka di mana Yesus berada. Catatan pertama peringatan hari Natal adalah tahun 336 Sesudah Masehi pada kalender Romawi kuno, yaitu pada tanggal 25 Desember.
Perayaan ini kemungkinan besar dipengaruhi oleh perayaan orang kafir (bukan Kristen) pada saat itu. Sebagai bagian dari perayaan tersebut, masyarakat menyiapkan makanan khusus, menghiasi rumah mereka dengan daun-daunan hijau, menyanyi bersama dan tukar-menukar hadiah.
Kebiasaan-kebiasaan itu lama-kelamaan menjadi bagian dari perayaan Natal. Pada akhir tahun 300-an Masehi agama Kristen menjadi agama resmi Kekaisaran Romawi. Di tahun 1100 Natal telah menjadi perayaan keagamaan terpenting di Eropa, di banyak negara-negara di Eropa dengan Santo Nikolas sebagai lambang usaha untuk saling memberi. Hari Natal semakin tenar hingga masa Reformasi, suatu gerakan keagamaan di tahun 1500-an .
Gerakan ini melahirkan agama Protestan. Pada masa Reformasi, banyak orang Kristen yang mulai menyebut Hari Natal sebagai hari raya kafir karena mengikutsertakan kebiasaan tanpa dasar keagamaan yang sah. Pada tahun 1600-an, karena adanya perasaan tidak enak itu, Natal dilarang di Inggris dan banyak koloni Inggris di Amerika.
Namun, masyarakat tetap meneruskan kebiasaan tukar-menukar kado dan tak lama kemudian kembali kepada kebiasaan semula. Pada tahun 1800-an, ada dua kebiasaan baru yang dilakukan pada hari Natal, yaitu menghias pohon Natal dan mengirimkan kartu kepada sanak saudara dan teman-teman.
Di Amerika Serikat, Santa Claus (Sinterklas) menggantikan Santo Nikolas sebagai lambang usaha untuk saling memberi. Sejak tahun 1900-an, perayaan Natal menjadi semakin penting untuk berbagai bisnis.

Pemilihan tanggal 25 Desember
Tidak ada satu orang pun tahu persis kapan tanggal lahirnya Yesus!
Diperkirakan, Yesus lahir sekitar tahun ke-3 atau ke-4 SM. Tetapi tidak ada yang tahu persis tanggalnya.
What is known is that Christian leaders in 336 C.E. set the date to December 25 in an attempt to eclipse a popular pagan holiday in Rome (Saturnalia) that celebrated Natalis Solis Invincti, or “Birthday of the Invincible Sun God,” on the winter solstice. One mid-fourth century church theologian later wrote “We hold this day holy, not like the pagans because of the birth of the sun, but because of him who made it”
      Natal sesungguhnya perayaan publik zaman Romawi kuno. Dulunya, natal adalah sebuah perayaan yang disebut Natalis Solis Invincti, yakni perayaan kembalinya matahari yang sudah sekian lama tidak muncul setelah musim dingin yang begitu panjang.
Ketika matahari itu mulai kembali, peristiwa itu yang dirayakan. Namun teologis gereja mengatakan, “Kita menguduskan hari ini, tidak seperti kaum pagan merayakan kelahiran matahari, tetapi karena dia yang menciptakannya.”

Perayaan
Bagi kebanyakan orang Kristen, masa Xmas mulai pada hari Minggu yang paling dekat dengan tanggal 30 November. Hari ini adalah hari raya Santo Andreas, salah satu dari keduabelas rasul Kristus. Hari Minggu tersebut disebut hari pertama masa Adven, yaitu masa 4 minggu saat umat Kristiani mempersiapkan perayaan Natal.
Kata adven berarti datang, dan mengacu pada kedatangan Yesus pada hari Natal. Untuk merayakan masa Adven, empat buah lilin, masing-masing melambangkan hari Minggu dalam masa Adven, diletakkan dalam suatu lingkaran daun-daunan.
Pada hari Minggu pertama, keluarga menyalakan satu lilin dan bersatu dalam doa. Mereka mengulangi kegiatan ini setiap hari Minggu dalam masa Adven, dengan menambahkan satu lilin lagi setiap kalinya. Sebuah lilin merah besar yang melambangkan Yesus, ditambahkan pada lingkaran daun-daunan itu pada Hari Natal.
Untuk kebanyakan umat Kristiani, masa Adven memuncak pada Misa tengah malam atau peringatan keagamaan lain pada malam sebelum Natal (Malam Natal), tanggal 24 Desember. Gereja-gereja dihiasi dengan lilin, lampu, dan daun-daunan hijau dan bunga pointsettia.
Kebanyakan gereja juga mengadakan perayaan pada hari Natal. Masa Natal berakhir pada hari Epifani, tanggal 6 Januari. Untuk gereja Kristen Barat, Epifani adalah datangnya para majus di hadirat bayi Yesus. Menurut umat Kristen Timur, hari tersebut adalah perayaan pembaptisan Kristus. Epifani jatuh 12 hari setelah hari Natal.

Tukar Kado
Kebiasaan untuk tukar menukar kado pada sanak-saudara dan teman-teman pada hari khusus di musim dingin kemungkinan bermula di Romawi Kuno dan Eropa Utara. Di daerah-daerah tersebut, orang-orang memberikan hadiah pada satu sama lain sebagai bagian dari perayaan akhir tahun.
Pada tahun 1100, di banyak negara-negara Eropa, Santo Nikolas menjadi lambang usaha saling memberi. Menurut legenda, Santo Nikolas membawakan hadiah-hadiah untuk anak-anak pada malam sebelum perayaannya, tanggal 6 Desember.
Tokoh-tokoh yang bukan keagamaan menggantikan Santo Nikolas di berbagai negara tak lama setelah reformasi, dan tanggal 25 Desember menjadi hari untuk tukar-menukar kado. Kini di Amerika Serikat, Santa Claus membawakan hadiah untuk anak-anak.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Idul Fitri

Sebagai umat Islam, selain kita melaksanakan hari raya Idul Adha kita juga merayakan hari raya Idul Fitri. Idul Fitri merupakan hari dimana seluruh umat berbondong - bondong untuk meminta maaf dan saling memaafkan satu sama lain. Hari ini juga dikenal sebagai hari membersihkan hati kita dari noda - noda dosa, seperti noda dari perkataan, perbuatan dll.
Disinilah, Allah memberikan kesempatan kepada kita untuk saling membersihkan dengan cara saling memaafkan. Biasanya malam - malam hari raya kita melaksanakan takbiran yang sangat meriah dan ramai sekali. Takbiran itu berlangsung sampai menjelang subuh. Setelah itu kita juga melaksanakan shalat Ied.

Sedangkan menurut bahasa Idul Fitri memiliki arti sebagai berikut :
Idul Fitri (Bahasa Arab: عيد الفطر ‘Īdu l-Fir) adalah hari raya umat Islam yang jatuh pada tanggal 1 Syawal pada penanggalan Hijriyah. Karena penentuan 1 Syawal yang berdasarkan peredaran bulan tersebut, maka Idul Fitri atau Hari Raya Puasa jatuh pada tanggal yang berbeda-beda setiap tahunnya apabila dilihat dari penanggalan Masehi. Cara menentukan 1 Syawal juga bervariasi, sehingga boleh jadi ada sebagian umat Islam yang merayakannya pada tanggal Masehi yang berbeda. Pada tanggal 1 Syawal, umat Islam berkumpul pada pagi hari dan menyelenggarakan Salat Ied bersama-sama di masjid-masjid, di tanah lapang, atau bahkan jalan raya (terutama di kota besar) apabila area ibadahnya tidak cukup menampung jamaah. Dan sebelum salai ied di lakukan imam mengingatkan siapa yang belum membayar zakat fitrah, sebab kalau selesai salat ied baru membayar zakatnya hukum nya sodakoh biasa bukan zakat.


Idul Fitri menandai berakhirnya puasa pada bulan Ramadhan.
Salat Idul Fitri biasanya dilakukan di lapangan. Adapun hukum dari Salat Idul Fitri ini adalah sunnah mu'akkad. Sebelum salat, kaum muslimin mengumandangkan takbir. Adapun takbir adalah sebagai berikut:
Arab
Latin
Terjemahan
الله أكبر الله أكبر الله أكبر
Allahu akbar, Allahu akbar, Allahu akbar
Allah Maha Besar, Allah Maha Besar, Allah Maha Besar
لا إله إلا الله
la ilaha illa Allah
Tidak ada Tuhan selain Allah
الله أكبر الله أكبر
Allahu akbar, Allahu akbar
Allah Maha Besar, Allah Maha Besar
ولله الحمد
wa li-illahi al-hamd
Segala puji hanya bagi Allah
Takbir mulai dikumandangkan setelah bulan Syawal dimulai. Selain menunaikan Salat Sunnah Idul Fitri, kaum muslimin juga harus membayar  zakat fitrah sebanyak 2,7 kilogram bahan pangan pokok. Tujuan dari zakat fitrah sendiri adalah untuk memberi kebahagiaan pada kaum fakir miskin. Kemudian, Khutbah diberikan setelah Salat Idul Fitri berlangsung, dan dilanjutkan dengan do'a. Setelah itu, kaum muslimin saling bermaaf-maafan. Terkadang beberapa orang akan berziarah mengunjungi kuburan.
 
Hidangan ketupat yang biasa disajikan dalam Hari Raya Idul Fitri
Umat Islam di Indonesia menjadikan Idul Fitri sebagai hari raya utama, momen untuk berkumpul kembali bersama keluarga, apalagi keluarga yang karena suatu alasan, misalnya pekerjaan atau pernikahan, harus berpisah. Mulai dua minggu sebelum Idul Fitri, umat Islam di Indonesia mulai sibuk memikirkan perayaan hari raya ini, yang paling utama adalah Mudik atau Pulang Kampung, sehingga pemerintah pun memfasilitasi dengan memperbaiki jalan-jalan yang dilalui. Hari Raya Idul Fitri di Indonesia diperingati sebagai hari libur nasional, yang diperingati oleh sebagian besar masyarakat Indonesia yang memang mayoritas Muslim. Biasanya, penetapan Idul Fitri ditentukan oleh pemerintah, namun beberapa ormas Islam menetapkannya berbeda. Idul Fitri di Indonesia disebut dengan Lebaran, dimana sebagian besar masyarakat pulang kampung (mudik) untuk merayakannya bersama keluarga. Selama perayaan, berbagai hidangan disajikan. Hidangan yang paling populer dalam perayaan Idul Fitri di Indonesia adalah ketupat, yang memang sangat familiar di Indonesia, Malaysia, Brunei, dan Singapura. Bagi anak-anak, biasanya para orang tua memberikan uang raya kepada mereka. Selama perayaan, biasanya masyarakat berkunjung ke rumah-rumah tetangga ataupun saudaranya untuk bersilaturahmi, yang dikenal dengan "halal bi-halal", memohon maaf dan keampunan kepada mereka. Beberapa pejabat negara juga mengadakan open house bagi masyarakat yang ingin bersilaturahmi.

 

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS