Berikut tampilan pertama dari jendela program terlihat pada gambar.
Pada jendela ini klik gambar untuk menampilkan objek yang invisible dan menyembunyikan objek yang akan dihilangkan (kode ada pada bagian bawah). Semua Objek yang ada dibuat invisible dengan cara mengubah nilai Visible pada properties menjadi False (kecuali beberapa objek seperti gambar di atas yakni dua label dan satu picture box). Setelah di klik akan menampilkan jendela seperti ini.
Perhatikan foto kedua, objek yang sebelumnya terlihat pada foto pertama sudah hilang(Hide) dan digantikan oleh objek baru(Show) yang sebelumnya tidak terlihat. Silahkan isi form sesuai data, dan klik next untuk mengisikan data selanjutnya atau klik prev untuk melihat data sebelumnya. Data sebelumnya masih tersimpan dalam array untuk sementara, apabila aplikasi tidak di tutup. Dan jika di klik tombol view akan menampilkan jendela seperti berikut.
Berikut kode program nya, silahkan dicoba mudah-mudahan berjalan dengan baik.
Public Class Form1Private Structure DataMahasiswa
Dim Nama As String
Dim Nomor As String
Dim Jurusan As String
Dim Tanggal As String
Dim Alamat As String
End Structure
Dim Indeks As Integer
Dim Data() As DataMahasiswa
Sub DaftarMahasiswa()
Data(Indeks).Nama = TextBox2.Text
Data(Indeks).Nomor = TextBox3.Text
Data(Indeks).Jurusan = ComboBox1.Text()
Data(Indeks).Tanggal = TextBox5.Text
Data(Indeks).Alamat = TextBox6.Text
End Sub
Sub HapusDaftar()
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox2.Focus()
End Sub
Sub TampilanData()
MsgBox("Informasi Data Mahasiswa ke-" & Indeks & Chr(10) & Chr(10) & _
"Nama : " & Data(Indeks).Nama & Chr(10) & _
"NPM : " & Data(Indeks).Nomor & Chr(10) & _
"Jurusan : " & Data(Indeks).Jurusan & Chr(10) & _
"Tanggal Lahir : " & Data(Indeks).Tanggal & Chr(10) & _
"Alamat : " & Data(Indeks).Alamat, , "Data Mahasiswa")
End Sub
Sub Tampilan()
TextBox2.Text = Data(Indeks).Nama
TextBox3.Text = Data(Indeks).Nomor
ComboBox1.Text = Data(Indeks).Jurusan
TextBox5.Text = Data(Indeks).Tanggal
TextBox6.Text = Data(Indeks).Alamat
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Indeks = 1
ReDim Data(Indeks)
TextBox1.Text = Indeks
Dim Jrs() As String = {"Teknik Informatika", "Sistem Informasi Manajemen", "Sistem Informasi Akuntansi", "Manajemen Informatika", "Komputerisasi Akuntansi"}
For i As Integer = 0 To 4
ComboBox1.Items.Add(Jrs(i))
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Indeks
If Indeks = UBound(Data) Then
ReDim Preserve Data(Indeks + 1)
End If
DaftarMahasiswa()
Indeks = Indeks + 1
TextBox1.Text = Indeks
Tampilan()
If Indeks > 1 Then Button3.Show()
Button2.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Indeks > LBound(Data) Then
DaftarMahasiswa()
Indeks = Indeks - 1
Tampilan()
End If
If Indeks = 1 Then Button3.Hide()
TextBox1.Text = Indeks
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DaftarMahasiswa()
TampilanData()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
HapusDaftar()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Label1.Show()
Label2.Show()
Label3.Show()
Label4.Show()
Label5.Show()
Label6.Show()
Label7.Hide()
Label8.Show()
Label9.Hide()
TextBox1.Show()
TextBox2.Show()
TextBox3.Show()
TextBox5.Show()
TextBox6.Show()
ComboBox1.Show()
Button1.Show()
Button2.Show()
Button3.Show()
Button4.Show()
PictureBox1.Hide()
PictureBox2.Show()
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
End
End Sub
End Class
