FROM ENTRI DATA NILAI Dengan Visual Studio 2010

 

 1.Ketika Form Dijalankan, maka Nim akan berisi 1011, 1012, 1013 dan Kode    MTKul akan berisi VB-010, WD-111, Kl-213

2. Ketika CmbNim dipilih, maka lakukan pengujian, dimana 

 Jika Nim = 1011 maka, Nama = Andik Firmasah,   Prodi = T. Informatika    Jika Nim = 1012 maka, Nama = Budi Sartono,     Prodi = S. Informasi    Jika Nim = 1013 maka, Nama = Paolo Sitanggang, Prodi = M. Informatika

3 Ketika CmbKode dipilih, maka lakukan pengujian, dimana   Jika Kode Mk = VB-010 maka, Mt Kuliah = Visual Basic    Jika Kode Mk = WD-111 maka, Mt Kuliah = Web Design    Jika Kode Mk = KL-213 maka, Mt Kuliah = Kalkulus

 4.. Ketika NIlai di Isi dan dienter, maka lakukan pengujian, dimana

   Jika Nilai >=70, Keterengan="Lulus"    Jika Nilai <70, Keterengan="Gagal"

5. Ketika Tombol BARU Di klik, semua object aktif, kosong dan kursor aktif pada No Induk Mhs

 6.  Ketika Tombol SIMPAN diklik maka muncul pesan “Data sudah tersimpan“ dan jika diklik tombol Ok maka semua object kosong (RPS Pertemuan 6, Score 10) 

7. Ketika Tombol BATAL diklik, semua object kosong dan tidak aktif 

8. Ketika Tombol KELUAR diklik maka munculkan pesan “Anda Ingin Menutup Form Ini”, jika di jawab YA, form form ditutup dan jika dijawab TIDAK maka form tidak ditutup 

Codingnya Adalah

Public Class Form1

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

        Noinduk.Items.Add("1011")

        Noinduk.Items.Add("1012")

        Noinduk.Items.Add("1013")

        kdmatkul.Items.Add("VB-010")

        kdmatkul.Items.Add("WD-111")

        kdmatkul.Items.Add("KL-213")

        Noinduk.Enabled = False

        txtnama.Enabled = False

        txtprogram.Enabled = False

        kdmatkul.Enabled = False

        txtmatkul.Enabled = False

        txtnilai.Enabled = False

        txtket.Enabled = False

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Noinduk.Text = ""

        txtnama.Text = ""

        txtprogram.Text = ""

        kdmatkul.Text = ""

        txtmatkul.Text = ""

        txtnilai.Text = ""

        txtket.Text = ""

        Noinduk.Enabled = True

        txtnama.Enabled = True

        txtprogram.Enabled = True

        kdmatkul.Enabled = True

        txtmatkul.Enabled = True

        txtnilai.Enabled = True

        txtket.Enabled = True

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Dim simpan As String

        simpan = MessageBox.Show("Data Sudah Di TerSimpan", "program",

        MessageBoxButtons.OK, MessageBoxIcon.Question)

        If simpan = vbOK Then

            Noinduk.Text = ""

            txtnama.Text = ""

            txtprogram.Text = ""

            kdmatkul.Text = ""

            txtmatkul.Text = ""

            txtnilai.Text = ""

            txtket.Text = ""

            Noinduk.Enabled = False

            txtnama.Enabled = False

            txtprogram.Enabled = False

            kdmatkul.Enabled = False

            txtmatkul.Enabled = False

            txtnilai.Enabled = False

            txtket.Enabled = False

        End If

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Noinduk.Text = ""

        txtnama.Text = ""

        txtprogram.Text = ""

        kdmatkul.Text = ""

        txtmatkul.Text = ""

        txtnilai.Text = ""

        txtket.Text = ""

        Noinduk.Enabled = False

        txtnama.Enabled = False

        txtprogram.Enabled = False

        kdmatkul.Enabled = False

        txtmatkul.Enabled = False

        txtnilai.Enabled = False

        txtket.Enabled = False

    End Sub

    Private Sub btnkluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkluar.Click

        Dim tanya As String

        tanya = MessageBox.Show("Anda Ingin Menutup From Ini", "program",

        MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If tanya = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub Noinduk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Noinduk.SelectedIndexChanged

        Select Case (Noinduk.Text)

            Case Is = "1011"

                txtnama.Text = "Andik Firmansah"

                txtprogram.Text = "T.Informatika"

            Case Is = "1012"

                txtnama.Text = "Budi Sartono"

                txtprogram.Text = "S.Informasi"

            Case Is = "1013"

                txtnama.Text = "Paolo Sitanggang"

                txtprogram.Text = "M.Informatika"

        End Select

    End Sub

    Private Sub kdmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatkul.SelectedIndexChanged

        Select Case (kdmatkul.Text)

            Case Is = "VB-010"

                txtmatkul.Text = "Visual Basic"

            Case Is = "WD-111"

                txtmatkul.Text = "Web Design"

            Case Is = "KL-213"

                txtmatkul.Text = "Kalkulus"

        End Select

    End Sub

    Private Sub txtnilai_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnilai.KeyPress

        If Asc(e.KeyChar) = 13 Then

            If txtnilai.Text >= 70 Then

                txtket.Text = "Lulus"

            ElseIf txtnilai.Text < 70 Then

                txtket.Text = "Gagal"

            End If

        End If

    End Sub

End Class