Sabtu, 08 September 2012

latihan_01_46110023

Public Class latihan_01_46110023

    Private Sub HITUNG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG.Click
        UPOLTEK46110023.Text = Val(SD46110023.Text) + Val(LSD46110023.Text) + Val(SLTP46110023.Text) + Val(SLTA46110023.Text) + Val(POLITEKNIK46110023.Text)
        LAJAR46110023.Text = Val(LSD46110023.Text) + Val(SLTP46110023.Text) + Val(SLTA46110023.Text) + Val(POLITEKNIK46110023.Text)
        PERSEN46110023.Text = Val(LAJAR46110023.Text) / Val(UPOLTEK46110023.Text) * 100


    End Sub

    Private Sub KOSONG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KOSONG.Click
        SD46110023.Text = ""
        LSD46110023.Text = ""
        SLTP46110023.Text = ""
        SLTA46110023.Text = ""
        POLITEKNIK46110023.Text = ""
        UPOLTEK46110023.Text = ""
        LAJAR46110023.Text = ""
        PERSEN46110023.Text = ""

    End Sub
End Class
Diposting oleh di

1 komentar:

  1. Unknown8 September 2012 pukul 05.42

    1. fungsi val() pada=> UPOLTEK46110023.Text = Val(SD46110023.Text) + Val(LSD46110023.Text) + Val(SLTP46110023.Text) + Val(SLTA46110023.Text) + Val(POLITEKNIK46110023.Text)adalah berfungsi untuk mengubah data text string menjadi data numerik. dan hasil yang dihasilkan merupakan penjumlahan dari fungsi/formula yang diperintahkan bukan merupakan data gabungan.
    2. fungsi "" pada SD46110023.Text = "" berfungsi untuk mengosongkan kembali teks yang sudah diketik pada form.

    BalasHapus

Langganan: Posting Komentar (Atom)