CAHYO SHOBIRIN

Minggu, 08 Desember 2013

Program List View Perhitungan Penjualan Barang

Ketentuan :
-    Kode barang menentukan nama barang dan merk
-    2 digit karakter dari sebelah kiri menentukan merk barang.
-    3 digit karakter dari sebelah kanan adalah menentukan nama barang.
-    Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
-    Total Harga = Harga * Jumlah Beli

Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :

Kode Barang	001	002
TS	105000	75000
VG	90000	60000

Public Class Form1

Sub rancangtabel()

With lv

.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)

.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

.Columns.Add("Merk", 80, HorizontalAlignment.Center)

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

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

.Columns.Add("Total harga", 80, HorizontalAlignment.Center)

.GridLines = True

.FullRowSelect = True

.View = View.Details

End With

End Sub

Sub isitabel()

Dim x As New ListViewItem

x.Text = nopembelian.Text

x.SubItems.Add(kode.Text)

x.SubItems.Add(nama.Text)

x.SubItems.Add(merk.Text)

x.SubItems.Add(harga.Text)

x.SubItems.Add(jumlah.Text)

x.SubItems.Add(total.Text)

lv.Items.Add(x)

End Sub

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

kode.Items.Add("AC001")

kode.Items.Add("AX002")

kode.Items.Add("CO003")

kode.Items.Add("AS004")

Call rancangtabel()

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 = "AC" Then

merk.Text = "Acer"

ElseIf x = "AX" Then

merk.Text = "Axio"

ElseIf x = "CO" Then

merk.Text = "Compack"

Else

merk.Text = "Asus"

End If

x = Microsoft.VisualBasic.Right(kode.Text, 3)

If x = "001" Then

nama.Text = "Laptop Acer Dual Cor"

harga.Text = "3500000"

ElseIf x = "002" Then

nama.Text = "Laptop Axio Cor 3"

harga.Text = "4000000"

ElseIf x = "003" Then

nama.Text = "Laptop Compack AMD"

harga.Text = "3000000"

Else

nama.Text = "Laptop Asus Pentium I"

harga.Text = "2500000"

End If

End Sub

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

If e.KeyChar = Chr(13) Then

total.Text = Val(harga.Text * jumlah.Text)

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call isitabel()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

nopembelian.Text = ""

kode.Text = ""

nama.Text = ""

harga.Text = ""

merk.Text = ""

jumlah.Text = ""

total.Text = ""

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

nopembelian.Text = ""

kode.Text = ""

nama.Text = ""

harga.Text = ""

merk.Text = ""

jumlah.Text = ""

total.Text = ""

lv.Clear()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If lv.SelectedItems.Count <> 0 Then

lv.SelectedItems(0).Remove()

Else

MsgBox("BLOCK DULU BROW,BARU HAPUS LIST..OK")

End If

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Close()

End Sub

End Class

Program Input Harga Foto Copy

Public Class Form1

Private Sub JUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH.TextChanged

If JUMLAH.Text > 200 Then

HPL.Text = "90"

Else

HPL.Text = "100"

End If

End Sub

Private Sub TOHAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TOHAR.Click

TOHAR.Text = JUMLAH.Text * HPL.Text

If TOHAR.Text > 500000 Then

DISKON.Text = 0.15 * TOHAR.Text

Else

DISKON.Text = 0

End If

End Sub

Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

TOBAR.Text = TOHAR.Text - DISKON.Text

End Sub

End Class

Kamis, 05 Desember 2013

MATRIKS

Matriks adalah sekumpulan bilangan yang disusun secara baris dan kolom dan ditempatkan pada kurung biasa atau kurung siku.

Penulisan matriks:

$\begin{pmatrix} 2 & 3 \\ 1 & 4 \end{pmatrix}$

atau

$\begin{bmatrix} 2 & 3 \\ 1 & 4 \end{bmatrix}$

Ordo suatu matriks adalah bilangan yang menunjukkan banyaknya baris (m) dan banyaknya kolom (n).

$\begin{pmatrix} 2 & 3 & 5 \\ 1 & 4 & -7 \end{pmatrix}$ Matriks di atas berordo 3x2.

Matriks Identitas (I)

Matriks identitas (I)adalah matriks yang nilai-nilai elemen pada diagonal utama selalu 1.

$I= \begin{pmatrix} 1 & 0 & 0 \\ 0 & 1 & 0 \\ 0 & 0 & 1 \end{pmatrix}$

Matriks Transpose (A^t)

Matriks transpose adalah matriks yang mengalami pertukaran elemen dari baris menjadi kolom dan sebaliknya. Contoh:

$A= \begin{pmatrix} 2 & 3 & 5 \\ 1 & 4 & -7 \end{pmatrix}$

maka matriks transposenya (A^t) adalah $A^t= \begin{pmatrix} 2 & 1 \\ 3 & 4 \\ 5 & -7 \end{pmatrix}$

Operasi perhitungan pada matriks

Kesamaan 2 matriks

2 matriks dikatakan sama jika ordonya sama dan elemen yang seletak sama.

Contoh: $\begin{pmatrix} 2 & 3 & 5 \\ 1 & 4 & -7 \end{pmatrix} = \begin{pmatrix} 2 & 6x & z-y \\ 2y+2 & 4 & -7 \end{pmatrix}$

Tentukan nilai 2x-y+5z!

Jawab:

$6x=3$ maka $x= \frac {1}{2}$

$2y+2=1$ maka $y= -\frac {1}{2}$

$z-y=5$ maka $z= \frac {9}{2}$

$2x-y+5z$

$= 2\left ( \frac{1}{2} \right ) - \frac {1}{2}+ 5 \left ( \frac{9}{2} \right )$

$= 23$

Penjumlahan matriks

2 matriks bisa dijumlahkan jika ordonya sama dan penjumlahan dilakukan dengan cara menjumlahkan elemen yang seletak.

Contoh: $\begin{pmatrix} 2 & 3 & 5 \\ 1 & 4 & -7 \end{pmatrix} + \begin{pmatrix} 2 & 6x & z-y \\ 2y+2 & 4 & -7 \end{pmatrix} = \begin{pmatrix} 4 & 3+6x & 5+z-y \\ 2y+3 & 8 & -14 \end{pmatrix}$

Pengurangan matriks

2 matriks bisa dikurangkan jika ordonya sama dan pengurangan dilakukan dengan cara mengurangkan dari elemen yang seletak.

Contoh: $\begin{pmatrix} 2 & 3 & 5 \\ 1 & 4 & -7 \end{pmatrix} - \begin{pmatrix} 2 & 6x & z-y \\ 2y+2 & 4 & -7 \end{pmatrix} = \begin{pmatrix} 0 & 3-6x & 5-z-y \\ -2y-1 & 0 & 0 \end{pmatrix}$

Perkalian bilangan dengan matriks

Contoh:

$3 \begin{pmatrix} 2 & 6x & z-y \\ 2y+2 & 4 & -7 \end{pmatrix} = \begin{pmatrix} 6 & 18x & 3z-3y \\ 6y+6 & 12 & -21 \end{pmatrix}$

Perkalian matriks

2 Matriks dapat dikalikan jika jumlah baris matriks A = jumlah kolom matriks B.

Penghitungan perkalian matriks:

Misalkan:

$A= \begin{pmatrix} a & b \\ c & d \end{pmatrix}$ dan $B= \begin{pmatrix} p & q \\ r & s \end{pmatrix}$

maka $A \times B= \begin{pmatrix} ap+br & aq+bs \\ cp+dr & cq+ds \end{pmatrix}$

Contoh:

$\begin{pmatrix} 2 & 6 \\ 3 & 4 \end{pmatrix} \begin{pmatrix} 9 & 8 \\ 2 & 10 \end{pmatrix} = \begin{pmatrix} 30 & 76 \\ 35 & 64 \end{pmatrix}$

Determinan suatu matriks

Matriks ordo 2x2

Misalkan:

$A= \begin{pmatrix} a & b \\ c & d \end{pmatrix}$

maka Determinan A (ditulis $\left\vert A \right\vert$ ) adalah:

$\left\vert A \right\vert= a \times d - b \times c$

Matriks ordo 3x3

Cara Sarrus

Misalkan:

Jika $A= \begin{pmatrix} a & b & c \\ d & e & f \\ g & h & i \end{pmatrix}$ maka tentukan $\left\vert A \right\vert$ !

$\left\vert A \right\vert = \left\vert \begin{matrix} a & b & c \\ d & e & f \\ g & h & i \end{matrix} \right\vert \begin{matrix} a & b \\ d & e \\ g & h \end{matrix}$

Penghitungan matriks dilakukan dengan cara menambahkan elemen dari kiri atas ke kanan bawah (mulai dari a → e → i, b → f → g, dan c → d → h) lalu dikurangi dengan elemen dari kanan atas ke kiri bawah (mulai dari c → e → g, a → f → h, dan b → d → i) sehingga menjadi:

$\left\vert A \right\vert = a.e.i + b.f.g + c.d.h - g.e.c - h.f.a - i.d.b$

Contoh:

$A= \begin{pmatrix} -2 & 0 & 1 \\ 3 & 2 & -1 \\ 1 & -3 & 5 \end{pmatrix}$ maka tentukan $\left\vert A \right\vert$ !

$\left\vert A \right\vert = \left\vert \begin{matrix} -2 & 0 & 1 \\ 3 & 2 & -1 \\ 1 & -3 & 5 \end{matrix} \right\vert \begin{matrix} -2 & 0 \\ 3 & 2 \\ 1 & -3 \end{matrix}$

$\left\vert A \right\vert = (-2.2.5) + (0.-1.-1) + (1.3.-3) - (1.2.1) - (-2.-1.-3) - (0.3.5) = -20+0-9-2+6-0 = -25$

Cara ekspansi baris-kolom

Misalkan:

Jika $P= \begin{pmatrix} -2 & 0 & 1 \\ 3 & 2 & -1 \\ 1 & -3 & 5 \end{pmatrix}$ maka tentukan $\left\vert P \right\vert$ dengan ekspansi baris pertama!

$\left\vert P \right\vert= -2 \left\vert \begin{matrix} 2 & -1 \\ -3 & 5 \end{matrix} \right\vert -0 \left\vert \begin{matrix} 3 & -1 \\ 1 & 5 \end{matrix} \right\vert +1 \left\vert \begin{matrix} 3 & 2 \\ 1 & -3 \end{matrix} \right\vert$

$\left\vert P \right\vert= -2 (10-3) -0 + 1(-9-2) = -25$

Matriks Singular

Matriks singular adalah matriks yang nilai determinannya 0.

Contoh:

$P= \begin{pmatrix} -4 & 5x\\ -x & 20 \end{pmatrix}$

Jika A matriks singular, tentukan nilai x!

Jawab:

$-80+5x^2 = 0$

$5 (x^2-16)=0$

$x = -4$ vs $x=4$

Invers matriks

Invers matriks 2x2

Misalkan:

$A= \begin{pmatrix} a & b\\ c & d \end{pmatrix}$

maka inversnya adalah:

$A^{-1}= \frac {1}{\left\vert A \right\vert} \begin{pmatrix} d & -b\\ -c & a \end{pmatrix} = \frac {1}{a.d-b.c} \begin{pmatrix} d & -b\\ -c & a \end{pmatrix}$