Pertemuan7

Form 2

Rumus :
Public Class Form1

Dim npm, nama As String
Dim tahun, jurusan, nomor As String
Dim panjang As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
npm = InputBox("Masukkan NPM Anda : ", "NPM")
nama = InputBox("Masukkan NAMA Anda : ", "NAMA")

panjang = npm.Length
If panjang = 10 Then
Form2.Lblnama.Text = nama
Form2.LblNPM.Text = npm

tahun = npm.Substring(0, 4)
jurusan = npm.Substring(4, 2)
nomor = npm.Substring(6, 4)

Form2.LblTahun.Text = tahun
Form2.LblNomor.Text = nomor

If jurusan = "25" Then
Form2.LblJurusan.Text = "Teknik Informatika"
ElseIf jurusan = "24" Then
Form2.LblJurusan.Text = "Sistem Informasi"
ElseIf jurusan = "13" Then
Form2.LblJurusan.Text = "Kompeterisasi Akuntasi"
ElseIf jurusan = "11" Then
Form2.LblJurusan.Text = "Manajemen Informatika"
ElseIf jurusan = "12" Then
Form2.LblJurusan.Text = "Teknik Informatika"
End If

Me.Hide()
Form2.Show()
Else
MsgBox("Maaf NPM Anda diluar kapasitas karakter" & Chr(13) & "Silahkan Ulangi Kembali Nanti", MsgBoxStyle.Information, "INFORMASI")
Me.Close()
End If
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
BtnExit.Show()
End Sub
End Class