Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Judul Soal : Penjualan Barang

Public Class Form1

    Sub RancangTabel()

        ListView1.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama Barang", 150, HorizontalAlignment.Center)

        ListView1.Columns.Add("Merek", 150, HorizontalAlignment.Center)

        ListView1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        ListView1.View = View.Details

        ListView1.FullRowSelect = True

        ListView1.GridLines = True

    End Sub

    Sub IsiTabel()

        Dim list As New ListViewItem

        list.Text = no_pembelian.Text

        list.SubItems.Add(kode_barang.Text)

        list.SubItems.Add(nama_barang.Text)

        list.SubItems.Add(merek.Text)

        list.SubItems.Add(harga.Text)

        list.SubItems.Add(jumlah_beli.Text)

        list.SubItems.Add(total_harga.Text)

        ListView1.Items.Add(list)

    End Sub

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

        kode_barang.Items.Add("KP001")

        kode_barang.Items.Add("KP002")

        kode_barang.Items.Add("PS001")

        kode_barang.Items.Add("PS002")

        RancangTabel()

    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)

        Select Case x

            Case "KP"

                merek.Text = "LG"

            Case "PS"

                merek.Text = "Toshiba"

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Right(kode_barang.Text, 3)

        Select Case j

            Case "001"

                nama_barang.Text = "Flashdisk 8 GB"

            Case "002"

                nama_barang.Text = "Flashdisk 4 GB"

        End Select

        Select Case x & j

            Case "KP" & "001"

                harga.Text = 95000

            Case "KP" & "002"

                harga.Text = 75000

            Case "PS" & "001"

                harga.Text = 90000

            Case "PS" & "002"

                harga.Text = 70000

        End Select

    End Sub

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

        Dim x As Integer = Asc(e.KeyChar)

        If x = 13 Then

            total_harga.Text = harga.Text * jumlah_beli.Text

        End If

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        IsiTabel()

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        no_pembelian.Text = ""

        kode_barang.Text = ""

        nama_barang.Text = ""

        merek.Text = ""

        harga.Text = ""

        jumlah_beli.Text = ""

        total_harga.Text = ""

    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        ListView1.Items.Clear()

    End Sub

    Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

End Class

Demikilahlah postingan saya Nama : KHOIRUL PAHOTAN SITORUS NPM : 13110745
Selamat Belajar Pemrograman VB NET

Belajar buat program dari mesran.blogspot.com

Assalamualaikum wr.wb,

Apa kabar gan  ^_^ , kali ini gue mau berbagi ulasan tentang blognya Dosen gue yaitu Pak Mesran

Akhirnya Ada yang Bisa Kejar Kecepatan Lari Bale

Di laga Wales kontra Bosnia-Herzegovina tak hanya diwarnai aksi gemilang kiper The Dragons Wayne Hennessey tapi aksi adu cepat dan kejar-kejaran dengan hasil yang jarang terjadi.

9 Tantangan Messi Menuju Pemain Terbaik Sepanjang Masa

Lionel Messi saat ini bisa dibilang sebagai salah satu pemain sepak bola terbaik sepanjang masa, melihat dari jumlah golnya dan sumbangan gelarnya untuk Barcelona. Namun masih banyak yang membantah anggapan Messi adalah yang terbaik sepanjang masa, yang bisa disejajarkan dengan legenda seperti Pele dan Diego Maradona. Untuk itu, inilah 9 tantangan Messi untuk menuju status terbaik sepanjang masa yang tak terbantahkan.

PANGKAT-PANGKAT POLISI

kejarlah cita-cita dan jangan pernah menyerah untuk meraihnya asalkan kita mau berusaha dan berdoa !! sukses !!

Ane mau berbagi ilmu aja nih guys tentang pangkat-pangkat 'KEPOLISIAN REPUBLIK INDONESIA' . Maklum, cita-cita Ane pengen jadi Polisi jugak gan :D. Penting banget nih buat kamu-kamu yang pada mau daftar jadi polisi, seenggak-enggaknya tau dikit lah tentang pangkatnya biar gak pussing & bertele-tele langsung aja yaaahhh liat artikel saya dibawah ini =>

Loksado, Bamboo Rafting Membelah Hutan Hujan Borneo

Sepanjang perjalanan kita dapat menikmati panorama Pegunungan Meratus.

Berjarak sekitar 4 jam perjalanan dari Kota Banjarmasin terdapat sebuah desa kecil bernama Loksado tepatnya di Hulu Sungai Selatan, Kalimantan Selatan. Desa yang berada di antara Pegunungan Meratus diantara lebat hutan hujan Kalimantan disini juga tinggal Suku Dayak Meratus dengan segala tradisi yang masih terjaga hingga kini.

Arabisme dan Keindonesiaan

Dalam rubrik “Memoar” majalah Tempo edisi 25-31 Agustus 2014, Ali Audah dianggap sebagai pekerja bahasa yang piawai karena berhasil menerjemahkan buku Arab ke dalam bahasa Indonesia yang baik. Menariknya, betapapun penerjemah ini berketurunan Arab, lelaki kelahiran Bondowoso tersebut berusaha untuk tidak kearab-araban. Sepertinya ia sadar bahwa bahasa itu hanya alat berkomunikasi, sehingga terjemahan dalam bahasa setempat itu mungkin. Betapapun bahasa Indonesia banyak menyerap kata dari bahasa rumpun Semitik ini, bahasa Melayu sejatinya mengandaikan asal-muasal Sanskerta yang kental.

Kunci Inggris

Kunci inggris bukan saja alat kecil untuk membuka atau mengancing pintu atau peti buatan Inggris, melainkan juga ”kunci yang dapat disetel untuk mengepaskan kepala baut atau mur”, menurut Kamus Besar Bahasa Indonesia. Ketika kali pertama saya mendengar ayah mertua saya menyebut alat berguna ini kunci inggris, saya agak kaget karena saya berpikir ini adalah perkakas yang berasal dari tanah air saya, Swedia. Rasa nasionalisme di dalam dada ingin memprotes, tetapi akal sempat mengalahkan lidah kala itu. Untung saja, karena ternyata tidak semudah yang saya kira.

“Tradisi Baru” Jokowi

Ini pengakuan kawan saya, Abdul Wahab, yang bertempat tinggal di sebuah pulau nun jauh di Selat Malaka sana. Pendakuannya, meskipun harus memerlukan pengamatan lebih lama, saya berpendapat bahwa presiden terpilih Joko Widodo alias Jokowi memiliki kecenderungan menggunakan bahasa dengan idiom cukup mengejutkan, untuk tidak buru-buru mengatakan telah membingungkan—maklum, hal tersebut diungkapkan oleh orang ternama dengan citra selalu positif. Jokowi antara lain menggunakan frasa tradisi baru.

Makna Sholat Berjamaah

Didalam hadits dikatakan bahwa pahala shalat berjamaah adalah 27 kali dibandingkan dengan shalat sendiri. banyak orang Islam berhitung secara kuantitatif seolah-olah dengan melakukan shalat berjamaah maka ia akan menabung pahala sebanyak 27 kali. Demikian juga ketika di dalam hadis dikatakan bahwa shalat di Masjidil Haram akan dilipatgandakan pahalanya sebanyak seratus ribu kali lipat. Luar biasa.

13 Sifat Laki-laki Yang Tidak Disukai Perempuan

Para istri atau kaum wanita adalah manusia yang juga mempunyai hak tidak suka kepada laki-laki karena beberapa sifa-sifatnya. Karena itu kaum lelaki tidak boleh egois, dan merasa benar. Melainkan

Ungkapan Cinta Tidak Harus Dengan Kata, Cukup Buktikan Dengan Cara Ini!

Siapa sih yang tidak akan luluh dengan puisi atau kata-kata cinta dari pasangan? Sering juga kita dibuat nangis saat membaca surat cinta yang isinya romantis. Namun, berbeda dari seorang pria, kadang kita tidak mampu membuat kata-kata romantis untuk mengungkapkan rasa cinta kita pada pasangan. Apalagi, tidak semua pria suka dengan ungkapan semata.

7 Tips Agar Gaji Bulanan Anda Tak Cepat Habis

Jakarta - Gaji Anda selalu habis di pertengahan bulan? Berarti ada yang salah dengan pengelolaan uang Anda setiap bulannya. Mungkin Anda kerap merasa, perusahaan memberikan gaji yang terlalu kecil dan pemasukan selalu tidak bisa mencukupi pengeluaran.

Siapa Pengisi Suara Masha and The Bear

Kecil, menggemaskan, memiliki gigi kelinci, suka mengenakan kerudung pink, punya banyak teman binatang yang lucu, dan suka mengganggu sahabatnya si beruang. Sudah bisa ditebak siapakah ia? Yaps, ia adalah Masha dalam serial kartun Masha and The Bear.

10 Tips Belanja Online Secara Aman

Berikut 10 tips belanja online aman pada toko online versi AsyikBelanja.com, agar para pelanggan terhindar dari hal-hal yang tidak diinginkan pada saat berbelanja online di Internet :

Inilah Alasan Mengapa Cincin Ditaruh Di Jari Manis

Kenapa Cincin pernikahan selalu ada di jari manis, kok bukan di jari lain…saya sebetulnya juga bingung tapi setelah baca suatu artikel, menarik juga untuk di perhatikan. Coba deh ikuti langkah berikut ini, kalian pasti takjub karena Tuhan benar-benar membuat keajaiban (ini berasal dari kutipan Cina) :

5 Kisah Hantu dari Kapal Titanic

15 April menandai 100 tahun tenggelamnya RMS Titanic. Meski cerita tragis soal kapal pesiar mewah ini sudah sering jadi berita utama, ada cerita-cerita lain yang muncul dari Titanic, kisah-kisah hantu. Berikut adalah kisah-kisah seram dari Titanic :