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

Selesaikanlah Kasus Berikut :

Tugas PraktikuM  Programan Penjualan Barang

Design form seperti dibawah ini:  

 

Public Class Form1
    Sub buattabel()
        lv.Columns.Add("no pembelian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("kode barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("nama pembeli", 100, HorizontalAlignment.Center)
        lv.Columns.Add("merk", 100, HorizontalAlignment.Center)
        lv.Columns.Add("julah beli", 100, HorizontalAlignment.Center)
        lv.Columns.Add("harga", 100, HorizontalAlignment.Center)
        lv.Columns.Add("total harga", 100, HorizontalAlignment.Center)
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim ist As New ListViewItem
        ist.Text = nopembelian.Text
        ist.SubItems.Add(kodebarang.Text)
        ist.SubItems.Add(namabarang.Text)
        ist.SubItems.Add(merk.Text)
        ist.SubItems.Add(jumlah.Text)
        ist.SubItems.Add(harga.Text)
        ist.SubItems.Add(harga.Text * jumlah.Text)
        lv.Items.Add(ist)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        kodebarang.Items.Add("TS001")
        kodebarang.Items.Add("TS002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")
    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim x As String
        Dim y As String
        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        y = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case ("VG") : merk.Text = "V-Gen"
        End Select
        Select Case y
            Case "001" : namabarang.Text = "Flashdisk 4Gb"
            Case "002" : namabarang.Text = "flashdisk 2GB"
        End Select
        If x = "TS" And y = "001" Then
            harga.Text = 105000
            nopembelian.Text = 1
            jumlah.Text = 3
        ElseIf x = "TS" And y = "002" Then
            harga.Text = 75000
            nopembelian.Text = 2
            jumlah.Text = 2
        ElseIf x = "VG" And y = "001" Then
            harga.Text = 50000
            nopembelian.Text = 3
            jumlah.Text = 4
        ElseIf x = "VG" And y = "002" Then
            harga.Text = 80000
            nopembelian.Text = 4
            jumlah.Text = 5
        End If
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        total.Text = ""
        jumlah.Text = ""

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        total.Text = ""
        jumlah.Text = ""
        lv.Text = ""

    End Sub

    Private Sub Btnhapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussatu.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        total.Text = ""
        jumlah.Text = ""
    End Sub

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

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        total.Text = harga.Text * jumlah.Text
    End Sub

    Private Sub btntotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotal.Click
        total.Text = harga.Text * jumlah.Text
    End Sub
End Class


hasil programan penjualan barang :)




ternyata selalu mencoba dan mencoba akhirnya yang kita coba akan berhasil :)

menyerah walau itu gagal dan gagal . yang kita akan coba pasti berhasil :) :)

seperti yang saya buat sekarang ini "program penjualan barang"

inilah hasil posting saya :)

Penjelasan tentang blog Mesran[dot]Net

Mesran.Net  merupakan salah website yang sangat  berguna bagi Kalangan Mahasiswa di "STMIK BUDIDARMA MEDAN" Dan berguna juga bagi mahasiswa-mahasiswa lainnya.Karna pada Mesran.Net memuat artikel-artikel yang sangat berguna bagi mahasiswa. Misalnya: memuat artikel tentang Tips-tips Belajar Bahasa Pemrograman seperti, belajar Pemrograman Pascal, Pemrograman VB Net,Pemrograman C++ dan Lain-lain.Contoh sekilas : Pada Pemrograman VB Net,  Kita bisa belajar tentang Materi tentang VB Net secara terperinci.

Dengan tema yang sederhana yakni “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” namun sangat bermanfaat untuk kita semua.Mesran.net adalah sebuah web yang membantu kita dalam pembelajaran pemogramman,pengalaman ,cerita lucu,dan masih banyak lagi hal yang terdapat didalam mesran.net.

Jika kita rajin untuk membuka,membaca,dan mengulas postingan web ini, maka kita akan mampu sedikit demi sedikit memahami program yang kita kurang mengerti. Mau belajar VB.Net ,java,pascal,C,C++ Mesran.net tempatnya.

Terima kasih mesran.net karena telah membantu saya dalam pengerjakan beberapa pemogramman yang saya tidak mengerti.Dan Terima kasih untuk Bapak Mesran,M.Kom yang telah melakukan gebrakan untuk kami yakni membuat blog,posting artikel,quiz online yang mana ini merupakan hal sangat luar biasa untuk kami sebagai mahasiswa Informatika yang mungkin lalai dan sepele dengan blog.

Semoga dengan “Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain” dapat memberikan kita banyak ilmu yang  bermanfaat untuk kita semua
Aamiin….

Kami dukung terus Website Mesran.Net