Visual Basic Lanjutan (Teori 4) - Array Dimensi Satu

Assalamualaikum Wr.Wb.

Masih Bersama Saya lagi Sulthan Alawy Shihab, Apakabar semua, semoga kita selalu dilindungi Tuhan Yang Maha Esa.

ini adalah tugas teori saya pada pertemuan keempat, silahkan simak dan pelajari.

PENDAHULUAN

·         Sebuah variabel tunggal hanya menyimpan sebuah nilai.

·         Variabel tersebut tidak dapat menyimpan beberapa nilai yang mempunyai tipe sama.

·         Dalam pemrograman, sering kali akan mengolah sekumpulan data yang bertipe sama.

·         Misalnya hasil ujian 100 orang mahasiswa, table harga barang di pasar swalayan, daftar kode wilayah dll.

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.

LATIHAN 1

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 Goreng"

        makanan(2) = "Nasi Rames"

        makanan(3) = "Gado Gado"

        For Each element As String In makanan

            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, "Konfirmasi")

        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 = "Jembatan Lulus"

    End Sub

End Class

LATIHAN 2

Code:

Public Class Form2

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

        Me.Text = "Jembatan Lulus"

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.Columns.Add("Name", 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, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

LATIHAN 3

Code:

Public Class Form1

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

        Me.Text = "Jembatan Lulus"

        ListView1.GridLines = True

        ListView1.View = View.Details

        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 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))

        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, "KONFIRMASI")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

KASUS 1

Code:

Public Class Form4

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

        Me.Text = "Jembatan Lulus"

        ListView1.GridLines = True

        ListView1.View = View.Details

        ListView1.Columns.Add("MOBIL")

        ListView1.Columns.Add("HARGA")

        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))

        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, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class