Pages

Jumat, 07 September 2012

Latihan_01_46110001

Diposting oleh Unknown di 22.28
1. Langkah" Penyelesaian (Lat.1_46110001)

Public Class Latihan_01_46110001
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB2_46110001.Text = Val(SD_46110001.Text) + Val(SLTP_46110001.Text) + Val(SLTA_46110001.Text) + Val(POLITEKNIK_46110001.Text)
        TB3_46110001.Text = Val(TB2_46110001.Text) / Val(TB1_46110001.Text) * 100


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        umur_46110001.Text = ""
        SD_46110001.Text = ""
        SLTP_46110001.Text = ""
        SLTA_46110001.Text = ""
        POLITEKNIK_46110001.Text = ""
        TB1_46110001.Text = ""
        TB2_46110001.Text = ""
        TB3_46110001.Text = ""

    End Sub
End Class

1 komentar:

Unknown mengatakan...

scribt unik dan komentar
1. fungsi val pada program diatas adalah untuk membaca karakter string sebagai nilai atau angka.
Val digunakan untuk melakukan operasi perhitungan berupa penjumlahan, karena data string tidak dapat dijumlahkan, sehingga harus dikonversi terlebih dahulu menjadi data numerik.
contoh: TB1_46110001.Text = Val(umur_46110001.Text) + Val(SD_46110001.Text)
2. penulisan pada program diatas, seperti umur_46110001.Text = "" =>tanda ("") digunakan untuk mengosongkan kembali kotak/ isi text.

7 September 2012 pukul 23.06

Posting Komentar

Langganan: Posting Komentar (Atom)