listview latihan form nilai mahasiswa

Public Class Form1
    Sub buattabel()
        lv.Columns.Add("npm", 80, HorizontalAlignment.Center)
        lv.Columns.Add("nama", 180, HorizontalAlignment.Left)
        lv.Columns.Add("jenjang", 80, HorizontalAlignment.Center)
        lv.Columns.Add("jurusan", 180, HorizontalAlignment.Left)
        lv.Columns.Add("kodedosen", 80, HorizontalAlignment.Center)
        lv.Columns.Add("namadosen", 180, HorizontalAlignment.Left)
        lv.Columns.Add("kodematakuliah", 80, HorizontalAlignment.Center)
        lv.Columns.Add("nilaikehadiran", 180, HorizontalAlignment.Left)
        lv.Columns.Add("nilaitugas", 80, HorizontalAlignment.Center)
        lv.Columns.Add("nilaiuts", 180, HorizontalAlignment.Left)
        lv.Columns.Add("nilaiuas", 80, HorizontalAlignment.Center)
        lv.Columns.Add("nilaiakhir", 180, HorizontalAlignment.Left)
        lv.Columns.Add("nilaihuruf", 80, HorizontalAlignment.Center)
        lv.Columns.Add("keterangan", 180, HorizontalAlignment.Left)

        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.Text = jenjang.Text
        lst.Text = jurusan.Text
        lst.Text = kodedosen.Text
        lst.Text = namadosen.Text
        lst.Text = kodematakuliah.Text
        lst.Text = nilaikehadiran.Text
        lst.Text = nilaitugas.Text
        lst.Text = nilaiuts.Text
        lst.Text = nilaiuas.Text
        lst.Text = nilaiakhir.Text
        lst.Text = nilaihuruf.Text
        lst.Text = keterangan.Text
        lst.SubItems.Add(nama.Text)
        lv.Items.Add(lst)
 
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        npm.Items.Add("12110565")
        npm.Items.Add("12110825")
        npm.Items.Add("12110486")
        npm.Items.Add("12110144")
        kodedosen.Items.Add("09")
        kodedosen.Items.Add("08")
        kodedosen.Items.Add("03")
        kodedosen.Items.Add("01")
        kodematakuliah.Items.Add("0043")
        kodematakuliah.Items.Add("7896")
        kodematakuliah.Items.Add("9078")
        kodematakuliah.Items.Add("8964")

        Dim i As Integer
        For i = 1 To 100
            nilaikehadiran.Items.Add(i)
            nilaitugas.Items.Add(i)
            nilaiuts.Items.Add(i)
            nilaiuas.Items.Add(i)
        Next
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select npm.Text
            Case "12110565"
                nama.Text = "chairunnisa"
                jenjang.Text = "SI"
                jurusan.Text = "sistem informasi"
            Case "12110825"
                nama.Text = "hariandi manurung"
                jenjang.Text = "SI"
                jurusan.Text = "Sistem Informasi"
            Case "12110486"
                nama.Text = "laura"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Umum"
            Case "12111044"
                nama.Text = "Ali imron"
                jenjang.Text = "DI"
                jurusan.Text = "Komputerisasi Akutansi"
        End Select
    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "09"
                namadosen.Text = "Mesran, M.Kom"
            Case "08"
                namadosen.Text = "Alex Riki Sinaga, M.Kom"
            Case "03"
                namadosen.Text = "Megaria Purba, M.Kom"
            Case "01"
                namadosen.Text = "Guidio L Ginting, S.Kom"


        End Select
    End Sub

    Private Sub kodematakuliah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Select Case kodematakuliah.Text
            Case "221AKTI"
                kodematakuliah.Text = "Pemograman Visual 1 "
            Case "876KSI"
                kodematakuliah.Text = "Struktur Data"
            Case "1178KMI"
                kodematakuliah.Text = "Kalkulus"
            Case "1341BRU"
                kodematakuliah.Text = "Komunikasi Data"


        End Select
    End Sub

    Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodematakuliah.Text = ""
        kodematakuliah.Text = ""
        nilaikehadiran.Text = ""
        nilaitugas.Text = ""
        nilaiuts.Text = ""
        nilaiuas.Text = ""
        nilaihuruf.Text = ""
        nilaiakhir.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        nilaiakhir.Text = 0.1 * nilaikehadiran.Text + 0.15 * nilaitugas.Text + 0.3 * nilaiuts.Text + 0.45 * nilaiuas.Text
        Select Case nilaiakhir.Text
            Case Is >= 100
                nilaihuruf.Text = "A"
                keterangan.Text = "LULUS"
            Case 70 To 79
                nilaihuruf.Text = "B"
                keterangan.Text = "LULUS"
            Case 60 To 69
                nilaihuruf.Text = "C"
                keterangan.Text = "LULUS"
            Case 50 To 59
                nilaihuruf.Text = "D"
                keterangan.Text = "GAGAL"
            Case Is <= 49
                nilaihuruf.Text = "E"
                keterangan.Text = "GAGAL"
        End Select
    End Sub
End Class

Tugas Pemogramman Penggajian Menggunakan Visual Studio 2008

Tugas Pemogramman

A. Tampilan Program

B. Listing Koding Program

Public Class Form1

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

        nik.Items.Add("PM010")

        nik.Items.Add("PS111")

        nik.Items.Add("KU101")

        nik.Items.Add("GD100")

        nik.Items.Add("PM011")

        jabatan.Items.Add("Kepala Divisi")

        jabatan.Items.Add("Staff")

        jabatan.Items.Add("Wakil")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        Dim x As Integer

        For x = 0 To 2

            jumlah_anak.Items.Add(x)

        Next

    End Sub

    Sub Bersih(ByVal f As Form)

        nik.Text = ""

        nama.Text = ""

        bagian.Text = ""

        jabatan.Text = ""

        gaji_pokok.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        jumlah_anak.Text = ""

        tunjangan_keluarga.Text = ""

        tunjangan_anak.Text = ""

        total_gaji.Text = ""

        Call Aktif()

    End Sub

    Sub Aktif()

        nama.Enabled = False

        bagian.Enabled = False

        gaji_pokok.Enabled = False

        Pajak.Enabled = False

        tunjangan_anak.Enabled = False

        tunjangan_keluarga.Enabled = False

        total_gaji.Enabled = False

        jabatan.Enabled = False

        Status.Enabled = False

        jumlah_anak.Enabled = False

    End Sub

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

        Select Case nik.Text

            Case "PM010"

                nama.Text = "harun"

            Case "PS111"

                nama.Text = "as-syifa"

            Case "KU101"

                nama.Text = "jamilah"

            Case "GD100"

                nama.Text = "hamid"

            Case "PM011"

                nama.Text = "evi"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(nik.Text, 2)

        Select Case x

            Case "PM"

                bagian.Text = "PEMASARAN"

            Case "PS"

                bagian.Text = "PERSONALIA"

            Case "GD"

                bagian.Text = "GUDANG"

            Case "KU"

                bagian.Text = "KEUANGAN"

        End Select

        jabatan.Enabled = True

        jabatan.Focus()

    End Sub

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

        Select Case jabatan.Text

            Case "Kepala Divisi"

                gaji_pokok.Text = 5000000

            Case "Staff"

                gaji_pokok.Text = 2000000

            Case "wakil"

                gaji_pokok.Text = 3500000

        End Select

        Pajak.Text = 0.1 * gaji_pokok.Text

        Status.Enabled = True

        Status.Focus()

    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"

                jumlah_anak.Enabled = True

                tunjangan_keluarga.Text = 0.15 * gaji_pokok.Text

                jumlah_anak.Text = 0

            Case "Tidak Menikah"

                jumlah_anak.Enabled = False

                tunjangan_keluarga.Text = 0

                tunjangan_anak.Text = 0

                total_gaji.Text = Val(gaji_pokok.Text) - Val(Pajak.Text)

        End Select

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged

        If Not IsNumeric(jumlah_anak.Text) Then jumlah_anak.Items.Clear()

        Select Case jumlah_anak.Text

            Case Is = 0

                tunjangan_anak.Text = 0

            Case Is = 1

                tunjangan_anak.Text = 0.05 * gaji_pokok.Text

            Case Is = 2

                tunjangan_anak.Text = 0.1 * gaji_pokok.Text

            Case Is >= 3

                tunjangan_anak.Text = 0

        End Select

        total_gaji.Text = Val(gaji_pokok.Text) - Val(Pajak.Text) + Val(tunjangan_keluarga.Text) + Val(tunjangan_anak.Text)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Call Bersih(Me)

    End Sub

End Class

C. Hasil Program Penggajian

progam penjualan dengan menggunakan fungsi if

mesran.net


A. Tampilan program penjualan

B. Listing code program

Public Class Form1

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

        Dim i As Integer

        For i = 1 To 10

            kode.Items.Add("BT-A0" & i)

        Next

        Call BuatTable()

    End Sub

    Sub BuatTable()

        LV.Columns.Add("Kode", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Harga", 80, HorizontalAlignment.Right)

        LV.Columns.Add("Jumlah", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Harga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Diskon", 80, HorizontalAlignment.Right)

        LV.Columns.Add("Total Bayar", 80, HorizontalAlignment.Right)

        LV.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

    End Sub

    Sub isiTabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(nabar.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jlh.Text)

        lst.SubItems.Add(jlhharga.Text)

        lst.SubItems.Add(diskon.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

    Sub bersih()

        kode.Text = ""

        nabar.Text = ""

        harga.Text = ""

        jlh.Text = ""

        jlhharga.Text = ""

        diskon.Text = ""

        total.Text = ""

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "BT-A01" Then

            nabar.Text = "TV"

            harga.Text = 1500000

        ElseIf kode.Text = "BT-A02" Then

            nabar.Text = "Kulkas"

            harga.Text = 2000000

        ElseIf kode.Text = "BT-A03" Then

            nabar.Text = "Kipas"

            harga.Text = 350000

        ElseIf kode.Text = "BT-A04" Then

            nabar.Text = "Louspeaker"

            harga.Text = 700000

        ElseIf kode.Text = "BT-A05" Then

            nabar.Text = "Digital"

            harga.Text = 700000

        ElseIf kode.Text = "BT-A06" Then

            nabar.Text = "DVD"

            harga.Text = 350000

        ElseIf kode.Text = "BT-A07" Then

            nabar.Text = "Strika"

            harga.Text = 250000

        ElseIf kode.Text = "BT-A08" Then

            nabar.Text = "Teeb"

            harga.Text = 350000

        ElseIf kode.Text = "BT-A09" Then

            nabar.Text = "ACC"

            harga.Text = 3500000

        Else

            nabar.Text = "Printer"

            harga.Text = 700000

        End If

    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click

        jlhharga.Text = harga.Text * jlh.Text

        diskon.Text = 2 / 100 * jlhharga.Text

        total.Text = jlhharga.Text - diskon.Text

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        Call bersih()

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        Close()

    End Sub

    Private Sub smpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smpan.Click

        Call isiTabel()

    End Sub

    Private Sub hps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

End Class

C. Tampilan hasil program

Sejarah perkembangan komputer

Sejarah perkembangan komputer – Sejak dahulu kala, proses pengolahan data telah dilakukan oleh manusia. Manusia juga menemukan alat-alat mekanik dan elektronik untuk membantu manusia dalam penghitungan dan pengolahan data supaya bisa mendapatkan hasil lebih cepat. Komputer yang kita temui saat ini adalah suatu evolusi panjang dari penemuan-penemuan manusia sejah dahulu kala berupa alat mekanik maupun elektronik. Saat ini komputer dan piranti pendukungnya telah masuk dalam setiap aspek kehidupan dan pekerjaan. Komputer yang ada sekarang memiliki kemampuan yang lebih dari sekedar perhitungan matematik biasa. Diantaranya adalah sistem komputer di kassa supermarket yang mampu membaca kode barang belanjaan, sentral telepon yang menangani jutaan panggilan dan komunikasi, jaringan komputer dan internet yang mennghubungkan berbagai tempat di dunia.Bagaimanapun juga alat pengolah data dari sejak jaman purba sampai saat ini bisa kita golongkan ke dalam 4 golongan besar.

1. Peralatan manual: yaitu peralatan pengolahan data yang sangat sederhana,
dan faktor terpenting dalam pemakaian alat adalah menggunakan tenaga
tangan manusia
2. Peralatan Mekanik: yaitu peralatan yang sudah berbentuk mekanik yang
digerakkan dengan tangan secara manual
3. Peralatan Mekanik Elektronik: Peralatan mekanik yang digerakkan secara
otomatis oleh motor elektronik
4. Peralatan Elektronik: Peralatan yang bekerjanya secara elektronik penuh
Tulisan ini akan memberikan gambaran tentang sejarah komputer dari masa ke
masa, terutama alat pengolah data

ALAT HITUNG TRADISIONAL dan KALKULATOR MEKANIK
Abacus, yang muncul sekitar 5000 tahun yang lalu di Asia kecil dan masih digunakan di beberapa tempat hingga saat ini, dapat dianggap sebagai awal mula mesin komputasi

Alat ini memungkinkan penggunanya untuk melakukan perhitungan
menggunakan biji-bijian geser yang diatur pada sebuah rak. Para pedagang di masa itu menggunakan abacus untuk menghitung transaksi perdagangan. Seiring dengan munculnya pensil dan kertas, terutama di Eropa, abacus kehilangan popularitasnya. Setelah hampir 12 abad, muncul penemuan lain dalam hal mesin komputasi. Pada tahun 1642, Blaise Pascal (1623-1662), yang pada waktu itu berumur 18 tahun, menemukan apa yang ia sebut sebagai kalkulator roda numerik (numerical wheel calculator) untuk membantu ayahnya melakukan perhitungan pajak

Kotak persegi kuningan ini yang dinamakan Pascaline, menggunakan delapan roda putar bergerigi untuk menjumlahkan bilangan hingga delapan digit. Alat ini,merupakan alat penghitung bilangan berbasis sepuluh. Kelemahan alat ini adalah hanya terbatas untuk melakukan penjumlahan

Tahun 1694, seorang matematikawan dan filsuf Jerman, Gottfred Wilhem von Leibniz (1646-1716) memperbaiki Pascaline dengan membuat mesin yang dapat mengalikan. Sama seperti pendahulunya, alat mekanik ini bekerja dengan menggunakan roda-roda gerigi. Dengan mempelajari catatan dan gambar- gambar yang dibuat oleh Pascal, Leibniz dapat menyempurnakan alatnya. Barulah pada tahun 1820, kalkulator mekanik mulai populer. Charles Xavier Thomas de Colmar menemukan mesin yang dapat melakukan empat fungsi aritmatik dasar. Kalkulator mekanik Colmar, arithometer, mempresentasikan pendekatan yang lebih praktis dalam kalkulasi karena alat tersebut dapat melakukan penjumlahan, pengurangan, perkalian, danpembagian. Dengan kemampuannya, arithometer banyak dipergunakan hingga masa Perang Dunia I. Bersama-sama dengan Pascal dan Leibniz, Colmar membantu membangun era komputasi mekanikal. Awal mula komputer yang sebenarnya dibentuk oleh seoarng profesor matematika Inggris, Charles Babbage (1791-1871).

Tahun 1812, Babbage memperhatikan kesesuaian alam antara mesin mekanik dan matematika:mesin mekanik sangat baik dalam mengerjakan tugas yang sama berulangkali tanpa kesalahan; sedang matematika membutuhkan repetisi sederhana dari suatu langkah-langkah tertenu. Masalah tersebut kemudain berkembang hingga menempatkan mesin mekanik sebagai alat untuk menjawab kebutuhan mekanik. Usaha Babbage yang pertama untuk menjawab masalah ini muncul pada tahun 1822 ketika ia mengusulkan suatu mesin untuk melakukan perhitungan persamaan differensial

Mesin tersebut dinamakan Mesin Differensial. Dengan menggunakan tenaga uap, mesin tersebut dapat menyimpan program dan dapat melakukan kalkulasi serta mencetak hasilnya secara otomatis. Setelah bekerja dengan Mesin Differensial selama sepuluh tahun, Babbage tiba-tiba terinspirasi untuk memulai membuat komputer general-purpose yang pertama, yang disebut Analytical Engine. Asisten Babbage, Augusta Ada King (1815-1842) memiliki peran penting dalam pembuatan mesin ini. Ia membantu merevisi rencana, mencari pendanaan dari pemerintah Inggris, dan mengkomunikasikan spesifikasi
Anlytical Engine kepada publik. Selain itu, pemahaman Augusta yang baik tentang mesin ini memungkinkannya membuat instruksi untuk dimasukkan ke dlam mesin dan juga membuatnya menjadi programmer wanita yang pertama.

Pada tahun 1980, Departemen Pertahanan Amerika Serikat menamakan sebuah bahasa pemrograman dengan nama ADA sebagai penghormatan kepadanya. Mesin uap Babbage, walaupun tidak pernah selesai dikerjakan, tampak sangat primitif apabila dibandingkan dengan standar masa kini. Bagaimanapun juga, alat tersebut menggambarkan elemen dasar dari sebuah komputer modern dan juga mengungkapkan sebuah konsep penting. Terdiri dari sekitar 50.000 komponen, desain dasar dari Analytical Engine menggunakan kartu-kartu perforasi (berlubang-lubang) yang berisi instruksi operasi bagi mesin tersebut. Pada 1889, Herman Hollerith (1860-1929) juga menerapkan prinsip kartu perforasi untuk melakukan penghitungan. Tugas pertamanya adalah menemukan cara yang lebih cepat untuk melakukan perhitungan bagi Biro Sensus Amerika Serikat. Sensus sebelumnya yang dilakukan di tahun 1880
membutuhkan waktu tujuh tahun untuk menyelesaikan perhitungan. Dengan berkembangnya populasi, Biro tersebut memperkirakan bahwa dibutuhkan waktu sepuluh tahun untuk menyelesaikan perhitungan sensus

Hollerith menggunakan kartu perforasi untuk memasukkan data sensus yang kemudian diolah oleh alat tersebut secara mekanik. Sebuah kartu dapat menyimpan hingga 80 variabel. Dengan menggunakan alat tersebut, hasil sensus dapat diselesaikan dalam waktu enam minggu. Selain memiliki keuntungan dalam bidang kecepatan, kartu tersebut berfungsi sebagai media penyimpan data. Tingkat kesalahan perhitungan juga dapat ditekan secara drastis. Hollerith kemudian mengembangkan alat tersebut dan menjualny ke masyarakat luas. Ia mendirikan Tabulating Machine Company pada tahun 1896 yang kemudian menjadi International Business Machine (1924) setelah
mengalami beberapa kali merger. Perusahaan lain seperti Remington Rand and Burroghs juga memproduksi alat pembac kartu perforasi untuk usaha bisnis. Kartu perforasi digunakan oleh kalangan bisnis dan pemerintahan untuk permrosesan data hingga tahun 1960. Pada masa berikutnya, beberapa insinyur membuat penemuan baru lainnya. Vannevar Bush (1890- 1974) membuat sebuah kalkulator untuk menyelesaikan persamaan differensial di tahun 1931. Mesin tersebut dapat menyelesaikan persamaan differensial kompleks yang selama ini dianggap rumit oleh kalangan akademisi. Mesin tersebut sangat besar
dan berat karena ratusan gerigi dan poros yang dibutuhkan untuk melakukan perhitungan. Pada tahun 1903, John V. Atanasoff dan Clifford Berry mencoba membuat komputer elektrik yang menerapkan aljabar Boolean pada sirkuit elektrik.

Pendekatan ini didasarkan pada hasil kerja George Boole (1815-1864) berupa sistem biner aljabar, yang menyatakan bahwa setiap persamaan matematik dapat dinyatakan sebagai benar atau salah. Dengan mengaplikasikan kondisi benar-salah ke dalam sirkuit listrik dalam bentuk terhubung-terputus, Atanasoff dan Berry membuat komputer elektrik pertama di tahun 1940. Namun proyek mereka terhenti karena kehilangan sumber pendanaan. KOMPUTER GENERASI PERTAMA
Dengan terjadinya Perang Dunia Kedua, negara-negara yang terlibat dalam perang tersebut berusaha mengembangkan komputer untuk mengeksploit potensi strategis yang dimiliki komputer. Hal ini meningkatkan pendanaan pengembangan komputer serta mempercepat kemajuan teknik komputer. Pada tahun 1941, Konrad Zuse, seorang insinyur Jerman membangun sebuah komputer, Z3, untuk mendesain pesawat terbang dan peluru kendali

Pihak sekutu juga membuat kemajuan lain dalam pengembangan
kekuatan komputer. Tahun 1943, pihak Inggris menyelesaikan komputer pemecah kode rahasia yang dinamakan Colossus untuk memecahkan kode-rahasia yang digunakan Jerman. Dampak pembuatan Colossus tidak terlalu mempengaruhi perkembangan industri komputer dikarenakan dua alasan. Pertama, colossus bukan merupakan komputer serbaguna (general-purpose computer), ia hanya didesain untuk memecahkan kode rahasia. Kedua, keberadaan mesin ini dijaga
kerahasiaannya hingga satu dekade setelah perang berakhir

Usaha yang dilakukan oleh pihak Amerika pada saat itu menghasilkan suatu kemajuan lain. Howard H. Aiken (1900-1973), seorang insinyur Harvard yang bekerja dengan IBM, berhasil memproduksi kalkulator elektronik untuk US Navy. Kalkulator tersebut berukuran panjang setengah lapangan bola kaki dan memiliki rentang kabel sepanjang 500 mil. The Harvd-IBM Automatic Sequence Controlled Calculator, atau Mark I, merupakan komputer relai elektronik. Ia menggunakan sinyal elektromagnetik untuk menggerakkan komponen mekanik. Mesin tersebut beropreasi dengan lambat (ia membutuhkan 3-5 detik untuk
setiap perhitungan) dan tidak fleksibel (urutan kalkulasi tidak dapat diubah). Kalkulator tersebut dapat melakukan perhitungan aritmatik dasar dan persamaan yang lebih kompleks. Perkembangan komputer lain pada masa kini adalah Electronic Numerical Integrator and Computer (ENIAC), yang dibuat oleh kerjasama antara pemerintah Amerika Serikat dan University of Pennsylvania. Terdiri dari 18.000 tabung vakum, 70.000 resistor, dan 5 juta titik solder, computer tersebut merupakan mesin yang sangat besar yang mengkonsumsi
daya sebesar 160kW

Komputer ini dirancang oleh John Presper Eckert (1919-1995) dn John W. Mauchly (1907-1980), ENIAC merupakan komputer serbaguna (general purpose computer) yang bekerja 1000 kali lebih cepat dibandingkan Mark I. Pada pertengahan 1940-an, John von Neumann (1903-1957) bergabung dengan tim University of Pennsylvania dalam usha membangun konsep desain komputer yang hingga 40 tahun mendatang masih dipakai dalam teknik komputer. Von Neumann mendesain Electronic Discrete Variable Automatic Computer(EDVAC) pada tahun 1945 dengan sebuah memori untuk menampung baik program ataupun data. Teknik ini memungkinkan komputer untuk berhenti pada suatu saat dan kemudian melanjutkan pekerjaannya kembali. Kunci utama arsitektur von Neumann adalah unit pemrosesan sentral (CPU), yang memungkinkan seluruh fungsi komputer untuk dikoordinasikan melalui satu sumber tunggal. Tahun 1951, UNIVAC I (Universal Automatic Computer I) yang dibuat oleh Remington Rand, menjadi komputer komersial pertama yang memanfaatkan model arsitektur von Neumann tersebut

PENGERTIAN DELPHI

Sebenarnya kemarin aku menyalahi aturan menurutku? 

Gimana ya. . .mungkin karena aku belum posting  tentang pengertian Pemrograman Borland Delphitapi aku udah mencoba buat programnya kemarin tentang cara membuat form login menggunakan delphi 7. . .  

Mungkin tidak apa-apa si. . .tapi rasanya koq kurang aja yah,seperti beli jus mangga tanpa mangga. . .jadi dapetnya gelas tok. 

Yuhuui. . .sekarang waktunya untuk membaca, memahami, mendongeng pengertian, sejarah, kegunaan,kekurangan dan kelebihan Pemrograman Delphi yang aku baca juga dari buku karya Abdul Kadir. 

A. Pengertian Delphi.

Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak yang digunakan untk merancang suatu aplikasi program.

IDE (Integrated Development Environment) adalah program komputer yang memiliki beberapa fasilitas yang diperlukan dalam pembangunan perangkat lunak. Tujuan dari IDE adalah untuk menyediakan semua utilitas yang diperlukan dalam membangun perangkat lunak.

Kompilator (Inggris: compiler) adalah sebuah program komputer yang berguna untuk menerjemahkan program komputer yang ditulis dalam bahasa pemrograman tertentu menjadi program yang ditulis dalam bahasa pemrograman lain.

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer.

B. Sejarah Borland Delphi

• Delphi versi 1 (berjalan pada windows 3.1 atau windows 16 bit)
• Delphi versi 2 (Berjalan pada windows 95 atau delphi 32 bit)
• Delphi versi 3 (berjalan pada windows 95 keatas dengan tambahan fitur internet atua web)
• Perkembangan selanjutnya diikuti dengan Delphi versi 4, 5 dan 6.
• Versi terkini dari delphi adalahversi 7 dengan tambahan vitur .net dengan tambahan file XML

C. Kegunaan Delphi

• Untuk membuat aplikasi windows
• Untuk merancang aplikasi program berbasis grafis
• Untuk membuat program berbasis jaringan (client/server)
• Untuk merancang program .Net (berbasis internet)

D. Keunggulan Delphi.

IDE (Integrated Development Environment) atau lingkungan pengembangan aplikasi sendiri adalah satu dari beberapa keunggulan delphi, didalamnya terdapat menu – menu yang memudahkan kita untuk membuat suatu proyek program.
Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada Delphi, maka secara otomatis akan dibaca sebagai sebuah program, tanpa dijalankan terpisah.
Mudah digunakan, source kode delphi yang merupakan turunan dari pascal, sehingga tidak diperlukan suatu penyesuain lagi.
Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi.

E. Adapun sejumlah kelebihan Embarcadero Delphi lainnya, antara lain meliputi:

• Dapat mengkompilasi menjadi single executable (aplikasi portable), memudahkan distribusi dan meminimalisir masalah yang terkait dengan versioning
• Banyaknya dukungan dari pihak ketiga terhadap VCL (biasanya tersedia berikut source codenya) ataupun tools pendukung lainnya (dokumentasi, tool debugging)
• Optimasi kompiler yang cukup cepat
• Mendukung multiple platform dari source code yang sama
• Untuk yang dikelola oleh embarcadero, delphi dapat dijalankan pada multiflatform yaitu windows, linux, android, IOS.

F. Ada kelebihan sudah pasti ada kekurangan. Kekurangan dari Delphi antara lain:

• Partial single vendor lock-in (Borland dapat menetapkan standar bahasa, kompatibilitas yang harus mengikutinya)
• Akses pada platform dan library pihak ketiga membutuhkan file-file header yang diterjemahkan ke dalam bahasa pascal
• Dokumentasi atas platform dan teknik-teknik yang menyertainya sulit ditemukan dalam bahasa pascal (contoh akses COM dan Win32)

G. Langkah – langkah mengaktifkan Delphi 7.

• Klik start.
• pilih All Programs.
• pilih Borland Delphi.
• pilih dan klik Delphi 7.

Tentang Visual Basic

Visual Basic.Net6 merupakan salah satu tool development Microsoft yang dapat digunakan untuk membuat aplikasi di lingkungan kerja berbasis sistem operasi Windows.
Dalam Microsoft Visual Studio. Netn terdapat dua komponen yang harus di instal ketika akan menngunakan bahasa pemograman Visual Basic.Net, komponen-komponen tersebut adalah :
1. NETFramework Class Library. Komponen ini digunakan untuk menjalankan aplikasi melalui objek yang telah didefenisikan, antara lain ; Label, Form, Textbox, Button, Listbox, Datetimepicker, dan lain-lain.
2. Common Language Runtime (CRL). Komponen ini digunakan untuk mengeksekusi program yang ditulis dalam bahasa pemograman yang ada dalam lingkungan Microsoft Visual Studio.Net, Seperti ; C#.Net,C++.Net,J#.Net, dan juga Visual Basic.Net.

A. Framework.Net
Framework.Net merupakan platform yang digunakan untuk membangun aplikasi windows, Web base, dan juga layanan XML (Extensible Markup Language).

Framework.Net juga menyediakan komponen untuk melakukan data share melalui network menggunakan platform protokol independen, seperti; XML, SOAP, dan HTTP.
Framework.Net tersusun atas dua komponen utama, yaitu ;
-Net Framework Class Library, dan
-Common Language Runtime.

B. Common Language Runtime
Common Language Runtime (CLR) merupakan dasar dari Framework.Net yang berfungsi untuk memanggil, mengelola, dan mengeksekusi, kode program.
Beberapa kegunaan dari Common Language Runtime ini adalah ;
1. Menkonversi dari Intermediate Language (IL) kedalam bahasa mesin.
2. Mengelola kode.
3. Mengelola keamanan kode akses.
4. Mendukung  pelayanan pengembang.
5. Membuat otomatisasi layout objek.

C. Variabel dan Tipe Data
Variabel merupakan bagian yang tidak dapat di pisahkan dari sebuah program aplikasi. Variabel digunakan untuk menyimpan data sementara pada saat program dijalankan.
Sebagai tempat menyimpan data, variabel harus dideklarasikan terlebih dahulu. Hal ini berbeda dengan versi Visual Basic sebelumnya dimana variabel dapat dikenal meskipun tidak dideklarasikan sebelumnya. Cara lama ini akan mengakibatkan penggunaan memori yang cukup boros karena varibel akan dideklarasikan secara otomatis dengan tipe variant yang memakan banyak memori.
Dalam Visual Basic.Net, setiap variabel yang digunakan harus dideklarasikan terlebih dahulu berdasarkan tipe data yang dikenal dalam Visual Basic.Net.
Cara ini akan menjadikan pengalokasian memori menjadi lebih efisien, karena memori yang dialokasikan sesuai dengan kebutuhan.
" Langkah-langkah dalam membuat suatu Program Visual Basic.Net" adalah ;
1. Merancang Program
Pada tahap ini, kita menempatkan Form yang berisi komponen-komponen yang akan dibuat dalam project tersebut.
2. Mengatur Properties
Tahap ini terkadang dilewatkan oleh kalangan pemula. Namun hal ini disarankan untuk mendapatkan dokumentasi yang baik dari project yang dibuat dan akun sangat membantu jika project dikerjakan oleh beberapa Programer yang berbeda.
3.Menuliskan kode Program
Setelah merancang dan mengatur Properties selanjutnya membuat kode program. Penulisan koding ini erat kaitanya denga pengaturan properties untuk tiap komponen yang akan akan dibuat.
4.Build atau RUN program
Langkah terakhir adalah program yang dibuat kita build atau langsung di-RUN/dijalankan. Jika masih terdapat kesalahan atau error, pesan kesalahan tersebut akan ditunjukkan pada output window dan jika sudah melewati pesan kesalahan atau sukses, kita tinggal mengujikan apakah program kita sesuai dengan algoritma yang dibuat atau tidak.