Struktur Keputusan (Pencabangan Case)

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

Matakuliah.Text = ""

Dosen.Text = ""

Nmid.Text = ""

Nsem.Text = ""

NA.Text = ""

End Sub

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

NA.Text = 0.3 * Nmid.Text + 0.45 * Nsem.Text + 0.1 * Nhadir.Text + 0.15 * Ntugas.Text

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

End

End Sub

Private Sub Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Matakuliah.SelectedIndexChanged

End Sub

Private Sub Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dosen.SelectedIndexChanged

End Sub

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

Matakuliah.Items.Add("Pemograman")

Matakuliah.Items.Add("PTI")

Matakuliah.Items.Add("Struktur Data")

Matakuliah.Items.Add("Komunikasi Data")

Dosen.Items.Add("Tonni Limbong,Skom,Mkom")

Dosen.Items.Add("Sinar Sinurat,ST,Mkom")

Dosen.Items.Add("Yasir Hasan,Skom")

Dosen.Items.Add("Guidio,Skom,Mkom")

Dim i As Integer

For i = 1 To 100

Nhadir.Items.Add(i)

Ntugas.Items.Add(i)

Nmid.Items.Add(i)

Nsem.Items.Add(i)

Next i

End Sub

Friend WithEvents na As System.Windows.Forms.TextBox

End Class