Jumat, 02 Maret 2012

Sabtu, 28 Januari 2012

JAWABAN

LISTING PROGRAM

HALAMAN 33

Public Class uas1

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

        tabel()

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If kode_barang.Text = ("TS001") Then
            merk.Text = "TOSHIBA"

        ElseIf kode_barang.Text = ("TS002") Then
            merk.Text = "TOSHIBA"

        End If

        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If kode_barang.Text = ("VG001") Then
            merk.Text = "V-GEN"

        ElseIf kode_barang.Text = ("VG002") Then
            merk.Text = "V-GEN"

        End If

        x = Microsoft.VisualBasic.Mid(kode_barang.Text, 3, 3)
        If kode_barang.Text = ("TS001") Then
            nama_barang.Text = "FLASHDISK 4GB"
            harga.Text = 105000

        ElseIf kode_barang.Text = ("TS002") Then
            nama_barang.Text = "FLASHDISK 2GB"
            harga.Text = 75000

        ElseIf kode_barang.Text = ("VG001") Then
            nama_barang.Text = "FLASHDISK 4GB"
            harga.Text = 90000
        ElseIf kode_barang.Text = ("VG002") Then
            nama_barang.Text = "FLASHDISK 2GB"
            harga.Text = 60000

        End If

    End Sub

    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
        If e.KeyChar = vbCr Then
            total_harga.Focus()

            total_harga.Text = jumlah_beli.Text * harga.Text
        End If

    End Sub

    Sub tabel()
        lv.Columns.Add("no_pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("ko_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("na_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("merk", 110, HorizontalAlignment.Left)
        lv.Columns.Add("harga", 110, HorizontalAlignment.Left)
        lv.Columns.Add("jumlah_beli", 110, HorizontalAlignment.Left)
        lv.Columns.Add("total_harga", 120, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

    End Sub

    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no_pembeli.Text
        lst.SubItems.Add(kode_barang.Text)
        lst.SubItems.Add(nama_barang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah_beli.Text)
        lst.SubItems.Add(total_harga.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub btnsimpnlisview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpnlisview.Click
        isi()

    End Sub

    Private Sub btnhpssmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssmuadata.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapsdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsdatapilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

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

End Class

HASIL GAMABAR

soal no 3

Program Pembayaran Tagihan PDAM Dengan Menggunakan Login dan Menu

disini Listing Program :
a. Login
Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “robi”) And (LCase(password.Text) = “sahri″) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
b. Menu
Public Class menu_utama
Private Sub PembayaranTagihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTagihanToolStripMenuItem.Click
Pembayaran.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
c. Pembayaran Tagihan
Public Class Pembayaran
Dim a As String
Dim b As String
Private Sub Pembayaran_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_pelanggan.Items.Add(“TOKO”)
tipe_pelanggan.Items.Add(“RUMAH”)
tipe_pelanggan.Items.Add(“SWALAYAN”)
tipe_pelanggan.Items.Add(“PABRIK”)
Call buattabel()
End Sub
Private Sub tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe_pelanggan.SelectedIndexChanged
If tipe_pelanggan.Text = “TOKO” Then
b = “TOK”
biaya_beban.Text = 25000
harga_per_m3.Text = 300
ElseIf tipe_pelanggan.Text = “RUMAH” Then
b = “RUM”
biaya_beban.Text = 15000
harga_per_m3.Text = 100
ElseIf tipe_pelanggan.Text = “SWALAYAN” Then
b = “SWA”
biaya_beban.Text = 10000
harga_per_m3.Text = 200
Else
b = “PAB”
biaya_beban.Text = 250000
harga_per_m3.Text = 500
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
If daerah.Text = “MEDAN” Then
a = “MED”
ElseIf daerah.Text = “BELAWAN” Then
a = “BEL”
ElseIf daerah.Text = “AKSARA” Then
a = “TEM”
ElseIf daerah.Text = “MARENDAL” Then
a = “MAR”
ElseIf daerah.Text = “BINJAI” Then
a = “BIN”
Else
a = “PAK”
End If
End Sub
Private Sub no_urut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_urut.KeyPress
If e.KeyChar = Chr(13) Then
kode_pelanggan.Text = b & “-” & a & “-” & no_urut.Text
End If
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
total_tagihan.Text = biaya_beban.Text + harga_per_m3.Text * pemakaian.Text
pajak.Text = 0.01 * total_tagihan.Text
jumlah_bayar.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 100, HorizontalAlignment.Left)
.Columns.Add(“Biaya Beban”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga Per M3″, 100, HorizontalAlignment.Left)
.Columns.Add(“Pemakaian Per Bulan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Tagihan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pajak”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Yang Harus Dibayar”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = kode_pelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe_pelanggan.Text)
.SubItems.Add(no_urut.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(harga_per_m3.Text)
.SubItems.Add(pemakaian.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(jumlah_bayar.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
daerah.Text = “”
tipe_pelanggan.Text = “”
no_urut.Text = “”
kode_pelanggan.Text = “”
biaya_beban.Text = “”
harga_per_m3.Text = “”
pemakaian.Text = “”
total_tagihan.Text = “”
pajak.Text = “”
jumlah_bayar.Text = “”
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub
Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Close()
End Sub
End Class
Hasil Program :
a. Login:

b. Menu

c. Pembayaran Tagihan

Kamis, 26 Januari 2012

4 CARA HACK FACEBOOK

Kali ini kita akan HACK FACEBOOK dengan tangan kosong atau tanpa software Banyak cara untuk hack password atau mendapatkan password facebook orang lain mulai dari

memekai software atau tidak tapi disini saya mencoba mejelaskan cara termudah dalam

4 CARA HACK FACEBOOK Banyak sekali blog atau forum yang membahas

cara hack facebook

, nah kali ini saya jugamau ikut-ikutan membahas tentang 4 metode membobol atau meng-hack akun facebook yangumum digunakan berikut dengan cara mengantisipasinya atau mencegahnya agar kita semua bisalebih berhati-hati.Facebook merupakan layanan jejaring sosial paling popular di indonesia selain twitter, datafebruari 2009 saja penggunanya sudah 1,5 jutaan, data terakhir pengguna akun facebook sayasendiri belum tahu. Pembobolan akun facebook kian marak saja, beberapa akun facebook milik teman saya sendiri sudah kena hack, allhamdulillah punya saya enggak . Nah, langsung saja berikut ini 4 cara hack facebook yang biasanya digunakan dan juga cara mencegah agar akunfacebook anda tidak kena hack :

Cara hack facebook dengan metode fake login

:Cara ini paling banyak digunakan dan terbukti efektif untuk meng-hack facebook, sebenarnyametodenya simple saja, kita tinggal membuat halaman login palsu yang kemudian kita upload kesebuah website bahkan website gratisan pun bisa, kemudian kita pancing pengguna facebook agar menuju halaman login facebook palsu tersebut, cara memancing pengguna facebook pun ber macam macam bisa lewat email palsu yang mengatasnamakan facebook, link login palsu danmetode social engineering lainnya. Cara mencegah hack facebook dengan metode ini : sebelumanda login atau memasukkan username dan password anda pastikan bahwa alamat url tersebut benar, jika anda tidak yakin buka saja sebuah jendela baru, masukan alamat facebook (http://www.facebook.com) dan login melalui jendela tersebut. pastikan keaslian email yangmengatasnamakan facebook yang memancing anda agar login facebook yang masuk ke inboxanda, atau abaikan saja email tersebut.

Cara hack facebook dengan network sniffing

:Bagi anda pengguna facebook yang menggunakan koneksi internet yang juga digunakan banyak orang seperti warnet atau koneksi internet di kampus atau tempat umum atau hotspot, apalagiyang gratisan harap berhati-hati. cara hack facebook dengan metode ini cukup mudah, berbekalsoftware packet sniffer yang sangat mudah di download dan digunakan untuk memantau danmenyimpan paket lalu lintas jaringan, seseorang bisa dengan mudah membobol akun facebook dengan memanfaatkan paket data yang tersimpan tadi. cara menghindari agar akun facebook anda tidak kena hack dengan cara ini adalah dengan berhati-hati saat mengakses facebook, pastikan warnet atau hotspot area yang anda gunakan benar-benar aman.

Cara hack facebook dengan keylogger

:Kembali lagi bagi anda yang menggunakan akses internet dari warnet atau hotspot dan mungkin juga di kampus atau di kantor harap berhati-hati. cara hack facebook dengan metode ini jugacukup mudah, tinggal pasang software keylogger yang berfungsi untuk merekam aktifitas penggunaan keyboard dan kemudian menggunakan data tersebut untuk mendapatkan usernamedan password facebook. seseorang bisa saja memasang software keylogger ke laptop atau pcanda atau menyebar trojan kedalam komputer di dalam sebuah jaringan komputer yang tidak aman. cara mencegahnya : pastikan antivirus pada komputer anda selalu up to date.

Cara hack facebook dengan metode bruteforce

:Cara hack facebook dengan metode ini adalah cara paling bodoh untuk membobol facebook dan biasanya paling terakhir digunakan, karena membutuhkan waktu yang tidak singkat. metodehacking facebook dengan cara ini adalah dengan menggunakan software bruteforce untuk menebak-nebak password facebook sebuah akun dari sebuah file dictionary / kamus atau jugacharacter generator. cara mencegah hack facebook dengan metode ini adalah dengan melindungialamat email yang anda gunakan untuk login facebook, caranya bisa bermacam-macam, anda bisa memisah antara email untuk umum dan email untuk login facebook dan tidak menampilkannya di halam profil facebook anda. Nah, dari beberapa

cara hack facebook

dan pencegahannya di atas semoga anda lebih berhati-hati, untuk lebih detail mengenai tiap metode atau cara yang saya sebutkan di atas akan saya bahas di postingan saya yang selanjutnya, semoga bermanfaat dan semoga akun facebook andatidak kena hack

mendapatkan password facebook orang laing tanpa software bantuan...tapi dari kecorobohan

target...

Nah teman sering kan nemuin akun facebook seseorang yang tidak terlogout itu adalah suatu

kesalahan besar apalagi akun facebooknya chip banyak *chip terus mantan pencuri chip nich

wkwkw... tapi teman-teman bingung kan cara dapatin password tapi cuman bisa ngutak-ngatik

bentar...

Cara dapatkan passwornya gampang beud apalagi digunain Browser Mozila firefox...hoho:
1. klik Save Password pada bagian atas tu ada
2 buka tools > options > Security > Saved Password > shows password
3. Tampih d

budi darma

VB.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 aplikasiWindows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh secara terpadu dalamMicrosoft 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. Peluncurannya mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh Microsoft, dan versi baru ini tidak kompatibel dengan vsi terdahulu.

VERSI

Terdapat tiga buah versi Visual Basic yang dirilis hingga bulan Agustus 2007, yakni:

Visual Basic .NET 2002 (VB 7.0)

Versi pertama dari Visual Basic .NET adalah Visual Basic .NET 2002 yang dirilis pertama kali pada bulan Februari 2002. Visual Basic .NET 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.
Versi 7.0 ini dirilis bersamaan dengan Visual C# dan ASP.NET. Bahasa C#, yang dianggap sebagai jawaban terhadap Java, mendapatkan perhatian yang lebih banyak dibandingkan dengan VB.NET yang kurang begitu banyak diulas. Hasilnya, sedikit orang di luar komunitas Visual Basic yang memperhatikan VB.NET. Versi pertama ini kurang mendapat sambutan yang bagus dari para programmer, dan pada saat itu, program berbasis Visual Basic 6.0 sedang marak-maraknya dibuat. 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.

Visual Basic .NET 2003 (VB 7.1)

Selanjutnya, pada bulan Maret 2003, Microsoft pun merilis lagi versi yang lebih baru dari Visual Basic .NET, Visual Basic .NET 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 dariIntegrated 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 Visual Basic 2005 (VB 8.0)

Setelah itu, Microsoft pun berkonsentrasi dalam mengembangkan Microsoft .NET Framework 2.0, dan tentunya alat bantu untuk membangun program di atasnya. Hingga pada tahun 2005, mereka pun merilis versi terbaru dari Visual Basic .NET, yang kali ini disebut dengan Visual Basic 2005 (dengan membuang kata “.NET”), 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.

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 tigaoperand), 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’

HUBUNGAN DENGAN VISUAL BASIC KLASIK

Apakah Visual Basic .NET dianggap sebagai sebuah versi Visual Basic atau benar-benar bahasa yang berbeda merupakan sebuah topik perdebatan yang hangat. Hal ini dikarenakan sintaksis bahasa Visual Basic .NET tidak mengalami perubahan yang sangat drastis, dan hanya menambahkan beberapa dukungan fitur baru seperti penangananeksepsi secara terstruktur dan ekspresi yang bisa di-short-circuit-kan. Dua perubahan tipe data pun terjadi saat berpindah ke Visual Basic .NET. Dibandingkan dengan Visual Basic 6.0, tipe data Integer yang dimiliki oleh Visual Basic .NET memiliki panjang dua kali lebih panjang, dari 16 bit menjadi 32 bit. Selain itu, tipe data Long juga sama-sama berubah menjadi dua kali lipat lebih panjang, dari 32 bit menjadi 64 bit. Bilangan bulat 16-bit dalam Visual Basic .NET dinamakan dengan Short. Lagi pula, desainer GUI Windows Forms yang terdapat di dalam Visual Studio .NET atau Visual Basic .NET memiliki gaya yang sangat mirip dengan editor form Visual Basic klasik.
Jika sintaksis tidak banyak yang berubah, lain halnya dengan semantik, yang berubah secara signifikan. Visual Basic .NET merupakan sebuah bahasa pemrograman yang mendukung fitur “Bahasa Pemrograman Berorientasi Objek” secara penuh, karena memang didukung oleh arsitektur Microsoft .NET Framework, yang mengandung kombinasi dari Common Language Runtime dan Base Class Library. Visual Basic klasik, hanya merupakan sebuah bahasa pemrogaman berbasis objek, yang berjalan di atas arsitektur Component Object Model (COM).
Perubahan ini telah mengubah banyak asumsi tentang hal yang benar yang harus dilakukan dengan mempertimbangkan performa dan kemudahan untuk dipelihara. Beberapa fungsi dan pustaka perangkat lunak, yang ada di dalam Visual Basic klasik, kini tidak terdapat di dalam Visual Basic .NET; mungkin masih banyak yang masih terdapat di dalam Visual Basic .NET, tapi tidak seefisien apa yang ditawarkan oleh .NET Framework. Bahkan jika program Visual Basic klasik bisa dikompilasi dengan benar, sebagian besar program Visual Basic klasik harus melalui beberapa proses refactoring untuk mengadopsi fitur bahasa baru secara keseluruhan. Dokumentasi untuk ini pun tersedia di situs Microsoft^[1].

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: ^[2].

  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 objekCheckBox 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

ANAK RANTAU