Tugas UTS VB.Net

Aplikasi Cuti Mahasiswa

1.Form Aplikasi

Public Class Form_Aplikasi

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form_Cuti_Mahasiswa.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form_Jurusan.Show()

End Sub

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

Form_Mahasiswa.Show()

End Sub

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

Form_Pembayaran_Cuti.Show()

End Sub

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

Form_Petugas.Show()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Form_Login.Show()

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Me.Close()

End Sub

End Class

2.Form Login

Public Class Form_Login

Dim Table(2) As String

Dim ListTable As ListViewItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "LOGIN" Then

Button1.Text = "OK"

Button2.Text = "Batal"

TextBox1.Focus()

Else

Table(0) = Trim(TextBox1.Text)

Table(1) = Trim(TextBox2.Text)

ListTable = New ListViewItem(Table)

ListView1.Items.Add(ListTable)

Call Display()

TextBox1.Focus()

End If

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text

End Sub

Private Sub Form_Login_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call Display()

Call List()

End Sub

Sub Display()

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Sub Kembali()

Button1.Text = "BATAL"

Button1.Enabled = True

Button2.Enabled = True

Button2.Text = "SELESAI"

End Sub

Sub List()

ListView1.View = View.Details

ListView1.Columns.Add("KodePetugas",100,HorizontalAlignment.Center)

ListView1.Columns.Add("Password", 100, HorizontalAlignment.Left)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close()

End Sub

End Class

3.Form Petugas

Public Class Form_Petugas

Dim Table(5) As String

Dim ListTable As ListViewItem

Sub Display()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

End Sub

Sub List()

ListView1.View = View.Details

ListView1.Columns.Add("KodePetugas",100,HorizontalAlignment.Center)

ListView1.Columns.Add("NamaPetugas", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("Password", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("Ket", 100, HorizontalAlignment.Left)

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text

End Sub

Private Sub Form_Jurusan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call Display()

Call List()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "CARI" Then

Button1.Text = "OK"

Button2.Text = "Batal"

TextBox1.Focus()

Else

Table(0) = Trim(TextBox1.Text)

Table(1) = Trim(TextBox2.Text)

Table(2) = Trim(TextBox3.Text)

Table(3) = Trim(TextBox4.Text)

Table(4) = Trim(TextBox5.Text)

ListTable = New ListViewItem(Table)

ListView1.Items.Add(ListTable)

Call Display()

TextBox1.Focus()

End If

End Sub

Sub Kembali()

Button1.Text = "CARI"

Button1.Enabled = True

Button2.Enabled = True

Button2.Text = "BATAL"

Button3.Enabled = True

Button3.Text = "SELESAI"

Button4.Enabled = True

Button4.Text = "KELUAR"

End Sub

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

If Button3.Text = "SELESAI" Then

Button3.Text = "OK"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = "true"

Button4.Text = "BATAL"

Else

End If

End Sub

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

If Button4.Text = "KELUAR" Then

Me.Close()

Else

Call Display()

Call Kembali()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.Text = "BATAL" Then

Button1.Enabled = False

Button2.Text = "KEMBALI"

Button3.Enabled = False

Else

End If

End Sub

End Class

4.Form Jurusan

Public Class Form_Jurusan

Dim Table(2) As String

Dim ListTable As ListViewItem

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.Text = "SELESAI" Then

Button2.Text = "OK"

Button1.Text = "Batal"

TextBox1.Focus()

Else

Table(0) = Trim(TextBox1.Text)

Table(1) = Trim(TextBox2.Text)

ListTable = New ListViewItem(Table)

ListView1.Items.Add(ListTable)

Call Display()

TextBox1.Focus()

End If

End Sub

Sub Display()

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Sub List()

ListView1.View = View.Details

ListView1.Columns.Add("Kodejurusan",100,HorizontalAlignment.Center)

ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text

End Sub

Private Sub Form_Jurusan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call Display()

Call List()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

Sub Kembali()

Button1.Text = "BATAL"

Button1.Enabled = True

Button2.Enabled = True

Button2.Text = "SELESAI"

End Sub

End Class

5.Form Mahasiswa

Public Class Form_Mahasiswa

Dim Table(7) As String

Dim ListTable As ListViewItem

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call Display()

Call Combo()

Call List()

End Sub

Sub Display()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

ComboBox1.Text = "Teknik Informatika"

ComboBox2.Text = "Pagi"

TextBox5.Text = ""

End Sub

Sub Combo()

ComboBox1.Items.Add(" Teknik Informatika")

ComboBox1.Items.Add(" Sistem Informasi")

ComboBox1.Items.Add(" Komputer Akutansi")

ComboBox1.Items.Add(" Teknik Komputer")

ComboBox1.Items.Add(" Management Informatika")

ComboBox2.Items.Add("Pagi")

ComboBox2.Items.Add("Malam")

ComboBox2.Items.Add("Shift")

End Sub

Sub Kembali()

Button1.Text = "CARI"

Button1.Enabled = True

Button2.Enabled = True

Button2.Text = "BATAL"

Button3.Enabled = True

Button3.Text = "SELESAI"

Button4.Enabled = True

Button4.Text = "KELUAR"

End Sub

Sub List()

ListView1.View = View.Details

ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("NO TLP", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("CUTISEMESTER",100, HorizontalAlignment.Left)

ListView1.Columns.Add("KELAS", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("WAKTUKULIAH", 100, HorizontalAlignment.Left)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "CARI" Then

Button1.Text = "OK"

Button2.Enabled = False

Button3.Enabled = False

Button4.Text = "BATAL"

TextBox1.Focus()

Else

Table(0) = Trim(TextBox1.Text)

Table(1) = Trim(TextBox2.Text)

Table(2) = Trim(TextBox3.Text)

Table(3) = Trim(TextBox4.Text)

Table(4) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 10)

Table(5) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 10)

Table(6) = Trim(TextBox5.Text)

ListTable = New ListViewItem(Table)

ListView1.Items.Add(ListTable)

Call Display()

TextBox1.Focus()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.Text = "BATAL" Then

Button1.Enabled = False

Button2.Text = "KEMBALI"

Button3.Enabled = False

Else

End If

End Sub

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

If Button3.Text = "SELESAI" Then

Button3.Text = "OK"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = "true"

Button4.Text = "BATAL"

Else

End If

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text

End Sub

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

If Button4.Text = "KELUAR" Then

Me.Close()

Else

Call Display()

Call Kembali()

End If

End Sub

End Class

6.Form Cuti Mahasiswa

Public Class Form_Cuti_Mahasiswa

Dim Table(9) As String

Dim ListTable As ListViewItem

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

Call Display()

Call Combo()

Call List()

End Sub

Sub Display()

TextBox1.Text = ""

TextBox2.Text = ""

ComboBox1.Text = "Teknik Informatika"

ComboBox2.Text = "Pagi"

ComboBox3.Text = "2007/2008"

ComboBox4.Text = "2007/2008"

ComboBox5.Text = "2"

End Sub

Sub Combo()

ComboBox1.Items.Add(" Teknik Informatika")

ComboBox1.Items.Add(" Sistem Informasi")

ComboBox1.Items.Add(" Komputer Akutansi")

ComboBox1.Items.Add(" Teknik Komputer")

ComboBox1.Items.Add(" Management Informatika")

ComboBox2.Items.Add("Pagi")

ComboBox2.Items.Add("Malam")

ComboBox2.Items.Add("Shift")

ComboBox3.Items.Add("2007/2008")

ComboBox3.Items.Add("2008/2009")

ComboBox3.Items.Add("2009/2010")

ComboBox3.Items.Add("2010/2011")

ComboBox4.Items.Add("2007/2008")

ComboBox4.Items.Add("2008/2009")

ComboBox4.Items.Add("2009/2010")

ComboBox4.Items.Add("2010/2011")

ComboBox5.Items.Add("2")

ComboBox5.Items.Add("4")

ComboBox5.Items.Add("5")

ComboBox5.Items.Add("6")

ComboBox5.Items.Add("8")

End Sub

Sub Kembali()

Button1.Text = "TAMBAH"

Button1.Enabled = True

Button2.Enabled = True

Button2.Text = "UBAH"

Button3.Enabled = True

Button3.Text = "HAPUS"

Button4.Text = "KELUAR"

End Sub

Sub List()

ListView1.View = View.Details

ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("KELAS", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("CUTISEMESTER",100, HorizontalAlignment.Left)

ListView1.Columns.Add("TAHUNAKADEMIK",100,HorizontalAlignment.Left)

ListView1.Columns.Add("ALASAN CUTI", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("BATAS CUTI", 100, HorizontalAlignment.Left)

ListView1.Columns.Add("TANGGAL", 100, HorizontalAlignment.Left)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Button1.Text = "CARI" Then

Button1.Text = "OK"

Button2.Enabled = False

Button3.Enabled = False

Button4.Text = "BATAL"

TextBox1.Focus()

Else

Table(0) = Trim(TextBox1.Text)

Table(1) = Trim(TextBox2.Text)

Table(2) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 25)

Table(3) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 5)

Table(4) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 5)

Table(5) = Microsoft.VisualBasic.Left(Trim(ComboBox3.Text), 10)

Table(6) = Trim(TextBox6.Text)

Table(7) = Microsoft.VisualBasic.Left(Trim(ComboBox4.Text), 10)

Table(8) = Trim(TextBox8.Text)

ListTable = New ListViewItem(Table)

ListView1.Items.Add(ListTable)

Call Display()

TextBox1.Focus()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Button2.Text = "BATAL" Then

Button2.Text = "OK"

Button1.Enabled = False

Button3.Enabled = False

Button4.Text = "KEMBALI"

Else

End If

End Sub

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

If Button3.Text = "SELESAI" Then

Button3.Text = "OK"

Button1.Enabled = False

Button2.Enabled = False

Button4.Text = "BATAL"

Else

End If

End Sub

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

If Button4.Text = "KELUAR" Then

Me.Close()

Else

Call Display()

Call Kembali()

End If

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

TextBox1.Text = e.Item.Text

End Sub

End Class

7.Form Pembayaran Cuti