PROGRAM HARGA BUAH

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Dim total, bayar, kembali As Double

    Dim cb As CheckBox()

    Dim tharga As TextBox()

    Dim jm As TextBox()

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

        cb = New CheckBox() {cb1, cb2, cb3, cb4, cb5, cb6}

        tharga = New TextBox() {Tharga1, Tharga2, Tharga3, Tharga4, Tharga5, Tharga6}

        jm = New TextBox() {Jm1, Jm2, Jm3, Jm4, Jm5, Jm6}

    End Sub

    Private Sub bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhitung.Click

        Dim i As Integer

        total = 0

        For i = 0 To 5

            If cb(i).Checked = True Then

                total = total + (Val(tharga(i).Text) * Val(jm(i).Text))

            End If

        Next

        ttotal.Text = "RP." & Format(total, "#,#.##")

    End Sub

    Private Sub bx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bx.Click

        End

    End Sub

    Private Sub Bdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdel.Click

        Ttotal.Text = ""

        Tbayar.Text = ""

        Tkembalian.Text = ""

    End Sub

    Private Sub tbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tbayar.KeyPress

        If e.KeyChar = Chr(13) Then

            bayar = Val(tbayar.Text)

            kembali = bayar - total

            Tkembalian.Text = "Rp." & Format(kembali, "#,#.##")

        End If

    End Sub

End Class