√ Teladan Array Multidimensi Pada Vb.Net

Bismillah

Salam jumpa kembali sobat baiq. Semoga selalu dalam keadaan sehat wal'afiat. 

Baiklah sobat baiq, kali ini aku akan menyebarkan ihwal bahan pemrograman, yaitu ihwal Array Multidimensi pada VB.NET.

Penerapan beberapa script pemrograman dalam vb.net, membutuhkan nalar logika yang melebihi rata-rata. Satu diantaranya ialah memahami script ihwal array multidimensi.

Apa itu array multidimensi?

Array multidimensi merupakan sebuah variabel yang menyimpan sekumpulan data yang mempunyai type data sama dan elemen yang akan diakses melalui banyak indeks. Array bentuk ini biasanya dipakai untuk merepresentasikan nilai dari sebuah tabel.

Untuk sanggup lebih memahami bagaimana pendeklarasian array dan indeksnya mari kita lihat beberapa pola berikut ini:

Contoh 1
Dim arr(0, 1) As String
        arr(0, 0) = "NIS"
        arr(0, 1) = "Nama Siswa"
Contoh 2
Dim arr(1, 1) As String
        arr(0, 0) = "NIS"
        arr(0, 1) = "Nama Siswa"
        arr(1, 0) = "Jenis Kelamin"
        arr(1, 1) = "No. HP"
Contoh 3
Dim arr(1, 2) As String
        arr(0, 0) = "NIS"
        arr(0, 1) = "Nama Siswa"
        arr(0, 2) = "TTL"
        arr(1, 0) = "Jenis Kelamain"
arr(1, 1) = "No. HP"
arr(1, 2) = "Alamat"
Contoh 4
Dim arr(2, 2) As String
        arr(0, 0) = "NIS"
        arr(0, 1) = "Nama Siswa"
        arr(0, 2) = "TTL"
        arr(1, 0) = "Jenis Kelamain"
arr(1, 1) = "No. HP"
arr(1, 2) = "Alamat"
arr(2, 0) = "Hoby"
arr(2, 1) = "Cita-cita"
arr(2, 2) = "Motto"

Untuk sanggup lebih memahami penerapannya dalam bahasa pemrograman, berikut ini ialah pola array multidimensi pada vb.net.
1. Silahkan masuk ke dalam aplikasi vb.net
2. Siapkan 1 form kemudian design ibarat gambar berikut ini:

3. Objek yang dipakai antara lain: label, textbox, button, dan listview
4. Penamaan objek sanggup diubahsuaikan sesuai kebutuhan
5. Kemudian ketikkan coding berikut ini:

Double Click di bab Form, kemudian ketik codingnya:

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TxtNama.Focus()
    Dim arr(1, 2) As String
    arr(0, 0) = "NIS"
    arr(0, 1) = "Nama Siswa"
    arr(0, 2) = "Jumlah"
    arr(1, 0) = "Rata-rata"
    arr(1, 1) = "Grade"
    arr(1, 2) = "Keterangan"
    ListView1.GridLines = True
    ListView1.View = View.Details
    For baris = 0 To 1
        For kolom = 0 To 2
            ListView1.Columns.Add(arr(baris, kolom), 85)
        Next
    Next
    TxtNIS.ReadOnly = True
    TxtNIS.Text = "171801"
End Sub

Double Click pada Objek TxtBIND (Teksbox B. Indonesia), kemudian ketik codingnya:

Private Sub TxtBIND_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBIND.TextChanged
    TxtJML.Text = Val(TxtBIND.Text) + Val(TxtMAT.Text) + Val(TxtIPA.Text)
    TxtRata.Text = FormatNumber((TxtJML.Text) / 3)
End Sub

Double Click pada Objek TxtMAT (Teksbox Matematika), kemudian ketik codingnya:

Private Sub TxtMAT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtMAT.TextChanged
    TxtJML.Text = Val(TxtBIND.Text) + Val(TxtMAT.Text) + Val(TxtIPA.Text)
    TxtRata.Text = FormatNumber((TxtJML.Text) / 3)
End Sub

Double Click pada Objek TxtIPA (Teksbox IPA), kemudian ketik codingnya:

Private Sub TxtIPA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtIPA.TextChanged
    TxtJML.Text = Val(TxtBIND.Text) + Val(TxtMAT.Text) + Val(TxtIPA.Text)
    TxtRata.Text = FormatNumber((TxtJML.Text) / 3)
End Sub

Double Click pada Objek TxtRata (Teksbox Rata-rata), kemudian ketik codingnya:

Private Sub TxtRata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtRata.TextChanged
    If TxtRata.Text >= 90 Then
        TxtGrade.Text = "A"
    ElseIf TxtRata.Text >= 80 Then
        TxtGrade.Text = "B"
    ElseIf TxtRata.Text >= 70 Then
        TxtGrade.Text = "C"
    ElseIf TxtRata.Text < 70 Then
        TxtGrade.Text = "D"
    End If
End Sub

Double Click pada Objek TxtGrade (Teksbox Grade), kemudian ketik codingnya:

Private Sub TxtGrade_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtGrade.TextChanged
    If TxtGrade.Text = "A" Then
       TxtKET.Text = "LULUS"
    ElseIf TxtGrade.Text = "B" Then
       TxtKET.Text = "LULUS"
    ElseIf TxtGrade.Text = "C" Then
       TxtKET.Text = "LULUS"
    Else
       TxtKET.Text = "BELUM LULUS"
    End If
End Sub

Buat satu mekanisme dengan nama "Kosong", codingnya ibarat berikut ini:

Sub Kosong()
        TxtNama.Clear()
        TxtBIND.Clear()
        TxtMAT.Clear()
        TxtIPA.Clear()
        TxtJML.Clear()
        TxtGrade.Clear()
        TxtNama.Focus()
End Sub

Double Click pada Objek BtnSimpan (Tombol Simpan)

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
    Dim arr(5) As String
    arr(0) = TxtNIS.Text
    arr(1) = TxtNama.Text
    arr(2) = TxtJML.Text
    arr(3) = TxtRata.Text
    arr(4) = TxtGrade.Text
    arr(5) = TxtKET.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))
    list.SubItems.Add(arr(4))
    list.SubItems.Add(arr(5))
    TxtNIS.Text = Val(TxtNIS.Text) + 1
    Kosong()
End Sub

6. Kemudian coba running atau jalankan aplikasi, kemudian input beberapa data kemudian klik simpan. Jika berhasil, maka akan nampak ibarat pola gambar di atas.

Baca juga : Array satu dimensi

Demikian pola penggunaan array multidimensi pada vb.net, agar sanggup membantu memudahkan dalam berguru bahasa pemrograman, terutama vb.net. Terimakasih sudah berkunjung dan agar bermanfaat.

Jika ada hal-hal yang perlu disampaikan, silahkan sanggup mengisi komentar pada bab bawah blog ini.

Baca juga : Cara koneksi VB.NET ke MySQL

Sumber http://pabaiq.blogspot.com