QUIS

Soal no.2
1.Form Latihan2.


2.Listing program form latihan2
Public Class Latihan2

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

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
        addtabel()

    End Sub
    Sub addtabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim list As New ListViewItem
        list.Text = no.Text
        list.SubItems.Add(kode.Text)
        list.SubItems.Add(nama.Text)
        list.SubItems.Add(merk.Text)
        list.SubItems.Add(harga.Text)
        list.SubItems.Add(jumlah.Text)
        list.SubItems.Add(total.Text)
        LV.Items.Add(list)


    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        Dim y As Integer
        Microsoft.VisualBasic.Left(kode.Text, 2)
        x = Microsoft.VisualBasic.Mid(kode.Text, 1, 2)
        If x = "TS" Then
            merk.Text = "THOSHIBA"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"

        End If
        Microsoft.VisualBasic.Left(kode.Text, 2)
        y = Microsoft.VisualBasic.Mid(kode.Text, 3, 5)
        If y = "001" Then
            nama.Text = "Flashdisk 4GB"
        ElseIf y = "002" Then
            nama.Text = "Flashdisk 2GB"
        End If

        If kode.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kode.Text = "TS002" Then
            harga.Text = 75000
        ElseIf kode.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kode.Text = "VG002" Then
            harga.Text = 60000
        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 = Val(harga.Text) * Val(jumlah.Text)
        End If
    End Sub

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

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        LV.Items.Clear()

    End Sub

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

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
        LV.Items.Clear()
    End Sub
End Class


3.Hasil Program Diatas















Soal No.3
1.Form Login

2.Listing program
Public Class Login

    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
        If Username.Text = "Indra Irwan" And Password.Text = "1234" Then
            MsgBox("Selamat Datang Di blog saya")
            menuutama.show()
            Me.Hide()
        Else
            MsgBox("Maaf Username / Password Salah !")
            Username.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
End Class





3.Hasil program Login

4.Form menuutama

5.Listing Program menuutama
Public Class menuutama

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

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

    End Sub
End Class

6.Hasil program menuutama

7.Form Tagihan PDAM

8.Listing program Tagihan PDAM
Public Class Form1

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        daerah.Items.Add("MEDAN")
        daerah.Items.Add("BELAWAN")
        daerah.Items.Add("AKSARA")
        daerah.Items.Add("MARENDAL")
        daerah.Items.Add("BINJAI")
        daerah.Items.Add("LUBUK PAKAM")
        tipe.Items.Add("TOKO")
        tipe.Items.Add("RUMAH")
        tipe.Items.Add("SWALAYAN")
        tipe.Items.Add("PABRIK")

        Call addnomor()




    End Sub

    Sub addnomor()
        Dim y As Integer
        For y = 100 To 200
            nomor.Items.Add(y)
            y = y + 0
        Next y
    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        Select Case tipe.Text
            Case "TOKO"
                harga.Text = 300
                beban.Text = 25000
            Case "RUMAH"
                harga.Text = 100
                beban.Text = 10000
            Case "SWALAYAN"
                harga.Text = 200
                beban.Text = 15000
            Case "PABRIK"
                harga.Text = 500
                beban.Text = 35000
        End Select


    End Sub


    Private Sub tagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tagihan.TextChanged
        pajak.Text = 0.01 * tagihan.Text
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        pembayaran.Text = Val(tagihan.Text) + Val(pajak.Text)

    End Sub

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


    Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
        If e.KeyChar = Chr(13) Then
            tagihan.Text = beban.Text + (harga.Text * pemakaian.Text)
        End If
    End Sub


    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
        Dim x As String

        Microsoft.VisualBasic.Left(daerah.Text, 3)
        x = Microsoft.VisualBasic.Mid(daerah.Text, 1, 3)
        If x = "MED" Then
            kode.Text = "MED-"
        ElseIf x = "BEL" Then
            kode.Text = "BEL-"
        ElseIf x = "AKS" Then
            kode.Text = "AKS-"

        ElseIf x = "MAR" Then
            kode.Text = "MAR-"
        ElseIf x = "BIN" Then
            kode.Text = "BIN-"
        ElseIf x = "LUB" Then
            kode.Text = "LUB-"

        End If
        Dim y As String
        Microsoft.VisualBasic.Left(tipe.Text, 3)
        y = Microsoft.VisualBasic.Mid(tipe.Text, 1, 3)
        If y = "TOK" Then
            kode.Text = "TOK-"
        ElseIf y = "RUM" Then
            kode.Text = "RUM-"
        ElseIf y = "SWA" Then
            kode.Text = "SWA-"
        ElseIf y = "PAB" Then
            kode.Text = "PAB-"
        End If
    End Sub
  


    Private Sub alamat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat.TextChanged

    End Sub
End Class





9.Hasil Program Tagihan PDAM

Ok...

Operator VB2008

Seperti bahasa pemrograman yang lain VB2008 juga memiliki operator2 yang digunakan untuk mengerjakan operasi matematika seperti penambahan pengurangan pembagian dll.
berikut list operator yang terdapat pada VB2008.
1. Operasi penambahan : +
2. Operasi pengurangan : -
3. Operasi perkalian : *
4. Operasi pembagian : /
5. Operasi mod : mod

Type data

Byte (1 byte) : bilangan angka (0 to 255)
integer (2 byte) : bilangan angka (-32,768 to 32,767)
Long (4 byte): bilangan angka (-2,147,483,648 to 2,147,483,648)
Single (4 byte): bilangan berkoma (-3.402823E+38 to -1.401298E-45 untuk yang negatif. dan 1.401298E-45 to 3.402823E+38 untuk yang positif)
Double (8 byte): bilangan berkoma (-1.79769313486232e+308 to -4.94065645841247E-324 untuk negatif dan 4.94065645841247E-324 to 1.79769313486232e+308 untuk positif)
Currency (8 byte):angka (-922,337,203,685,477.5808 to 922,337,203,685,477.5807)
Decimal (12 byte):angka (+/- 79,228,162,514,264,337,593,543,950,335 jika gak pake desimal (koma). +/- 7.9228162514264337593543950335 (28 angka dibelakang koma)
String(fixed length) Panjang string : 1 to 65,400 characters
String(variable length) panjang String : + 10 bytes 0 to 2 billion characters
Date (8 bytes) : untuk tanggal, co: January 1, 100 to December 31, 9999
Boolean (2 bytes) : operator logika, True or False
Object (4 bytes) Any embedded object
Variant(numeric) (16 bytes) Any value as large as Double
Variant(text) Length+22 bytes Same as variable-length string

October 20, 2011

Contoh program

Creating our first application

Cukup untuk teori, saatnya praktikum
Buka aplikasi visual basic 2008 anda lalu kli file>new project
Lalu pilih windows form application, kasi nama projectnya, terus klik ok.
Nah akan tampil interface tempat kita membuat aplikasi.
Untuk pertama kali mari kita membuat aplikasi menghitung luas persegi panjang.
Dari toolbox buka bagian common control sehingga muncul tool2 yang bisa kita gunakan, tarik sebuah label (simbolnya A), lalu tarik sebuah button atur sedemikian rupa sehingga tampak menarik.
Lalu pada bagian properties (kanan bawah, kalau tidak ada klik view>properties windows) ubah properties dari label dengan mengklik label lalu ganti

Text : luas = 0
Name : hasil

klik button ganti propertiesnya

Text : hitung

pada form klik 2x pada button (akan membuka jendela script)

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
disinilah kita letakkan coding untuk button
End Sub
End Class

Tambahkan code berikut di antara Button1.Click dan End Sub

Dim p, l, luas As Integer
p = 12
l = 4
luas = p * l
hasil.Text = “Luas = ” & luas

sehingga semua code akan menjadi serperti ini

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p, l, luas As Integer
p = 12
l = 4
luas = p * l
hasil.Text = “Luas = ” & luas
End Sub
End Class

penjelasan : Dim digunakan untuk mendeklarasikan variabel pada VB, Cth: Dim p As Integer (membuat variabel p dengan tipe data integer.
lalu beri nilai p = 12, beri niai l = 4, dan nilai luas = p*l (panjang x lebar) dan terakhir ganti text pada label hasil dengan : “Luas = “ & luas.
Fungsi dari “&” adalah untuk mengubungkan text dengan variabel yang ingin dimasukkan kedalam text.
sekarang bagaimana caranya agar panjang dan luas dapat di inputkan dari user?
Modifikasi form dengan menambahkan 2 label dan 2 textbox

Ganti properties Label1

Text : panjang

Label2

Text : lebar

Klik 2x button hitung lalu masukkan code berikut diantara Button1.Click dan End Sub

Dim luas As Double
luas = Val(TextBox1.Text) * Val(TextBox2.Text)
hasil.Text = “Luas = ” & luas
MsgBox(“Luas = ” & luas)

okay. Begitu lah kira2.

Membuat Aplikasi Bangun Datar

nanggung nih, lanjut aja dah untuk membuat aplikasi bangun datar.
Klik form, pada properties, text ketikkan “Menghitung Luas”
Tarik 1 label lalu ganti properties text nya menjadi “Bangun datar”
Selanjutnya tarik sebuah ComboBox, kemudian pada properties Klik item dan akan muncul tombol yang berisi titik2. Klik tombol tersebut, lalu isikan item berikut ini.
Persegi
Persegi Panjang
Segitiga
Jajar Genjang
Trapesium
Lingkaran
Layang-layang
Belah Ketupat
(antara item 1 dan yang lainnya pisahkan dengan tombol enter)
Tarik lagi sebuah button, kemudian pada bagian propreties, ganti textnya menjadi “hitung”
Tarik 2 label ganti properties label2

text : hasil
font : Microsoft Sans Serif/Bold/12

properties label3

text : 0
font : Microsoft Sans Serif/Bold/14
name: Labelhasil

tarik lagi 3 label (hehe jangan bosen2 menariknya yah ) ganti properties nya
label yang pertama

Text : L1
Name : L1
visble : false

label yang kedua

Text : L2
Name : L2
visble : false

label yang ketiga

Text : L3
Name : L3
visble : false

dan ini yang terakhir (akhirnya ), tarik lagi 1 button ganti propreties
text : exit
selesai untuk interfacenya. bingung ?
lihat nih contoh interface yang gw bikin

Saatnya koding
Double klik button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bil1, bil2, bil3 As Double
Dim luas As Double
L1.Visible = False
L2.Visible = False
L3.Visible = False
If ComboBox1.Text = “Persegi” Then
bil1 = InputBox(“Masukkan nilai SISI”)
L1.Visible = True
L1.Text = “Sisi = ” & bil1
luas = bil1 * 2
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Persegi Panjang” Then
bil1 = InputBox(“Masukkan nilai PANJANG”)
bil2 = InputBox(“Masukkan nilai LEBAR “)
L1.Visible = True
L1.Text = “Panjang = ” & bil1
L2.Visible = True
L2.Text = “Lebar = ” & bil2
luas = bil1 * bil2
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Segitiga” Then
bil1 = InputBox(“Masukkan nilai ALAS”)
bil2 = InputBox(“Masukkan nilai TINGGI”)
L1.Visible = True
L1.Text = “Alas = ” & bil1
L2.Visible = True
L2.Text = “Tinggi = ” & bil2
luas = 0.5 * bil1 * bil2
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Jajar Genjang” Then
bil1 = InputBox(“Masukkan nilai ALAS”)
bil2 = InputBox(“Masukkan nilai TINGGI”)
L1.Visible = True
L1.Text = “Alas = ” & bil1
L2.Visible = True
L2.Text = “Tinggi = ” & bil2
luas = bil1 * bil2
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Trapesiium” Then
bil1 = InputBox(“Masukkan nilai SISI SEJAJAR1″)
bil2 = InputBox(“Masukkan nilai SISI SEJAJAR2″)
bil3 = InputBox(“Masukkan nilai SISI TINGGI”)
L1.Visible = True
L1.Text = “Sisi Sejajar1 = ” & bil1
L2.Visible = True
L2.Text = “Sisi Sejajar2 = ” & bil2
L3.Text = True
L3.Text = “Sisi Sejajar2 = ” & bil3
luas = 0.5 * (bil1 + bil2) * bil3
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Lingkaran” Then
bil1 = InputBox(“Masukkan nilai JARI-JARI”)
L1.Visible = True
L1.Text = “Jari-jari = ” & bil1
luas = 22 / 7 * bil1 * bil1
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Layang-layang” Then
bil1 = InputBox(“Masukkan nilai DIAGONAL1″)
bil2 = InputBox(“Masukkan nilai DIAGONAL2″)
L1.Visible = True
L1.Text = “Sisi Sejajar1 = ” & bil1
L2.Visible = True
L2.Text = “Sisi Sejajar2 = ” & bil2
luas = 0.5 * bil1 * bil2
Labelluas.Text = luas
ElseIf ComboBox1.Text = “Belah Ketupat” Then
bil1 = InputBox(“Masukkan nilai DIAGONAL1″)
bil2 = InputBox(“Masukkan nilai DIAGONAL2″)
L1.Visible = True
L1.Text = “Sisi Sejajar1 = ” & bil1
L2.Visible = True
L2.Text = “Sisi Sejajar2 = ” & bil2
luas = 0.5 * bil1 * bil2
Labelluas.Text = luas
End If
End Sub

code diatas untuk menghitung luas bangun datar yang di pilih. di perhatiin aja bener2, ntar ngerti sendiri tuh.
Button2

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

dan aplikasi anda sudah selesai

membuat menu help

nanggung lagi sekalian aja kita buat menu help agar user mengetahui rumus untuk menghitung bagun datar.

Caranya. Pada toolBox buka tab Menus & Toolbars
Lalu tarik MenuStrip ke atas form seperti gambar diatas.
Selanjutnya klik 2x menu yang pertama “Rumus Persegi”
Sehingga tab coding akan muncul, tambahkan kode berikut

Private Sub RumusPersegiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiToolStripMenuItem.Click
MsgBox(” Rumus Luas Persegi = sisi x sisi”)
End Sub

Lakukan untuk menu-menu yang lain.

Private Sub RumusPersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiPanjangToolStripMenuItem.Click
MsgBox(” Rumus Luas Persegi Panjang = panjang x lebar”)
End Sub
Private Sub RumusSegitigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusSegitigaToolStripMenuItem.Click
MsgBox(” Rumus Luas Segitiga = 1/2 x alas x tinggi”)
End Sub
Private Sub RumusLingkaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusLingkaranToolStripMenuItem.Click
MsgBox(” Rumus Luas Lingkaran = π (pi) x jari-jari x jari-jari”)
End Sub
Private Sub RumusTrapesiumToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusTrapesiumToolStripMenuItem.Click
MsgBox(“Rumus Luas Trapesium = 1/2 x jumlah sisi sejajar x tinggi”)
End Sub
Private Sub RumusJajargenjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusJajargenjangToolStripMenuItem.Click
MsgBox(“Rumus Luas Trapesium = 1/2 x jumlah sisi sejajar x tinggi”)
End Sub
Private Sub RumusBelahKetupatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusBelahKetupatToolStripMenuItem.Click
MsgBox(“Rumus Belah Ketupat = diagonal (d) 1 x diagonal (d) 2″)
End Sub
Private Sub RumusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusToolStripMenuItem.Click
MsgBox(“Rumus Belah Ketupat = diagonal (d) 1 x diagonal (d) 2″)
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox(“Programmed by Aritha Handrico (Teknik Informatika UIN SUSKA RIAU)”)
End Sub
End Class

source : http://kuliahkusayang.blogspot.com/2010/08/belajar-visual-basic-2008.html#ixzz1bJHXW3Nc

October 17, 2011

Interface Visual Studio 2008 & membuat program

Jalankan aplikasi Visual Studio 2008 atau Visual Basic 2008Express Edition

Perhatikan antar muka yang ada. Tampilan pada Visual Studiodan Visual Basic Express Edition sangat mirip

Membuat Program Pertama Kali

Dengan melakukan praktek membuat program sederhana,Anda diharapkan dapat segera mengetahui dan merasakansendiri bagaimana menggunakan aplikasi Visual Studio 2008.

Bagaimana Membuat Program?

Secara ringkas, tahapan yang harus dilakukan untuk membuatprogram adalah sebagai berikut:

1.Mendesain tampilan untuk interface (antarmuka) yangakan dipakai oleh pengguna program. Interface tersebutberupa tombol, jendela (window), menu, dll.

2.Menentukan event yang digunakan untuk membuatinteraksi antara interface dengan perintah-perintahprogram. Sebagai contoh sederhana, event inilah yangmenentukan reaksi program ketika sebuah tombol diklik.

3.Menulis kode berupa prosedur yang akan dijalankan ketikasuatu event terjadi. Event merupakan peristiwa tertentu yang dapat memicu timbulnya reaksi dari program,misalnya: menu diklik, mouse memasuki area tertentu,tombol diklik, tombol keyboard ditekan, dll.

Apa yang Terjadi Ketika ProgramDijalankan?

Peristiwa pada saat program Visual Basic berjalan dapatdiilustrasikan sebagai berikut:

1.Visual Basic memantau apakah ada suatu event yangterjadi, seperti pergerakan mouse, klik, tekan tombolkeyboard, dll.

2.Ketika ada event terdeteksi, maka dievaluasi apakah adaprosedur (kode program) yang harus dijalankan

3.Jika ada prosedur yang sesuai dengan event yang terjadi,maka prosedur tersebut akan dijalankan. Jika tidak adaprosedur yang sesuai, maka tidak dilakukan reaksi apapun.

4.Kembali ke langkah 1 hingga program ditutup atau tidak aktif.

October 17, 2011

Pengenalan Visual Studio 2008

Pemrograman dengan Visual Basic2008

Ada beberapa terminologi yang sebaiknya diketahui dengan jelas.

• Visual Basic

merupakan bahasa dan aturanpemrograman yang harus ditaati dalam menuliskanperintah-perintah agar program dapat dikompilasi.

•Visual Studio 2008

merupakan aplikasi IDE(Integrated Development Environment) yang digunakanuntuk mengembangkan software. Di dalam aplikasi IDEinilah tersedia berbagai fitur yang memudahkanpemrograman, seperti kompilasi, debugging, pengaturanprojek, mengedit antarmuka secara visual, dll.Selain dengan Visual Studio 2008, Anda juga dapatmenggunakan aplikasi IDE yang gratis tanpa biaya, yaitudengan Visual Basic 2008 Express Edition. Aplikasi inidapat diunduh (download) di internet melalui situshttp://www.microsoft.com/exPress/download/.Bahasa untuk Visual Basic terus berkembang bersamaanyang dirilisnya aplikasi IDE terbaru. Aplikasi IDE untukVisual Basic terus dikembangkan mulai dari versi 2002,2003, 2005, dan 2008. Versi yang lebih baru dari VisualBasic hadir dengan perbaikan, serta aplikasi IDE yanglebih mudah dan lengkap

NET Framework 

merupakan library dan virtualmachineyang terus berkembang mengikuti teknologiterbaru. Versi .NET Framework dimulai dari versi 1.0, 1.1,2.0, 3.0, dan 3.5. Versi .NET yang terbaru biasanya dirilisdengan perbaikan serta dukungan terhadap teknologi barusehingga semakin memudahkan pengembangan software

Visual Studio 2008

Visual Studio 2008 hadir dengan beberapa versi, yaitu:

• Team System

didesain untuk pemrograman dilingkungan korporasi dengan jumlah programmer yangbesar.

•Professional Edition

didesain untuk pemrogramanyang melibatkan sedikit programmer

•Standard Edition

didesain untuk pemrogramanstandar yang bukan enterprise

•Express Edition

didesain untuk pemula yang barubelajar dan hobi dengan fasilitas yang sangat terbatas.Visual Studio tidak hanya mendukung bahasa Visual Basicsaja, namun juga bahasa lain. Terutama C++ dan C#.

Membuat Program dengan VisualBasic .NET

Pemrograman dengan Visual Basic dibuat dengan beberapatahap berikut:

1.Menuliskan kode program dengan bantuan aplikasi IDE.Artinya, Anda menuliskan program menggunakan aplikasiMicrosoft Visual Studio 2008 atau Visual Basic 2008Express Edition.

2.Mengompilasi kode program tersebut menjadi programyang dapat dijalankan/dieksekusi. Hasil kompilasi adalahinstruksi CIL (Common Intermediate Language) atau MSIL(Microsoft Intermediate Language) yang hanya dimengerti oleh kompiler JIT (Just In Time) dan tidak dapat dieksekusilangsung pada komputer.

3.Penyebaran (distribusi) program di komputer dengan .NETFramework.

 

Tahapan dari penulisan kode program, kompilasi, lalueksekusi hasil kompilasi dengan JIT

MSIL atau sekarang disebut dengan CIL merupakan bahasayang bersifat netral (tidak tergantung sistem operasi dan

hardwarekomputer).Kompilasi JIT dilakukan olehCommon Language Runtime(CLR)untuk mengubah bahasa CIL yang bersifat netral (platformindependent ), menjadi kode yang dapat dibaca oleh perangkat keras (hardware) dan sistem operasi yangdigunakan (platform sekarang).

Tahap pengembangan software dengan Visual Studio 20