Pages

Sunday 29 January 2012

Quis Halaman 32


- Listing Program :disini

Public Class Form1
      Sub TABEL()
      LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
      LV.Columns.Add("NAMA", 80, HorizontalAlignment.Left)
      LV.Columns.Add("JURUSAN", 80, HorizontalAlignment.Left)
      LV.Columns.Add("JENJANG", 80, HorizontalAlignment.Left)
      LV.Columns.Add("TAHUN MASUK", 80, HorizontalAlignment.Left)
      LV.Columns.Add("NILAI ANGKA", 80, HorizontalAlignment.Left)
      LV.Columns.Add("NILAI HURUF", 80, HorizontalAlignment.Left)
      LV.View = View.Details
      LV.GridLines = True
      LV.FullRowSelect = True
End Sub
Sub ISITABEL()
      Dim TBL As New ListViewItem
      TBL.Text = NPM.Text
      TBL.SubItems.Add(NAMA.Text)
      TBL.SubItems.Add(JURUSAN.Text)
      TBL.SubItems.Add(JENJANG.Text)
      TBL.SubItems.Add(T_MASUK.Text)
      TBL.SubItems.Add(N_ANGKA.Text)
      TBL.SubItems.Add(N_HURUF.Text)
      LV.Items.Add(TBL)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TABEL()

       NPM.Items.Add("0911532")
       NPM.Items.Add("0831513")
       NPM.Items.Add("1021478")
       NPM.Items.Add("0701100")
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

End Sub

Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
       ISITABEL()
       NPM.Text = ""
       NAMA.Text = ""
       JURUSAN.Text = ""
       JENJANG.Text = ""
       T_MASUK.Text = ""
       'N_ANGKA.Text = ""
       N_HURUF.Text = ""

End Sub

Private Sub BERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BERSIH.Click
        LV.Items.Clear()
End Sub

Private Sub HAPUS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1.Click
        LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
       Dim xnpm As String
       xnpm = Microsoft.VisualBasic.Left(NPM.Text, 2)
       Select Case xnpm
              Case "09"
       T_MASUK.Text = "2009"
              Case "08"
       T_MASUK.Text = "2008"
              Case "10"
       T_MASUK.Text = "2010"
              Case "07"
       T_MASUK.Text = "2007"
       End Select
       xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
       Select Case xnpm
       Case "1"
              JENJANG.Text = "Strata I"
       Case "3"
              JENJANG.Text = "Diploma III"
       Case "2"
              JENJANG.Text = "Diploma II"
       Case "0"
              JENJANG.Text = "Diploma I"
       End Select
       xnpm = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
       If xnpm = "11" Then
               JURUSAN.Text = "Teknik Informatika"
       ElseIf xnpm = "31" Then
               JURUSAN.Text = "Manajemen Informatika"
       ElseIf xnpm = "21" Then
               JURUSAN.Text = "Komputerisasi Akuntansi"
       ElseIf xnpm = "01" Then
               JURUSAN.Text = "Sistem Informasi"
End If
End Sub

Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If N_ANGKA.Text >= 80 Then
                N_HURUF.Text = "A"
        ElseIf N_ANGKA.Text >= 70 Then
                N_HURUF.Text = "B"
        ElseIf N_ANGKA.Text >= 60 Then
                N_HURUF.Text = "C"
        ElseIf N_ANGKA.Text >= 50 Then
                N_HURUF.Text = "D"
       Else
                N_ANGKA.Text = "E"
End If
End Sub
End Class










           











0 comments:

Post a Comment