Jawaban Soal No. 2 Shandi

jawaba no .2 shandi

Top of Form

Bottom of Form

Public Class Form1

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

End Sub
Sub bersih()
NPM.Text = “”
Nama.Text = “”
Jenjang.Text = “”
Jurusan.Text = “”
tahun.Text = “”
nilai_angka.Text = “”
Nilai_Huruf.Text = “”

End Sub

Sub RancangTabel()
With LV
.Columns.Add(“NPM”, 70, HorizontalAlignment.Center)
.Columns.Add(“Nama”, 120, HorizontalAlignment.Left)
.Columns.Add(“Jurusan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jenjang”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tahun Masuk”, 100, HorizontalAlignment.Left)
.Columns.Add(“Nilai Angka”, 90, HorizontalAlignment.Center)
.Columns.Add(“Nilai Huruf”, 90, HorizontalAlignment.Center)
.GridLines = True
.FullRowSelect = True
.View = View.Details

End With
End Sub
Sub IsiTabel()
Dim ist As New ListViewItem
With ist
.Text = npm.Text
.SubItems.Add(nama.Text)
.SubItems.Add(jurusan.Text)
.SubItems.Add(jenjang.Text)
.SubItems.Add(tahun.Text)
.SubItems.Add(nilai_angka.Text)
.SubItems.Add(nilai_huruf.Text)
lv.Items.Add(ist)

End With
End Sub

Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x As String

tahun.Text = “20″ & Microsoft.VisualBasic.Left(npm.Text, 2)

x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If x = “11″ Then
jurusan.Text = “Teknik Informatika”
ElseIf x = “21″ Then
jurusan.Text = “Sistem Informasi”
ElseIf x = “31″ Then
jurusan.Text = “Manajemen Informatika”
End If

x = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
If x = “1″ Then
jenjang.Text = “Strata I”
ElseIf x = “2″ Then
jenjang.Text = “Diploma III”
ElseIf x = “3″ Then
jenjang.Text = “Diploma I”
End If
End Sub

Private Sub nilai_angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_angka.TextChanged
Select Case nilai_angka.Text
Case Is >= 80
nilai_huruf.Text = “A”
Case 70 To 79
nilai_huruf.Text = “B”
Case 60 To 69
nilai_huruf.Text = “C”
Case 50 To 59
nilai_huruf.Text = “D”
Case Is <= 49
nilai_huruf.Text = "E"
End Select
End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
IsiTabel()
bersih()
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 = ""
tahun.Text = ""
nilai_angka.Text = ""
nilai_huruf.Text = ""
End Sub

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
bersih()
End Sub

Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

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