Array Dua Dimensi pada Visual Basic 2010

Assalamualaikum pada post kali ini penulis akan share materi array dua dimensi untuk array 1 dimensi bisa klik disini
untuk materi lainnya dapat dilihat disini

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 :

Dim nama_array [indeks baris, indeks kolom] As Tipe_Data

Latihan 1 Array Dua Dimensi

Buatlah form seperti berikut ini

Source Code :

Public Class Pertemuan_5_Latihan_1_Praktikum

Dim baris As Integer

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_1_Praktikum_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 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 = TextBox1.Text + 1

TextBox2.Clear()

ComboBox1.Text = ""

ComboBox2.Text = ""

TextBox2.Focus()

End Sub

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

Me.Text = "salmantech42.blogspot.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) = "Laki-laki-"

arr(2, 1) = "Perempuan"

arr(3, 0) = "Menikah"

arr(3, 1) = "Belum Menikah"

ListView1.GridLines = True

ListView1.View = View.Details

For baris = 0 To 1

For kolom = 0 To 1

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

For baris = 2 To 2

For kolom = 0 To 1

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

For baris = 3 To 3

For kolom = 0 To 1

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

TextBox1.ReadOnly = True

TextBox1.Text = "1"

TextBox2.Focus()

End Sub

End Class

Running Program

Latihan 2 Array Dua Dimensi

Buatlah form seperti di bawah ini

Source Code :

Public Class Pertemuan_5_Latihan_2_Praktikum

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

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

TextBox2.Clear()

ComboBox1.SelectedIndex = -1

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

TextBox1.Focus()

TextBox1.Clear()

End Sub

Private Sub Pertemuan_5_Latihan_2_Praktikum_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 Pertemuan_5_Latihan_2_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "salmantech42.blogspot.com"

Dim arr(4, 1) As String

arr(0, 0) = "ID"

arr(0, 1) = "MAMA"

arr(1, 0) = "JENIS KELAMIN1 "

arr(1, 1) = "JABATAN"

arr(2, 0) = "ALAMAT"

arr(2, 1) = "TTL"

arr(3, 0) = "TELP/HP"

arr(3, 1) = "EMAIL"

arr(4, 0) = "Laki-laki"

arr(4, 1) = "Perempuan"

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("TTL", 105)

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

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

End Sub

End Class

Running Program

Latihan 3 Array Dua Dimensi

Buatlah form seperti dibawah ini

Source Code :

Public Class Pertemuan_5_Latihan_3_Praktikum

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

TextBox8.Text = "D"

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

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox8.Clear()

TextBox9.Clear()

TextBox2.Focus()

End Sub

Private Sub Pertemuan_5_Latihan_3_Praktikum_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 Pertemuan_5_Latihan_3_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "salmantech42.blogspot.com"

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) 'salmantech42.blogspot.com

TextBox1.ReadOnly = True

TextBox1.Text = "201723"

End Sub

End Class

Running Program

Kasus 1 Array Dua Dimensi

Buatlah form seperti di bawah ini

Source Code :

Public Class Pertemuan_5_Kasus_1_Praktikum

Private Sub Pertemuan_5_Kasus_1_Praktikum_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 Pertemuan_5_Kasus_1_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "salmantech42.blogspot.com"

tbid.Focus()

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) = "TTL"

arr(3, 0) = "TELP/HP"

arr(3, 1) = "EMAIL"

arr(4, 0) = "Laki-laki"

arr(4, 1) = "Perempuan"

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

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

Next kolom

Next baris

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

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

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

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

End Sub

Private Sub btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsimpan.Click

Dim arr(7) As String

arr(0) = tbid.Text

arr(1) = tbnama.Text

arr(2) = cbjeniskelamin.Text

arr(3) = tbjabatan.Text

arr(4) = tbalamat.Text

arr(5) = tblahir.Text

arr(6) = tbtelp.Text

arr(7) = tbemail.Text

Dim listitem As ListViewItem

listitem = New ListViewItem

listitem = ListView1.Items.Add(arr(0))

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

tbnama.Clear()

cbjeniskelamin.SelectedIndex = -1

tbjabatan.Clear()

tbalamat.Clear()

tblahir.Clear()

tbtelp.Clear()

tbemail.Clear()

tbid.Focus()

tbid.Clear()

End Sub

Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.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

End Class

Running Program

Sekian untuk post Array Dua Dimensi semoga bermanfaat

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

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Array Dua Dimensi pada Visual Basic 2010

0 Response to "Array Dua Dimensi pada Visual Basic 2010"

Post a Comment