login

• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form



• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "robby" And PasswordTextBox.Text = "ganteng" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “robby” dan password “ganteng”


• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.

vb3

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If

vb2

Public Class Form1

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

End Sub
Sub Jurusan()
Call bukakoneksi()
Tampil2.Connection = database
Tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil2.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

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

End Sub
End Class

vbkoneksi

Public Class Form1

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

End Sub
Sub Jurusan()
Call bukakoneksi()
Tampil2.Connection = database
Tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil2.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

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

End Sub
End Class

uts

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

For a = Val(TextBox1.Text) To Val(TextBox2.Text)
If a Mod 3 = 0 Or a Mod 4 = 0 Or a Mod 7 = 0 Then
ListBox1.Items.Add(a)
Else
ListBox2.Items.Add(a)
End If
Next

For a = Val(TextBox1.Text) To Val(TextBox2.Text)
If a Mod 7 = 0 Then
ListBox3.Items.Add(a)
Else
If a Mod 8 = 0 Then
ListBox3.Items.Add(a)
End If
End If
Next
If Button1.Text = "Proses" Then
Button1.Text = "Sudah Di Proses"
End If
Button2.Focus()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call bersih()
If Button1.Text = "Sudah Di Proses" Then
Button1.Text = "Proses"
End If
End Sub

Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub
End Class

latihan soal uts

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d, f, g, j As Integer
a = 7
b = 8
For f = Val(TextBox1.Text) To Val(TextBox2.Text)
If f Mod 3 = 0 Or f Mod 4 = 0 Or f Mod 7 = 0 Then
ListBox1.Items.Add(f)
Else
j = f
ListBox2.Items.Add(j)
End If
Next
For g = Val(TextBox1.Text) To Val(TextBox2.Text)

Next

For c = Val(TextBox1.Text) To Val(TextBox2.Text)
If c Mod a = 0 Then
d = c
ListBox3.Items.Add(d)
Else
If c Mod b = 0 Then
d = c
ListBox3.Items.Add(d)
End If
End If
Next

End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
End Sub

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

materi2 tambahan 2

Public Class Form1

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

If TextBox1.Text = "TI" Then
TextBox2.Text = "teknik informatika"
Else
If TextBox1.Text = "SI" Then
TextBox2.Text = "sistem informasi"
End If
End If
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text)
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
TextBox5.Focus()
End If
End Sub

Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If e.KeyChar = Chr(13) Then
TextBox6.Focus()
End If
End Sub

Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If e.KeyChar = Chr(13) Then
TextBox7.Focus()
End If
End Sub

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If e.KeyChar = Chr(13) Then
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text)
Call bersih()
End If
End Sub

Sub bersih()
TextBox3.text = ""
TextBox4.text = ""
TextBox5.text = ""
TextBox6.text = ""
TextBox7.text = ""
End Sub

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

If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub
End Class

materi 2tambahan

Public Class Form1
Dim isitex(4) As String
Dim Item As ListViewItem
Sub isi()
ComboBox1.Items.Add("Teknik Informatika")
ComboBox1.Items.Add("Sistem Informatika")
ComboBox1.Items.Add("Komputer akutansi")
ComboBox1.Items.Add("Manajemen Informatika")
ComboBox1.Items.Add("Teknik Komputer")
End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isi()
Call Tabel()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = "Teknik Informatika"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
ElseIf Button1.Text = "Simpan" Then
isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 100)
Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)
End If
Button1.Focus()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Batal" Then
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
TextBox1.Focus()
Else
Button4.Text = "Keluar"
Me.Close()
End If
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox3.Focus()
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Focus()
End If
End Sub

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub

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

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

materi 3

Public Class Form2
Dim listtxt(3) As String
Dim listitems As ListViewItem

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

listitems = New ListViewItem(listtxt)
ListView1.Items.Add(listitems)
End Sub
Sub setlistview()
ListView1.View = View.Details

ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 300, HorizontalAlignment.Left)
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox4.Text = e.Item.Text
End Sub

End Class

materi 2

Public Class Form1

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub
Sub isicombo()
ComboBox1.Items.Add("06 Teknik Informatika")
ComboBox1.Items.Add("07 Sistem Informasi")
ComboBox1.Items.Add("05 Management Informatika")
ComboBox1.Items.Add("67 Komputer Akutansi")
ComboBox1.Items.Add("26 teknik Komputer")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call normal()
Call bersih()

End If
End Sub
Sub normal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else

End If
End Sub

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

End Sub
End Class

materi 1

Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Items.Add(TextBox1.Text)
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 5 To Val(TextBox2.Text)
If i Mod 2 = 0 Then
ListBox1.Items.Add(i * -1)
Else
ListBox1.Items.Add(i)
End If
Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a, b, c As Integer
b = 10
c = 12
For a = 10 To Val(TextBox2.Text)
If a Mod b = 0 Then
ListBox1.Items.Add(a)
b = a
Else
If a Mod c = 0 Then
ListBox1.Items.Add(a * -1)
c = a
End If
End If
Next
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a, b, c As Integer
b = 9
c = 27

For a = 1 To Val(TextBox2.Text)
If a Mod b = 0 Then
If a Mod c = 0 Then
ListBox1.Items.Add(a)
c = a
End If
End If
Next
End Sub
End Class

tugas vb 1

Dari soal di bawah ini dibuatkan program aplikasi dengan menggunakan vb

1. Menampilkan bilangan yang yang habis dibagi 9 dan 27

2. menampilkan bilangan yang sisa hasil baginya 3 dari pembagi 2

Dengan menggunakan Visual studio kita tuliskan coding sbb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For a = 1 To Val(TextBox1.Text)
If a Mod 9 = 0 And a Mod 27 = 0 Then
ListBox1.Items.Add(a)
End If
Next
End Sub

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

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For a = 1 To Val(TextBox1.Text)
If a Mod 2 = 3 Then
ListBox2.Items.Add(a)
End If
Next
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

dari coding diatas tampilanya sebagai berikut

SEJARAH VB.NET

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).

sejarah visual basic

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. 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.

Visual Basic yang sekarang digunakan oleh jutaan programmer adalah berawal dari sebuah Bahasa pemrograman yang diciptakan oleh Prof. Jhon Kemeny dan Thomas Kurtz pada tahun 1964 dengan nama BASIC yang kepanjangan dari Beginner All Purpose Symbolic Intruction Code. Bahasa BASIC ini tergolong bahasa pemrograman yang paling mudah dipelajari.

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 merupakan bahasa yang mendukung OOP, 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.

Dan pada tahun 1975, Microsoft yang dipimpin oleh Bill Gate ini, mengembangkan bahasa BASIC ini dengan mengeluarkan produk pertamanya yang bernama Microsoft Basic dimana versi yang terkenal saat itu adalah Quick Basic. Quick Basic menjadi bahasa BASIC yang paling terkenal saat itu karena sudah adanya interpreter didalamnya yang berfungsi untuk menjalankan kode-kode yang ditulis dengan Quick Basic.

Lalu pada tahun 1987, Microsoft mengeluarkan satu produk lagi yang sangat populer yaitu Visual Basic versi 1.0. Visual Basic versi 1.0 ini sangat populer karena bahasa pemrograman ini menggunakan GUI dalam pengembangannya. Lingkungan grafis yang user friendly membuat para programmer saat itu banyak beralih ke Visual Basic.

Pada tahun 1992 Visual Basic versi 2.0 dirilis untuk meningkatkan dan memperbaiki kinerja dari Visual Basic versi 1.0.

Pada tahun 1993 Microsoft mengeluarkan kembali versi terbaru dari Visual Basic ini yakni Visual Basic 3.0. Pada versi ini sudah banyak yang ditambahkan kedalam lingkungan grafisnya (GUI) diantaranya adanya kontrol data yang berfungsi untuk mengakses database, dan juga sudah tersedia Jet Engine versi 1.1 yang digunakan sebagai tool koneksi database melalui DAO (Data Access Object).

Pada tahun 1995 Visual Basic 4.0 dirilis. Pada versi ini sudah dimasukkan teknologi OLE (Object Linking Embedding) serta kemampuan untuk membuat control sendiri (OCX). Dalam versi ini juga dikenalkan teknologi akses database dengan RDO (Remote Data Object) yang menggantikan DAO. Dimana RDO dalam mengakses database lebih cepat dibanding dengan DAO. Dan diversi ini ODBC diperkenalkan.

Pada tahun 1997 Visual Basic 5.0 dirilis dengan memasukkan teknologi baru yang mendukung COM serta memungkinkan membuat kontrol ActiveX sendiri ataupun DLL. Dan diversi ini performance pengembangannya jauh lebih baik daripada versi-versi sebelumnyha.

Pada tahun 1998 Visual BAsic 6.0 dirilis dengan teknologi yang lebih ditingkatkan lagi khususnya dalam mengakses SQL Server. Dan salah satu teknologi yang di usung pada versi ini adalah ADO (ActiveX Data Object). ADO dirancang untuk meningkatkan kinerja dalam mengakses database pada perusahan besar. Dimulai dengan versi ADO v.2.0 sampai sekarang ADO v.2.8


Pada tahun 2000 Microsoft memperkenalkan pertama kali teknologi .Net dalam pertemuan Profesional Developers Conference di Orlando, namun sepertinya teknologi baru ini (Microsfot .NET) belum banyak menarik minat. Hingga pada tahun 2002 Microsoft merilis Visual Studio .NET 2002 yang dipaket dengan Visual Basic .NET, Visual C++ .NET, Visual C# .NET dan Visual J#. NET.

Pada tahun 2003 Visual Studio 2003 dirilis untuk memperbaiki kinerja dari visual Studio 2002 dengan meluncurkan .NET Framework versi 1.1
Hingga pada tahun 2009 Visual Studio sudah pada versi 2010, dimana didalamnya sudah ditambahkan bahasa pemrogramana yang baru yaitu F#.