Tugas Visual Basic
Public
Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Npm.Items.Add("12110441")
Npm.Items.Add("12110360")
Npm.Items.Add("12110480")
K_Dosen.Items.Add("MS4303")
K_Dosen.Items.Add("YH4306")
K_Dosen.Items.Add("MZ4308")
K_Mkuliah.Items.Add("KKTI4303")
K_Mkuliah.Items.Add("KKTI4306")
K_Mkuliah.Items.Add("KKTI4308")
Dim x As Integer
For x =
100 To 1 Step
-1
NK.Items.Add(x)
nt.Items.Add(x)
nu.Items.Add(x)
nUAS.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
"12110441"
Nama.Text = "Andry Saputra"
Jurusan.Text = "Teknik Informatika"
Case
"1211380"
Nama.Text = "Anton"
Jurusan.Text = "manajemen Informatika"
Case
"1210460"
Nama.Text = "Lilis"
Jurusan.Text = "Design Grafis"
End Select
Dim x As String
x =
Microsoft.VisualBasic.Left(Npm.Text, 2)
If
Npm.Text = "12110441" Then
Jenjang.Text = "S1"
ElseIf
Npm.Text = "12110360" Then
Jenjang.Text = "DIII"
ElseIf
Npm.Text = 12110480 Then
Jenjang.Text = "DI"
End If
End Sub
Private Sub K_Dosen_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
K_Dosen.SelectedIndexChanged
Select Case K_Dosen.Text
Case
"MS4303"
N_Dosen.Text = "Mesran Skom.Mkom"
Case
"4306"
N_Dosen.Text = "Yasir Hasan Skom"
Case
"4308"
N_Dosen.Text = "Marzuki Sinambela Mkom"
End Select
End Sub
Private Sub K_Mkuliah_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
K_Mkuliah.SelectedIndexChanged
Select Case K_Mkuliah.Text
Case
"KKTI4303"
Mk.Text = "Pemograman visual"
Case
"KKTI4306"
Mk.Text = "Sistem Operasi"
Case
"KKTI4308"
Mk.Text = "Struktur data"
End Select
End Sub
Private Sub BtnProses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnProses.Click
na.Text = 0.1 * NK.Text + 0.15 *
nt.Text + 0.35 * nu.Text + 0.45 * nUAS.Text
If
na.Text >= 50 Then
Keterangan.Text = "LULUS"
Else
Keterangan.Text = "GAGAL"
End If
If
na.Text >= 80 Then
Nh.Text = "A"
ElseIf
na.Text >= 70 Then
Nh.Text = "B"
ElseIf
na.Text >= 60 Then
Nh.Text = "C"
ElseIf
na.Text >= 50 Then
Nh.Text = "D"
Else
Nh.Text = "E"
End If
End Sub
Private Sub BtnHapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnHapus.Click
Npm.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
K_Dosen.Text = ""
N_Dosen.Text = ""
K_Mkuliah.Text = ""
Mk.Text = ""
NK.Text = ""
nt.Text = ""
nu.Text = ""
nUAS.Text = ""
na.Text = ""
Nh.Text = ""
Keterangan.Text = ""
End Sub
Private Sub BtnKeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End
Class
Public Class Form1
Private Sub TextBox4_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Tahun.TextChanged
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnProses.Click
Dim x As String
Tahun.Text = "20"
& Microsoft.VisualBasic.Left(Npm.Text, 2)
x = Microsoft.VisualBasic.Mid(Npm.Text,
4, 1)
If x = "1" Then
Jenjang.Text = "Diploma I"
ElseIf
x = "3" Then
Jenjang.Text = "Diploma III"
ElseIf
x = "4" Then
Jenjang.Text = "Strata I"
End If
x = Microsoft.VisualBasic.Mid(Npm.Text,
3, 1)
If x = "01" Then
Jurusan.Text = "Teknik Informatika"
ElseIf
x = "02" Then
Jurusan.Text = "Sistem Informasi"
ElseIf
x = "03" Then
Jurusan.Text = "Manajemen Informatika"
ElseIf
x = "04" Then
Jurusan.Text = "Design Grafis"
End If
Nourut.Text =
Microsoft.VisualBasic.Right(Npm.Text, 3)
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
