A. Menggunakan Array
1.
Buatlah sebuah form dengan nama “MenggunakanArray” lalu
desain seperti gambar berikut ini:
2.
Masukkan coding berikut ini:
Public Class MenggunakanArray
Deklarasi variable Array
berikut ini terlebih dahulu!
Private indeks_data As
Byte = 0
Private jumlah_data As
Byte = 5
Private kode(5) As String
Private mata_kuliah(5) As
String
Private sks(5) As String
Pada event (Simpan/Button1)
masukkan coding dibawah ini!
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If indeks_data >= jumlah_data - 1 Then
MsgBox("List sudah penuh")
Else
kode(indeks_data) = TextBox1.Text
mata_kuliah(indeks_data) = TextBox2.Text
sks(indeks_data) = TextBox3.Text
indeks_data
= indeks_data + 1
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
End If
End Sub
Pada event (Tampilkan/Button2)
masukkan coding dibawah ini!
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim i As Byte
If indeks_data > 0 Then
ListBox1.Items.Clear()
For i = 0 To
indeks_data - 1
ListBox1.Items.Add(kode(i))
ListBox1.Items.Add(mata_kuliah(i))
ListBox1.Items.Add(sks(i))
Next
End If
End Sub
Pada event (Keluar/Button3)
masukkan coding dibawah ini!
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Me.Close()
End Sub
End Class
3. Jalankan program dengan menekan F5 pada keyboard atau klik Debug
pada menu > pilih Start Debugging F5. Lakukan penginputan
data.
B.
Array Dinamis
1.
Buatlah sebuah form dengan nama “ArrayDinamis” lalu
desain seperti gambar berikut ini:
2.
Masukkan coding berikut ini:
Public Class ArrayDinamis
Deklarasi variable Array
berikut ini terlebih dahulu!
Dim indeks_data As Byte = 0
Private jumlah_data As
Byte = 5
Dim nim() As String
Dim nama() As String
Pada event (ArrayDinamis_Load)
masukkan coding dibawah ini!
Private Sub
ArrayDinamis_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
ReDim nim(5)
ReDim nama(5)
End Sub
Pada event (Simpan/Button1)
masukkan coding dibawah ini!
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If indeks_data > jumlah_data - 1 Then
MsgBox("List sudah penuh")
Else
nim(indeks_data) = TextBox1.Text
nama(indeks_data) = TextBox2.Text
TextBox1.Text = ""
TextBox2.Text
= ""
TextBox1.Focus()
indeks_data
= indeks_data + 1
End If
End Sub
Pada event (Tampilkan/Button2)
masukkan coding dibawah ini!
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim i As Byte
If indeks_data > 0 Then
ListBox1.Items.Clear()
ListBox2.Items.Clear()
For i = 0 To
indeks_data - 1
ListBox1.Items.Add(nim(i))
ListBox2.Items.Add(nama(i))
Next
End If
End Sub
Pada event (Set Array/Button3)
masukkan coding dibawah ini!
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
jumlah_data =
InputBox("Jumlah Array", "Set Jumlah Array", 5)
ReDim nim(jumlah_data)
ReDim nama(jumlah_data)
indeks_data = 0
End Sub
Pada event (Keluar/Button4)
masukkan coding dibawah ini!
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
Me.Close()
End Sub
End Class
3.
Jalankan program ArrayDinamis (F5)
C. Array Multi Dimensi
1.
Buatlah sebuah form dengan nama “ArrayMultiDimensi” lalu
desain seperti gambar berikut ini:
2.
Masukkan coding berikut ini:
Public Class ArrayMultiDimensi
Dim indeks_data As Byte = 0
Private jumlah_data As
Byte = 5
Dim nim(5, 1) As String
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If indeks_data > jumlah_data - 1 Then
MsgBox("List sudah penuh")
Else
nim(indeks_data, 0) = TextBox1.Text
nim(indeks_data, 1) = TextBox2.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
indeks_data
= indeks_data + 1
End If
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim i As Byte
If
indeks_data > 0 Then
ListBox1.Items.Clear()
ListBox2.Items.Clear()
For i = 0 To
indeks_data - 1
ListBox1.Items.Add(nim(i, 0))
ListBox2.Items.Add(nim(i, 1))
Next
End If
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Me.Close()
End Sub
End Class
3.
Jalankan program ArrayMultiDimensi (F5)