Tugas Praktikum 4 | Latihan 1 Array Dimensi Dua
Awesome Image

Assalamualaikum wr.wb

Pada pertemuan kali ini saya akan menjelaskan Array Dua Dimensi mari simak dibawah ini :
Array Dua dimensi

Array Dua Dimensii merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki type data sama dan elemen yang akan diakses melalui banyak indeks. Array bentuk ini biasanya digunakan untuk merepresentasikan nilai dari sebuah tabel.

BentukUmum :
Dim Array[indeks,Indeks] As Tipe_Data
Dim Array[indeks,indeks,indeks] As Tipe_Data

Untuk dapat lebih memahami bagaimana pendeklarasian array dan indeksnya mari kita lihat beberapa contoh berikut ini:

 

Latihan 1

 

Public Class Latihan1
    'Naufal Farisi Zamzam
    '2017230092
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim arr(3, 1) As String
        arr(0, 0) = "Nim"
        arr(0, 1) = "Nama"
        arr(1, 0) = "Jenis Kelamin"
        arr(1, 1) = "Status"
        arr(2, 0) = "Laki-laki"
        arr(2, 1) = "Perempuan"
        arr(3, 0) = "Menikah"
        arr(3, 1) = "Belum Menikah"
        ListView1.GridLines = True
        ListView1.View = View.Details
        For baris = 0 To 1
            For kolom = 0 To 1
                ListView1.Columns.Add(arr(baris, kolom), 100)
            Next
        Next
        For baris = 2 To 2
            For kolom = 0 To 1
                ComboBox1.Items.Add(arr(baris, kolom))
            Next
        Next
        For baris = 3 To 3
            For kolom = 0 To 1
                ComboBox2.Items.Add(arr(baris, kolom))
            Next
        Next
        TextBox1.ReadOnly = True
        TextBox1.Text = "1"
        TextBox2.Focus()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(4) As String
        arr(0) = TextBox1.Text
        arr(1) = TextBox2.Text
        arr(2) = ComboBox1.Text
        arr(3) = ComboBox2.Text
        Dim list As New ListViewItem
        list = ListView1.Items.Add(arr(0))
        list.SubItems.Add(arr(1))
        list.SubItems.Add(arr(2))
        list.SubItems.Add(arr(3))
        TextBox1.Text = TextBox1.Text + 1
        TextBox2.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox2.Focus()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Text = "Naufal Farisi Zamzam"
        Dim pesan As String
        pesan = MsgBox("Yakin mau keluar??", vbYesNo, "naufalfz.my.id")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class
Untuk Contoh lainnya teman teman bisa lihat link dibawah ini :
 
Jika ada masukan dan saran silahkan contact saya dibawah ini.
 
Waalaikumsallam wr.wb