Visual Basic Lanjutan (Praktikum 4) - Array Dimensi Dua

Assalamualaikum Wr.Wb.

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

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

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

ARRAY DIMENSI DUA

·         Suatu array yang fungsinya hampir sama dengan array satu dimensi.

·         Hanya saja pada array dimensi dua ini mewakili nilai-nilai tabel yang terdiri dari informasi yang diatur dalam baris dan kolom.

·         Untuk mengidentifikasi elemen-elemen tabel tertentu.

·         harus menentukan dua indeks.

·         Pertama untuk mengidentifikasi elemen baris dan yang kedua mengidentifikasi elemen-elemen kolom.

·         Array multidimensi memiliki lebih dari dua dimensi.

·         Aturan penulisan Array Multidimensi:

LATIHAN 1

Code:

Public Class Form1

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

        Me.Text = "LaptopInformatika.com"

        Dim arr(3, 1) As String

        arr(0, 0) = "Nim"

        arr(0, 1) = "Nama"

        arr(1, 0) = "Jenis Kelamin"

        arr(1, 1) = "Status"

        arr(2, 0) = "Pria"

        arr(2, 1) = "Wanita"

        arr(3, 0) = "Menikah"

        arr(3, 1) = "Lajang"

        ListView1.GridLines = True

        ListView1.View = View.Details

        For baris = 0 To 1

            For kolom = 0 To 1

                ListView1.Columns.Add(arr(baris, kolom), 100)

            Next

        Next

        For baris = 2 To 2

            For kolom = 0 To 1

                ComboBox1.Items.Add(arr(baris, kolom))

            Next

        Next

        For baris = 3 To 3

            For kolom = 0 To 1

                ComboBox2.Items.Add(arr(baris, kolom))

            Next

        Next

        TextBox1.ReadOnly = True

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

        arr(0) = TextBox1.Text

        arr(1) = TextBox2.Text

        arr(2) = ComboBox1.Text

        arr(3) = ComboBox2.Text

        Dim list As New ListViewItem

        list = ListView1.Items.Add(arr(0)) 'Jembatan Lulus

        list.SubItems.Add(arr(1))

        list.SubItems.Add(arr(2))

        list.SubItems.Add(arr(3))

        TextBox1.Text = TextBox1.Text + 1

        TextBox2.Text = ""

        ComboBox1.Text = ""

        ComboBox2.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

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"

        Dim arr(4, 1) As String

        arr(0, 0) = "ID"

        arr(0, 1) = "NAMA"

        arr(1, 0) = "JENIS KELAMIN"

        arr(1, 1) = "JABATAN"

        arr(2, 0) = "ALAMAT"

        arr(2, 1) = "TGL LAHIR"

        arr(3, 0) = "TELP"

        arr(3, 1) = "EMAIL"

        arr(4, 0) = "PRIA"

        arr(4, 1) = "WANITA"

        ListView1.GridLines = True

        ListView1.View = View.Details

        For baris = 0 To 1

            For kolom = 0 To 1

                ListView1.Columns.Add(arr(baris, kolom), 100)

            Next kolom

        Next baris

        For baris = 4 To 4

            For kolom = 0 To 1

                ComboBox1.Items.Add(arr(baris, kolom))

            Next kolom

        Next baris

        ListView1.Columns.Add("ALAMAT", 125)

        ListView1.Columns.Add("TANGGAL LAHIR", 105)

        ListView1.Columns.Add("TELP", 105)

        ListView1.Columns.Add("EMAIL", 110)

    End Sub

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

        Dim arr(7) As String

        arr(0) = TextBox1.Text

        arr(1) = TextBox2.Text

        arr(2) = ComboBox1.Text

        arr(3) = TextBox3.Text

        arr(4) = TextBox4.Text

        arr(5) = TextBox5.Text

        arr(6) = TextBox6.Text

        arr(7) = TextBox7.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        listitem = ListView1.Items.Add(arr(0)) 'Sulthan Alawy Shihab

        listitem.SubItems.Add(arr(1))

        listitem.SubItems.Add(arr(2))

        listitem.SubItems.Add(arr(3))

        listitem.SubItems.Add(arr(4))

        listitem.SubItems.Add(arr(5))

        listitem.SubItems.Add(arr(6))

        listitem.SubItems.Add(arr(7))

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        ComboBox1.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 Form3

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

        Me.Text = "Jembatam Lulus"

        TextBox2.Focus()

        Dim arr(1, 2) As String

        arr(0, 0) = "NIS"

        arr(0, 1) = "NAMA"

        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

        TextBox1.ReadOnly = True

        TextBox1.Text = "2017230192"

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        TextBox6.Text = Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)

        TextBox7.Text = FormatNumber((TextBox6.Text) / 3)

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        TextBox6.Text = Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)

        TextBox7.Text = FormatNumber((TextBox6.Text) / 3)

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

        TextBox6.Text = Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)

        TextBox7.Text = FormatNumber((TextBox6.Text) / 3)

    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

        If TextBox7.Text >= 90 Then

            TextBox8.Text = "A"

        ElseIf TextBox7.Text >= 80 Then

            TextBox8.Text = "B"

        ElseIf TextBox7.Text >= 70 Then

            TextBox8.Text = "C"

        ElseIf TextBox7.Text < 70 Then 'Sulthan

            TextBox8.Text = "D"

        End If

    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged

        If TextBox8.Text = "A" Then

            TextBox9.Text = "LULUS"

        ElseIf TextBox8.Text = "B" Then

            TextBox9.Text = "LULUS"

        ElseIf TextBox8.Text = "C" Then

            TextBox9.Text = "LULUS"

        Else

            TextBox9.Text = "BELUM LULUS"

        End If

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

        arr(1) = TextBox2.Text

        arr(2) = TextBox6.Text

        arr(3) = TextBox7.Text

        arr(4) = TextBox8.Text

        arr(5) = TextBox9.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))

        TextBox1.Text = Val(TextBox1.Text) + 1

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox8.Text = ""

        TextBox9.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"

        Dim arr(3, 1) As String

        arr(0, 0) = "Makanan/Minuman"

        arr(0, 1) = "Harga"

        arr(1, 0) = "Stok"

        arr(1, 1) = "Jumlah"

        arr(2, 0) = "Tersedia"

        arr(2, 1) = "Tidak Tersedia"

        arr(3, 0) = "Sedikit"

        arr(3, 1) = "Banyak"

        ListView1.GridLines = True

        ListView1.View = View.Details

        For baris = 0 To 1

            For kolom = 0 To 1

                ListView1.Columns.Add(arr(baris, kolom), 100)

            Next

        Next

        For baris = 2 To 2

            For kolom = 0 To 1

                ComboBox1.Items.Add(arr(baris, kolom))

            Next

        Next

        For baris = 3 To 3

            For kolom = 0 To 1

                ComboBox2.Items.Add(arr(baris, kolom))

            Next

        Next

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

        arr(1) = TextBox2.Text

        arr(2) = ComboBox1.Text

        arr(3) = ComboBox2.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))

        TextBox1.Text = ""

        TextBox2.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("Are you sure want to exit", vbYesNo, "konfirmasi")

        If pesan = vbYes Then

            End

        End If

    End Sub

End Class