jawaban Dari No 02

Nama : Hendri Syam
Npm :0911118
kelas : TI S-0908


Contoh kasus lihat Disini!


penyelesaian...........


Listing Program

=========================================================================
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rancangtabel()
    End Sub
=========================================================================
    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        Dim i As String
        Dim x As String
        Dim y As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
        y = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If i = "08" Then
            tahun.Text = "2008"
        ElseIf i = "09" Then
            tahun.Text = "2009"
        ElseIf i = "10" Then
            tahun.Text = "2010"
        ElseIf i = "11" Then
            tahun.Text = "2011"
        End If
        If x = "0" Then
            jenjang.Text = "D3"
            If y = "03" Then
                jurusan.Text = "Komputerisasa Akuntansi"
            ElseIf y = "23" Then
                jurusan.Text = "Manejemen Informatika"
            End If
        ElseIf x = "1" Then
            jenjang.Text = "S1"
            If y = "11" Then
                jurusan.Text = "Teknik-Informatika"
            ElseIf y = "33" Then
                jurusan.Text = "Sistem Informasi"
            End If
        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 = ""
        jurusan.Text = ""
        jenjang.Text = ""
        tahun.Text = ""
        nhuruf.Text = ""
        n_angka.Text = ""
    End Sub
=========================================================================
    Sub rancangtabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 90, HorizontalAlignment.Center)
        LV.Columns.Add("N_Huruf", 80, HorizontalAlignment.Center)
        LV.Columns.Add("N_Angka", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    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(tahun.Text)
        lst.SubItems.Add(n_angka.Text)
        lst.SubItems.Add(nhuruf.Text)
        LV.Items.Add(lst)
    End Sub
==========================================================================

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Close()
    End Sub
=========================================================================
    Private Sub btnhsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhsemua.Click
        LV.Items.Clear()
    End Sub
=========================================================================
    Private Sub btnhdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
=========================================================================
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
    End Sub
=========================================================================
    Private Sub n_angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles n_angka.KeyPress
        If e.KeyChar = Chr(13) Then
            If n_angka.Text >= 80 Then
                nhuruf.Text = "A"
            ElseIf n_angka.Text >= 70 Then
                nhuruf.Text = "B"
            ElseIf n_angka.Text >= 60 Then
                nhuruf.Text = "C"
            ElseIf n_angka.Text >= 50 Then
                nhuruf.Text = "D"
            Else
                nhuruf.Text = "E"
            End If
        End If
    End Sub
End Class
=========================================================================


dan hasil tampilannya seperti di bawah ini.....

akhinya selesai 1......
tinggal 1 biji lagi...
hajar trusssssssssssssssssss....................