Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrga.TextChanged
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bb.Click
End Sub
Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pj.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kopel.Items.Add("PAB-MED-100")
Kopel.Items.Add("TOK-BEL-101")
Kopel.Items.Add("SWA-MED-102")
Kopel.Items.Add("PAB-MED-103")
Kopel.Items.Add("RUM-MED-104")
End Sub
Private Sub jumpe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumpe.KeyPress
If Asc(e.KeyChar) = 13 Then
tota.Text = hrga.Text + jumpe.Text + Val(bib.Text)
pjk.Text = 0.01 * tota.Text
byr.Text = Val(tota.Text) + Val(pjk.Text)
End If
End Sub
Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumpe.TextChanged
End Sub
Private Sub Kopel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kopel.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(Kopel.Text, 3)
Select Case x
Case "100" : nma.Text = "MUHAMMAD ARDIANTO"
Case "101" : nma.Text = "JEKSON SINAGA"
Case "102" : nma.Text = "TRIANI ERISTA"
Case "103" : nma.Text = "ALDYAN"
End Select
x = Microsoft.VisualBasic.Left(Kopel.Text, 3)
Select Case x
Case "TOK"
hrga.Text = 250
bib.Text = 15000
tpe.Text = "TOKO"
Case "RUM"
hrga.Text = 250
bib.Text = 15000
tpe.Text = "RUMAH"
Case "PAB"
hrga.Text = 250
bib.Text = 15000
tpe.Text = "PABRIK"
Case "SWA"
hrga.Text = 250
bib.Text = 15000
tpe.Text = "SWALAYAN"
End Select
x = Microsoft.VisualBasic.Mid(Kopel.Text, 5, 3)
Select Case x
Case "MED" : daer.Text = "Medan"
Case "BEL" : daer.Text = "Belawan"
Case Else : daer.Text = " "
End Select
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
Kopel.Text = ""
nma.Text = ""
tpe.Text = ""
tota.Text = ""
hrga.Text = ""
pjk.Text = ""
pembyar.Text = ""
byr.Text = ""
Dae.Text = ""
bib.Text = ""
End Sub
End Class
