Pertemuan6

Rumus :

Public Class Form1
Dim KodeBarang As String
Dim SubTotal As Integer



Private Sub BtnTransaksiBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTransaksiBaru.Click
TxtKdBarang.Text = ""
TxtNamaBarang.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtSubTotal.Text = ""
LBNamaBArang.Items.Clear()
LBHarga.Items.Clear()
LBJumlah.Items.Clear()
LBSubtotal.Items.Clear()
TxtTotal.Text = ""
TxtPPN.Text = ""
TxtTotalSeleruh.Text = ""
TxtBayar.Text = ""
TxtKembali.Text = ""
TxtKdBarang.Focus()
End Sub

Private Sub TxtKdBarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtKdBarang.KeyPress
KodeBarang = TxtKdBarang.Text.ToUpper

If e.KeyChar = Chr(13) Then
End If
If KodeBarang = "KD01" Then
TxtNamaBarang.Text = "HP Optical Mouse"
TxtHarga.Text = "50000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD02" Then
TxtNamaBarang.Text = "Black Mouse Pad"
TxtHarga.Text = "15000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD03" Then
TxtNamaBarang.Text = "Keyboard Protector"
TxtHarga.Text = "10000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD04" Then
TxtNamaBarang.Text = "laptop Skin"
TxtHarga.Text = "55000"
TxtJumlah.Focus()
ElseIf KodeBarang = "KD05" Then
TxtNamaBarang.Text = "Mini Speaker"
TxtHarga.Text = "110000"
TxtJumlah.Focus()
End If
End Sub

Private Sub TxtJumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtJumlah.KeyPress
If e.KeyChar = Chr(13) Then
TxtSubTotal.Text = Val(TxtHarga.Text) * Val(TxtJumlah.Text)

SubTotal = Val(TxtTotal.Text)

LBNamaBArang.Items.Add(TxtNamaBarang.Text)
LBHarga.Items.Add(TxtHarga.Text)
LBJumlah.Items.Add(TxtJumlah.Text)
LBSubtotal.Items.Add(TxtSubTotal.Text)

TxtTotal.Text = SubTotal + Val(TxtSubTotal.Text)
TxtPPN.Text = Val(TxtTotal.Text) * 0.1

TxtKdBarang.Text = ""
TxtNamaBarang.Text = ""
TxtHarga.Text = ""
TxtJumlah.Text = ""
TxtSubTotal.Text = ""
TxtKdBarang.Focus()
End If
End Sub


Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTutup.Click
If MsgBox("Apakah Anda Yakin Ingi Kular Aplikasi Ini?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub



Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
TxtTotalSeleruh.Text = Val(TxtTotal.Text) + Val(TxtPPN.Text)
TxtBayar.Focus()
End Sub

Private Sub TxtBayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtBayar.KeyPress
If e.KeyChar = Chr(13) Then
TxtKembali.Text = Val(TxtBayar.Text) - Val(TxtTotalSeleruh.Text)
BtnTransaksiBaru.Focus()
End If
End Sub


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

End Sub

Private Sub TxtJumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumlah.TextChanged

End Sub
End Class