Testing Visual Basic 2010

PROGRAM PEMBELIAN LAGU SOEKAMTI MUSICA STUDIO

1. Langkah pertama buatlah design seperti ini :

DESIGN	NAME
GRUOPBOX	DAFTAR NSP (setting pada properties edit item inputkan nama kode nsp anda)
LABEL1	KODE NSP
LABEL2	NAMA LAGU
LABEL3	ARTIST
LABEL4	GENRE
LABEL5	HARGA NSP
LABEL6	JUMLAH BELI
LABEL7	HARGA
LABEL8	DISKON
LABEL9	TOTAL HARGA
COMBOBOX	COMBOBOX
TEXTBOX1	TEXTBOX1
TEXTBOX2	TEXTBOX2
TEXTBOX3	TEXTBOX3
TEXTBOX4	TEXTBOX4
TEXTBOX5	TEXTBOX5
TEXTBOX6	TEXTBOX6
TEXTBOX7	TEXTBOX7
TEXTBOX8	TEXTBOX8
LISTVIEW	Inputkan pada menu properties “edit item” : nama dari label1 – label9

   Maka akan muncul design seperti ini :

Note : untuk background bisa anda modif sesuai keinginan pada menu properties dan seacrh file.Untuk Listview sebelumnya setting properties untuk mengubah FullRowSelect menjadi True dan GriedLines menjadi True.

2.  klik pada “COMBOBOX” lalu inputkan coding berikut :

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

        If ComboBox1.Text = "E01" Then

            TextBox1.Text = "ANGKA 8"

            TextBox2.Text = "ENDANK SOEKAMTI"

            TextBox3.Text = "PUNK ROCK"

            TextBox4.Text = "50000"

        ElseIf ComboBox1.Text = "E02" Then

            TextBox1.Text = "LONG LIVE FAMILY"

            TextBox2.Text = "ENDANK SOEKAMTI"

            TextBox3.Text = "PUNK ROCK"

            TextBox4.Text = "100000"

        End If

        TextBox5.Focus()

    End Sub

3. Untuk menentukan haga dari jumlah beli,diskon,dan total harga klik pada Textbox5 dan inputkan coding berikut :

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

        If Asc(e.KeyChar) = 13 Then

            TextBox8.Focus()

        End If

        TextBox6.Text = Val(TextBox4.Text) * Val(TextBox5.Text)

        TextBox7.Text = Val(TextBox4.Text) * Val(TextBox5.Text) * 0.05

    End Sub

Note : ganti sub dengan KeyPress

4. Untuk menampilkan Lsitview dari hasil inputan program inputkan coding berikut pada textbox8 :

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

        If Asc(e.KeyChar) = 13 Then

            ListView1.Focus()

            TextBox8.Text = TextBox6.Text - TextBox7.Text

        End If

        Call ISITABLE()

    End Sub

                      Inputkan juga pada Public class from1 :

Sub BUATTABLE()

        ListView1.Columns.Add("KODE NSP", 25, HorizontalAlignment.Center)

        ListView1.Columns.Add("NAMA LAGU", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("ARTIST", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("GENRE", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("HARGA NSP", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("JUMLAH BELI", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("HARGA", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("DISKON", 50, HorizontalAlignment.Center)

        ListView1.Columns.Add("TOTAL HARGA", 50, HorizontalAlignment.Center)

    End Sub

    Sub ISITABLE()

        Dim IST As New ListViewItem

        IST.Text = ComboBox1.Text

        IST.SubItems.Add(TextBox1.Text)

        IST.SubItems.Add(TextBox2.Text)

        IST.SubItems.Add(TextBox3.Text)

        IST.SubItems.Add(TextBox4.Text)

        IST.SubItems.Add(TextBox5.Text)

        IST.SubItems.Add(TextBox6.Text)

        IST.SubItems.Add(TextBox7.Text)

        IST.SubItems.Add(TextBox8.Text)

        ListView1.Items.Add(IST)

    End Sub

5. maka hasilnya akan seperti ini :