Program Kartu Pembayaran Sederhana Menggunakan VB.Net (Visual Studio 2010)

Halo semua, selamat siang. Tak terasa sudah lama juga saya tidak memperbarui postingan di blog ini. Kali ini saya ingin membahas pembuatan program sederhana menggunakan software visual studio 2010. Program ini dapat digunakan menggunakan alat tap reader yang kaya di supermarket itu lho semacam barcode reader. Langsung saja yah

Pertama buat desain seperti berikut :




















Jangan lupa beri nama objek-objeknya yah. Udah tau kan objek itu apa??? itu lho label, textbox dll itu disebut objek. Ubah namanya di jendela properties yah yang ada di sebelah kanan project. Listing programnya seperti di bawah ini :

Public Class Form2
    Private Sub isidata()
        Select Case txtid.Text
            Case "12338443"
                lblnpm.Text = "212.163.008"
                lblnama.Text = "Asri Permatasari"
                lblprodi.Text = "Manajemen Informatika"
                pctfoto.Image = Image.FromFile(Application.StartupPath & "\car.jpg")
                lbldeposit.Text = My.Settings.mhs1
            Case "10740891"
                lblnpm.Text = "212.163.007"
                lblnama.Text = "Hastiani"
                lblprodi.Text = "Manajemen Informatika"
                pctfoto.Image = Image.FromFile(Application.StartupPath & "\desain polo 1.jpg")
                lbldeposit.Text = My.Settings.mhs2
            Case "10740884"
                lblnpm.Text = "212.163.035"
                lblnama.Text = "Oktap Pradana Nurdin"
                lblprodi.Text = "Manajemen Informatika"
                lbldeposit.Text = My.Settings.mhs3
            Case "10740904"
                lblnpm.Text = "212.163.004"
                lblnama.Text = "Rian"
                lblprodi.Text = "Manajemen Informatika"
                lbldeposit.Text = My.Settings.mhs4
            Case "10740924"
                lblnpm.Text = "212.163.002"
                lblnama.Text = "Sari"
                lblprodi.Text = "Manajemen Informatika"
                lbldeposit.Text = My.Settings.mhs5
        End Select
    End Sub
    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        txtid.Text = ""
        lblnama.Text = ""
        lblnpm.Text = ""
        lblprodi.Text = ""
        pctfoto.Image = Nothing
        txtid.Focus()
        lbldeposit.Text = ""
    End Sub

    Private Sub txtid_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtid.TextChanged
        Call isidata()
    End Sub

    Private Sub btnplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplus.Click
        Dim n As Long
        Dim tmp As String
ulang:
        tmp = InputBox("Masukkan nominal deposit (dalam rupiah)", "Pesan")
        If Not (IsNumeric(tmp)) Then
            MsgBox("Harap diisi dengan angka !!!")
            GoTo ulang
        Else
            n = tmp
        End If

        Select Case txtid.Text.Trim 'motong spasi kiri dan kanan
            Case "12338443"
                My.Settings.mhs1 = My.Settings.mhs1 + n
                lbldeposit.Text = My.Settings.mhs1
            Case "10740891"
                My.Settings.mhs2 = My.Settings.mhs2 + n
                lbldeposit.Text = My.Settings.mhs2
            Case "10740884"
                My.Settings.mhs3 = My.Settings.mhs3 + n
                lbldeposit.Text = My.Settings.mhs3
            Case "10740904"
                My.Settings.mhs4 = My.Settings.mhs4 + n
                lbldeposit.Text = My.Settings.mhs4
            Case "10740924"
                My.Settings.mhs5 = My.Settings.mhs5 + n
                lbldeposit.Text = My.Settings.mhs5
        End Select
        My.Settings.Save()
    End Sub

    Private Sub btnminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnminus.Click
        Dim n As Long
        Dim tmp As String
ulang:
        tmp = InputBox("Masukkan nominal deposit (dalam rupiah)", "Pesan")
        If Not (IsNumeric(tmp)) Then
            MsgBox("Harap diisi dengan angka !!!")
            GoTo ulang
        Else
            n = tmp
        End If
        If lbldeposit.Text < n Then
            MsgBox("Saldo anda tidak mencukupi untuk melakukan pembayaran/pengurangan saldo!!")
        Else

            Select Case txtid.Text.Trim 'motong spasi kiri dan kanan
                Case "12338443"
                    My.Settings.mhs1 = My.Settings.mhs1 - n
                    lbldeposit.Text = My.Settings.mhs1
                Case "10740891"
                    My.Settings.mhs2 = My.Settings.mhs2 - n
                    lbldeposit.Text = My.Settings.mhs2
                Case "10740884"
                    My.Settings.mhs3 = My.Settings.mhs3 - n
                    lbldeposit.Text = My.Settings.mhs3
                Case "10740904"
                    My.Settings.mhs4 = My.Settings.mhs4 - n
                    lbldeposit.Text = My.Settings.mhs4
                Case "10740924"
                    My.Settings.mhs5 = My.Settings.mhs5 - n
                    lbldeposit.Text = My.Settings.mhs5
            End Select
            My.Settings.Save()
        End If
    End Sub
End Class


Ada pertanyaan tentang listing program di atas ??? let me explain hehe

• Mungkin teman-teman masih asing sama my.settings. My.Settings gunanya hampir sama dengan variabel, namun jika kita menggunakan My.Settings inputan dalam program akan disimpan secara permanen. Logikanya jika kita menggunakan variabel, ketika program di run lalu di stop maka variabel akan kembali ke keadaan semula sesuai koding yang kita buat. Tapi kalau kita menggunakan my.settings variabel akan tersimpan walaupun program tidak aktif.
• Bagaimana menggunakan my.setting??? caranya seperti berikut : klik project --> Properties lalu pilih tab settings --> isi kolom name, type, scope, dan value. lihat gambar :

•  Untuk koding jangan lupa sesuaikan nama objek pada desain dan listing programnya

Ok, mungkin itu saja, jika ada yang ingin ditanyakan silahkan di komentar :)