Yuk, Belajar Program Menggunakan VB 2008

Pertama-tama dalam suatu program itu kita harus mengetahui apa itu Visual Basic 2008, nah ini aku kasih tau terlebih dulu apa pengertian Visual Basic 2008 itu ???

1. Pengertian Visual Basic 2008

Microsoft Visual Basic.Net adalah sebuah alat untuk mengembangkan dan membangun aplikasi yang bergerak di atassistem Net Framework, dengan menggunakan bahasa BASIC. Dengan menggunakan alat ini para programmer dapat membangun aplikasi Windows Froms, terpisah dari beberapa produk lainnya seperti ( Microsft C++, Visual C#, Visual J# ) atau juga dapat diperoleh secara terpadu dalam Microsoft Visual Studio. Net. Bahasa Visual Basic.Net sendiri menganut pradigma bahasa pemrograman berorientasi objek yang dapat di lihat sebagai evolusi dari Microsft Visual Basic versi sebelumnya yang dimplementasikan diatas Net Framwork.

Nah Teman-teman ku, aku mengasih suatu program yang mudah buat kalian....

Latihan Listview Pemesan Tiket Pesawat

Langkah pertama itu, Kita harus membuat dulu Label, Combobox, Textbox dan Button dan jangan lupa juga teman kalau untuk label di propetiesnya dibagian text diganti kalau untuk Combobox di propetiesnya dibagian nama diganti dan kalau untuk Button itu di ganti nama dan text nya contohnya di nama di beri nama Btnproses dan di text diberi nama proses dan disamping combobox itu di beri dengan nama nomor.

Gambar 1

 Langkah kedua,Klik di sembarang tempat pada From1 lalu ketik kodingnya seperti di bawah ini :

Public Class Form1

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

        For i = 1 To 3

            kode.Items.Add("KL" & i)

            kode.Items.Add("AR" & i)

        Next

    End Sub

selesai lalu klik pada bacaan proses lalu masukkan kodingnya seperti dibawah ini :

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 2)

        Select Case x

            Case "KL"

                nama.Text = "Garuda-001"

                nomor.Text = 1

            Case "AR"

                nama.Text = "Air lines-001"

                nomor.Text = 2

        End Select

    End Sub

dan selanjutnya di samping Combobox kan ada Textbox klik pada Textbox tersebut

nah ini koding programnya :

    Private Sub nomor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor.TextChanged

        Select Case nomor.Text

            Case 1

                harga.Text = "300000"

            Case 2

                harga.Text = "250000"

        End Select

    End Sub

End Class

lalu tekan F5 pada keyboard...

ini hasil dari program tersebut :

Hasi Program

Nah terima kasih teman,semoga bermanfaat dan berguna pada kalian 

jangan lupa add facebook  dan twitter saya, mana tau bisa kita sharing-sharing :

Facebook : Muhammad Syafii Chaniago

Twitter : MSyafiiChaniago