Senin, 29 November 2010

53

[VB.NET] Program Penghitung Lama Parkir Sederhana

  • Senin, 29 November 2010
  • Nurkholish Ardi Firdaus
  • Share
  • 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:

    Crowja-Coderz
    Jangan Lupa Komentar Yaa..
    Related Posts Plugin for WordPress, Blogger...

    53 Komentar Untuk “[VB.NET] Program Penghitung Lama Parkir Sederhana”

    Anonim mengatakan...

    Senin, 29 November 2010 14.40.00 WIB Reply To This Comment

    wow, top gan......


    Nurkholish Ardi Firdaus mengatakan...
    Senin, 29 November 2010 14.41.00 WIB Reply To This Comment

    yoi, agak panjang sih source codenya..


    Precious mengatakan...
    Jumat, 03 Desember 2010 16.50.00 WIB Reply To This Comment

    I love your blog lots of useful information. I've added it to my favorite bookmarks and subscribed in a reader.

    All these issues are important, and that's why I just started blogging a while ago and it feels great.

    Kind Regards
    Evelina


    stop smoking
    quit smoking
    get my ex back


    Nurkholish Ardi Firdaus mengatakan...
    Minggu, 05 Desember 2010 14.50.00 WIB Reply To This Comment

    @Precious : thanx a lot for your comments, keep visiting... i'm very happy when my post useful for everyone..


    Anonim mengatakan...

    Rabu, 19 Januari 2011 13.24.00 WIB Reply To This Comment

    keren bos ikut copy buat belajar


    Nurkholish Ardi Firdaus mengatakan...
    Rabu, 19 Januari 2011 14.01.00 WIB Reply To This Comment

    @Anonim ok, monngo....


    Anonim mengatakan...

    Kamis, 27 Januari 2011 11.13.00 WIB Reply To This Comment

    dear mas nur,,
    waktu di coba cari kendaraan roda dua kok malah keluar pesan "kendaraan tidak ditemukan" padahalkan no plat nya baru aja dimasukin,, tapi klu kendaraan roda empat langsung bisa ditemuin,,,

    sbelumnya terimakasih banyak atas ilmu yang udah di bagikan oleh mas :)

    mohon pencerahannya mas :)

    by : RICO


    Nurkholish Ardi Firdaus mengatakan...
    Kamis, 27 Januari 2011 19.59.00 WIB Reply To This Comment

    @RICO: Sip, Oh y, mkasih krn sdh mmberitahu bug nya,, tp saya tdk mnemukan kesalahan yang mas rico katakan. Mungkin no plat nya tidak diketik dg baik., hehehe mlah nyalahin.. Tp skrang sdh sya perbaiki, silahkan lihat source code nya diatas. Oh y, lbh baik mas rico mndownload saja source code nya agar tdk terlalu ribet. OK,

    Salam,


    Anonim mengatakan...

    Kamis, 03 Februari 2011 03.18.00 WIB Reply To This Comment

    [url=http://www.forumpostbacklinks.com]forum post backlinks[/url]


    Anonim mengatakan...

    Senin, 07 Februari 2011 14.21.00 WIB Reply To This Comment

    sip mantap tarimakasih banyak udah cari-cari cuma di sini,trus berkereasi..


    Nurkholish Ardi Firdaus mengatakan...
    Senin, 07 Februari 2011 18.47.00 WIB Reply To This Comment

    @Anonim ote, tnx bt komentarnya dan teruslah berkunjung ;)


    Anonim mengatakan...

    Senin, 14 Februari 2011 15.26.00 WIB Reply To This Comment

    mas saya baru nh bajar mau tanya nh ko i nya g di deklasikan pas saya coba ga bs terimaksh banyak sangat membatu mas bagi saya


    Nurkholish Ardi Firdaus mengatakan...
    Senin, 14 Februari 2011 21.06.00 WIB Reply To This Comment

    @Anonimoh, mungkin variable i hrus di deklarasi secara implicit. tp g jg gpp koq. Caranya dengan menambahkan:

    Option Explicit

    di bagian atas source code tepatnya sesudah bagian kepala class. misal:

    Public Class Form 1
    Option Explicit

    atau jga bsa di sisipin setelah deklarasi fungsi/sub, contoh:

    Private Function f(Byval X as Integer)
    Option Explicit


    Dengan memasukkan statement tersebut, anda berari mendeklarasikan variable secara explicit, atau dengan kata lain jika ditemukan variable yang belum di deklarasi sebelumnya. Visual basic akan mengabaikannya, dan menganggap variable tersebut sudah dideklarasi.

    Hmm, karena sobat komentar, maka pada source code diatas, saya sudah menambahkan Option Explicit, ote.
    Jika sobat ingin belajar tentang Visual Basic.NET secara lebih mendalam lagi, silahkan mendownload saja EBook nya diblog ini, banyak kok. ote
    semoga bisa membantu....


    Anonim mengatakan...

    Kamis, 17 Februari 2011 19.21.00 WIB Reply To This Comment

    wihh keren2..makasi,lumayan buat belajar ^^


    Nurkholish Ardi Firdaus mengatakan...
    Kamis, 17 Februari 2011 19.36.00 WIB Reply To This Comment

    @Anonim seep,,seeep... monggo di sedot...wkwkwkwk


    Anonim mengatakan...

    Sabtu, 26 Februari 2011 10.01.00 WIB Reply To This Comment

    mas,baut vb 2005 bisa g?trs klu untuk set waktunya biar langsung satu jam pertama langusung di buletin 1000 gimana caranya?mohon pentunjuknya
    "terimaksih"


    Nurkholish Ardi Firdaus mengatakan...
    Sabtu, 26 Februari 2011 11.51.00 WIB Reply To This Comment

    @Anonim hmmm, kyaknya q bru nyeting per menit nya gannn... jadi pikirku biar orang yg parkir & pemarkirnya tdk ada yg dirugikan...hehehehe,,,


    BUKAL mengatakan...
    Kamis, 28 April 2011 10.29.00 WIB Reply To This Comment

    kok blognya berat gan???jadi gk bisa dapet 25 perak ne dari IDR,,,,hihihiihihi,,,slm knl,


    Nurkholish Ardi Firdaus mengatakan...
    Kamis, 28 April 2011 12.20.00 WIB Reply To This Comment

    @BUKAL wkwkwkwkwkwkwk,,, ane coba ringanin deh gan... ^_^


    Anonim mengatakan...

    Senin, 19 November 2012 08.05.00 WIB Reply To This Comment

    [url=http://acquistocialisfacile.com/#54223]cialis senza ricetta[/url], cialis, http://acquistocialisfacile.com/#54718 cialis


    Anonim mengatakan...

    Senin, 19 November 2012 21.03.00 WIB Reply To This Comment

    [url=http://cialisacquisto24.com/#bwww.blogger.com]cialis[/url], cialis, http://cialisacquisto24.com/#owww.blogger.com cialis vs levitra


    Anonim mengatakan...

    Selasa, 20 November 2012 15.59.00 WIB Reply To This Comment

    [url=http://viagraacquistoitalia.com/#92838]acquisto viagra generico[/url], viagra, http://viagraacquistoitalia.com/#15228 acquisto viagra contrassegno


    Anonim mengatakan...

    Selasa, 20 November 2012 22.04.00 WIB Reply To This Comment

    [url=http://viagraacquistoitalia.com/#73735]viagra[/url], viagra, http://viagraacquistoitalia.com/#81234 acquisto viagra generico


    Anonim mengatakan...

    Rabu, 21 November 2012 06.32.00 WIB Reply To This Comment

    [url=http://acquistocialisfacile.com/#54379]cialis[/url], cialis, http://acquistocialisfacile.com/#39332 cialis


    Anonim mengatakan...

    Kamis, 22 November 2012 08.05.00 WIB Reply To This Comment

    [url=http://viagraacquistoitalia.com/#55338]viagra[/url], viagra online, http://viagraacquistoitalia.com/#80825 acquisto viagra online italia


    Anonim mengatakan...

    Minggu, 25 November 2012 07.17.00 WIB Reply To This Comment

    [url=http://osiak.net/#17854]viagra online[/url], viagra, http://osiak.net/#95966 sildenafil


    Anonim mengatakan...

    Minggu, 25 November 2012 12.52.00 WIB Reply To This Comment

    [url=http://osiak.net/#58315]sildenafil[/url], viagra online, http://osiak.net/#90870 sildenafil


    Anonim mengatakan...

    Minggu, 02 Desember 2012 12.52.00 WIB Reply To This Comment

    [url=http://www.abercrombiecs.com/]abercrombie france[/url] frqcr [url=http://www.doudounepaschercs.org/]doudoune[/url] ifhoh [url=http://www.mclouboutin.com/]christian louboutin[/url] krrib [url=http://www.abercrombiecs.com/]abercrombie and fitch[/url] nrxsm [url=http://www.mclouboutin.com/]christian louboutin[/url] hinaw


    Anonim mengatakan...

    Kamis, 13 Desember 2012 09.58.00 WIB Reply To This Comment

    [url=http://www.louboutintob.net/]louboutin[/url] qlpbf [url=http://www.ilkmonclerdoudoune.org/]moncler femme[/url] gvsve [url=http://www.ilkmonclerdoudoune.org/]http://www.ilkmonclerdoudoune.org/[/url] rbjfg [url=http://www.ilkmonclerdoudoune.org/]moncler doudoune[/url] jargx [url=http://www.louboutintob.net/]http://www.louboutintob.net/[/url] qbrof


    Anonim mengatakan...

    Kamis, 13 Desember 2012 09.59.00 WIB Reply To This Comment

    [url=http://www.somonclersaleuk.co.uk/]moncler uk[/url] ezexe [url=http://www.somonclersaleuk.co.uk/]moncler uk[/url] wigcb [url=http://www.tthomassabobracelet.co.uk/]http://www.tthomassabobracelet.co.uk/[/url] dxklk [url=http://www.xcralphlaurenukonlinestore.co.uk/]ralph lauren outlet[/url] aagwt [url=http://www.somonclersaleuk.co.uk/]moncler jackets[/url] srxca


    Anonim mengatakan...

    Kamis, 20 Desember 2012 01.35.00 WIB Reply To This Comment

    [url=http://almozara.org]online[/url], almozara, http://almozara.org clikka qui


    Anonim mengatakan...

    Kamis, 20 Desember 2012 04.28.00 WIB Reply To This Comment

    [url=http://almozara.org]vai[/url], visualizza il sito, http://almozara.org sito web


    Anonim mengatakan...

    Senin, 24 Desember 2012 17.59.00 WIB Reply To This Comment

    commenti, almozara, http://almozara.org online


    Anonim mengatakan...

    Sabtu, 05 Januari 2013 11.45.00 WIB Reply To This Comment

    farmacia, bewunderful.org, http://bewunderful.org clikka


    Anonim mengatakan...

    Sabtu, 05 Januari 2013 13.13.00 WIB Reply To This Comment

    bewunderful.org, clikka qui, http://bewunderful.org compra


    Anonim mengatakan...

    Sabtu, 05 Januari 2013 15.47.00 WIB Reply To This Comment

    bewunderful, effetti collaterali, http://bewunderful.org bewunderful


    Anonim mengatakan...

    Sabtu, 05 Januari 2013 22.08.00 WIB Reply To This Comment

    [url=http://bewunderful.org]bewunderful.org[/url], visualizza il sito, http://bewunderful.org bewunderful


    Anonim mengatakan...

    Minggu, 06 Januari 2013 09.29.00 WIB Reply To This Comment

    recensione, online, http://bewunderful.org migliori


    Anonim mengatakan...

    Senin, 07 Januari 2013 02.17.00 WIB Reply To This Comment

    bQgy ghd hair straightener
    xKaq ugg uk
    gSxp michael kors outlet
    0mIae cheap ugg boots
    9fAdx chi hair straightener
    3rZkp ghd
    1tUnb nfl jerseys
    4iZii ghd hair straighteners
    3pFuh cheap north face
    0zCzk botas ugg españa
    8hBgq pink ghd straighteners
    6nKcr michael kors wallet
    8gNzi nike nfl jerseys
    9xMhj plancha ghd
    7kMmm ugg boots sale


    Anonim mengatakan...

    Jumat, 11 Januari 2013 19.23.00 WIB Reply To This Comment

    wVnt coach
    lHor ugg boots
    wNcp michael kors purse
    0tNfl ugg boots
    9zTup chi straightener
    4sRdt michael kors outlet
    5sNqz cheap nfl jerseys
    7zOox coach outlet online
    5yQkn cheap north face
    6rAoi botas ugg baratas
    6vXes ghd mini
    1ySlr michael kors wallet
    1wYvw nfl jerseys
    0tJcf plancha ghd
    8lTjz cheap ugg


    Anonim mengatakan...

    Jumat, 11 Januari 2013 22.58.00 WIB Reply To This Comment

    [url=http://ventepriveeuggfr.com/]http://ventepriveeuggfr.com/[/url] dhbtj [url=http://vetementsburberryfr.org/]Trench Burberry[/url] iiisd [url=http://escarpinlouboutinfr.com/]louboutin[/url] oagzt [url=http://monclerbransonfr.org/]moncler homme[/url] kxvwt


    Anonim mengatakan...

    Minggu, 13 Januari 2013 20.02.00 WIB Reply To This Comment

    [url=http://casinoonlinebonussverige.com ]online casino bonus [/url]coustumier de choisir les plus belles roses qu'il peut, soit en France, http://casinoonlinebonussverige.com online casino yahoo internet casino most aspiring were Christoval de Sotelo, and Garcia de Alvarado; both


    Anonim mengatakan...

    Senin, 21 Januari 2013 23.30.00 WIB Reply To This Comment

    [url=http://www.louboutinshoesukcheap.co.uk/]http://www.louboutinshoesukcheap.co.uk/[/url] aphvi [url=http://www.thomassabooutletukcheap.co.uk/]thomas sabo outlet[/url] sxakl [url=http://www.abercrombieoutletukcheap.co.uk/]abercrombie outlet[/url] otgjf [url=http://www.womensbootsukcheap.co.uk/]ugg uk[/url] eoeup


    Anonim mengatakan...

    Jumat, 25 Januari 2013 23.35.00 WIB Reply To This Comment

    http://site.ru - [url=http://site.ru]site[/url] site
    site


    Anonim mengatakan...

    Minggu, 03 Februari 2013 11.07.00 WIB Reply To This Comment

    KfwVur [url=http://onnrainnmcm.com/#54864]MCM 通販[/url] EjjVqa http://onnrainnmcm.com/ FluYxb [url=http://mcmsenmon.com/#89902]MCM 長財布[/url] AmmJfg http://mcmsenmon.com/ XxcNmb [url=http://ninnkimcm.com/#83417]MCM 通販[/url] VidYtd http://ninnkimcm.com/ BbsLsr [url=http://kaidokumcm.com/#57309]MCM 長財布[/url] GdgTqr http://kaidokumcm.com/ WkgMpn [url=http://manzokumcm.com/#80380]MCM 店舗[/url] KzvVhk http://manzokumcm.com/ MsfKfh http://chloenihon.com/ KkjYum [url=http://chloenihon.com/]クロエ 通販[/url] QdsXsc http://louboutindendou.com/ IdqDis [url=http://louboutindendou.com/]ルブタン セール[/url] MsvQys http://guccisenmon.com/ TcnAoo [url=http://guccisenmon.com/]GUCCI トートバッグ[/url] AgaOqx [url=http://mcmhannbai.com/]MCM 通販[/url] HiaVgd [url=http://mcmhannbai.com/]MCM 長財布[/url]


    Anonim mengatakan...

    Rabu, 13 Februari 2013 20.19.00 WIB Reply To This Comment

    [url=http://www.france3europe.com/2013/02/07/panama-metropolis-beach-points-of-interest-and-resorts/]read more here[/url]


    Anonim mengatakan...

    Rabu, 13 Februari 2013 23.31.00 WIB Reply To This Comment

    [url=http://www.technomads.info/2013/02/eminent-downtown-resort-in-phoenix/]this article[/url]


    Anonim mengatakan...

    Kamis, 14 Februari 2013 02.47.00 WIB Reply To This Comment

    [url=http://www.maximlifts.com/?p=198]cialis[/url]


    Anonim mengatakan...

    Selasa, 05 Maret 2013 20.55.00 WIB Reply To This Comment

    SxxQab [url=http://onnrainnmcm.com/#97948]MCM 長財布[/url] KpzLam http://onnrainnmcm.com/ LjrVtt [url=http://mcmsenmon.com/#75060]MCM バッグ[/url] MbkApe http://mcmsenmon.com/ MloIhr [url=http://ninnkimcm.com/#91277]MCM 長財布[/url] TauDrx http://ninnkimcm.com/ MdrWbk [url=http://kaidokumcm.com/#92345]MCM 韓国[/url] QydDpp http://kaidokumcm.com/ EneLys [url=http://manzokumcm.com/#45027]MCM リュック[/url] YyxVwj http://manzokumcm.com/ ZglCjr http://chloenihon.com/ CltJwj [url=http://chloenihon.com/]クロエ キーケース[/url] ZwtH http://toumikousin.com/ RouYY [url=http://toumikousin.com/]TUMI 96141[/url] PegQtJ http://toumikakaku.com/ GxtQvRL [url=http://toumikakaku.com/]TUMI 26114[/url] VqhLuq [url=http://mcmhannbai.com/]mcm3806[/url] MkqMlf [url=http://mcmhannbai.com/]MCM 通販[/url]


    Anonim mengatakan...

    Selasa, 05 Maret 2013 21.18.00 WIB Reply To This Comment

    SldNwc [url=http://onnrainnmcm.com/#95543]MCM[/url] DfrSwj http://onnrainnmcm.com/ RouKbp [url=http://mcmsenmon.com/#41249]MCM 店舗[/url] OvfKql http://mcmsenmon.com/ MerCyp [url=http://ninnkimcm.com/#29715]MCM 長財布[/url] AuzNay http://ninnkimcm.com/ VplUxr [url=http://kaidokumcm.com/#55416]MCM iphoneケース[/url] StbIfn http://kaidokumcm.com/ RteZlo [url=http://manzokumcm.com/#51019]MCM 財布[/url] PeeFiu http://manzokumcm.com/ TwvOzn http://chloenihon.com/ RkxHmg [url=http://chloenihon.com/]クロエ[/url] PzyD http://toumikousin.com/ QvyDJ [url=http://toumikousin.com/]TUMI 26114[/url] JnkHlK http://toumikakaku.com/ KqpAuBO [url=http://toumikakaku.com/]TUMI スーツケース[/url] XqqDcx [url=http://mcmhannbai.com/]MCM バッグ[/url] YyjQee [url=http://mcmhannbai.com/]MCM バッグ[/url]


    Anonim mengatakan...

    Minggu, 17 Maret 2013 23.28.00 WIB Reply To This Comment

    EpB s dgYW http://senmonerumesu.com/ ytML f hpRO fkU [url=http://senmonerumesu.com/]エルメス バーキン[/url] EaX w yyXV http://hannbaikochi1jp.com/ xaZH x sxFQ qmQ [url=http://hannbaikochi1jp.com/]コーチ バッグ 新作[/url] HwB taHM r xwOS http://dendoukochiinjp.com/ azRA q ahHU aeS [url=http://dendoukochiinjp.com/]coach 財布[/url] QaN zlGP e puYY http://sinsakukochi1jp.com/ fxUX h huLS vtA [url=http://sinsakukochi1jp.com/]COACH バッグ[/url] OkQ njSK w ziIB http://hannbaierumesu.com/ abRR v drHE voH [url=http://hannbaierumesu.com/]エルメス エブリン[/url] JyM d ydDZ http://nihonkochiinjp.com/ svHO h glQB ajZ [url=http://nihonkochiinjp.com/]コーチファクトリー カードミラー[/url] BuC m ytAR http://louisnevuittonedspeedy.webs.com/ ezCU b nkRY xpQ [url=http://louisnevuittonedspeedy.webs.com/]louis vuitton speedy[/url] IyI y jmXJ http://kochijapkangeia.com/ ecOH b dbAZ lvJ [url=http://kochijapkangeia.com/]コーチ 財布 メンズ[/url] VuH teZX w akTY http://saiyasuneerumesu.com/ xmMO g pnZZ izC [url=http://saiyasuneerumesu.com/]エルメス 財布[/url]


    patrix mueller mengatakan...
    Sabtu, 28 September 2013 10.57.00 WIB Reply To This Comment

    bagus bos,, tpi btw w juga mw ngeshare nihh, ih alamat blog w ( www.arruhamasoftware.blogspot.com)


    mahadi wazowski mengatakan...
    Minggu, 14 Juni 2015 18.07.00 WIB Reply To This Comment

    mas program ini apakan menggunakan sql pada vb.net juga apa tidak ya....????

    mohon tanggapannya...........


    Posting Komentar

    Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe

    Subscribe