sedikit mengenai Delphi

Sejarah Bahasa Pemrograman Delphi

Delphi merupakan salah satu jenis bahasa pemrograman yang fleksibel penggunaannya untuk mengembangkan aplikasi program underWindows dengan tampilan yang smooth seperti pada Sistem Operasi Windows itu sendiri..

Mendengar kosakata Delphi mungkin orang sudah tidak asing dengan nama ini yang memang menggunakan kosakata bahasa Yunani. Konon dalam sejarah mitologi Yunani, Delphi adalah kuil yang dibangun untuk menyembah Dewa Apollo, salah satu Dewa yang disegani oleh orang-orang Yunani selain Dewa-Dewa lain seperti Jupiter, Titan dan lain sebagainya.

Borland sebagai pengembang perangkat lunak yang sudah ada sejak era 1980′an menggunakan ikon dan nama Delphi sebagai salah satu perangkat lunak pembantu pemrograman untuk membuat program yang sudah mengarah ke Pemrograman Yang Berorientasi pada Objek atau dikenal dengan istilah OOP (Object Oriented Programming).

Semenjak zaman produk-produk “turbo” dengan Turbo Pascal, Turbo/Borland C/C++, Turbo Assembler
belasan tahun silam hingga RAD Tool Delphi, C++ Builder saat ini. Kesemua jajaran produk borland tersebut pernah berjaya sebagai produk-produk unggulan di masanya.

 

Perjalanan Panjang Delphi

 

Mengenal Delphi berarti kita harus melakukan perjalanan ulang (flash-back), dimana Delphi sendiri sudah melalui perjalanan panjang nan berliku-liku dan ujian dalam sejarahnya hingga dapat hadir dan dipakai hingga saat ini.

Pertama, dimulai dengan ide brilian Prof. Niclaus Wirth yang mengemukakan paparan tentang Struktur Data dan Algoritma (Algorthm and Data Structure). Prof. Niklaus Wirth menerjemahkan paparan ini yang kemudian dikristalisasi ke dalam bahasa yang populer dan digunakan pertama kalinya sebagai bahasa yang berorientasi pada hal-hal yang Science dan Ilmiah yaitu Pascal. Pascal sendiri kemudian distandarisasi ke dalam ANSI PASCAL (Pascal umum) oleh badan standarisasi Amerika Serikat (ANSI).

Kemudian, 20 Nopember 1983, Borland melakukan riset untuk menerjemahkan ide dari kristalisasi ANSI Pascal (Pascal yang distandarisasi) yang kemudian menelurkan kompiler Pascal ke dalam pengembangan perangkat lunaknya yaitu Turbo Pascal 1.0. Turbo Pascal 1.0 berjalan pada sistem operasi PC/MS DOS dengan keterabatasan memory yang saat itu bisa berjalan pada ukuran 1 Mbyte saja.

Pada 17 April 1984, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 1.0 menjadi Turbo Pascal 2.0.

Pada 17 September 1986, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 2.0 menjadi Turbo Pascal 3.0.

Pada 20 Nopember 1987, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 3.0 menjadi Turbo Pascal 4.0

Pada 24 Agustus 1988, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 4.0 menjadi Turbo Pascal 5.0

Pada 2 Mei 1989, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 5.0 menjadi Turbo Pascal 5.5

Pada 23 Oktober 1990, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 5.5 menjadi Turbo Pascal 6.0

Pada 13 Pebruari 1991, Borland melakukan migrasi perangkat lunaknya ke dalam platform sistem operasi Microsoft Windows dengan menelurkan produk Turbo Pascal for Windows 1.0.

Pada 8 Juni 1992, Borland merevisi ulang perangkat lunak Turbo Pascal for Windows 1.0 menjadi Turbo Pascal for Windows 1.5

Pada 27 Oktober 1992, Borland melakukan revitalisasi Turbo Pascal 6.0 dan mengarahkan platform perangkat lunaknya menuju pemrograman berorientasi pada objek dengan menelurkan produk Borland Pascal 7.0 (With Objects).

Pada 14 Pebruari 1995, bertepatan dengan hari Valentine, untuk pertama kalinya dalam sejarah Borland menelurkan produk terbarunya, yang merupakan gabungan pengembangan Turbo Pascal for Windows 1.5 dan Borland Pascal 7.0 (With Objects) dengan menerlurkan Borland Delphi for Windows 95 atau Borland Delphi 1.0. Delphi versi ini berjalan pada Windows 3.1 atau Windows 16 bit.

Pada 10 Pebruari 1996, setahun setelah kelahiran Delphi 1.0, Borland kembali merevisi ulang perangkat lunak ini dan menelurkan produkBorland Delphi 2.0. Delphi versi ini berjalan pada Windows 95 atau Delphi 32 bit.

Tanggal 5 Agustus 1997, Borland kembali merevisi ulang Delphi 2.0 dan menelurkan produk Borland Delphi 3.0. Delphi versi ini berjalan pada Windows 95 ke atas dengan tambahan fitu rinternet atau web.

Pada 17 Juni 1998, Borland kembali merevisi ulang Delphi 3.0 dan menelurkan produk Borland Delphi 4.0.

Pada 10 Agustus 1999, Borland kembali merevisi ulang Delphi 4.0 dan menelurkan produk Borland Delphi 5.0.

Pada 21 Mei 2001, Borland kembali merevisi ulang Delphi 5.0 dan menelurkan produk Borland Delphi 6.0.

Pada 9 Agustus 2002, Borland kembali merevisi ulang Delphi 6.0 dan menelurkan produk Borland Delphi 7.0.

Pada 22 Desember 2003 bertepatan dengan The Mother Day alias Hari Ibu Nasional, Borland melakukan migrasi untuk memindahkan platform Delphi ke arah pemrograman .NeT (dot NET) dengan menelurkan produkBorland Delphi 8.0 for .NET.

Pada 12 Oktober 2004, Borland menggabungkan pengembangan perangkat lunak C# dan Delphi ke dalam satu kendali Integrated Develompment and Environment (IDE) dengan menelurkan produkBorland Delphi 2005.

Pada 10 Oktober 2005, Borland kembali merevisi ulang perangkat lunakn Delphi 2005 ke dalam perangkat lunak baru Borland Delphi Studio 2006.

Semua info sejarah ini diambil dari History of Delphi.

Beberapa kelebihan bahasa programan Delphi:
1. Komponen dapat dipakai ulang dan dapat dikembangkan
Delphi mempermudah pembuatan program bagi komponen-komponen Windows seperti label, button dan bahkan dialog dan lainnya. Komponen ini dapat diatur sesuai dengan kebutuhan kita si pembuat program.

2. Dapat mengakses VBX.
Dengan Delphi kita dapat langsung mengakses komponen VBX yang sudah merupakan satu kesatuan dan dapat langsung digunakan .

3. Template Aplikasi dan template Form
Dalam Delphi telah didefinisikan template aplikasi dan template Form yang dapat dipakai untuk membuat semua form aplikasi dengan lebih cepat.

4. Lingkungan pengembang Delphi
Lingkungan yang disedia pada Delphi sangat mudah untuk digunakan dalam pengembangan aplikasi yang produktif.

5. Program terkompilasi.
Kebanyakan lingkungan pengembang visual pada windows menyatakan dapat mengkompilasi program. Namun sebenarnya mereka hanya dapat mengkompilasi sebagian program dan kemudian mengabungkan interpreter dan pcode dalam sebuah file. Dengan cara ini akan menghasilkan aplikasi dengan eksekusi yang lambat. Namun dengan pemrograman delphi output yang dihasilkannya merupakan file yang benar-benar terkompilasi tanpa interpreter dan pcode sehinga dapat berjalan lebih cepat. Program Delphi yang kecil dapat diserahkan dalam bentuk sebuah file EXE tanpa harus menyertakan file DLL.

6. Kemampuan mengakses data dalam bermacam format.
Dalam Delphi terdapat BDE ( Borland Database Engine) yang digunakan untuk mengakses format file data yang ada. BDE telah melalui beberapa tahap pengembangan, yang sebelumnyaBDE dikenal dengan ODAPI , kemudian IDAPI. Sekarang BDE sudah menjadi standar untuk akses semua jenis data yang ada saat ini. BDE juga dapat mengakses Database Client / Server seperti Sybase, SQL Server, Oracle dan Borland Interbase. Bila dibandingkan dengan microsoft ODBC , BDE lebih unggul dalam hal unjuk kerjannya, hal ini karena BDE memiliki bentuk yang lebih mendekati format database tujuannya.

http://rajarayu.blogspot.com/2013/01/delphi.html

Indahnya ISLAM

Rasulullah dan Pengemis Yahudi Buta

Assalamu'alaikum warahmatullah wabarokaatuh

Di sudut pasar Madinah Al-Munawarah seorang pengemis Yahudi buta hari demi hari apabila ada orang yang mendekatinya ia selalu berkata "Wahai saudaraku jangan dekati Muhammad, dia itu orang gila, dia itu pembohong, dia itu tukang sihir, apabila kalian mendekatinya kalian akan dipengaruhinya". Setiap pagi Rasulullah SAW mendatanginya dengan membawa makanan, dan tanpa berkata sepatah kata pun Rasulullah SAW menyuapi makanan yang dibawanya kepada pengemis itu walaupun pengemis itu selalu berpesan agar tidak mendekati orang yang bernama Muhammad. Rasulullah SAW melakukannya hingga menjelang Beliau SAW wafat. Setelah kewafatan Rasulullah tidak ada lagi orang yang membawakan makanan setiap pagi kepada pengemis Yahudi buta itu.

Suatu hari Abubakar r.a berkunjung ke rumah anaknya Aisyah r.ha. Beliau bertanya kepada anaknya, "anakku adakah sunnah kekasihku yang belum aku kerjakan", Aisyah r.ha menjawab pertanyaan ayahnya, "Wahai ayah engkau adalah seorang ahli sunnah hampir tidak ada satu sunnah pun yang belum ayah lakukan kecuali satu sunnah saja". "Apakah Itu?", tanya Abubakar r.a. Setiap pagi Rasulullah SAW selalu pergi ke ujung pasar dengan membawakan makanan untuk seorang pengemis Yahudi buta yang berada di sana", kata Aisyah r.ha.

Ke esokan harinya Abubakar r.a. pergi ke pasar dengan membawa makanan untuk diberikannya kepada pengemis itu. Abubakar r.a mendatangi pengemis itu dan memberikan makanan itu kepada nya. Ketika Abubakar r.a. mulai menyuapinya, si pengemis marah sambil berteriak, "siapakah kamu ?". Abubakar r.a menjawab, "aku orang yang biasa". "Bukan !, engkau bukan orang yang biasa mendatangiku", jawab si pengemis buta itu. Apabila ia datang kepadaku tidak susah tangan ini memegang dan tidak susah mulut ini mengunyah. Orang yang biasa mendatangiku itu selalu menyuapiku, tapi terlebih dahulu dihaluskannya makanan tersebut dengan mulutnya setelah itu ia berikan pada ku dengan mulutnya sendiri", pengemis itu melanjutkan perkataannya.

Abubakar r.a. tidak dapat menahan air matanya, ia menangis sambil berkata kepada pengemis itu, aku memang bukan orang yang biasa datang pada mu, aku adalah salah seorang dari sahabatnya, orang yang mulia itu telah tiada. Ia adalah Muhammad Rasulullah SAW. Setelah pengemis itu mendengar cerita Abubakar r.a. ia pun menangis dan kemudian berkata, benarkah demikian?, selama ini aku selalu menghinanya, memfitnahnya, ia tidak pernah memarahiku sedikitpun, ia mendatangiku dengan membawa makanan setiap pagi, ia begitu mulia.... Pengemis Yahudi buta tersebut akhirnya bersyahadat dihadapan Abubakar r.a.

Sumber : http://akew33.mywapblog.com/rasulullah-dan-pengemis-yahudi-buta.xhtml

Tugas Mahasiswa

Public Class Form1

    Sub addnik()

        With nik

            .Items.Add("001")

            .Items.Add("002")

            .Items.Add("003")

        End With

    End Sub

    Sub rancangtabel()

        With LV

            .Columns.Add("NIK", 100, HorizontalAlignment.Center)

            .Columns.Add("Nama", 100, HorizontalAlignment.Center)

            .Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

            .Columns.Add("Gaji", 100, HorizontalAlignment.Center)

            .Columns.Add("Status", 100, HorizontalAlignment.Center)

            .Columns.Add("Tunj.Keluarga", 100, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 100, HorizontalAlignment.Center)

            .Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

            .GridLines = True

            .View = View.Details

            .FullRowSelect = True

        End With

    End Sub

    Sub isitabel()

        Dim x As New ListViewItem

        x.Text = nik.Text

        x.SubItems.Add(nama.Text)

        x.SubItems.Add(jabatan.Text)

        x.SubItems.Add(gaji.Text)

        x.SubItems.Add(status.Text)

        x.SubItems.Add(tunj_keluarga.Text)

        x.SubItems.Add(pajak.Text)

        x.SubItems.Add(total_gaji.Text)

        LV.Items.Add(x)

    End Sub

    Sub addjabatan()

        With jabatan

            .Items.Add("Mandor")

            .Items.Add("Kepala Bagian")

            .Items.Add("Staf")

        End With

    End Sub

    Sub addstatus()

        With status

            .Items.Add("menikah")

            .Items.Add("Belum menikah")

        End With

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        addjabatan()

        addnik()

        addstatus()

        rancangtabel()

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "Mandor" : gaji.Text = 1750000

            Case "Kepala Bagian" : gaji.Text = 2500000

            Case "Staf" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.15 * gaji.Text

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "001" : nama.Text = "susy"

            Case "002" : nama.Text = "munthe"

            Case "003" : nama.Text = " radawi"

        End Select

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "menikah"

                tunj_keluarga.Text = 0.15 * gaji.Text

            Case "Belum Menikah"

                tunj_keluarga.Text = 0

                tunj_keluarga.Text = "0"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles proses.Click

        total_gaji.Text = Val(gaji.Text) + Val(tunj_keluarga.Text) - Val(pajak.Text)

    End Sub

    Private Sub baru_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles baru.Click

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj_keluarga.Text = ""

        pajak.Text = ""

        total_gaji.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

End Class

Dan Hasilnya :