Program VB Net : Program Proses Sederhana

Written By Mesran

Dibawah ini merupakan program VB Net yang digunakan untuk hal yang sangat sederhana sekali, yaitu memproses Nilai Semester berdasarkan 40% Nilai Mid Semester + 60% Nilai UAS.

Silahkan desain program VB Net terlebih dahulu seperti gambar di bawah ini.

 Tabel Property yang dirubah

Setelah form di desain seperti gambar tersebut diatas, lakukan pengetikan perintah dengan langkah langkah :

Double click Button Keluar dan

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

    End Sub


Muncul perintah tersebut di atas, ketikkan perintah Me.Close()

Sehingga program seperti ini :

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub


Selanjutnya pada form, double click Button Hapus ketikkan perintah berikut :

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub


Selanjutnya pada form, double click Button Proses ketikkan perintah berikut :

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

Jika anda perhatikan listing program menjadi seperti ini :


Public Class frmHitung

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        nMid.Text = ""
        nUAS.Text = ""
        nSem.Text = "'"
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        nSem.Text = 0.4 * nMid.Text + 0.6 * nUAS.Text
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class