Latihan II

Latihan II

Membuat Penilaian Mahasiswa

Langkah awal kita disain tampilannya seperti pada gambar dibwah ini

            Langkah kemudian kita masukkan perintahnya di form,button proses, button hapus dan button keluar. Sebelum kita memberi perintah sebelumnya kita beri nama tools-tools ceks box,textbox dan button dengan nama sesuai dengan text yang telah kita buat.

Langkah-langkah pemberian program :

1.      Klik 2x didalam form diluar tools yang ada didalamnya maka akan muncul

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

Masukkan proggram dibawah ini

        npm.Items.Add("101101")

        npm.Items.Add("101102")

        npm.Items.Add("101103")

        matakuliah.Items.Add("agama")

        matakuliah.Items.Add("kalkulus")

        matakuliah.Items.Add("internet")

    End Sub

2. Klik 2x pada button proses

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

Masukkan program dibawah ini :

        Dim xket As String

        xket = "gagal"

        If nilai.Text >= 50 Then xket = "lulus"

        keterangan.Text = xket

    End Sub

3. Klik 2x pada button hapus akan muncul jendela pengetikan program

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

Masukkan program dbawah ini :

        npm.Text = ""

        nama.Text = ""

        matakuliah.Text = ""

        nilai.Text = ""

        keterangan.Text = ""

    End Sub

4. Dan program yang terakhir klik 2x pada button keluar dengan ketikkan saja END. Tekan F5 lihatlah hasil rancangan anda. Semoga bermanfaat terima kasih.