JAWABAN SOAL 3 ( MUHAMMAD ARDIANSYAH DAMANIK)

KLIK SOAL 3 PDAM UNTUK LIHAT KASUS

LISTING PROGRAM

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If name1.Text = "ardiansyah" And pass.Text = "ardi" Then
menu1.Show()
Me.Hide()
Else
MsgBox("maaf name/password anda salah!")
name1.Text = ""
pass.Text = ""

End If
End Sub
End Class

Public Class menu1

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

Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
tagihan.Show()
Me.Hide()
End Sub
End Class

Public Class tagihan




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


total.Text = Val(biaya.Text) + Val(hrg.Text) * pmkaian.Text
pjk.Text = (1 / 100) * Val(total.Text)
PEMBAYARAN.Text = Val(pjk.Text) + Val(total.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kodp.Text, 3)
If x = "TOK" Then
typ.Text = "TOKO"
biaya.Text = 25000
hrg.Text = 300


ElseIf x = "RUM" Then
typ.Text = "RUMAH"
biaya.Text = 15000
hrg.Text = 100


ElseIf x = "SWA" Then
typ.Text = "SWALYAN"
biaya.Text = 10000
hrg.Text = 200



ElseIf x = "PAB" Then
typ.Text = "PABRIK"
biaya.Text = 25000
hrg.Text = 500

End If





x = Microsoft.VisualBasic.Mid(kodp.Text, 4, 1)

If x = "-" Then


End If




x = Microsoft.VisualBasic.Mid(kodp.Text, 5, 3)
If x = "MED" Then
dae.Text = "MEDAN"
ElseIf x = "BEL" Then
dae.Text = "BELAWAN"
ElseIf x = "TEM" Then
dae.Text = "AKSARA"
ElseIf x = "BIN" Then
dae.Text = "BINJAI"
ElseIf x = "PAK" Then
dae.Text = "LUBUK-PAKAM"



End If





x = Microsoft.VisualBasic.Mid(kodp.Text, 8, 1)

If x = "-" Then


End If


no.Text = Microsoft.VisualBasic.Mid(kodp.Text, 9, 3)


End Sub
Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
kodp.Text = ""
typ.Text = ""
no.Text = ""
dae.Text = ""
pmkaian.Text = ""
biaya.Text = ""
hrg.Text = ""
pjk.Text = ""
total.Text = ""
PEMBAYARAN.Text = ""
End Sub
End Class

JAWABAN SOAL 2( MUHAMMAD ARDIANSYAH DAMANIK)

KLIK  SOAL 2 UNTUK LIHAT KASUS

LISTING PROGRAM
Public Class Form1
    Sub buattabel()
        lv1.Columns.Add("Nomor P.", 70, HorizontalAlignment.Left)
        lv1.Columns.Add("KdBrng", 80, HorizontalAlignment.Left)
        lv1.Columns.Add("NmBrng", 140, HorizontalAlignment.Left)
        lv1.Columns.Add("Merk", 90, HorizontalAlignment.Left)
        lv1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        lv1.Columns.Add("Jmlh Beli", 60, HorizontalAlignment.Center)
        lv1.Columns.Add("T. Harga", 80, HorizontalAlignment.Left)
        lv1.View = View.Details
        lv1.GridLines = True
        lv1.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = np.Text
        lst.SubItems.Add(kb.Text)
        lst.SubItems.Add(nb.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(hrg.Text)
        lst.SubItems.Add(jbeli.Text)
        lst.SubItems.Add(thrg.Text)
        lv1.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kb.Items.Add("TS001")
        kb.Items.Add("TS002")
        kb.Items.Add("VG001")
        kb.Items.Add("VG002")
        Call buattabel()
    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
        Dim XKB As String
        Dim XM As String
        XM = Microsoft.VisualBasic.Right(kb.Text, 3)
        Select Case XM
            Case "001"
                nb.Text = "Flashdisk 4GB"
            Case "002"
                nb.Text = "Flashdisk 2GB"
        End Select
        XKB = Microsoft.VisualBasic.Left(kb.Text, 2)
        Select Case XKB
            Case "TS"
                merk.Text = "Toshiba"
            Case Is = "VG"
                merk.Text = "V-Gen"
        End Select

       
        If XKB = "TS" And XM = "001" Then
            hrg.Text = 105000
        ElseIf XKB = "TS" And XM = "002" Then
            hrg.Text = 75000
        ElseIf XKB = "VG" And XM = "001" Then
            hrg.Text = 90000
        Else
            hrg.Text = 60000
        End If
        jbeli.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        np.Text = ""
        kb.Text = ""
        nb.Text = ""
        merk.Text = ""
        jbeli.Text = ""
        hrg.Text = ""
        thrg.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        thrg.Text = hrg.Text * jbeli.Text
    End Sub

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

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

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        lv1.Items.Remove(lv1.SelectedItems(0))
    End Sub
End Class