Scribd Logo
Upload

Welcome to Scribd!

  • 12 views

    Form1: Public Class Dim As Double Dim As Double Dim As Dim As Dim As Dim As Dim As Dim As Double Dim As Double

    Uploaded by

    Rachel William
    The document contains the code for a laundry payment application in Visual Basic. It defines variables to store the prices of food, extras, and laundry services. It also contains code to calculate subtotals for selected food and extras, add them together with the laundry service fee, and then calculate change from the amount paid. The code initializes prices, handles checking different laundry service types, and resets fields when the reset button is clicked.

    Copyright:

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

    Form1: Public Class Dim As Double Dim As Double Dim As Dim As Dim As Dim As Dim As Dim As Double Dim As Double

    Uploaded by

    Rachel William
    12 views3 pages
    The document contains the code for a laundry payment application in Visual Basic. It defines variables to store the prices of food, extras, and laundry services. It also contains code to calculate subtotals for selected food and extras, add them together with the laundry service fee, and then calculate change from the amount paid. The code initializes prices, handles checking different laundry service types, and resets fields when the reset button is clicked.

    Original Description:

    suka-suka kitakk

    Original Title

    Program Cuci Mobil

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains the code for a laundry payment application in Visual Basic. It defines variables to store the prices of food, extras, and laundry services. It also contains code to calculate subtotals for selected food and extras, add them together with the laundry service fee, and then calculate change from the amount paid. The code initializes prices, handles checking different laundry service types, and resets fields when the reset button is clicked.

    Copyright:

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

    Form1: Public Class Dim As Double Dim As Double Dim As Dim As Dim As Dim As Dim As Dim As Double Dim As Double

    Uploaded by

    Rachel William
    The document contains the code for a laundry payment application in Visual Basic. It defines variables to store the prices of food, extras, and laundry services. It also contains code to calculate subtotals for selected food and extras, add them together with the laundry service fee, and then calculate change from the amount paid. The code initializes prices, handles checking different laundry service types, and resets fields when the reset button is clicked.

    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 3

    Public Class Form1

    Dim total, bayar, kembali As Double


    Dim biayacuci, tottambah, totmakan As Double
    Dim makan As CheckBox()
    Dim tambah As CheckBox()
    Dim txttambah As TextBox()
    Dim txtmakan As TextBox()
    Dim txtjumlah As TextBox()
    Dim hargamakan() As Double = {17000, 21000, 16000, 10000, 5000}
    Dim hargatambahan() As Double = {10000, 15000, 25000}

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


    Handles MyBase.Load
    Dim i As Integer
    makan = New CheckBox() {cbMakan1, cbMakan2, cbMakan3, cbMakan4, cbMakan5}
    txtmakan = New TextBox() {txtMakan1, txtMakan2, txtMakan3, txtMakan4, txtMakan5}
    txtjumlah = New TextBox() {txtJumlah1, txtJumlah2, txtJumlah3, txtJumlah4,
    txtJumlah5}
    tambah = New CheckBox() {cbTambah1, cbTambah2, cbTambah3}
    txttambah = New TextBox() {txtTambah1, txtTambah2, txtTambah3}

    For i = 0 To 4
    txtmakan(i).Text = "Rp. " & Format(hargamakan(i), "#,##0")
    Next

    For i = 0 To 2
    txttambah(i).Text = "RP. " & Format(hargatambahan(i), "#,##0")
    Next
    biayacuci = 0
    End Sub

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


    System.EventArgs) Handles rdJenis1.CheckedChanged
    biayacuci = 15000
    txtBiayaCuci.Text = "Rp. " & Format(biayacuci, "#,##0")
    End Sub

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


    System.EventArgs) Handles rdJenis2.CheckedChanged
    biayacuci = 25000
    txtBiayaCuci.Text = "Rp. " & Format(biayacuci, "#,##0")
    End Sub

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


    System.EventArgs) Handles rdJenis3.CheckedChanged
    biayacuci = 30000
    txtBiayaCuci.Text = "Rp. " & Format(biayacuci, "#,##0")
    End Sub

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


    System.EventArgs) Handles rdJenis4.CheckedChanged
    biayacuci = 50000
    txtBiayaCuci.Text = "Rp. " & Format(biayacuci, "#,##0")
    End Sub

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


    System.EventArgs) Handles btnHitung.Click
    Dim i As Integer
    totmakan = 0
    tottambah = 0
    For i = 0 To 2
    If tambah(i).Checked Then
    tottambah = tottambah + hargatambahan(i)
    End If
    Next
    For i = 0 To 4
    If makan(i).Checked Then
    totmakan = totmakan + (hargamakan(i) * Val(txtjumlah(i).Text))
    End If
    Next
    total = biayacuci + tottambah + totmakan
    txtTotal.Text = "Rp. " & Format(total, "#,##0")

    End Sub

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


    System.Windows.Forms.KeyPressEventArgs) Handles txtBayar.KeyPress
    If e.KeyChar = Chr(13) Then
    kembali = Val(txtBayar.Text) - total
    txtKembali.Text = "Rp. " & Format(total, "#,##0")
    End If

    End Sub
    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles btnReset.Click
    Dim i As Integer
    For i = 0 To 4
    makan(i).Checked = False
    Next
    For i = 0 To 4
    txtjumlah(i).Text = 0
    Next
    For i = 0 To 2
    tambah(i).Checked = False
    Next
    txtTotal.Clear()
    txtBayar.Clear()
    txtKembali.Clear()
    End Sub
    End Class

    You might also like