Visual Basic Lanjutan Teori 4 - Array Dimensi Satu

LaptopInformatika.com - Sebuah variabel tunggal hanya menyimpan sebuah nilai. Variabel tersebut tidak dapat menyimpan beberapa nilai yang mempunyai tipe sama. Variabel tersebut tidak dapat menyimpan beberapa nilai yang mempunyai tipe sama. Misalnya hasil ujian 100 orang mahasiswa, tabel harga barang di pasar swalayan, daftar kode wilayah dll.

Untuk Latihan-latihan sebelumnya ada di link bawah ini, jika kalian ingin mempelajari semuanya silahkan klik link di bawah ini :

1. Visual Basic Lanjutan Teori 1 Variabel dan Type Data
2. Visual Basic Lanjutan Praktikum 1 Operator
3. Visual Basic Lanjutan Teori 2 Percabangan (Struktur If-Then, If-Then-Else, Nested IF)
4. Visual Basic Lanjutan Praktikum 2 Percabangan (IIF dan Select Case)
5. Visual Basic Lanjutan Teori 3 - Perulangan
6. Visual Basic Lanjutan Praktikum 3 - Perulangan (Do While - Loop)

Array

• Array merupakan tipe data terstruktur yang terdiri dari sejumlah komponen yang memilikitipe 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).
• Banyaknya komponen dalam suatu array ditunjukkan oleh suatu indeks yang disebut dengan Tipe Indeks (Index Type).
• Indeks array selalu dimulai dari 0, bukan 1.

Deklarasi Array

• Array satu dimensi

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 :

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

• Source Code

Public Class Form1

    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 Goren"
        makanan(2) = "Nasi Rames"
        makanan(3) = "Gado Gado"
        For Each element As String In makanan 'LaptopInformatika.com
            ComboBox1.Items.Add(element)
        Next
        ComboBox1.Text = "Menu Makanan"
    End Sub

    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, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
    End Sub

End Class

Latihan 2

• Source Code

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.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

    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, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Latihan 3

• Source Code

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
        ListView1.GridLines = True
        ListView1.View = View.Details
        ListView1.Columns.Add("NIM")
        ListView1.Columns.Add("NAMA")
        ListView1.Columns.Add("ALAMAT") 'laptopinformatika.com
        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 String
        arr(1) = TextBox1.Text
        arr(2) = TextBox2.Text
        arr(3) = TextBox3.Text
        Dim list_item As ListViewItem
        list_item = New ListViewItem
        list_item = ListView1.Items.Add(arr(1)) 'laptopinformatika.com
        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

    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, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Kasus 1

• Source Code

Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "LaptopInformatika.com"
        ListView1.GridLines = True
        ListView1.View = View.Details
        ListView1.Columns.Add("MOBIL")
        ListView1.Columns.Add("HARGA") 'laptopinformatika.com
        ListView1.Columns.Add("MERK")
        ListView1.Columns.Add("WARNA")
        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 = New ListViewItem
        list_item = ListView1.Items.Add(arr(1)) 'laptopinformatika.com
        list_item.SubItems.Add(arr(2))
        list_item.SubItems.Add(arr(3))
        list_item.SubItems.Add(arr(4))
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox1.Focus()
    End Sub

    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, "laptopinformatika.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class


Yaa sekilas mungkin itu saja sudah cukup dan lengkap. jika kalian masih tidak mengerti atau pusing karena banyak kodingan diatas , kalian boleh langsung pakai programnya , saya akan share program yang saya buat seperti diatas. Terimakasih~

Share this post

Berlangganan update artikel terbaru via email: