Tagihan PDAM

Klik disini untuk melihat Soal/Kasus

Listing Program :
1.   Login 
Public Class Form1

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        If username.Text = "tito" And password.Text = "123456" Then
            Menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Username dan Password tidak cocok!!")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        username.Text = ""
        password.Text = ""
        password.PasswordChar = "*"
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class
 
2.   Form Pembayaran Tagihan 
Public Class Tagihan_PDAM

    Sub Pelanggan()
        For a = 1 To 2
            Kode.Items.Add("TOK" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("TOK" & "_" & "PAK" & "_" & a & "00")

            Kode.Items.Add("RUM" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("RUM" & "_" & "PAK" & "_" & a & "00")

            Kode.Items.Add("SWA" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("SWA" & "_" & "PAK" & "_" & a & "00")

            Kode.Items.Add("PAB" & "_" & "MED" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "BEL" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "TEM" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "MAR" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "BIN" & "_" & a & "00")
            Kode.Items.Add("PAB" & "_" & "PAK" & "_" & a & "00")
        Next
    End Sub
Sub buattabel()
        LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Urut", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Type Pelanggan", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga per M3", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Bayar Tagihan", 120, HorizontalAlignment.Center)
    LV.View = View.Details
    LV.Gridlines = True
    LV.FullRowSelect = True
    End Sub
    Sub Isitabel()
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Ur.Text)
        lst.SubItems.Add(Dae.Text)
        lst.SubItems.Add(Typ.Text)
        lst.SubItems.Add(Bia.Text)
        lst.SubItems.Add(Har.Text)
        lst.SubItems.Add(Jumpe.Text)
        lst.SubItems.Add(Totba.Text)
        lst.SubItems.Add(Totha.Text)
        LV.Items.Add(lst)
    End Sub
    Sub hapus()
        Kode.Text = ""
        Ur.Text = ""
        Dae.Text = ""
        Typ.Text = ""
        Bia.Text = ""
        Har.Text = ""
        Jumpe.Text = ""
        Totba.Text = ""
        Totha.Text = ""
    End Sub
Sub simpan()
        Isitabel()
End Sub

Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Pelanggan()
    End Sub

    Private Sub Btnsim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsim.Click
        Isitabel()
        hapus()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim Ty As String
        Dim Drh As String
        Dim Urt As String
        Ty = Microsoft.VisualBasic.Left(Kode.Text, 3)
        Drh = Microsoft.VisualBasic.Mid(Kode.Text, 5, 3)
        Urt = Microsoft.VisualBasic.Right(Kode.Text, 3)
        If Ty = "TOK" Then
            Typ.Text = "TOKO"
            Bia.Text = "25000"
            Har.Text = "300"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        ElseIf Ty = "RUM" Then
            Typ.Text = "RUMAH"
            Bia.Text = "15000"
            Har.Text = "100"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        ElseIf Ty = "SWA" Then
            Typ.Text = "SWALAYAN"
            Bia.Text = "10000"
            Har.Text = "200"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        ElseIf Ty = "PAB" Then
            Typ.Text = "PABRIK"
            Bia.Text = "250000"
            Har.Text = "500"
            If Urt = "010" Then
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            Else
                Ur.Text = Urt
                If Drh = "MED" Then
                    Dae.Text = "MEDAN"
                ElseIf Drh = "BEL" Then
                    Dae.Text = "BELAWAN"
                ElseIf Drh = "TEM" Then
                    Dae.Text = "AKSARA"
                ElseIf Drh = "MAR" Then
                    Dae.Text = "MARENDAL"
                ElseIf Drh = "BIN" Then
                    Dae.Text = "BINJAI"
                ElseIf Drh = "PAK" Then
                    Dae.Text = "LUBUK PAKAM"
                End If
            End If
        End If
        Jumpe.Focus()
    End Sub

    Private Sub Jumpe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumpe.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim ttl As Long
            Dim J As Long
            Dim Pajak As Long
            J = Val(Bia.Text + (Har.Text * Jumpe.Text))
            Totha.Text = Format(J, "###,###,###")
            Pajak = 0.01 * J
            ttl = J + Val(Pajak)
            Totba.Text = Format(ttl, "###,###,###")
        End If
    End Sub

    Private Sub Btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnha.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih Dahulu Data Yang Akan Dihapus", MsgBoxStyle.Information, "Perhatikan !!!!")
        End If
    End Sub

    Private Sub Btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkel.Click
        Me.Close()
    End Sub
End Class

3.   Menu Utama
Public Class Menuutama

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
        Tagihan_PDAM.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class


Hasil Program :
1.   Login 

2.   Form Pembayaran Tagihan 

3.   Menu Utama

Sekian....!

Pembelian Barang

Klik disini untuk melihat Soal

Listing Program :

Public Class Form1
    Sub BuatTable()
        LV.Columns.Add("NO.Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTable()
        For i = 1 To 2
            With kode
                .Items.Add("TS" & "00" & i)
                .Items.Add("VG" & "00" & i)
            End With

        Next
    End Sub
    Sub isitable()
        Dim a As New ListViewItem
        a.Text = nopem.Text
        a.SubItems.Add(kode.Text)
        a.SubItems.Add(nama.Text)
        a.SubItems.Add(merk.Text)
        a.SubItems.Add(harga.Text)
        a.SubItems.Add(jumlah.Text)
        a.SubItems.Add(total.Text)
        LV.Items.Add(a)
    End Sub
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim a As String
        Dim b As String
        a = Microsoft.VisualBasic.Left(kode.Text, 2)
        b = Microsoft.VisualBasic.Right(kode.Text, 3)
        If a = "TS" Then
            merk.Text = "TOSHIBA"
            If b = "001" Then
                nama.Text = "Flashdisk 4GB"
                harga.Text = "105000"
            Else
                nama.Text = "Flashdisk 2GB"
                harga.Text = "75000"
            End If
        Else
            merk.Text = "V-Gen"
            If b = "001" Then
                nama.Text = "Flashdisk 4GB"
                harga.Text = "90000"
            Else
                nama.Text = "Flashdisk 2GB"
                harga.Text = "60000"
            End If
        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            total.Text = harga.Text * jumlah.Text
        End If
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitable()
        bersih()
    End Sub
    Sub bersih()
        nopem.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        nopem.Focus()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        bersih()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnitem.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih data mana yg akan dihapus!!")
        End If
    End Sub
End Class

Hasil Program :

VISUAL BASIC

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat.

Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.

Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.  Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Contoh program sederhana dalam bahasa Visual Basic .NET

Contoh program sederhana dalam bahasa Visual Basic .NET yang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harga m_price per item ditambah 5% pajak penjualan: 

  Dim m_item, m_price, tax, total As double

  m_item = double.Parse(textBox1.Text)

  m_price = double.Parse(textBox2.Text)

  tax = 0.05

  total = m_item * m_price * (1 + tax)

  label5.Text = total.ToString()

  MessageBox.Show("Well Done.")

Berikut ini adalah contoh lain dari program Visual Basic yang menggunakan objek CheckBox dan ComboBox untuk menghitung jumlah kredit mata kuliah yang diambil oleh seorang mahasiswa (masing-masing mata kuliah = 3 kredit):

Dim total As Integer

total = 0 ' awal dari jumlah kredit total

If (CheckBox1.Checked = True) Then 'boleh memilih semua checkbox

            total += 3

        End If

        If (CheckBox2.Checked = True) Then

            total = total + 3

        End If

        If (CheckBox3.Checked = True) Then

            total = total + 3

        End If

If (ComboBox1.SelectedIndex = 0) Then 'hanya bisa memilih satu

            total = total + 3

        ElseIf (ComboBox1.SelectedIndex = 1) Then

            total = total + 3

        ElseIf (ComboBox1.SelectedIndex = 2) Then

            total = total + 3

        End If

Label3.Text = CStr(total) ' hasil kredit total yang diambil

Tutorial VB.Net 2008 Express Edition

Antarmuka atau lingkungan dari Visual Basic.Net IDE 2008 tidak jauh dengan visual basic 6.0 IDE, kelebihannya memiliki IDE yang lebih lengkap dan  terorganisir, sehingga mudah bagi pengembang untuk mencari object-object yang terdapat pada toolbox yang kita inginkan untuk ditempatkan pada form.

Untuk pembuatan software yang canggih, belum bisa dibilang keren kalau belum pake loading pada tampilan awalnya. Ok kita mulai tutorial mengenai pembuatan loading menggunakan Visual Basic.Net 2008, sebelum berangkat perang kita harus nyiapin senjata yang pastinya, senjata yang harus disiapkan sebagai berikut :

·                     Komputer yang sedikit canggih dengan spesifikasi yang lumayan, ga usah terlalu canggih-canggih banget.

·                     Software Microsoft Visual Studio, karna di sini kita dapat menginstall Visual Basic.Net tersebut. (link download software)

·                     Kesiapan mental dan kemauan yang kuat.

·                     Terakhir segelas susu anget boleh juga.

Langkah 1

Install Microsoft Visual Basic.Net 2008 pada Visual Studio yang ada, untuk cara menginstall ga perlu dijelasin dahh, uda pada ngerti semua kan.

Langkah 2

Buka Microsoft Visual Basic.Net 2008 yang sudah terinstall,

Langkah 3

Buka file, kemudian new project, kita beri nama project “coba-coba”, kemudian OK.

Tampilan sebagai berikut.

Langkah 4

Pada langkah ini kita sudah dapat membuat loading tersebut dengan menggunakan splash screen yang sudah tersedia pada Visual Basic.Net 2008, cara nya dengan pilih pada menu project >>add new Item >> pilih splash screen, kemudian add. Lihat gambar dibawah ini.

Langkah 5

Kita sudah membuat splash screen, sekarang desainlah splash screen yang telah kalian buat sesuka hati kalian, dapat  ditambahkan background untuk splash screen dengan cara mengganti background image pada properties. Lihat hasil dibawah ini.

Langkah 6

Sekarang kita buat tools loading yang kita inginkan sedari tadi,. Hehehee*

Cara nya yaitu dengan menggunakan tools progress bar dan timer yang ada pada toolsbox. Setelah itu tools progress bar drag ke splash screen yang telah kita buat tadi. Sehingga menjadi seperti berikut.

Kemudian ketikkan codingan berikut pada timer, dengan cara double click timer tersebut  untuk membuat progressbar berjalan.

ProgressBar1.Value += 5
If ProgressBar1.Value = 100 Then
Timer1.Dispose()
Me.Visible = False
Form1.Show()
End If

Logikanya yaitu kita memberikan nilai dari 0-100 dengan nilai setiap kali proses bertambah 5, jika nilai sudah mencapai 100 maka spalshscreen tersebut akan di hilangkan dan membuka secara otomatis from selanjutnya.

Dan pada mainlayout kita ketikkan coding berikut.

Timer1.Enabled = True

Logikanya yaitu kita memberikan hak untuk timer tersebut berjalan pada mainlayout dari splash screen yang kita buat.

Langkah terakhir merubah startup form dengan cara klik kanan pada project yang kita punya kemudian pilih properties dan ganti startup form menjadi splashscreen.

Jika langkah-langkah yang dibuat sesuai dengan tutorial maka hasil akan seperti gambar dibawah ini.

Kalian dapat mengkreasikan loading tersebut sesuai imajinasi masing-masing, kalian dapat merubah bentuk progressbar dengan cara mengganti style pada properties dari progressbartersebut.

Sekian tutorial dari aNe, tungguin tutorial-tutorial berikutnya, masih mengenai Visual Basic.Net 2008.

SEJARAH VB.NET

Bill Gates, pendiri Microsoft, memulai bisnis softwarenya 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 (Deitel&Deitel, 1999). 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. Beberapa versinya 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.). 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. Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2008, Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak Memori (komputer). Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya. 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. 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).

EVOLUSI VISUAL BASIC

VB.NET.. mungkin beberapa dari pembaca sekalian ada yang bertanya-tanya mengenai apa itu VB.NET atau mungkin dari pembaca sudah akrab sekali dengan istilah ini. Bagi yang belum tahu, VB.NET bukanlah sebuah binatang.. (hehe) ataupun bukan sebuah makanan atau tempat. VB.NET merupakan salah satu bahasa programming yang dibuat dari microsoft.. (eitt yang uda mulai bosan jangan kabur dulu... hehe.. karena pasti ini akan menarik). lanjut lagi ke topik. Oh iya, saya sebelumnya saya juga ingin menjelaskan kenapa saya menjelaskan mengenai VB.NET, karena sebelum kita melangkah lebih jauh ada baiknya kita saling mengenal dulu dengan VB.NET karena Ada pepatah yang bilang "tak kenal maka tak sayang!", hehe maka menurut saya ada baiknya kita mengenal vb.net ini.

VB.NET merupakan perkembangan bahasa programming dari bahasa Visual Basic, untuk lebih jelasnya mari kita lihat bersama-sama dibawah ini!

Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

Perjalanan dari Visual Basic (VB1 to VB 10)
1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System
4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya : 
1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1. 
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya : 
- True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF 
- LINQ Support 
- Ekspresi Lambda 
- XML Literals 
- Nullable types 
- Type Inference 
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1