Membuat Project Tagihan Air PDAM

Form Login

 

Public Class Login
    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Password.PasswordChar = "*"
    End Sub

    Private Sub Btn_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Login.Click
        If User_Name.Text = "Mulia" And Password.Text = "hamdani" Then
            MsgBox("Selamat Datang", MsgBoxStyle.OkCancel, "Pesan Singkat!!!!!!!!")
            User_Name.Enabled = False
            Password.Enabled = False
            Btn_Login.Enabled = False
            Menu1.Show()
        Else
            MsgBox("Maaf!!! Kesalahan Sedang Terjadi")
            User_Name.Text = ""
            Password.Text = ""
            User_Name.Focus()
        End If
    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Me.Close()
    End Sub
End Class

Form Menu

Public Class Menu1
    Private Sub DataGajiKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiKaryawanToolStripMenuItem.Click
        Form1.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

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

    Private Sub TentangSayaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TentangSayaToolStripMenuItem1.Click
        Form2.Show()
    End Sub
End Class

Form Data Gaji Karyawan

Public Class Form1
    Sub hapus()
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        Daerah.Text = ""
        TextBox5.Text = ""
        Pajak.Text = ""
        TTagihan.Text = ""
        Pembayaran.Text = ""
        HargaM3.Text = ""
        BBeban.Text = ""
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KP.Items.Add("PAB-MED-100")
        KP.Items.Add("TOK-BEL-101")
        KP.Items.Add("TOK-BEL-102")
        KP.Items.Add("RUM-MED-103")
        KP.Items.Add("SWA-MED-104")
    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Right(KP.Text, 3)
        Select Case X
            Case "100"
                Nama.Text = "Jhon SE"
            Case "101"
                Nama.Text = "Eko P"
            Case "102"
                Nama.Text = "Susi W"
        End Select
        X = Microsoft.VisualBasic.Left(KP.Text, 3)
        Select Case X
            Case "TOK"
                Tipe.Text = "TOKO"
                HargaM3.Text = 300
                BBeban.Text = 25000
            Case "RUM"
                Tipe.Text = "RUMAH"
                HargaM3.Text = 100
                BBeban.Text = 10000
            Case "PAB"
                Tipe.Text = "PABRIK"
                HargaM3.Text = 500
                BBeban.Text = 25000
            Case "SWA"
                Tipe.Text = "SWALAYAN"
                HargaM3.Text = 200
                BBeban.Text = 15000
        End Select
        X = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If X = "MED" Then
            Daerah.Text = "Medan"
        Else
            Daerah.Text = "BELAWAN"
        End If
    End Sub

    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TTagihan.Text = Val(BBeban.Text) + HargaM3.Text * TextBox5.Text
            Pajak.Text = 0.01 * TTagihan.Text
            Pembayaran.Text = Val(Pajak.Text) + Val(TextBox5.Text)
        End If
    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
        Call hapus()
        Btn_Simpan.Enabled = True
        LV.Items.Clear()
    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Me.Close()
    End Sub

    Private Sub Btn_Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Simpan.Click
        Dim s As New ListViewItem
        s.Text = KP.Text
        s.SubItems.Add(Nama.Text)
        s.SubItems.Add(Tipe.Text)
        s.SubItems.Add(Daerah.Text)
        s.SubItems.Add(BBeban.Text)
        s.SubItems.Add(HargaM3.Text)
        s.SubItems.Add(TextBox5.Text)
        s.SubItems.Add(TTagihan.Text)
        s.SubItems.Add(Pajak.Text)
        s.SubItems.Add(Pembayaran.Text)
        LV.Items.Add(s)
        Btn_Simpan.Text = "Edit"
        Call hapus()
    End Sub
End Class

Form Tentang Saya

Cukup dibuat dengan Component Label

Bagi yang belum ngerti tolong di komentar ya!!!!!!!!!!!!!