RIZKY AZWAR: TUGAS QUIS ONLINE VISUAL BASIC NO 2 HARI SENIN

KASUS SOAL QUIS NO 2
* 2 Digit dari sebelah kiri menentukan tahun masuk
* 1 Digit dari karakter 3 menentukan jenjang
* 2 Digit dari karakter 4 menentukan jurusan
* Nilai hurup berdasarkan nilai angka yang di input
* Nilai hurup muncul ketika terjadi penekanan tombol ENTER pada nilai angka

***Listing program***

Public Class Form1
npm.Text = Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnbersih.Click""nama.Text = ""jurusan.Text = ""jenjang.Text = ""tahun.Text = ""angka.Text = ""huruf.Text =""npm.Focus()
End Sub
buattabel()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEndSub

huruf.Text = Private Sub angka_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles angka.KeyPressSelect Case angka.TextCase Is >= 80"A"
huruf.Text = Case 70 To 79"B"
huruf.Text = Case 60 To 69"C"
huruf.Text = Case 50 To 59"D"
huruf.Text = Case Is <= 49"E"　
End SelectEnd Sub
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.Columns.Add(
LV.View =
LV.GridLines = Sub buattabel()"NPM", 80, HorizontalAlignment.Center)"Nama", 80,HorizontalAlignment.Left)"Jurusan", 80, HorizontalAlignment.Left)"Jenjang", 70,HorizontalAlignment.Left)"Tahun masuk", 50, HorizontalAlignment.Left)"N angka", 50,HorizontalAlignment.Left)"N huruf", 50, HorizontalAlignment.Left)View.DetailsTrueLV.FullRowSelect = TrueEndSub
Sub isitabel()Dim Lst As New ListViewItemLst.Text = npm.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jurusan.Text)
Lst.SubItems.Add(jenjang.Text)
Lst.SubItems.Add(tahun.Text)
Lst.SubItems.Add(angka.Text)
Lst.SubItems.Add(huruf.Text)
LV.Items.Add(Lst)
End Sub

Private Sub tahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles tahun.KeyPressDim tombol As Integer = Asc(e.KeyChar)If tombol = 13 Thenangka.Text = huruf.Text
End IfEnd Sub

Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handlesnpm.KeyPressDim xnpm As Stringtahun.Text =
Microsoft.VisualBasic.Left(npm.Text, 2)
xnpm = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
"20" &If xnpm = "1" Thenjenjang.Text = "Diploma I"ElseIf xnpm = "3" Thenjenjang.Text = "Diploma III"ElseIfxnpm = "4" Thenjenjang.Text = "Strata I"End Ifxnpm = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If xnpm = "01" Thenjurusan.Text = "Manajemen Informatika"ElseIf xnpm = "02" Thenjurusan.Text = "Sistem Informasi"ElseIf xnpm = "03" Thenjurusan.Text = "Tehnik Informatika"ElseIf xnpm = "04" Thenjurusan.Text ="Akutansi"End IfEnd Sub
isitabel()
npm.Text = Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnsimpan.Click""nama.Text = ""jurusan.Text = ""jenjang.Text = ""tahun.Text = ""angka.Text = ""huruf.Text =""End Sub
LV.Items.Clear()
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnhapussemua.ClickEnd Sub
LV.Items.Remove(LV.SelectedItems(0))
Private Sub btnhapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnhapusdipilih.ClickEnd Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtnkeluar.ClickEnd
EndEnd Sub Class　

***Hasil program***