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 :

THE POWER OF AKU ORA OPO-OPO

Belajar dari kata ihklas itulah yang mau coba kita bahas sahabat blogger."The Power Of Aku Ora Opo-Opo".Ora opo-opo adalah kata jawa yang berarti tidak apa-apa.Dari kehidupan sehari-hari sering kita jumpai makna ikhlas dan sifat ikhlas yang harus kita terapkan dan kita maknai.

Sebuah kata yang berfungsi luar biasa dan tanpa kita sadari menimbun makna yang mendalam dari kata ihklas.Percaya atau tidak kita sering melakukan hal tersebut yaang terdengar sepele.walaupun pele sekarang sudah kalah dengan messi.ketingggalan satu gol kemarin friends..hehehe sedikit celoteh ya friends.

Sering kita alami kejadian dimana situasi mendatangkan kita pasa posisi harus menerima walau tak sesuai hasil.Simplenya kalau seperti jaman sekarang friends , dimana kita harus menerima hasil dari kerja kerass kita dengan kata finish / cut.Terkadang entah untuk terlihat tegar kita mengucap "AKU GAG PAPA KOK" tidak jauh beda dalam artian bahasa jawa friends "ORA OPO-OPO".

Sebuah kata yang berkonotasi sangat luar biasa dimana mampu menghilangkan rasa kecewa diahadapan orang.Tak perlu mengusap dahi dan tak perlu mengusap keringat kata ini mampu menutupi semua rasa kecewa yanng dibelakangnya kita percaya bahwa akan ada harapan dan tantangan yang menjadikan sebuah pencapaian.

Penegasan kata ORA OPO-OPO yang menjadi makna dari kekuatan makna ihklas yang terkadang dianggap susah diwujudkan oleh setiap orang.Kata simple yang mempunyai makna penuh arti dan makna disetiap deringnya.Menjadi sebuah mendalam ketika kita mampu mengatakanya.Banyak makna banyak arti.Yups itulah simbolnya.

Hanya orang-orang yang tegaar dan kuat yang mampu mengucapkan kata tersebut ketika kita terdesak dalam masalah yang membuat kita benar-benar tercepit dan tak terduga.Kata simple yang tidak pernah kita sadari penuh kekuatan.

ORA OPO-OPO memiliki power yang kuat dari setiap katanya.So, mari kita resapi guys dan coba kita resapi dari setiap kejadian yang kita alami.