LATIHAN NILAI IF TUNGGAL

Di bawah ini adalah Form yang akan kita kerjakan

 

Di bawah ini adalah LISTING PROGRAM Formm d atas

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai.TextChanged

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        End

    End Sub

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

        NPM.Items.Add("1102129")

        NPM.Items.Add("1102030")

        NPM.Items.Add("1102113")

        Mata_kuliah.Items.Add("agama")

        Mata_kuliah.Items.Add("kalkulus")

        Mata_kuliah.Items.Add("b.inggris")

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        NPM.Text = ""

        nama.Text = ""

        Mata_kuliah.Text = ""

        Nilai.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click

        Dim xket As String

        If Nilai.Text = "" Then

            MsgBox("isi nilai")

        Else

            xket = "gagal"

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

            keterangan.Text = xket

        End If

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        If NPM.Text = "1102129" Then nama.Text = "mutia"

        If NPM.Text = "1102030" Then nama.Text = "tiara"

        If NPM.Text = "1102113" Then nama.Text = "tika"

    End Sub

End Class

CARA PROSESNYA

NPM: Jika di pilih salah satu NPM

 

Maka yang akan terisi adalah Nama

 

MATAKULIAH: Jika di pilih salah satu Mata Kuliah 

 

NILAI di input sesuai yang kita inginkan

KETERANGAN

Maka Jika di klik TOMBOL PROSES Keterangan akan terisi

 

TOMBOL HAPUS

Jika di klik HAPUS maka data semua akan terhapus

KELUAR

Jika di klik TOMBOL KELUAR, Maka proses akan keluar dan kembali ke Form