Tugas 23 October 2013 VB net

VB.net
Tugas tanggal 23 october 2013
dosen pengampuh :
Mesran, S.Kom, M.Kom
Juniaman Gulo (assisten)

Materinya adalah sebagai berikut dan semoga ini benar.
Design form VBnya adalah sebagai berikut :

Inilah designya,
selanjutnya klik 2 kali pada form1_load
dan tuliskan syntax berikut,,

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Npm.Items.Add("12110917")
Npm.Items.Add("12110631")
Npm.Items.Add("12110630")
Npm.Items.Add("12110741")

KD_Dsn.Items.Add("MK 11231")
KD_Dsn.Items.Add("SK 11233")
KD_Dsn.Items.Add("SI 10031")
KD_Dsn.Items.Add("MI 11211")

Kd_Matkul.Items.Add("KKTI4305")
Kd_Matkul.Items.Add("KKTI4301")
Kd_Matkul.Items.Add("KBTI4306")
Kd_Matkul.Items.Add("KKTI4303")
Dim x As Integer
For x = 100 To 1 Step -1
hadir.Items.Add(x)
tugas.Items.Add(x)
uts.Items.Add(x)
uas.Items.Add(x)
Next x
End Sub
Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
Select Case Npm.Text
Case ("12110917")
Nama.Text = "Suhairy Tri Yadhi"
Jurusan.Text = "Teknik Informatika"
Case ("12110631")
Nama.Text = "Lukman Wijaya"
Jurusan.Text = "Teknis Komputer"
Case ("12110630")
Jurusan.Text = "Manajemen Informatika"
Nama.Text = "Dini Audina"
Case ("12110741")
Nama.Text = "Robby Azhari Harahap"
Jurusan.Text = "Sistem Informasi"
End Select

Dim x As String
x = Microsoft.VisualBasic.Right(Npm.Text, 2)
If Npm.Text = "12110817" Then
Jenjang.Text = "S1"
ElseIf Npm.Text = "12110631" Then
Jenjang.Text = "S1"
ElseIf Npm.Text = "12110630" Then
Jenjang.Text = "D3"
ElseIf Npm.Text = "12110741" Then
Jenjang.Text = "D3"
End If
End Sub

Private Sub btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreset.Click
Npm.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KD_Dsn.Text = ""
Nm_Dsn.Text = ""
Matkul.Text = ""
Kd_Matkul.Text = ""
hadir.Text = ""
tugas.Text = ""
uts.Text = ""
uas.Text = ""
akhir.Text = ""
huruf.Text = ""
keterangan.Text = ""
End Sub

Private Sub btnprocces_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprocces.Click
akhir.Text = 0.1 * akhir.Text + 0.15 * tugas.Text + 0.35 * uts.Text + 0.45 * uas.Text
If akhir.Text >= 50 Then
keterangan.Text = "LULUS"
ElseIf keterangan.Text = "GAGAL" Then
End If
If akhir.Text >= 50 Then
keterangan.Text = "LULUS"
Else
keterangan.Text = "GAGAL"
End If
If akhir.Text >= "80" Then
huruf.Text = "A"
ElseIf akhir.Text >= "70" Then
huruf.Text = "B"
ElseIf akhir.Text >= "60" Then
huruf.Text = "C"
ElseIf akhir.Text >= "50" Then
huruf.Text = "D"
Else
huruf.Text = "E"
End If
End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
End
End Sub
Private Sub KD_Dsn_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD_Dsn.SelectedIndexChanged
Select Case KD_Dsn.Text
Case ("MK 11231")
Nm_dsn.Text = "Mesran, M.Kom"
Case ("SK 11233")
Nm_dsn.Text = "Pilipus Tarigan, S.T, M.Kom"
Case ("SI 10031")
Nm_dsn.Text = "Yasir Hasan, S.Kom"
Case ("MI 11211")
Nm_dsn.Text = "Rivalry Kristianto Hondro, S.Kom"
End Select
End Sub

Private Sub Kd_Matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Matkul.SelectedIndexChanged
Select Case Kd_Matkul.Text
Case "KKTI4305"
Matkul.Text = "Pemrograman Visual"
Case "KKTI4301"
Matkul.Text = "Arsitektur dan Organisasi"
Case "KKTI4306"
Matkul.Text = "Sistem Informasi"
Case "KKTI4303"
Matkul.Text = "Sistem Basis Data"
End Select
End Sub
End Class

Setelah mengikuti syntax tersebut, maka inilah hasil dari programnya..

seperti yg gambar di berikut ini