Contoh Latihan dan Kasus Menggunakan Array Satu Dimensi pada VB.NET

Latihan 1 menggunakan Satu Dimensi

Berikut Source Codenya :

Public Class latihan1

    'nadiahtami 2017230007'

    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("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class

Latihan 2 menggunakan Satu Dimensi

Berikut Source Codenya :
Public Class latihan2
    'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        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 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 latihan2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("Nama", 155)
    End Sub

End Class

Latihan 3 menggunakan Satu Dimensi

Berikut Source Codenya :
Public Class latihan3
    'nadiahtami 2017230007'
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub latihan3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'MENAMPILKAN GRID/GARIS TABEL UNTUK 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 String
        arr(1) = TextBox1.Text
        arr(2) = TextBox2.Text
        arr(3) = TextBox3.Text
        'MEMBUAT LISTVIEW ITEM'
        Dim list_view As ListViewItem
        list_view = ListView1.Items.Add(arr(1))
        list_view.SubItems.Add(arr(2))
        list_view.SubItems.Add(arr(3))
        TextBox1.Text = TextBox1.Text + 1
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

End Class

Kasus 1 menggunakan Satu Dimensi

Berikut Source Codenya :

Public Class kasus1

    'nadiahtami 2017230007'

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

        'JENIS KELAMIN'

        Dim jk(1) As String

        jk(0) = "Laki-Laki"

        jk(1) = "Perempuan"

        For Each element As String In jk

            ComboBox1.Items.Add(element)

        Next

        ComboBox1.Text = "Jenis Kelamin"

        'PRODI'

        Dim prodi(3) As String

        prodi(0) = "Teknik Informatika"

        prodi(1) = "Sastra Jepang"

        prodi(2) = "Akuntansi"

        prodi(3) = "Kelautan"

        For Each element As String In prodi

            ComboBox2.Items.Add(element)

        Next

        ComboBox2.Text = "Prodi"

        'MENAMPILKAN GRID/GARIS TABEL UNTUK LISTVIEW'

        ListView1.GridLines = True

        ListView1.View = View.Details

        'MENAMBAHKAN HEADER UNTUK KOLOM LISTVIEW'

        ListView1.Columns.Add("No")

        ListView1.Columns.Add("NIM")

        ListView1.Columns.Add("Nama")

        ListView1.Columns.Add("Jenis Kelamin")

        ListView1.Columns.Add("Prodi")

        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(5) As String

        arr(1) = TextBox1.Text

        arr(2) = TextBox2.Text

        arr(3) = TextBox3.Text

        arr(4) = ComboBox1.Text

        arr(5) = ComboBox2.Text

        'MEMBUAT LISTVIEW ITEM'

        Dim listItem As ListViewItem

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

        listItem.SubItems.Add(arr(2))

        listItem.SubItems.Add(arr(3))

        listItem.SubItems.Add(arr(4))

        listItem.SubItems.Add(arr(5))

        TextBox1.Text = TextBox1.Text + 1

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = ""

        ComboBox2.Text = ""

    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("Yakin ingin keluar?", vbYesNo, "Konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class