apa aku terlalu bodoh ?

hari demi hari q lalui dengan fikiran penuh bingung . udah 3 kali aku bimbingan KP , tapi aku ngerasa apapun yang aku buat selalu salah ... apa aku terlalu bodoh ??? ini baru laporan KP , gimana kalau ini Skripsi ? ku rasa aku pasti nangis tiap malam ...

soal no.3 tentang TAGIHAN PDAM

soal no.3 tentang TAGIHAN PDAM

untuk lebih jelas , klik disini

Public Class Form1

    Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If nomor.Text = "123456" And password.Text = "090909" Then
            MENUUTAMA.Show()
            Me.Hide()
        Else
            MsgBox("DATA ANDA SALAH !!!")
            nomor.Text = ""
            password.Text = ""
        End If
    End Sub
End Class

(SELANJUTNYA BUAT FORM LAGI DENGAN NAME : MENUUTAMA.VB)
DESAIGN TAMPILAN MENGGUNAKAN "MENUS & TOOLBAR" PADA TOOLBAR.


Public Class MENUUTAMA


    Private Sub DATAPELANGGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPELANGGANToolStripMenuItem.Click
        DATA_pelanggan.Show()
    End Sub
End Class

(SELANJUTNYA BUAT FORM LAGI DENAGAN NAME: DATA_pelanggan)
DESAIGN TAMPILAN DAN PROGRAM :

Public Class DATA_pelanggan

    Sub BUATTABEL()
        LV.Columns.Add("No.REKENING", 100, HorizontalAlignment.Left)
        LV.Columns.Add("NAMA", 130, HorizontalAlignment.Center)
        LV.Columns.Add("KODE PELANGGAN", 70, HorizontalAlignment.Center)
        LV.Columns.Add("NO.URUT", 50, HorizontalAlignment.Center)
        LV.Columns.Add("DAERAH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("BEBAN BIAYA", 90, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA PER m3", 90, HorizontalAlignment.Center)
        LV.Columns.Add("PEMAKAIAN", 60, HorizontalAlignment.Center)
        LV.Columns.Add("BIAYA", 160, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL BAYAR", 180, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NOREK.Text
        LST.SubItems.Add(NAMA.Text)
        LST.SubItems.Add(KODE.Text)
        LST.SubItems.Add(NOMOR.Text)
        LST.SubItems.Add(LOKASI.Text)
        LST.SubItems.Add(TIPEPELANGGAN.Text)
        LST.SubItems.Add(BEBAN.Text)
        LST.SubItems.Add(HARGA.Text)
        LST.SubItems.Add(PEMAKAIAN.Text)
        LST.SubItems.Add(BIAYA.Text)
        LST.SubItems.Add(PAJAK.Text)
        LST.SubItems.Add(TOTAL.Text)
        LV.Items.Add(LST)
    End Sub

    Private Sub DATA_PELANGGAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BUATTABEL()
        LOKASI.Items.Add("MEDAN")
        LOKASI.Items.Add("BELAWAN")
        LOKASI.Items.Add("AKSARA")
        LOKASI.Items.Add("MARINDAL")
        LOKASI.Items.Add("BINJAI")
        LOKASI.Items.Add("LUBUK PAKAM")

        TIPEPELANGGAN.Items.Add("TOKO")
        TIPEPELANGGAN.Items.Add("RUMAH")
        TIPEPELANGGAN.Items.Add("SWALAYAN")
        TIPEPELANGGAN.Items.Add("PABRIK")


    End Sub

    Private Sub TIPEPELANGGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIPEPELANGGAN.SelectedIndexChanged


        If TIPEPELANGGAN.Text = "TOKO" Then
            BEBAN.Text = 25000
            HARGA.Text = 300
        ElseIf TIPEPELANGGAN.Text = "RUMAH" Then
            BEBAN.Text = 15000
            HARGA.Text = 100
        ElseIf TIPEPELANGGAN.Text = "SWALAYAN" Then
            BEBAN.Text = 10000
            HARGA.Text = 200
        ElseIf TIPEPELANGGAN.Text = "PABRIK" Then
            BEBAN.Text = 250000
            HARGA.Text = 500
        End If

        KODE.Text = TIPEPELANGGAN.Text & LOKASI.Text & NOMOR.Text

    End Sub

    Private Sub PEMAKAIAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMAKAIAN.TextChanged
        BIAYA.Text = (PEMAKAIAN.Text * HARGA.Text) + BEBAN.Text

        PAJAK.Text = 0.01 * BIAYA.Text

        TOTAL.Text = Val(BIAYA.Text) + PAJAK.Text
    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        ISITABEL()

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NOREK.Text = ""
        NAMA.Text = ""
        KODE.Text = ""
        NOMOR.Text = ""
        LOKASI.Text = ""
        TIPEPELANGGAN.Text = ""
        BEBAN.Text = ""
        HARGA.Text = ""
        PEMAKAIAN.Text = ""
        BIAYA.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
        NOREK.Focus()

    End Sub

    Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End

    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 BTNHAPUSDIPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDIPILIH.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub
End Class

pak ,ini adalah program yang terdapat pada soal hal 33  untuk hari selasa.LATIHAN HALAMAN 33:

Public Class Form1

    Sub BUATTABEL()
        LV.Columns.Add("No.PEMBELIAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("KODE BARANG", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA BARANG", 120, HorizontalAlignment.Left)
        LV.Columns.Add("MERK", 85, HorizontalAlignment.Left)
        LV.Columns.Add("HARGA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH BELI", 70, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL HARGA", 160, HorizontalAlignment.Right)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NOMOR.Text
        LST.SubItems.Add(KODE.Text)
        LST.SubItems.Add(NAMA.Text)
        LST.SubItems.Add(MERK.Text)
        LST.SubItems.Add(HARGA.Text)
        LST.SubItems.Add(JUMLAH.Text)
        LST.SubItems.Add(TOTAL.Text)
        LV.Items.Add(LST)

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

    End Sub


    Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Right(KODE.Text, 3)
        If X = "001" Then
            NAMA.Text = "FLASHDISK 4GB"
        ElseIf X = "002" Then
            NAMA.Text = "FLASHDISK 2GB"
        Else
            NAMA.Text = 0
        End If

        X = Microsoft.VisualBasic.Left(KODE.Text, 2)
        If X = "TS" Then
            MERK.Text = "TOSHIBA"
        ElseIf X = "VG" Then
            MERK.Text = "V-GEN"
        Else
            MERK.Text = 0
        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 JUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH.TextChanged
        If KODE.Text = "TS001" Then
            HARGA.Text = 105000
        ElseIf KODE.Text = "TS002" Then
            HARGA.Text = 75000
        ElseIf KODE.Text = "VG001" Then
            HARGA.Text = 90000
        Else
            HARGA.Text = 60000
        End If

        TOTAL.Text = JUMLAH.Text * Val(HARGA.Text)

    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        NOMOR.Text = ""
        KODE.Text = ""
        NAMA.Text = ""
        MERK.Text = ""
        HARGA.Text = ""
        JUMLAH.Text = ""
        TOTAL.Text = ""
        NOMOR.Focus()

    End Sub

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

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

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

End Class

pintar atau cerdas ?

Tak selamanya orang yang dapat predikat "pintar" tu mampu berfikir cerdas .

setiap manusia punya kemampuan dan skill yang berbeda .
mungkin disisi lain , manusia yang anggap "remeh" itu adalah orang yang akan membantu anda suatu saat nanti .
ataupun sebaliknya , malah manusia yang anda anggap "mampu" , belum tentu bisa membantu anda .
oleh sebab itu , berbuat baik dan sewajarnya terhadap orang lain .

apa ada yang salah ?

diriku benar2 gak ngerti , kenapa orang2 menatap sinis kepadaku ....
padahal , diriku sama sekali tak pernah melakukan hal buruk terhadap mereka ...

aneh ....
serasa " famous" ....

YANG PENTING NYAMAN

 

Tanggal 9 oktober 2011 merupakan hari yang bahagia sekaligus melelahkan . karena hari itu merupakan wedding party_a kakak dari sahabatku. Dimulai dari jam 9 pagi , diriku harus dandan dan pakai kebaya ini . hal yang paling berat yang ku lakukan hari itu adalah memakai "high heels 12cm" ...

4 jam pertama , masih terasa nyaman , akan tetapi setelah itu rasa pegal mulai menghampiri . Alhasil heels 12cm di ganti dengan "sendal jepit" yang super-duper nyaman.
meskipun sendal jepit gak se-sexy high heels , tapi sendal jepit memberikan kenyamanan ...
YANG PENTING NYAMAN cinnn....

MOMENT

Liburanku

Sebenarnya diriku bingung harus menulis apalagi ,,,

jadi diriku hanya sekedar sharing pengalaman liburanku di Kuala Lumpur, Malaysia .

ini adalah foto diriku dan keluarga di depan "SOGO KL",salah satu departement store yang ada di kota Kuala Lmpur, Malaysia.

Ini adalah diriku yang berfoto di depan sebuah mall yang berkonsep sangat unik , yaitu memiliki konsep timur tengah , "SUNWAY  LAGOON"...

Ini adalah diriku di sky bridge "TWIN TOWER PETRONAS,Malaysia".

untuk bisa menginjakkan kaki di sky bridge ini , kita harus membeli karcis seharga 10RM/orang untuk siang hari dan 40RM/orang untuk malam hari karena ada pertunjukkan digital lighting. Dan tidak semua orang bisa memasukinya .

foto ini , di ambil di pintu masuk "TWIN TOWER". mobil yang tampak ini adalah replika dari mobil balap yang di sponsori oleh petronas, malaysia.

ini merupakan suasana vihara di "genting highland".tempat ini terletak di atas bukit . suhu udara di tempat ini mencapai 5 derajat celcius.

 foto ini di ambil di first world hotel , daerah genting highland, malaysia. Di tempat ini juga terdapat Cassino(tempat pejudian kelas atas) dan tidak sembarangan bisa masuk ke dalamnya , kaena penjagaan yang super ketat .

Inilai sebagian kisah ku .

Semoga kawan2 , bisa mengujunginya juga di lain kesempatan.

SELALU ADA KEMUDAHAN DI BALIK KESUSAHAN

Minggu malam jam 10 , diriku dan ibuku hendak pulang ke medan dari menghadiri acara keluarga di binjai .
pada awalnya hujan sudah berhenti, akan tetapi ketika sepeda motorku melaju kira-kira 2 km dari tempat acara , hujan kembali turun dengan intensitas yang kecil ... jadi diriku pun terus melaju dengan kecepatan yang sedang .

kira2 di daerah binjai km 17 , jalanan sangat macet . diriku pun mengikuti para pengendara sepeda motor lainnya melewati jalanan "tikus"...
setelah beberapa meter melewati jalan " tikus" , akhirnya diriku baru mengetahui bahwa jalanan sedang banjir dengan ketinggian mencapai betis orang dewasa .

sepeda motor lain banyak yang tak berani melewati jalanan tersebut dan memilih menunggu banjir tersebut surut .
kan tetapi itu tak terjadi padaku . diriku terus menerjang banjir tersebut. pada saat berusaha melewati banjir , diriku melihat banyak sepeda motor yang mogok dan harus di dorong . ibuku menguatkan diriku , supaya tetap fokus dan jangan "drop" .

dengan terus berusaha dan berdo'a , akhirnya diriku dan ibuku berhasil melewatinya dengan selamat dan tidak mogok ...
ternyata allah menjabah do'a kami , karena cuma sepeda motor kami yang mampu melewati banjir tersebut padahal sepeda motor kami "matic"...
dan aku menganggap ini mukjizat allah ... :)
. 

SEMUA PASTI AKAN BAIK-BAIK SAJA

Se-minggu kehilangan seorang sahabat ,aku rasakan juga .
dia sakit yang pada awalnya di diaknosis memiliki penyakit "sinusitis" ,,,
akan tetapi setelah bebrapa hari , dia semakin drop dan langsung di bawa ke rumah sakit ,,,

di kamis sore yang mendung , aku dapat kabar kalau dia masuk ruang ICU.
seketika itu juga , jantung ini terasa tidak karuan ...
tapi hati kecil ini selalu menguatkan : "dia pasti sembuh" ...

sehari setelah itu , aku dan sahabat lain menjenguk dia...
kami hanya melihat dia dari balik kaca dan tidak di perbolehkan masuk ke dalam karena itu ruang ICU , jadi tidak sembarangan bisa masuk ...
dia nampak lesu dan pucat ...
ibunya menghampiri kami dan menjelaskan semua yang terjadi ...
ternyata dia terserang penyakit "thypus"...

kami pun hanya menunggu sampai di perbolehkan masuk ,,,
sembari melihat dan mengamati dia dari balik jendela ...

hampir 2 jam menunggu , akhirnya kami di izinkan masuk ...

di dalam ruang ICU kami mencoba menyenangkan hatinya dengan bercerita...
dia pun tertawa juga ...
aku dan sahabat lain merasa sangat senang , bisa melihat dia tersenyum dan tertawa ...
lalu aku berkata "harus kuat dan pasti sembuh y !!! ... (^_^) aminnnnn......

setelah tertawa dengan kami ,,,
dia terlihat segar sekaligus sedikit lelah ,,,
kami pun undur diri dan berpamitan dengan ibu dan kerabatnya yang lain , supaya dia bisa istirahat ,,,

CEPAT SEMBUH SAHABATKU ...
SEMUA PASTI AKAN BAIK-BAIK SAJA ...

Penghitung waktu

Cara kerjanya seperti penghitung waktu didalam handphone kita, yang dapat menghitung mundur sesuai kehendak kita.
Sebenernya cara ini aplikasi yang digunakan seperti billing diwarnet.
Bahan yang digunakan:

1. Timer (1 )
2. Label (2)
3. Text Box (1)

• Masukan Code dibawah ini sebagai pembuka Source Code pada form :

Option Explicit

Private m_StopTime As Date

• Masukan code berikutnya pada commandbutton

Private Sub cmdGo_Click()
Dim fields() As String
Dim hours As Long
Dim minutes As Long
Dim seconds As Long

fields = Split(txtDuration.Text, ":")
hours = fields(0)
minutes = fields(1)
seconds = fields(2)

m_StopTime = Now
m_StopTime = DateAdd("h", hours, m_StopTime)
m_StopTime = DateAdd("n", minutes, m_StopTime)
m_StopTime = DateAdd("s", seconds, m_StopTime)

tmrWait.Enabled = True
End Sub

• lalu berikutnya masukan code ini pada timer yang terdapat di form

Private Sub tmrWait_Timer()
Dim time_now As Date
Dim hours As Long
Dim minutes As Long
Dim seconds As Long

time_now = Now
If time_now >= m_StopTime Then
Me.WindowState = vbMaximized
tmrWait.Enabled = False
lblRemaining.Caption = "0:00:00"
Else
seconds = DateDiff("s", time_now, m_StopTime)
minutes = seconds \ 60
seconds = seconds - minutes * 60
hours = minutes \ 60
minutes = minutes - hours * 60
lblRemaining.Caption = _
Format$(hours) & ":" & _
Format$(minutes, "00") & ":" & _
Format$(seconds, "00")
End If
End Sub

Contoh Pemrograman

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

Visual Basic .NET

          Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini, para programmer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic versi sebelumnya yang diimplementasikan di atas .NET Framework.


Ada 4 versi Visual Basic yang dirilis hingga bulan Agustus 2007, yakni:


1.Visual Basic .NET 2002 (VB 7.0) dirilis pertama kali bersamaan dengan Visual C# dan ASP.NET. Bahasa C# pada bulan Februari 2002, merupakan sebuah bahasa pemrograman visual yang berbasis bahasa BASIC (sama seperti halnya Visual Basic 6.0, tetapi lebih disempurnakan dan lebih berorientasi objek), dan didesain untuk berjalan di atas Microsoft .NET Framework versi 1.0.

Para programmer yang mencoba Visual Basic .NET untuk pertama kali akan merasakan bahwa Visual Basic .NET sangatlah berbeda dibandingkan dengan Visual Basic sebelumnya. Contoh yang paling mudah adalah runtime engine yang lebih besar 10 kali lipat dibandingkan Visual Basic 6.0, dan juga meningkatkan beban di memori.

2.Visual Basic .NET 2003 (VB 7.1) di rilis pada bulan Maret 2003.Versi ini berisi beberapa perbaikan dibandingkan dengan versi sebelumnya, dan aplikasi yang dibuatnya dapat berjalan di atas .NET Framework versi 1.1. Fitur yang ditambahkan adalah dukungan terhadap .NET Compact Framework dan mesin wizard upgrade VB6 ke VB.NET yang telah ditingkatkan. Peningkatan yang lainnya adalah peningkatan pada performa dan keandalan dari Integrated Development Environment(IDE) Visual Basic itu sendiri, dan juga runtime engine.

Visual Basic .NET 2003 tersedia dalam beberapa jenis cita rasa: Professional, Enterprise Architect dan Academic Edition. Khusus untuk Visual Basic .NET 2003 Academic Edition, versi tersebut didistribusikan secara gratis untuk beberapa sekolah di dalam setiap negara; versi Professional dan Enterprise Architect merupakan produk komersial.

3.Visual Basic 2005 (VB 8.0)

Dirilis pada tahun 2005,  bersama-sama dengan beberapa aplikasi pengembangan lainnya.

Untuk rilis 2005 ini, Microsoft menambahkan beberapa fitur baru, di antaranya adalah:

• Edit and Continue
  Fitur ini sebelumnya terdapat di dalam Visual Basic, akan tetapi dihapus di dalam Visual Basic .NET. Dengan keberadaan fitur ini, para programmer dapat memodifikasi kode pada saat program dieksekusi dan melanjutkan proses eksekusi dengan kode yang telah dimodifikasi tersebut.
• Evaluasi ekspresi pada saat waktu desain
• Munculnya Pseudo-Namespace "My", yang menyediakan:
  • Akses yang mudah terhadap beberapa area tertentu dari dalam .NET Framework yang tanpanya membutuhkan kode yang sangat signifikan.
  • Kelas-kelas yang dibuat secara dinamis (khususnya My.Forms).
• Peningkatan yang dilakukan terhadap konverter kode sumber dari Visual Basic ke Visual Basic .NET.
• Penggunaan kata kunci (keyword) Using, yang menyederhanakan penggunaan objek-objek yang membutuhkan pola Dispose untuk membebaskan sumber daya yang sudah tidak terpakai.
• Just My Code, yang menyembunyikan kode reusable yang ditulis oleh alat bantu Integrated Development Environment (IDE) Visual Studio .NET.
• Pengikatan sumber data (Data Source binding), yang mampu mempermudah pengembangan aplikasi basis data berbasis klien/server.

Fungsi-fungsi yang tersebut di atas (khususnya My) ditujukan untuk memfokuskan Visual Basic .NET sebagai sebuah platform pengembangan aplikasi secara cepat dan "menjauhkannya" dari bahasa C#.

Bahasa Visual Basic 2005 memperkenalkan fitur-fitur baru, yakni:

• Bawaan .NET Framework 2.0:
  • Generics
  • Partial class, sebuah metode yang dapat digunakan untuk mendefinisikan beberapa bagian dari sebuah kelas di dalam sebuah berkas, lalu menambahkan definisinya di lain waktu; sangat berguna khususnya ketika mengintegrasikan kode pengguna dengan kode yang dibuat secara otomatis.
  • Nullable Type
• Komentar XML yang dapat diproses dengan menggunakan beberapa alat bantu seperti NDoc untuk membuat dokumentasi secara otomatis.
• Operator overloading
• Dukungan terhadap tipe data bilangan bulat tak bertanda (unsigned integer) yang umumnya digunakan di dalam bahasa lainnya.

4.Visual Basic 9.0 (Visual Basic 2008)

Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.

Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:

• Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis If (boolean, nilai, nilai). Ini dimaksudkan untuk mengganti fungsi IIF.
• Dukungan anonymous types
• Dukungan terhadap Language Integrated Query (LINQ)
• Dukungan terhadap ekspresi Lambda
• Dukungan terhadap literal XML
• Dukungan terhadap inferensi tipe data.
• dukungan terhadap 'LINQ'

sejarah dan perkembangan VISUAL BASIC

Bill Gates merupakan pendiri Microsoft, beliau memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, kemudian ia merubahnya 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.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, 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 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.

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

Perkembangan Visual Basic

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

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

• Proyek Thunder dimulai.
• Visual Basic 1.0 dirilis untuk Windows pada Comdex/Windows Trade Show di Atlanta, Georgia pada Mei 1991.
• Visual Basic 1.0 untuk DOS dirilis pada September 1992. Bahasa pemrogramannya sendiri tidak terlalu kompatibel dengan Visual Basic untuk Windows, karena sesungguhnya itu adalah versi selanjutnya dari kompiler BASIC berbasis DOS yang dikembangkan oleh Microsoft sendiri, yaitu QuickBASIC. Antarmuka dari program ini sendiri menggunakan antarmuka teks, dan memanfaatkan kode-kode ASCII tambahan untuk mensimulasikan tampilan GUI.
• Visual Basic 2.0 dirilis pada November 1992. Lingkungan pemrogramannya lebih mudah untuk digunakan, dan kecepatannya lebih ditingkatkan.
• Visual Basic 3.0 dirilis pada musim semi 1993 dan hadir dalam dua versi: Standar dan Professional. VB3 juga menyertakan versi 1.1 dari Microsoft Jet Database Engine yang dapat membaca dan menulis database Jet/Access 1.x.
• Visual Basic 4.0 (Agustus 1995) adalah versi pertama yang dapat membuat program 32-bit seperti program 16-bit. VB4 juga memperkenalkan kemampuannya dalam membuat aplikasi non-GUI. Bila versi sebelumnya menggunakan kontrol VBX, sejak VB4 dirilis Visual Basic menggunakan kontrol OLE (dengan ekstensi file *.OCX), yang lebih dikenal kemudian dengan kontrol ActiveX.
• Dengan versi 5.0 (Februari 1997), Microsoft merilis Visual Basic eksklusif untuk versi 32-bit dari Windows. Para programmer yang lebih memilih membuat kode 16-bit dapat meng-impor program yang ditulis dengan VB4 ke versi VB5, dan program-program VB5 dapat dikonversi dengan mudah ke dalam format VB4.
• Visual Basic 6.0 (pertengahan 1998) telah diimprovisasi di beberapa bagian, termasuk kemampuan barunya, yaitu membuat aplikasi web. Meskipun kini VB6 sudah tidak didukung lagi, tetapi file runtime-nya masih didukung hingga Windows 7.

Microsoft Visual Basic (VB)

Microsoft Visual Basic (sering disingkat sebagai VB ) merupakan turunan bahasa pemrograman BASIC yang menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat berupa Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

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.

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.

Visual Basic

Paradigma:	Berbasis objek
Pengembang:	Microsoft
Rilis terbaru:	Visual Basic 6 / 1998
Terpengaruh oleh:	(Inggris) QuickBASIC
Mempengaruhi:	Visual Basic .NET, Gambas,(Inggris) REALbasic,(Inggris) Basic4ppc
Sistem operasi:	Microsoft Windows, MS-DOS
Situs web:	msdn.microsoft.com