Array di Visual Basic 2010

Assalamualaikum untuk post kali ini penulis akan share materi tentang Array pada Visual Basic 

untuk materi lainnya dapat dilihat disini

1. Tipe Data dan Variabel pada Visual Basic
2. Local, Global Variabe, Structure dan Konversi Data pada Visual Basic
3. Operator pada Visual Basic
4. Percabangan pada Visual Basic
5. Lanjutan Percabangan pada Visual Basic
6. Percabangan pada Visual Basic 2
7. Percabangan pada Visual Basic Select - Case
8. Perulangan pada Visual Basic
9. Perulangan pada Visual Basic 2
10. Perulangan pada Visual Basic 3
11. Array di Visual Basic
12. Array Dua Dimensi

Array

Array merupakan tipe data terstruktur yang terdiri dari sejumlah komponen yang memiliki tipe data yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Banyaknya komponen dalam suatu array ditunjukkan oleh suatu indeks yang disebut dengan Tipe Indeks (Index Type). Elemen array sendiri dapat diakses melalui indeks yang terdapat di dalamnya. Indeks array selalu dimulai dari 0, bukan 1. 

DEKLARASI ARRAY

• Array Dimensi Satu

Dim nama Array (elemen) As tipedata

Keterangan : 

• Nama array : Nama dari variabel array yang dideklarasikan.
• Elemen : Nilai elemen yang diberikan untuk array dimensi satu. 

Contoh : 

Deklarasikan suatu array yang berdimensi satu bernama Buah dengan indeks 3. 

Kode Programnya : 

Dim BUAH(3) As String

Keterangan : 

Pendeklarasian array seperti ini menyebabkan variabel array BUAH mampu menampung 4 data dengan indeks 0 sampai 3. BUAH(0), BUAH(1), BUAH(2), BUAH(3)

• Latihan 1 Array

Buatlah Form seperti dibawah ini

Source Code :

Public Class Pertemuan_5_Latihan_1_Teori

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

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbYes Then

            End

        End If

    End Sub

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

        Dim makanan(3) As String

        makanan(0) = "Nasi Goreng"

        makanan(1) = "Ayam Gorang"

        makanan(2) = "Nasi Rames"

        makanan(3) = "Gado-Gado"

        For Each element As String In makanan

            ComboBox1.Items.Add(element)

        Next

        ComboBox1.Text = "Menu Makanan"

        ComboBox1.DroppedDown = True

    End Sub

    Private Sub Pertemuan_5_Latihan_1_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub PT_12_1_LT_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

    End Sub

End Class

• Latihan 2 Array

Buatlah form seperti dibawah ini

Source Code :

Public Class Pertemuan_5_Latihan_2_Teori

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

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbYes Then

            End

        End If

    End Sub

    Private Sub Pertemuan_5_Latihan_2_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub PT_12_1_LT_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.Columns.Add("Nama", 115)

    End Sub

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

        Dim nama(0) As String

        nama(0) = TextBox1.Text

        Dim list As New ListViewItem

        list = ListView1.Items.Add(nama(0))

        TextBox1.Text = ""

        TextBox1.Focus()

    End Sub

End Class

Running program :

• Latihan 3 Array

Buatlah form seperti di bawah ini

Source Code :

Public Class Pertemuan_5_Latihan_3_Teori

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

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbYes Then

            End

        End If

    End Sub

    Private Sub Pertemuan_5_Latihan_3_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub PT_12_1_LT_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

        'Menampilkan Grid/Garis Tabel unruk ListView

        ListView1.GridLines = True

        ListView1.View = View.Details

        'Menambahkan Header untuk Kolom ListView

        ListView1.Columns.Add("Nim")

        ListView1.Columns.Add("Nama")

        ListView1.Columns.Add("Alamat")

        TextBox1.Text = 1

        'TextBox1 = Focus()

    End Sub

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

        Dim arr(3) As

        arr(1) = TextBox1.Text

        arr(2) = TextBox2.Text

        arr(3) = TextBox3.Text

        'Membuat ListView Item

        Dim list_item As ListViewItem

        list_item = New ListViewItem

        list_item = ListView1.Items.Add(arr(1))

        list_item.SubItems.Add(arr(2))

        list_item.SubItems.Add(arr(3))

        TextBox1.Text = TextBox1.Text + 1

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox2.Focus()

    End Sub

End Class

Running Program

• Kasus 1 Array

Buatlah form seperti di bawah ini

pada kasus ini menggunakan Array satu dimensi seperti latihan diatas 

Source Code 

Public Class Pertemuan_5_Kasus_1_Teori

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

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbYes Then

            End

        End If

    End Sub

    Private Sub Pertemuan_5_Kasus_1_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim pesan As String

        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")

        If pesan = vbNo Then

            e.Cancel = True

        End If

    End Sub

    Private Sub PT_12_1_TG_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "salmantech42.blogspot.com"

        ListView1.View = View.Details

        ListView1.GridLines = False

        ListView1.Columns.Add("Kode Barang")

        ListView1.Columns.Add("Nama Barang")

        ListView1.Columns.Add("Satuan Barang")

        ListView1.Columns.Add("Harga Barang")

        TextBox1.Text = 1

        TextBox1.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(1) = TextBox1.Text

        arr(2) = TextBox2.Text

        arr(3) = TextBox3.Text

        arr(4) = TextBox4.Text

        Dim list_item As ListViewItem

        list_item = ListView1.Items.Add(arr(1))

        list_item.SubItems.Add(arr(2))

        list_item.SubItems.Add(arr(3))

        list_item.SubItems.Add(arr(4))

        TextBox1.Text = TextBox1.Text + 1

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox2.Focus()

    End Sub

End Class

Running Programnya 

Sekian dari post kali ini semoga bermanfaat 

どうもありがとうございました…!

---

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

---

Subscribe to receive free email updates: