Sejarah Mengenai Visual basic

Sejarah Mengenai Visual Basic

            Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).

            Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an.^[2] Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.

            Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer,^[2] seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.

            Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.).^[2] Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.^[2]

            Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.^[2]

            Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.^[3] Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB.^[3] Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).^[3]

Perkembangan Visual Basic

            Visual Basic 1.0 dikenalkan pada tahun 1991. Konsep pemrograman dengan metode drag-and-drop untuk membuat tampilan aplikasi Visual Basic ini diadaptasi dari prototype generator form yang dikembangkan oleh Alan Cooper dan perusahaannya, dengan nama Tripod. Microsoft kemudian mengontrak Cooper dan perusahaannya untuk mengembangkan Tripod menjadi sistem form yang dapat diprogram untuk Windows 3.0, di bawah kode nama Ruby.

            Tripod tidak memiliki bahasa pemrograman sama sekali. Ini menyebabkan Microsoft memutuskan untuk mengkombinasikan Ruby dengan bahasa pemrograman Basic untuk membuat Visual Basic.

Dari waktu ke waktu

·         Proyek Thunder dimulai.

·         Visual Basic 1.0 dirilis untuk Windows pada Comdex/Windows Trade Show di Atlanta, Georgia pada Mei 1991.

·         Visual Basic 1.0 untuk DOS dirilis pada September 1992. Bahasa pemrogramannya sendiri tidak terlalu kompatibel dengan Visual Basic untuk Windows, karena sesungguhnya itu adalah versi selanjutnya dari kompiler BASIC berbasis DOS yang dikembangkan oleh Microsoft sendiri, yaitu QuickBASIC. Antarmuka dari program ini sendiri menggunakan antarmuka teks, dan memanfaatkan kode-kode ASCII tambahan untuk mensimulasikan tampilan GUI.

·         Visual Basic 2.0 dirilis pada November 1992. Lingkungan pemrogramannya lebih mudah untuk digunakan, dan kecepatannya lebih ditingkatkan.

·         Visual Basic 3.0 dirilis pada musim semi 1993 dan hadir dalam dua versi: Standar dan Professional. VB3 juga menyertakan versi 1.1 dari Microsoft Jet Database Engine yang dapat membaca dan menulis database Jet/Access 1.x.

·         Visual Basic 4.0 (Agustus 1995) adalah versi pertama yang dapat membuat program 32-bit seperti program 16-bit. VB4 juga memperkenalkan kemampuannya dalam membuat aplikasi non-GUI. Bila versi sebelumnya menggunakan kontrol VBX, sejak VB4 dirilis Visual Basic menggunakan kontrol OLE (dengan ekstensi file *.OCX), yang lebih dikenal kemudian dengan kontrol ActiveX.

·         Dengan versi 5.0 (Februari 1997), Microsoft merilis Visual Basic eksklusif untuk versi 32-bit dari Windows. Para programmer yang lebih memilih membuat kode 16-bit dapat meng-impor program yang ditulis dengan VB4 ke versi VB5, dan program-program VB5 dapat dikonversi dengan mudah ke dalam format VB4.

·         Visual Basic 6.0 (pertengahan 1998) telah diimprovisasi di beberapa bagian, termasuk kemampuan barunya, yaitu membuat aplikasi web. Meskipun kini VB6 sudah tidak didukung lagi, tetapi file runtime-nya masih didukung hingga Windows 7.

Pemrograman Berorientasi Objek (OOP)

            Visual Basic merupakan bahasa yang mendukung Pemrograman berorientasi objek , namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.^[4]

Desain Visual dan Komponen

            Visual Basic menjadi populer karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain.^[5] Namun komponen ActiveX memiliki masalahnya tersendiri yang dikenal sebagai DLL hell,Pada Visual Basic .NET, Microsoft mencoba mengatasi masalah DLL hell dengan mengubah cara penggunaan komponen (menjadi independen terhadap registry).^[5

If jamak

Latihan IV

          Case

            Kemarin kita telah mempelajari tentang if jamak,nah sekarang kita akan mempelajari case. Case adalah event VB yang digunakan dalam pemilihan stateman (decition) seperti halnya fungsi IF.Tetapi ada perbedaan IF dengan case yaitu pada efisiensi dan efek pemogramannya. Pada if penetapan atau pemilihan stateman langsung pada tujuan yang diinginkan tetapi rumit di pengetikan sedangkan case akan menentukan statement apa bila seluruh statement teridentifikasi sehingga waktu yang dibutuhkan relatif lama dibandingkan IF

            Dibawah ini kita menggunakan case sebagai program utama dalam decition, mari kita kerjakan bersama :

A.      Langkah pertama kita bangun disain sederhan pada form kita namakanlah penentuan harga barang.

B.      Masukkan pada form tools yang dibutuhkan yaitu 4 label,5 text box dan 1 button dimana 4 label kita ubah text dengan nama kode barang,nama barang,jumlah dan Total

C.      Susunlah text box disebelah label kemudian kita ubah name text boxt menjadi inisial agar dapat dipanggil dalam pemograman, buat saja sesuai dengan lebel agar kita tidak bingung.

D.     Tempatkan 1 button dimana anda inginkan sebagai atribut untuk menghapus semua text yang ada pada text box

E.      Disain sederhana telah siap mari kita mulai mengerjakan perintahnya

1.      Ketikkan program ini pada main program text box kode barang dengan mengkliknya 2x

Select Case kode.Text

            Case "A01"

                nama.Text = "Kulkas"

                harga.Text = 2400000

            Case "A02"

                nama.Text = "Kipas angin"

                harga.Text = 840000

            Case "A03"

                nama.Text = "Televisi"

                harga.Text = 3000000

            case ???

               lanjutkan case berikutnya sesuai keinginan anda berapa kode yang ingin anda masukkan

        End Select

Apa bila anda masukkan kode yang tertera pada program anda maka akan otomatis akan muncul pada textbox nama dan harga yang anda sertakan pada pemilihan dapat kita umpamakan “Ketik pada kode barang,apabila kode barang A01 maka nama barang = kulkas dan harga barang 2400000”

2.      Disini kita tambahkan total harga demana apa bila kita ketikkan di pada textbox jumlah maka harga dikalikan dengan text yang tertera dijumlah seperti sebagai berikut :

If e.KeyChar = Chr(13) Then

            total.Text = harga.Text * jlh.Text

        End If

Sebelumnya kita ubah terlebih dahulu nethot name yang berada dipojok atas program ubah menjadi keypress dimana agar saat kita tekan enter maka akan muncul hasil di textbox total.

3.      Sekarang kita memberikan perintah untuk button tools agar text pada semua textbox terhapus. Ketik program dibawah ini :

  kode.Text = ""

        harga.Text = ""

        nama.Text = ""

        total.Text = ""

        jlh.Text = ""

Penjelasan program diatas ialah kita mengubah atau mengosongkan text pada textbox-textbok yang ada. Program selesai mari kita jalankan program dan lihat hasilnya seperti dibawah ini :

Demikian artikel ini saya perbuat mudah-mudahan anda dapat memahami dan artikel ini berguna untuk anda

contoh2 program di visual basic

ontoh pembutan progran visual basic:

Printahnya yaitu:

Public Class Form1

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        If NPM.Text = "1011566" Then Nama.Text = "acingApuk"

        If NPM.Text = "101102" Then Nama.Text = "salsa"

        If NPM.Text = "1011533" Then Nama.Text = "sunika"

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

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

        NPM.Items.Add("1011566")

        NPM.Items.Add("101102")

        NPM.Items.Add("1011533")

        MataKuliah.Items.Add("kalkulus")

        MataKuliah.Items.Add("B.indo")

        MataKuliah.Items.Add("Fisika")

        MataKuliah.Items.Add("visual")

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NPM.Text = ""

        Nama.Text = ""

        MataKuliah.Text = ""

        Nilai.Text = ""

        Keterangan.Text = ""

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Dim xket As String

        xket = "gagal"

        If Nilai.Text >= 50 Then xket = "lulus"

        Keterangan.Text = xket

    End Sub

End Class

Contoh program looping (perulangan)

 Printahnya yaitu:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim z As Byte

        ListBox1.Items.Clear()

        z = 1

        Do Until z = 11

            ListBox1.Items.Add(z)

            z = z + 1

        Loop

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim x As Byte

        x = 1

        Do While x <= 10

            ListBox2.Items.Add(x)

            x = x + 1

        Loop

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim y As Integer

        For y = 20 To 1 Step -5

            ListBox3.Items.Add(y & "Y")

        Next

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim b As Byte

        b = 1

        While b <= 10

            ListBox4.Items.Add(b)

            b = b + 1

        End While

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim a As Integer

        For a = 1 To 4

            ListBox5.Items.Add("THE GREEN CAMPUZ")

        Next

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class