Latihan_01_46110006

1. LANGKAH-LANGKAH PENYELESAIAN

Public Class TB46110006

    Private Sub HITUNG_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HITUNG.Click

        TB646110006.Text = Val(TB146110006.Text) + Val(TB246110006.Text) + Val(TB346110006.Text) + Val(TB446110006.Text) + Val(TB546110006.Text)

        TB746110006.Text = Val(TB246110006.Text) + Val(TB346110006.Text) + Val(TB446110006.Text) + Val(TB546110006.Text)

        TB846110006.Text = Val(TB746110006.Text) / Val(TB646110006.Text) * 100

    End Sub

    Private Sub KOSONG_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG.Click

        TB146110006.Text = ""

        TB246110006.Text = ""

        TB346110006.Text = ""

        TB446110006.Text = ""

        TB546110006.Text = ""

        TB646110006.Text = ""

        TB746110006.Text = ""

        TB846110006.Text = ""

    End Sub

End Class

Scribt Unik :

Ø  TB646110006.Text = Val(TB146110006.Text) + Val(TB246110006.Text) + Val(TB346110006.Text) + Val(TB446110006.Text) + Val(TB546110006.Text)

-          ­Val berfungsi sebagai data yang dapat dioperasikan pada operasi matematik atau membaca angka.

-          Tanda (+) untuk mengahsilkan penjumlahan yang diinginkan

-          TB646110006.Text adalah bagian (isi) yang dimasukkan di textbox yang ingin dibaca

Ø  TB146110006.Text = ""

-          Tanda (“”) menandakan bahwa isi textbox tersebut kosong / mengosongkan data