[VB.NET] Program Penghitung Lama Parkir Sederhana

Oke, parkir memang sudah menjadi lahan bisnis yang cukup menggiurkan. Coba saja sobat pikirkan, jika ditempat-tempat ramai seperti swalayan, mall, dan tempat-tempatramai lainnya. Jika sehari ada 100 kendaraan yang parkir disana dan setiap kendaraan dikenakan biaya parkir Rp.2000 lumayan kan, apalagi jika biaya parkirnya berdasarkan hitungan waktu misal perjam. Akan lebih menghijaukan mata dong. Ok, jika sobat mempunyai lahan bisnis ini, tidak ada salahnya jika sobat menggunakan program komputer untuk lebih mempermudah pekerjaan sobat. Ok, kali ini saya mau bagi-bagi source code program penghitung lama parkir sederhana. Ok, lets gooo.



Form Design:

Deklarasi:
1 Form
5 GroupBox
2 CheckBox
3 Label
8 Button
2 TextBox
2 ListView
3 ComboBox

Atur seperti ini, klik untuk memperbesar gambar:

Untuk properties control-control nya:

1. GroupBox
 Name: gbAdd
 Text: Tambah Data
2. Label
 Name: lblJenis
 Text: Jenis Kendaraan
3. ComboBox
 Name: cbJenis
4. Button
 Name: cmdAdd
 Text: Tambah
5. GroupBox
 Name: gbCari
 Text: Cari
6. TextBox
 Name: txtFind
7. Button
 Name: cmdFind
 Text: Cari
8. ComboBox
 Name: cbAdd
9. ListView
 Name: lstEmpat
10.GroupBox
 Name: gbEmpat
 Text: Roda Empat
11.Buton
 Name: cmdDel4
 Text: Hapus
12.Button
 Name: cmdStop4
 Text: Stop
13.ListView
 Name: lstDua
14.Button
 Name: cmdDel2
 Text: Hapus
15.Button
 Name: cmdStop2
 Text: Stop
16.GroupBox
  Name: gbDua
 Text: Roda Dua
17.Label
 Name: lblPlat
 Text: Plat Nomor
18.TextBox
 Name: txtPlat
19.CheckBox
 Name: chkAutoDel2
 Text: Hapus Otomatis
20.GroupBox
 Name: gbAturBiaya
 Text: Atur Biaya
21.ComboBox
 Name: cbJenisBiaya
22.Button
 Name: cmdSet
 Text: Ubah
23.Button
 Name : cmdOmsetToday
 Text: Penghasilan Hari Ini
24.CheckBox
 Name: chkAutoDel4
 Text: Hapus Otomatis
25.Label
 Name: lblJenisBiaya
 Text: Jenis

Sorce Code:

Public Class Form1

    ' --------------------------------------------------
    ' ---- Program Penghitung Lama Parkir Sederhana ----
    ' --------------------------------------------------
    ' ----------- coded by nurkholish ardi f -----------
    ' ------------ www.crowja.blogspot.com -------------
    ' --------------------------------------------------

    ' karena semua buatan manusia tidak ada yang sempurna maka
    ' jika sobat menemukan bug pada source code ini, harap komentar 
    ' dg menyertai deskripsi errornya. tnx  ;)
    
    Option Explicit
    Dim PenghasilanDua As Double
    Dim PenghasilanEmpat As Double
    Dim PenghasilanTotal As Double

    ' Gunakan biaya permenit agar lebih spesifik
    ' Biaya default
    Dim BiayaPerMenitRodaDua As Double = (1000 / 60)  ' Sama saja Rp 1000 per jam
    Dim BiayaPerMenitRodaEmpat As Double = (2000 / 60)  ' Sama saja Rp 2000 per jam

    Dim BiayaAbsRodaDua As Integer
    Dim BiasaAbsRodaEmpat As Integer

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

    Private Sub InitializeView()

        ' Mengatur listview

        With lstDua
            .FullRowSelect = True
            .GridLines = True
            .Columns.Add("Plat Nomor").Width = 85
            .Columns.Add("Waktu Mulai").Width = 72
            .Columns.Add("Berakhir").Width = 72
            .Columns.Add("Biaya Parkir").Width = 71
        End With

        With lstEmpat
            .FullRowSelect = True
            .GridLines = True
            .Columns.Add("Plat Nomor").Width = 85
            .Columns.Add("Waktu Mulai").Width = 72
            .Columns.Add("Berakhir").Width = 72
            .Columns.Add("Biaya Parkir").Width = 71
        End With

        cbJenisBiaya.Items.Add("Mutlak")
        cbJenisBiaya.Items.Add("Per Waktu")
        cbJenisBiaya.DropDownStyle = ComboBoxStyle.DropDownList
        cbJenis.Items.Add("Roda Dua")
        cbJenis.Items.Add("Roda Empat")
        cbJenis.DropDownStyle = ComboBoxStyle.DropDownList
        cbFind.Items.Add("Roda Dua")
        cbFind.Items.Add("Roda Empat")
        cbFind.DropDownStyle = ComboBoxStyle.DropDownList
        Me.Text = "Parkir"
        cbJenisBiaya.SelectedIndex = 1
        cbJenisBiaya.Tag = cbJenisBiaya.SelectedIndex
        cbJenisBiaya.Enabled = False
        cmdSet.Text = "Ubah"
        Me.MaximizeBox = False
    End Sub

    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        If cbJenisBiaya.Text = "" Or cmdSet.Text = "Atur!" Then
            cmdSet.Text = "Ubah"
            cbJenisBiaya.Enabled = False
            cbJenisBiaya.SelectedIndex = cbJenisBiaya.Tag
            MsgBox("Atur biaya terlebih dahulu", MsgBoxStyle.Critical, "Biaya")
            Exit Sub
        End If
        If txtPlat.Text = "" Or cbJenis.Text = Nothing Then
            MsgBox("Masukkan plat nomor terlebih dahulu & tentukan jenis kendaraan", MsgBoxStyle.Critical, "Plat nomor")
            Exit Sub
        End If
        If cbJenis.Text = "Roda Dua" Then
            ' cek sudah ada blum
            If IsExists("2", UCase(Trim(txtPlat.Text))) Then
                MsgBox("Plat Nomor Sudah Ada", MsgBoxStyle.Information, "Masih Ada")
                Exit Sub
            End If
            ' tambahkan data
            With lstDua.Items.Add(UCase(Trim(txtPlat.Text)))
                .SubItems.Add(Now.ToString("HH':'mm")).Tag = Now
            End With
            txtPlat.Text = ""
        Else
            If IsExists("4", UCase(Trim(txtPlat.Text))) Then
                MsgBox("Plat Nomor Sudah Ada", MsgBoxStyle.Information, "Masih Ada")
                Exit Sub
            End If
            With lstEmpat.Items.Add(UCase(Trim(txtPlat.Text)))
                .SubItems.Add(Now.ToString("hh:mm")).Tag = Now
            End With
            txtPlat.Text = ""
        End If
    End Sub

    Private Function IsExists(ByVal j As Char, ByVal Plat As String) As Boolean
        If j = "2" Then
            For i = 0 To lstDua.Items.Count - 1
                If UCase(lstDua.Items(i).Text) = UCase(Plat) And lstDua.Items(i).BackColor <> Color.Red Then
                    ' Jika sudah ada dan belum di stop
                    lstDua.Items(i).Selected = True
                    lstDua.Focus()
                    IsExists = True
                End If
            Next
        Else
            For i = 0 To lstEmpat.Items.Count - 1
                If UCase(lstEmpat.Items(i).Text) = UCase(Plat) And lstEmpat.Items(i).BackColor <> Color.Red Then
                    ' Jika sudah ada dan belum di stop
                    lstEmpat.Items(i).Selected = True
                    lstEmpat.Focus()
                    IsExists = True
                End If
            Next
        End If
    End Function

    Private Sub cmdStop2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop2.Click
        Dim ongkos As Long
        ' jika sudah pernah distop, abaikan
        If lstDua.SelectedItems(0).BackColor = Color.Red Then Exit Sub
        With lstDua
            ' cek apakah user memilih slah stu item
            If .SelectedItems.Count > 0 Then
                ongkos = IIf(cbJenisBiaya.SelectedIndex = 1, Val(Format(DateDiff(DateInterval.Minute, .Items _
                (.SelectedItems(0).Index).SubItems(1).Tag, Now) * BiayaPerMenitRodaDua, "#")), BiayaAbsRodaDua)

                UpdatePenghasilan("2", ongkos)

                MsgBox("Biaya parkir Rp." & ongkos)

                .SelectedItems(0).BackColor = Color.Red
                .SelectedItems(0).SubItems.Add(Now.ToString("HH':'mm"))
                .SelectedItems(0).SubItems.Add("Rp. " & ongkos)
                ' jika chekbox hapus otomatis dipilih
                If chkAutoDel2.Checked Then .Items.Remove(.SelectedItems(0))
            End If
        End With
    End Sub

    Private Sub UpdatePenghasilan(ByVal j As Char, ByVal biaya As Long)
        If j = "2" Then
            PenghasilanDua = PenghasilanDua + biaya
        Else
            PenghasilanEmpat = PenghasilanEmpat + biaya
        End If
        PenghasilanTotal = PenghasilanDua + PenghasilanEmpat
    End Sub

    Private Sub cmdDel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel2.Click
        With lstDua
            If .SelectedItems.Count > 0 Then
                If MsgBox("Hapus dari daftar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Hapus") = MsgBoxResult.Yes Then
                    .Items.Remove(.SelectedItems(0))
                End If
            End If
        End With
    End Sub

    Private Sub cmdStop4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop4.Click
        Dim ongkos As Long
        ' jika sudah pernah distop, abaikan
        If lstEmpat.SelectedItems(0).BackColor = Color.Red Then Exit Sub
        With lstEmpat
            ' cek apakah user memilih slah stu item
            If .SelectedItems.Count > 0 Then
                ongkos = IIf(cbJenisBiaya.SelectedIndex = 1, Val(Format(DateDiff(DateInterval.Minute, .Items _
                (.SelectedItems(0).Index).SubItems(1).Tag, Now) * BiayaPerMenitRodaEmpat, "#")), BiasaAbsRodaEmpat)

                UpdatePenghasilan("4", ongkos)

                MsgBox("Biaya parkir Rp." & ongkos)

                .SelectedItems(0).BackColor = Color.Red
                .SelectedItems(0).SubItems.Add(Now.ToString("HH':'mm"))
                .SelectedItems(0).SubItems.Add("Rp." & ongkos)
                ' jika chekbox hapus otomatis dipilih
                If chkAutoDel4.Checked Then .Items.Remove(.SelectedItems(0))
            End If
        End With
    End Sub

    Private Sub cmdDel4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel4.Click
        With lstEmpat
            If .SelectedItems.Count > 0 Then
                If MsgBox("Hapus dari daftar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Hapus") = MsgBoxResult.Yes Then
                    .Items.Remove(.SelectedItems(0))
                End If
            End If
        End With
    End Sub

    Private Sub cmdFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFind.Click
        If cbFind.Text = "" Or txtFind.Text = "" Then
            MsgBox("Masukkan plat nomor dan jenis kendaraan yang akan dicari", MsgBoxStyle.Critical, "Cari")
            Exit Sub
        End If
        If cbFind.Text = "Roda Dua" Then
            lstDua.SelectedItems.Clear()
            If IsExists("2", UCase(Trim(txtFind.Text))) = False Then
                MsgBox("Kendaraan tidak ditemukan atau mingkin kendaraan telah di stop", MsgBoxStyle.Information, "Tidak ditemukan")
            End If
        Else
            lstEmpat.SelectedItems.Clear()
            If IsExists("4", UCase(Trim(txtFind.Text))) = False Then
                MsgBox("Kendaraan tidak ditemukan atau mingkin kendaraan telah di stop", MsgBoxStyle.Information, "Tidak ditemukan")
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOmsetToday.Click
        MsgBox("Omset Parkir Roda Dua  : Rp " & PenghasilanDua & vbCrLf _
             & "Omset Parkir Roda Empat: Rp " & PenghasilanEmpat & vbCrLf _
             & "" & vbCrLf _
             & "Omset Total Hari Ini   : Rp " & PenghasilanTotal, MsgBoxStyle.Information, _
             "Penghasilan Hari Ini")
    End Sub

    Private Sub cmdSet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSet.Click

        Dim BiayaDua As String
        Dim BiayaEmpat As String

        If cmdSet.Text = "Ubah" Then
            cmdSet.Text = "Atur!"
            cbJenisBiaya.Enabled = True
            cbJenisBiaya_Click(sender, e)
        Else
            cmdSet.Text = "Ubah"
            If cbJenisBiaya.SelectedIndex = 0 Then
                BiayaDua = InputBox("Masukkan biaya parkir roda dua dalam Rupiah ", "Atur Biaya", "1000")
                BiayaEmpat = InputBox("Masukkan biaya parkir roda empat dalam Rupiah ", "Atur Biaya", "2000")
            ElseIf cbJenisBiaya.SelectedIndex = 1 Then
                BiayaDua = InputBox("Masukkan biaya parkir roda dua per jam dalam Rupiah ", "Atur Biaya", "1000")
                BiayaEmpat = InputBox("Masukkan biaya parkir roda empat per jam dalam Rupiah ", "Atur Biaya", "2000")
            End If

            If IsNumeric(BiayaDua) And IsNumeric(BiayaEmpat) Then
                If cbJenisBiaya.SelectedIndex = 0 Then
                    BiayaAbsRodaDua = Int(BiayaDua)
                    BiasaAbsRodaEmpat = Int(BiayaEmpat)
                ElseIf cbJenisBiaya.SelectedIndex = 1 Then
                    BiayaPerMenitRodaDua = Int(BiayaDua) / 60
                    BiayaPerMenitRodaEmpat = Int(BiayaEmpat) / 60
                End If

            Else
                MsgBox("Masukkan angka!", MsgBoxStyle.Critical, "Kesalahan")
                cbJenisBiaya.SelectedIndex = cbJenisBiaya.Tag
            End If
            cmdSet.Text = "Ubah"
            cbJenisBiaya.Enabled = False
            cmdSet.Enabled = True
        End If
        
    End Sub

    Private Sub cbJenisBiaya_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbJenisBiaya.Click
        ' masukkan data sebelum combobox diubah
        cbJenisBiaya.Tag = cbJenisBiaya.SelectedIndex
    End Sub
End Class
' 2010 Crowja-Codez (www.crowja.blogspot.com)

Jika sobat malas untuk membuatnya, sobat juga bisa mendownload langsung source codenya:

Jangan Lupa Komentar Yaa..