Latihan Dan Belajar Pemrograman

Belajar Bahasa Pemograman

Gambar desaign program:

kode untuk desagn pemrograman:
Public Class Form_niai

    Private Sub Form_niai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110717")
        npm.Items.Add("12110718")
        npm.Items.Add("12110719")
        npm.Items.Add("12110720")

        kodedosen.Items.Add("11101")
        kodedosen.Items.Add("11102")
        kodedosen.Items.Add("11103")

        kodemakul.Items.Add("AZ001")
        kodemakul.Items.Add("AZ002")
        kodemakul.Items.Add("AZ003")

        For i = 1 To 100
            nuts.Items.Add(i)
        Next i
        For i = 1 To 100
            nuas.Items.Add(i)
        Next i
        For i = 1 To 100
            nkehadiran.Items.Add(i)
        Next i
        For i = 1 To 100
            ntugas.Items.Add(i)
        Next i

        na.Enabled = False

    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "11101"
                namadosen.Text = "Tonny Limbong S.Kom"
            Case "11102"
                namadosen.Text = "Mesran S.Kom"
            Case "11103"
                namadosen.Text = "Sinar Sinurat ST"
            Case Else
                nama.Text = "Syahrizal"
        End Select
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110717"
                nama.Text = "Fazrah"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"
            Case "12110718"
                nama.Text = "Udin"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informatika"
            Case "12110719"
                nama.Text = "Airin"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
            Case "12110720"
                nama.Text = "Dewi"
                jenjang.Text = "D1"
                jurusan.Text = "Desaign Grafis"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = 0.3 * nuts.Text + 0.45 * nuas.Text + 0.1 * nkehadiran.Text + 0.15 * ntugas.Text

        If na.Text >= 50 Then
            ket.Text = "Lulus"
        Else
            ket.Text = "Gagal"
        End If

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        MsgBox(" Yakin Mau Keluar???", MsgBoxStyle.OkCancel)
        End
    End Sub

    Private Sub kodemakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodemakul.SelectedIndexChanged
        Select Case kodemakul.Text
            Case "AZ001"
                makul.Text = "Teknik Digital"
            Case "AZ002"
                makul.Text = "Kalkulus"
            Case "AZ003"
                makul.Text = "Konsep Pemrograman"
            Case Else
                makul.Text = "Sistem Basis Data"
        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nama.Text = ""
        npm.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodemakul.Text = ""
        makul.Text = ""
        nkehadiran.Text = ""
        ntugas.Text = ""
        nuas.Text = ""
        na.Text = ""
        nuts.Text = ""
        ket.Text = ""

    End Sub
End Class