Sri Heriati: Desember 2013

PROGRAM INPUT HARGA FOTO COPY
___________________________________
Jumlah Lembar    : 999
Harga per lembar: 999
Total Harga    : 999999
Discount   : 9999999
Pembayaran : 9999999

Proses

Jika Jumlah lembar >= 200 HpL = 90 atau HpL = 100
Total Harga = HPL * Jumlah
Jika total harga >500000 discount 15%
Pembayaran = total harga - discount

HpL = Harga per Lembar

public class form 2
Private Sub btnproses_click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnproses Click
IF jumlahlembar.Text>=200 Then
     HPL.Text=90
Else
     HPL.Text=100
End if
TotalHarga.Text=hpl.Text*jumlahlembar.Text
IF TotalHarga.Text>500000 Then
Diskon.Text=0.15*Totalharga.Text
End Sub

Private Sub btnhapus_Click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnhapus Click
Jumlahlembar.Text=""
HPL.Text=""
TotalHarga.Text=""
Diskon.Text=""
Pembayaran.Text=""
End Sub

Private Sub btnkeluar_Click(byVal sender As System.Object,ByVal e As System.EventArgs)Handles btnkeluar Click
End
End Sub
End Class

PemerogramanPemakaianListrik

Public Class Form1

Public Perintah As String

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

Dim tombol2 As Integer = Asc(e.KeyChar)

Dim x As String

If tombol2 = 13 Then

If ke.Text = "" Then

MsgBox("Masukkan Untuk Berapa Bulan!")

Else

pemakaian.Text = ke.Text * 100000

denda.Text = pemakaian.Text * 0.1

End If

End Sub

Sub BuatTabel()

LV.Columns.Add("Untuk Bulan", 80, HorizontalAlignment.Center)

LV.Columns.Add("Ke", 80, HorizontalAlignment.Center)

LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Center)

LV.Columns.Add("Denda", 80, HorizontalAlignment.Center)

LV.Columns.Add("Total Bayar", 80, HorizontalAlignment.Center)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub IsiTabel()

Dim Lst As New ListViewItem

Lst.Text = bulan.Text

Lst.SubItems.Add(ke.Text)

Lst.SubItems.Add(pemakaian.Text)

Lst.SubItems.Add(denda.Text)

Lst.SubItems.Add(totalbayar.Text)

LV.Items.Add(Lst)

End Sub

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

totalbayar.Text = Val(pemakaian.Text) + Val(denda.Text)

End Sub

Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LST.Click

IsiTabel()

bulan.Text = ""

ke.Text = ""

pemakaian.Text = ""

denda.Text = ""

totalbayar.Text = ""

End Sub

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

BuatTabel()

End Sub

End Class

Latihan Listview Perhitungan Penjualan Barang

Berikut Jawaban Program :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")
    End Sub
    Sub BuatTabel()
        lv.Columns.Add("No. Pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 90, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub IsiTable()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        lv.Items.Add(Lst)
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Jumlah_TextChanged(sender, e)
            Total.Text = Jumlah.Text * Harga.Text
        End If
    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode.Text, 2)
        If x = "TS" Then
            Merk.Text = "Thosiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(Kode.Text, 3)
        If x = "001" Then
            Nama.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            Nama.Text = "Flashdisk 2GB"
        End If
        If Kode.Text = "TS001" Then
            Harga.Text = "105000"
        ElseIf Kode.Text = "TS002" Then
            Harga.Text = "75000"
        ElseIf Kode.Text = "VG001" Then
            Harga.Text = "90000"
        ElseIf Kode.Text = "VG002" Then
            Harga.Text = "60000"
        End If
    End Sub

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

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub HapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusSemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        IsiTable()
    End Sub
End Class

Hasil program :

Sri Heriati

Sabtu, 07 Desember 2013

PemerogramanPemakaianListrik

Mengenai Saya