Scribd Logo
Upload

Welcome to Scribd!

  • 7 views

    Prak. Sewa Hotel

    Uploaded by

    Hidayat Channel
    This document describes code for a simple application in Visual Basic for calculating rental payment amounts. The application contains text boxes for inputting rental duration, price, payment amount, and displaying total cost and change. It handles input validation and formatting of monetary values. When users press enter, it moves focus to the next field, and a button clears all fields to start a new calculation.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Prak. Sewa Hotel

    Uploaded by

    Hidayat Channel
    7 views2 pages
    This document describes code for a simple application in Visual Basic for calculating rental payment amounts. The application contains text boxes for inputting rental duration, price, payment amount, and displaying total cost and change. It handles input validation and formatting of monetary values. When users press enter, it moves focus to the next field, and a button clears all fields to start a new calculation.

    Original Description:

    devfergfer

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document describes code for a simple application in Visual Basic for calculating rental payment amounts. The application contains text boxes for inputting rental duration, price, payment amount, and displaying total cost and change. It handles input validation and formatting of monetary values. When users press enter, it moves focus to the next field, and a button clears all fields to start a new calculation.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    7 views2 pages

    Prak. Sewa Hotel

    Uploaded by

    Hidayat Channel
    This document describes code for a simple application in Visual Basic for calculating rental payment amounts. The application contains text boxes for inputting rental duration, price, payment amount, and displaying total cost and change. It handles input validation and formatting of monetary values. When users press enter, it moves focus to the next field, and a button clears all fields to start a new calculation.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    You are on page 1of 2

    Latihan Membuat Aplikasi Sederhana

    Public Class Latihan_Form1_Pbyaran


    Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles MyBase.Load
    Me.Text = "Pembayaran Sewa Kamar"
    Me.ControlBox = False
    Me.BackColor = Color.DarkTurquoise
    Me.StartPosition = FormStartPosition.CenterScreen
    Me.TxtBiaya.Enabled = False
    Me.TxtKembali.Enabled = False
    Me.LblNama.ForeColor = Color.AliceBlue
    End Sub

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


    System.EventArgs) Handles TxtHarga.TextChanged
    Dim Lama, Harga, Biaya, Bayar, Kembali As New Long
    Lama = Val(TxtLama.Text)
    Harga = Val(TxtHarga.Text)
    Biaya = Val(TxtBiaya.Text)
    Bayar = Val(TxtBayar.Text)
    Kembali = Val(TxtKembali.Text)
    Biaya = Lama * Harga
    Kembali = Biaya - Bayar
    TxtBiaya.Text = Format(Biaya, "Rp ###,###.#0")
    TxtKembali.Text = Format(Kembali, "Rp ###, ###.#0")
    End Sub

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


    System.Windows.Forms.KeyPressEventArgs) Handles TxtHarga.KeyPress
    If e.KeyChar = Chr(13) Then
    Me.TxtBayar.Focus()
    End If

    End Sub
    Private Sub TxtBayar_TextChanged(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles TxtBayar.TextChanged
    Dim Lama, Harga, Biaya, Bayar, Kembali As New Long
    Lama = Val(TxtLama.Text)
    Harga = Val(TxtHarga.Text)
    Biaya = Val(TxtBiaya.Text)
    Bayar = Val(TxtBayar.Text)
    Kembali = Val(TxtKembali.Text)
    Biaya = Lama * Harga
    Kembali = Biaya - Bayar
    TxtBiaya.Text = Format(Biaya, "Rp ###,###. #0")
    TxtKembali.Text = Format(Kembali, "Rp ###, ###. #0")
    End Sub

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


    System.Windows.Forms.KeyPressEventArgs) Handles TxtBayar.KeyPress
    If e.KeyChar = Chr(13) Then
    Me.BtnNew.Focus()
    End If
    End Sub

    Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    Handles BtnNew.Click
    Me.TxtLama.Clear()
    Me.TxtHarga.Clear()
    Me.TxtBiaya.Clear()
    Me.TxtBayar.Clear()
    Me.TxtKembali.Clear()
    Me.TxtLama.Focus()
    End Sub

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


    System.EventArgs) Handles BtnClose.Click
    MsgBox("Apakah Anda Ingin Keluar!", MsgBoxStyle.Information, "Perhatian!")
    Me.Close()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Handles Timer1.Tick
    LblNama.Text = Microsoft.VisualBasic.Right(LblNama.Text, 1) +
    Microsoft.VisualBasic.Left(LblNama.Text, Len(LblNama.Text) - 1)
    End Sub
    Private Sub TxtLama_KeyPress(ByVal sender As System.Object, ByVal e As
    System.Windows.Forms.KeyPressEventArgs) Handles TxtLama.KeyPress
    If e.KeyChar = Chr(13) Then
    Me.TxtHarga.Focus()
    End If
    End Sub
    End Class

    You might also like