Cara Membuat Form Pembayaran Sewa Buku Sederhana pada VB.NET

Cara Membuat Form Pembayaran Sewa Buku Sederhana menggunakan VB.NET pada Microsoft Visual Studio 2010. Ini merupakan form sederhananya saja untuk pembelajaran. Jika yang lebih kompleksnya bisa Anda tambahkan sendiri.Dan ini merupakan contoh dari Interface.
Tampilannya bisa seperti ini :

Scriptnya :

Public Class Form1

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnStart.Click

        txtNama.Text = ""

        txtLama.Text = ""

        txtJumlah.Text = ""

        txtHarga.Text = ""

        txtBayar.Text = ""

        txtTTL.Text = ""

        cmbAgama.Text = "Not Selected"

        txtNama.Focus()

    End Sub

    Private Sub txtTglKembali_LostFocus(ByVal sender As Object, ByVal e As

System.EventArgs) Handles txtTglKembali.LostFocus

        txtLama.Text = Val(txtTglKembali.Text) - Val(txtTglPinjam.Text)

        Dim lama As Integer

        Dim pinjam, kembali As String

        pinjam = txtTglPinjam.Text

        kembali = txtTglKembali.Text

        lama = DateDiff("d", pinjam, kembali)

        txtLama.Text = lama

    End Sub

    Private Sub txtHarga_LostFocus(ByVal sender As Object, ByVal e As

System.EventArgs) Handles txtHarga.LostFocus

        txtJumlah.Text = txtLama.Text * Val(txtHarga.Text)

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles btnClose.Click

        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

        cmbAgama.Text = "Not Selected"

        cmbAgama.Items.Add("Islam")

        cmbAgama.Items.Add("Kristen")

        cmbAgama.Items.Add("Hindu")

        cmbAgama.Items.Add("Budha")

    End Sub

    Private Sub rb10_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles rb10.CheckedChanged

        If rb10.Checked = True Then

            txtBayar.Text = txtJumlah.Text - (txtJumlah.Text * 0.1)

        Else

            rb10.Checked = False

            txtBayar.Text = txtJumlah.Text - (txtJumlah.Text * 0)

        End If

    End Sub

    Private Sub rb0_CheckedChanged(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles rb0.CheckedChanged

        If rb0.Checked = True Then

            txtBayar.Text = txtJumlah.Text - (txtJumlah.Text * 0)

        Else

            rb0.Checked = False

            txtBayar.Text = txtJumlah.Text - (txtJumlah.Text * 0)

        End If

    End Sub

End Class

Dan jika sudah diisi akan jadi seperti gambar dibawah :

Sekian dulu postingan dari saya..
PISSSSS   '_' v

• Tweet
• Share
• Share
• Share
• Share

About Admin

Saya senang berbagi ilmu agar semua orang tidak lagi asing terhadap ilmu-ilmu yang ada pada dunia komputer. Selain itu saya juga memberikan ilmu-ilmu tentang pemrograman ke blog ini khususnya untuk yang kuliah jurusan komputer ;) ;) ;)

Related Post