Sabtu, 11 Februari 2012

Suka Duka Kuliah Informatika


gue pengen masuk tuh ke jurusan impian gue. Mengabdi menjadi Dokter sekaligus menekuni bidang yang selalu gue impi - impikan. Menjadi seorang ahli komputer yang handal dan bisa memajukan teknologi di negeri ini. Agak muluk - muluk juga ya impian gue??? Namanya juga impian, terserah donk mau seberapa tingginya. Dalam benak gue, kuliah jurusan informatika tuh asik, ngga pusing terus pokoknya menyenangkan gitu. Secara pengalaman di SMA gue kan pas pelajaran komputer paling cuman gitu - gitu doang. Rumus Excel, Make word bikin tulisan yang layoutnya dianeh - anehin, internetan, terus paling sedikit ngulik blog. Nah kebayang betapa asyiknya kalo jadi guru SMA gitu.Nah dari situ gue ambil deh nih jurusan impian gue.


Awal mula kuliah. Wah seneng banget ternyata orang kuliah ya??? Bisa masuk sesuai keinginan, bisa bangun siang - siang, bisa internetan gratis dengan kecepatan dewa, bisa ngapa- ngapain tanpa diawasin orang tua. Bisa ngapain aja pokoknya.Intinya di kampus tuh asyik ngga kayak di SMA yang harus belajar kaya kerja rodi mulai jam setengah delapan ampe jam 2. Terus dirumah kudu belajar lagi. Kuliah mah enak bener. paling sehari 1, 5 x 3 jam. Udah gitu, asyik lagi. Mau masuk ngga ada yang ngeganggu, mau bolos juga terserah. Namanya juga kuliah. Kagak ada ceritanya dosen marahin gara - gara kita ngga pernah masuk. Nilai - nilai kita, jadi kalo ngga kuliah ya terserah toh itu nilai kita.Ternyata oh ternyata dugaan gue waktu SMA soal kuliah di jurusan komputer yang menyenangkan sangat menyimpang sodara - sodara. Ternyata dari awal kuliah gue disuguhi materi yang sangat asing ditelinga gue dan belum pernah sekalipun gue coba di kehidupan gue. dan gue saranin sodara - sodara kalo ngga mahir beneran ngga usah mencoba deh. Ada banyak banget materi yang gue jujur susah banget buat memahaminya. dan satu yang paling gue lemah dan memang itu adalah makanan wajib bagi anak informatika adalah pemprograman. Yah pemprograman. Everything about coding makes me wanna die. Ngga kebayang kan ketika kita ngga suka sesuatu tapi kita mau ngga mau harus menghadapinya setiap hari??? Kadang gue ampe mikir, kalo gue kelamaan belajar bahasa pemprograman bisa - bisa gue lupa ama bahasa sehari - hari??? Ya walaupun kalo dirasa - rasain emang enak juga jadi anak informatika. Soalnya bukannya mau takabur ya, cuman jurusan kita yang selalu up to date dan real time mengikuti perkembangan zaman. Bayangin aja coba sekarang??? Kehidupan mana sih yang bisa lepas dari pemprograman??? dan asyiknya lagi, anak informatika ngga perlu tuh bawa banyak buku - buku buat nyatet materi. Cukup loe bawa tuh laptop satu seumur hidup, loe udah bisa kuliah dengan nyaman sob.


Yah intinya itu sedikit sharing masalah suka dukanya kuliah di jurusan gue. Tapi intinya dari semua itu gue belajar. Dengan kesulitan yang semakin besar kita bisa semakin menyikapi dengan kedewasaan yang semakin tinggi. Dengan adanya tugas yang berjibun dan dengan sibuknya kita memikirkan nilai kita, disitulah kita bertanggung jawab atas pilihan kita. Karena setiap pilihan pasti mengandung konsekuensinya masing - masing. Bisa kok sebenernya kita kagak usah pusing - pusing mikirin nilai akhir, mikirin tugas yang berjibun, bisa kok seenaknya masuk kuliah, tapi apakah kita bisa mempertanggung jawabkan perbuatan kita??? terus kira - kira ntar kalo kita udah lulus kuliah apa kita ngga kaget dengan kehidupan sebenarnya yang justru real kejam??? *KesambetFilsafat

Apakah benar dunia keras???

Banyak hal yang ingin ku tahu didunia ini yg banyak orang bilang keras :) ,,,ingin aku membuktikan itu semua tapi aku pun gak tahu bagaimana caranya :'( , , ,aku mulai perjalanan ku disaat aku mengenal dunia ini dari aku dilahirin (disaat masih unyu-unyu) :p banyak orang yang sering cubit pipi aku karna tembem banget (jahat banget tu orang :'(  ya), ,disaat aku merangkak yang selalu jatuh-jatuh tersungkur karna gak kuat nahan berat badan yg hanya menompang pada kaki dan tangan yg mungil (jiah gayanya :D) , saat diajari belajar berdiri dan berjalan sama Mama n Papa (ditata-tatain) thanks buat my parent's dan akhirnya bisa berjalan sendiri seperti sekarang ,,,dan aku akui dunia ini memang keras.penuh tantangan dan butuh usaha keras tuk hidup..ajib gile bener,,

Sabtu, 28 Januari 2012

Jawaban QUIS Soal No 3

Listing Program

Login

Public Class Form1

    Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
        If Nama.Text = "Sasty" And Password.Text = "123" Then
            formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            Nama.Text = ""
            Password.Text = ""
        End If
    End Sub

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

    Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Masuk_Click(sender, e)
        End If
    End Sub
End Class

Hasil Program





Public Class formmenu

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        penggajian.show()
    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








Listing Program 

Public Class penggajian
        Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Ardiansyah"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Dwi Sastya ningsih"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Deni Sufriyadi"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Sri Wahyuningsih"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" And Jam.Text = 1 Then
            Lembur.Text = 5000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 2 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 3 Then
            Lembur.Text = 15000

        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 1 Then
            Lembur.Text = 7500
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 2 Then
            Lembur.Text = 15000
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 3 Then
            Lembur.Text = 22500

        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 1 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 2 Then
            Lembur.Text = 20000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 3 Then
            Lembur.Text = 30000
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    End Sub

   
    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class

Hasil Program














Jawaban QUIZ NO 2

Listing Program

Public Class Form1
    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 150, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 50, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = NPM.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Jurusan.Text)
        lst.SubItems.Add(Jenjang.Text)
        lst.SubItems.Add(Tahun.Text)
        lst.SubItems.Add(Angka.Text)
        lst.SubItems.Add(Huruf.Text)
        LV.Items.Add(lst)
    End Sub

    Sub clearisian()
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun.Text = ""
        Angka.Text = ""
        Huruf.Text = ""
        NPM.Focus()

    End Sub

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

    End Sub

    Private Sub NPM_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NPM.KeyPress

        Dim xNPM As String
        Tahun.Text = "20" &
        Microsoft.VisualBasic.Left(NPM.Text, 2)
        xNPM = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)

        If xNPM = "1" Then
            Jenjang.Text = "Diploma I"
        ElseIf xNPM = "3" Then
            Jenjang.Text = "Diploma III"
        ElseIf xNPM = "4" Then
            Jenjang.Text = "Strata I"
        End If

        xNPM = Microsoft.VisualBasic.Mid(NPM.Text, 4, 2)

        If xNPM = "01" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf xNPM = "02" Then
            Jurusan.Text = "Sistem Informatika"
        ElseIf xNPM = "03" Then
            Jurusan.Text = "Tehnik Informatika"
        ElseIf xNPM = "04" Then
            Jurusan.Text = "Akuntansi"
        End If

      
    End Sub

    Private Sub Tahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tahun.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Angka.Text = Huruf.Text
        End If
    End Sub

    Private Sub Angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Angka.KeyPress
        Select Case Angka.Text
            Case Is >= 80
                Huruf.Text = "A"
            Case 70 To 79
                Huruf.Text = "B"
            Case 60 To 69
                Huruf.Text = "c"
            Case 50 To 59
                Huruf.Text = "D"
            Case Is <= 49
                Huruf.Text = "E"

        End Select

    End Sub


    Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click
        isitabel()
        NPM.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Tahun.Text = ""
        Angka.Text = ""
        Huruf.Text = ""
    End Sub

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

    Private Sub cmdhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

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


Hasil Program

Minggu, 02 Oktober 2011

Menjadi Mahasiswa Yang Kreatif dan Kritis

Mahasiswa selalu identik dengan kaum intelektual, idealis, dan obsesi. Sebagai elemen elite masyarakat, mahasiswa diharapkan tidak hanya sekedar pintar, namun juga peka terhadap apa yang terjadi di sekitarnya. Selain itu, karakteristik mahasiswa yang berjiwa dinamis, keratif, serta inovatif juga menjadi gambaran mahasiswa idaman.

Namun sayang, tak banyak kita temui mahasiswa yang intelek sekaligus kreatif. Banyak mahasiswa yang hanya pintar dalam bidang akademis, tetapi tidak mampu menciptakan sesuatu yang baru sebagai aplikasi dari apa yang sudah diperolehnya selama menuntut ilmu di perguruan tinggi. Maka tidak mengherankan kalau perguruan tinggi (PT) yang setiap tahunnya melahirkan sarjana-sarjana ber-IPK di atas 3,0, namun tak dapat berkompetisi di lapangan. Ini dapat dilihat dengan semakin bertambahnya jumlah pengangguran dari kalangan sarjana. Mereka tidak mampu bersaing dengan baik untuk mendapatkan tempat pekerjaan. Tetapi, jika mahasiswa memiliki kreatifitas, merupakan sebuah nilai tambah untuk mendapatkan pekerjaan yang mereka inginkan.

Mahasiswa yang kreatif adalah mahasiswa yang senantiasa memiliki daya cipta terhadap sesuatu. Ia selalu memiliki gagasan atau ide-ide baru yang menarik. Di tangannya, sebuah kertas polos yang amat sederhana pun dapat di sulap menjadi sesuatu yang menarik dan mempunyai nilai jual. Oleh karena itulah banyak perusahaan-perusahaan yang lebih senang mempekerjakan mahasiswa atau sarjana yang kreatif.

Kreatif sendiri dapat dimiliki oleh setiap orang, bisa melalui bakat atau bawaan dari lahir. Artinya, orang tersebut memang sudah mempunyai bakat kreatif dalam mengerjakan segala sesuatu. Ada pula yang memiliki kreatif dari karena selalu mengasah dan melatih diri untuk kreatif.

Bagi orang-orang yang memang sudah sejak lahir memiliki bakat sebagai orang yang kreatif tentu idak mendapatkan masalah yang berarti. Namun, bagi orang yang tidak mempunyai bakat kreatif tersebut, maka ia harus rajin melatih dan mengasah ke-kreatifannya.

Banyak cara yang dapat dilakukan untuk menjadi mahasiswa yang kreatif, salah satunya adalah selalu memiliki gagasan atau ide-ide baru setiap hari. Seorang mahasiswa harus selalu berfikir untuk mendapatkan sesuatu yang baru (inovatif), apapun itu. Untuk membiasakan diri mencari gagasan atau ide-ide baru, dapat dilakukan dengan pada saat akhir jam kerja dengan merenung kira-kira 10 menit. Pikirkan apa saja yang telah dilakukan pada hari itu. Lalu pikirkan cara yang lebih baik untuk pekerjaan esok hari. Ciptakan gagasan yang berbeda karena sesuatu yang berbeda akan lebih tampak menarik. Kumpulkan semua gagasan dan ide-ide tersebut. Dengan begitu, mahasiswa akan terbiasa memikirkan dan mencari ide-de atau gagasan yang baru.

Kamis, 22 September 2011

sejarah visual basic

Ada yang bilang, bahwa bangsa yang besar adalah bangsa yang menghargai jasa para pahlawan atau sejarah negaranya. Oleh karena itu, supaya Anda menjadi programmer yang besar, maka Anda harus mengetahui dan menghargai jasa para pendiri dan pelopor Visual Basic. :-)
Berikut ini sejarah Visual Basic:
  1. 20 Mei 1991: Microsoft merilis Visual Basic versi 1.0 untuk Windows di Windows World 1991, Atlanta, Amerika Serikat. Programmer dapat membuat antar muka pengguna dengan mudah. Pembuatan aplikasi bisa lebih cepat dibandingkan sebelumnya. Kode ditulis oleh programmer untuk memberikan aksi terhadap Event dari pengguna (bagaimana pengguna merespon kepada object yang terdapat di antar muka pengguna).
  2. 1 September 1992: Microsoft mengumumkan Microsoft Visual Basic for MS-DOS® dalam edisi Standard dan Professional. Seperti Visual Basic untuk Windows, versi ini mengkombinasikan kemudahan pendisainan secara grafis dengan kekuatan dan keunggulan dalam banyak hal di pemrograman tradisional.
  3. 2 November 1992: Microsoft mengumumkan kemampuan dari Visual Basic versi 2.0 untuk Windows pada edisi Professional dan Standard. Versi ini menyertakan lebih dari 300 fitur baru dan peningkatan untuk pengembangan aplikasi yang lebih cepat, pengaksesan ke fitur-fitur tingkat lanjut di Windows, dan produktivitas pengembang yang lebih besar lagi. Di antaranya: MDI Forms, ODBC, dan variabel object.
  4. 14 Mei 1993: Microsoft mengumumkan Visual Basic versi 3.0 untuk edisi Standard dan Professional. Versi 3.0 menyediakan kemudahan akses ke berbagai sumber data yang banyak dengan mengintegrasikan mesin database Microsoft Access Database for Windows 1.1 dan kemampuan di bidang aplikasi melalui Object Linking and Embedding (OLE) 2.0. Juga ditambahkan tools baru berupa controls baru, penggunaan yang lebih mudah, dan sebuah peningkatan standarisasi control bagi pengguna.
  5. 29 Juni 1993: Microsoft mengumumkan bahwa Microsoft Visual Basic for Applications (VBA) akan diintegrasikan ke dalam Microsoft Excel 5.0 dan Microsoft Project 4.0. Visual Basic akan melayani bahasa Macro yang umum di versi yang akan datang dari aplikasi-aplikasi untuk Windows dan Macintosh. Fitur Macro yang umum untuk aplikasi dan OLE 2.0, keduanya merupakan elemen penting di visi dan strategi Microsoft untuk aplikasi yang dapat diprogram —yang akan memberikan kemampuan bagi pengguna untuk mengintegrasikan aplikasi-aplikasi, tugas-tugas otomatis, dan pembuatan solusi yang bersifat kostumais. VBA memiliki mesin pengembangan tangguh dan fleksibel yang sama yang membuat Visual Basic menjadi terkenal, teknologi pemrograman yang memperoleh penghargaan.
  6. 14 November 1994: Visual Basic versi 4.0 untuk Windows didemonstrasikan di Fall/COMDEX ’94 di Las Vegas. Demonstrasi ini berfokus pada perannya sebagai aplikasi berbasis Windows 32-bit pertama yang menggunakan kontrol kostumais OLE (OCXs) — komponent perangkat lunak yang dapat digunakan kembali yang ditetapkan dengan spesifikasi OLE. Pada versi ini diperkenalkan: Class, OXC’s, dan programmer dapat membuat add-ins sendiri dengan mudah.
  7. 12 September 1995: Visual Basic versi 4.0 untuk MS-DOS, Microsoft Windows NT®, dan Windows 95 diumumkan. Untuk meningkatkan edisi Standard dan Professional, maka Edisi Enterprise yang baru diperkenalkan untuk memenuhi kebutuhan perusahaan dan team pengembang. Semua versi menyertakan dukungan teknologi OLE yang lebih dikembangkan, perbaikan akses data, sebuah lingkungan pengembangan yang bersifat visual, dan migrasi ke Windows 95 dan Windows NT untuk aplikasi-aplikasi yang sudah ada.
  8. 7 Desember 1995: Microsoft mengumumkan Microsoft Visual Basic Scripting Edition (VBScript), sebuah bahasa skrip Internet berbasiskan pada Visual Basic. VBScript merupakan sebuah skrip dengan performansi yang tinggi yang didisain untuk membuat isi yang bersifat aktif pada suatu situs. VBScript membolehkan pengembang untuk mengaitkan dan mengotomatiskan berbagai jenis object di halaman situs, termasuk object OLE. VBScript menjadi sebuah spesifikasi yang diusulkan berlisensi gratis yang tersedia bagi komunitas Internet.
  9. 3 Februari 1997: Microsoft membuka sistem pemrograman Visual Basic versi 5.0, Edisi Professional — tool versi terakhir yang paling terkenal di dunia untuk membangun aplikasi yang tangguh (Rapid Application Development RAD) tool. Fitur-fitur Visual Basic versi 5.0 terdiri dari sejumlah performansi yang signifikan dan peningkatan produktivitas yang akan membuat para pengembang lebih efisien dan fleksibel serta cepat dalam memberikan solusi bagi pengguna akhir. Fitur-fitur tingkat lanjut — seperti kompilasi berjenis native code, akses database berkecepatan tinggi, dan sebuah lingkungan pengembangan yang ditingkatkan — membuat Visual Basic versi 5.0 menjadi versi yang paling hebat. Sebagai tambahan, kemampuan teknologi pembuatan komponen Microsoft ActiveX® di Visual Basic versi 5.0 akan membolehkan lebih dari 3 juta pengembang menggunakan Visual Basic dalam membuat aplikasi yang berbasis pada komponen yang bertujuan untuk digunakan di Internet, intranets, dan lingkungan tradisional client/server.
  10. 10 Maret 1997: Versi terakhir yang dirilis dari Visual Basic 5.0, Edisi Pembuatan Kontrol tersedia. Edisi Pembuatan Kontrol adalah cara mudah untuk membuat ActiveX Controls bagi Internet, intranets, dan aplikasi client/server.
  11. 15 Juni 1998: Microsoft mengumumkan Visual Basic versi 6.0, dan dimasukkan ke dalam Microsoft Visual Studio® versi 6.0. Fitur-fitur Visual Basic versi 6.0 menyediakan pengaksesan data secara terintegrasi dan bersifat grafis ke sumber data (data source) ODBC atau OLE DB manapun, dan perangkat tambahan database yang didisain untuk database Oracle dan Microsoft SQL Server™. Fitur unggulan di versi ini adalah: ActiveX Data Objects (ADO) untuk memanipulasi dan membuat database. Fitur Pengembangan Situs membawa kemudahan dalam penggunaan, model pemrograman berbasis komponen dari Visual Basic untuk membuat HTML – dan Dynamic HTML (DHTML) – berbasis aplikasi. Fitur-fitur baru ini — dikombinasikan dengan optimisasi performansi, pengembangan aplikasi yang disederhanakan dan debugging, dan dukungan untuk Microsoft teknologi server — membuat Visual Basic versi 6.0 sebuah pilihan yang ideal untuk membangun aplikasi berskala perusahaan.
  12. 2 September 1998: Visual Studio 6.0, solusi tool pengembangan lengkap berskala perusahaan tersedia. Visual Studio 6.0 menyertakan Visual Basic versi 6.0, Microsoft Visual C++®, Microsoft Visual FoxPro®, Microsoft Visual InterDev® Web, dan Microsoft Visual J++®. Bersamaan dengan diluncurkannya Developer Days ’98, lebih dari 115 perusahaan papan atas mengumumkan dukungan terhadap Visual Studio 6.0.
  13. 28 April 1999: Lingkungan pengembangan VBA versi 6.0 dan Software Development Kit (SDK) VBA (SDK) versi 6.0 tersedia bagi vendor perangkat lunak pihak ketiga melalui program lisensi VBA. VBA 6.0 merupakan sebuah teknologi pengembangan yang tangguh untuk aplikasi yang dikemas secara kostumais dan merupakan sebuah komponen utama di Microsoft Office 2000.
  14. 15 Februari 2000: Steve Ballmer, presiden yang baru saja ditunjuk dan CEO dari Microsoft Corporation, berbicara kepada lebih dari 2.000 pengembang dalam pidatonya pada Visual Basic Insiders Technical Summit (VBITS), menyatakan visi Microsoft terhadap situs yang dapat diprogram dan memaksa kembali komitmen perusahaan yang dalam terhadap para pengembang Visual Basic.
  15. 11 Juli 2000: Microsoft menyampaikan Tool Platform .NET untuk XML Web Services. Dalam pidatonya yang ditujukan pada acara Microsoft Professional Developers Conference (PDC) 2000 yang kedelapan, Paul Maritz, wakil presiden kelompok dari Platforms Group di Microsoft, memperlihatkan Microsoft .NET Framework dan Microsoft Visual Studio .NET. Ini merupakan versi terakhir dari perangkat pengembangan yang digunakan di seluruh dunia, Visual Studio .NET menyediakan dukungan untuk pengembangan drag-and-drop terhadap XML Web Services. Secara bersama, kedua produk tersebut menyediakan produktivitas yang tinggi kepada para pengembang, suatu lingkungan yang terdiri dari banyak bahasa untuk pembangunan, pengantaran, dan pengintegrasian XML Web Services pada platform Microsoft .NET.
  16. 13 November 2000: Microsoft mengumumkan kemampuan Visual Studio .NET versi Beta 1. Dalam pidato acara COMDEX/Fall 2000, Bill Gates mengumumkan kemampuan versi beta pertama Visual Studio.NET dan .NET Framework, dua teknologi kunci untuk memungkinkan para pengembang membangun XML Web services pada platform .NET. XML Web services merupakan aplikasi dan komponen yang dibuat tersedia melewati situs dengan menggunakan XML dan Simple Object Access Protocol (SOAP), dan kunci yang dapat diprogram untuk membangun generasi masa depan Internet. Microsoft membuat Visual Studio .NET Beta 1 dan .NET Framework tersedia bagi jutaan pelanggan dan rekanan industri.
  17. 13 Februari 2002: Microsoft mengumumkan kemampuan dari Visual Studio .NET versi akhir.