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

SOAL QUIS

 Latihan Praktikum Listview Pembayaran Tagihan PDAM 

TIDAK ADA LINKNYA

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("Kode", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Beban Biaya", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Pemakaian", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Total Tagiahan", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 150, HorizontalAlignment.Left)
        LV.Columns.Add("Total Pembayaran", 150, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
        KodePelanggan.Items.Add("001")
        KodePelanggan.Items.Add("002")
        KodePelanggan.Items.Add("003")
        Tipe.Items.Add("Toko")
        Tipe.Items.Add("Rumah")
        Tipe.Items.Add("Swalayan")
        Tipe.Items.Add("Pabrik")
    End Sub

    Private Sub KodePelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodePelanggan.SelectedIndexChanged
        Select Case KodePelanggan.Text
            Case "001" : Nama.Text = "Jhoni"
            Case "002" : Nama.Text = "Eko"
            Case "003" : Nama.Text = "dian"
            Case Else : Nama.Text = ""
        End Select
        If KodePelanggan.Text = "001" Then
            Nama.Text = "Jhoni"
        ElseIf KodePelanggan.Text = "002" Then
            Nama.Text = "Eko"
        ElseIf KodePelanggan.Text = "003" Then
            Nama.Text = "Dian"
        End If
    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
        If Tipe.Text = "Toko" Then
            BiayaBeban.Text = "25000"
            Harga.Text = "300"
        ElseIf Tipe.Text = "Rumah" Then
            BiayaBeban.Text = "15000"
            Harga.Text = "100"
        ElseIf Tipe.Text = "Swalayan" Then
            BiayaBeban.Text = "10000"
            Harga.Text = "200"
        ElseIf Tipe.Text = "250000" Then
            Harga.Text = "500"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        TotalTagihan.Text = Val(BiayaBeban.Text) + Val(Harga.Text * JumlahPemakaian.Text)
        Pajak.Text = 0.01 * TotalTagihan.Text
        Pembayaran.Text = Val(TotalTagihan.Text) + Val(Pajak.Text)
        Dim lst As New ListViewItem
        lst.Text = KodePelanggan.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(BiayaBeban.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(JumlahPemakaian.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(TotalTagihan.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusList.Click
        KodePelanggan.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        BiayaBeban.Text = ""
        JumlahPemakaian.Text = ""
        TotalTagihan.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Harga.Text = ""

    End Sub

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

    Private Sub BtnProseslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Hapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuslist.Click
        LV.Items.Clear()
    End Sub

End Class

Demikilahlah postingan saya :

NAMA           : EWIN KARMAN NDRURU

KLS               :TI-P1404

NPM              :14110449

M.KULIAH :PEMOGRAMAN VISUAL

N.DOSEN     :MESRAN,M.KOM

Selamat Belajar Pemrograman VB NET

Cara Menginstal Windows 7

Artikel tutorial kali ini berisi tentang bagaimana cara menginstall (ulang) windows 7 pada komputer maupun laptop. Seperti yang kita ketahui bahwa windows 7 merupakan salah satu sistem operasi windows yang sangat populer saat ini.
Windows 7 sendiri dirilis untuk umum pada tahun 22 Oktober 2009. Meskipun terdapat versi yang lebih baru yaitu windows 8 dan windows 10, windows 7 tetap banyak di gemari oleh banyak orang.
Saya membuat artikel ini untuk membantu teman-teman yang belum tahu betul mengenai bagaimana cara menginstall windows 7 dengan baik dan benar.

SISTEM UNIT

Sistem Unit dan Berbagai Komponen Komputer

Unit komputer (system unit) adalah suatu rangka yang di dalamnya  terdapat komponen-komponen elektronik  dari komputer yang digunakan untuk memproses data. Sebuah komputer terdiri atas perangkat-perangkat yang digunakan untuk menerima masukan (input), melakukan proses, mengeluarkan hasil (output), menyimpan dan berkomunikasi. Kebanyakan komponen ini adalah bagian dari komputer.  Pada komputer dekstop atau komputer pribadi (personal computer-PC), komponen-komponen elektronik dan kebanyakan media penyimpanan adalah bagian dari komputer. Perangkat lain seperti keyboard, mouse, mikrofon, monitor, printer, pemindai (scanner), kamera video, dan pengeras suara (speaker), umumnya menempati ruang di luar unit komputer.