Jawaban Soal no 2(Jemmy Sihombing)

Penyelesain untuk kasus yang di link ini

1.listing kode program

Public Class Form1

Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x As String
TahunMasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
If x = "1" Then
jenjang.Text = "D1"
ElseIf x = "3" Then
jenjang.Text = "D3"
ElseIf x = "4" Then
jenjang.Text = "S1"
End If

x = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
If x = "1" Then
jurusan.Text = "Teknik Informatika"
ElseIf x = "2" Then
jurusan.Text = "Manajemen Informatika"
ElseIf x = "3" Then
jurusan.Text = "Sistem Iformasi"
End If

End Sub

Sub CreateTable()
List1.Columns.Add("NPM", 60, HorizontalAlignment.Center)
List1.Columns.Add("Nama", 150, HorizontalAlignment.Center)
List1.Columns.Add("jurusanan", 125, HorizontalAlignment.Center)
List1.Columns.Add("Jenjang", 70, HorizontalAlignment.Center)
List1.Columns.Add("TahunMasuk Masuk", 90, HorizontalAlignment.Center)
List1.Columns.Add("Nilai Angka", 70, HorizontalAlignment.Center)
List1.Columns.Add("Nilai Huruf", 70, HorizontalAlignment.Center)
List1.View = View.Details
List1.GridLines = True
List1.FullRowSelect = True
End Sub

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



Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jurusan.Text)
lst.SubItems.Add(jenjang.Text)
lst.SubItems.Add(TahunMasuk.Text)
lst.SubItems.Add(NilaiAngka.Text)
lst.SubItems.Add(NilaiHuruf.Text)
List1.Items.Add(lst)
End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If npm.Text = "" Or nama.Text = "" Or jurusan.Text = "" Or jenjang.Text = "" Or TahunMasuk.Text = "" Or NilaiAngka.Text = "" Or NilaiHuruf.Text = "" Then
MsgBox("Data Belum Lengkap")
Else
isitabel()
End If
End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

List1.Items.Clear()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

List1.Items.Remove(List1.SelectedItems(0))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
isitabel()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
jenjang.Text = ""
TahunMasuk.Text = ""
NilaiAngka.Text = ""
NilaiHuruf.Text = ""
End Sub



Private Sub NilaiAngka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NilaiAngka.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
huruf()
End If
End Sub

Sub huruf()
If NilaiAngka.Text >= 90 Then
NilaiHuruf.Text = "A"
ElseIf NilaiAngka.Text >= 70 Then
NilaiHuruf.Text = "B"
ElseIf NilaiAngka.Text >= 60 Then
NilaiHuruf.Text = "C"
ElseIf NilaiAngka.Text >= 50 Then
NilaiHuruf.Text = "D"
ElseIf NilaiAngka.Text < 50 Then NilaiHuruf.Text = "E" End If End Sub Private Sub NilaiHuruf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiHuruf.TextChanged End Sub End Class 

  hasil program:

1.yang di input hanya NPM ,Nama dan Nilai angka dan pada saat nilai angka di input silahkan tekan enter untuk menampilkan nilai huruf
apabila salah satu dari data belum terisi jika d klik simpan maka akan muncul tampilan msgbox "Data Belum Lengkap"

demikian tugas ini saya kerjakan dan mohon maaf kepda bapak dosen pengampu karena saya posting terlambat