Friday, May 26, 2017

√ Fungsi Array Pada Vb.Net

Bismillah...

Beberapa waktu yang kemudian saya telah memposting bahan ihwal looping atau perulangan pada Vb.NET. Kali ini saya akan membahas ihwal penggunaan fungsi Array pada vb.net.

Apa itu Array?
Array yaitu sekumpulan variabel yang mempunyai type data yang sama dan dinyatakan dengan nama yang sama. 

Apa fungsi dari Array?
Array memungkinkan kita untuk menyimpan data ataupun acuan objek dengan jumlah yang banyak dan terindeks. Indeks dalam array memakai integer, indeks ini dipakai untuk memilih urutan dari elemen-elemennya, dan urutan indeks array biasanya dimulai dengan indeks nol (0) pada elemen pertama, kemudian indeks satu (1) untuk elemen kedua, dan seterusnya. 

Bagaimana cara mendeklarasikan Array di Vb.NET?
Mendeklarasikan variabel array dengan type data tertentu caranya hampir sama dengan mendeklarasikan variabel pada umumnya. Hanya saja pada pendeklarasian variabel array biasanya memakai tanda kurung yang diletakkan sesudah nama array. Berikut ini teladan pendeklarasian variabel array pada vb.net.

Pada Array 1 dimensi
Array satu dimensi yaitu array yang formasi nilainya yaitu linier dan squensial, atau sering disebut sebagai representasi data bentuk row atau 1 dimensi.

        Dim Arr(0) As String

Pada Array 2 Dimensi atau Multidimensi
Array multidimensi merupakan sebuah variabel yang menyimpan sekumpulan data yang mempunyai type data sama dan elemen yang akan diakses melalui banyak indeks. Array bentuk ini biasanya dipakai untuk merepresentasikan nilai dari sebuah tabel. 
      
     Dim arr(2, 1) As String
             arr(0, 0) = "NIS"
             arr(0, 1) = "Nama Siswa"
             arr(1, 0) = "Jenis Kelamin"
             arr(1, 1) = "No. HP"

Baiklah, semoga klarifikasi di atas sanggup lebih gampang dipahami, mari kita coba praktekkan cara pembuatan array satu dimensi dan dua dimensi/multidimensi pada Vb.NET.

Berikut tahapan-tahapannya:

Array 1 Dimensi
1. Masuk kedalam Aplikasi Vb. NET
2. Beri nama aplikasi dengan nama Latihan Array
3. Setelah Form 1 tampil, lakukan desain ibarat di bawah ini:

 Beberapa waktu yang kemudian saya telah memposting bahan ihwal  √ Fungsi Array pada VB.NET

Lakukan setting Properties pada objek-objek di atas menjadi ibarat berikut ini:
NO  NAMA OBJEK  PROPERTIES
1.     Textbox1           Name = TxtInput
2.     Button1             Name = BtnTambah
3.     Listview1          Name = LvTampil
4.     Form1                Name = Array


4. Setelah desain interface selesai, maka selanjutnya kita masukkan coding pada objek Form1_Load dan Button, ibarat di bawah ini:

Double Click pada Form (form yang saya gunakan namanya Array), kemudian ketik coding di bawah ini:

Private Sub array_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LVTampil.View = View.Details
        LVTampil.GridLines = True
        LVTampil.Columns.Add("Nama Team Sepak Bola", 205)
End Sub

Kemudian, Double Click pada Button Tambah (Button disaya namanya BtnTambah)

Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
        Dim Input(0) As String
        Input(0) = TxtInput.Text
        Dim list As New ListViewItem
        list = LVTampil.Items.Add(Input(0))
        TxtInput.Text = ""
        TxtInput.Focus()
End Sub

5. Setelah tanggapan silahkan dicoba dengan cara Klik Icon Run/tekan F5 untuk memastikan jadwal sudah sanggup berjalan dengan benar atau belum.

6. Kemudian di input pada bab textbox, dan dikilk tambah, maka teladan kesudahannya akan ibarat gambar berikut ini:

 Beberapa waktu yang kemudian saya telah memposting bahan ihwal  √ Fungsi Array pada VB.NET

Baca Juga : Looping/Perulangan
Baca Juga : DSN/ODBC


Array Dua Dimensi/Multidimensi
1. Tambahkan 1 Form gres pada aplikasi VB.NET yang sudah dibuka diatas, kemudian desain Form Seperti di bawah ini:
 Beberapa waktu yang kemudian saya telah memposting bahan ihwal  √ Fungsi Array pada VB.NET

Pada aplikasi kali ini, nama objeknya tidak ada yang di rubah, jadi masih memakai nama bawaan objeknya masing-masing.

2. Kemudian ketikkan coding di bawah ini:

Double Click pada Form1_Load, kemudian ketik codingnya di bawah ini:

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

        Dim arr(2, 1) As String
        arr(0, 0) = "NIS"
        arr(0, 1) = "Nama Siswa"
        arr(1, 0) = "Jenis Kelamin"
        arr(1, 1) = "No. HP"

        ComboBox1.Items.Add("Laki-laki")
        ComboBox1.Items.Add("Perempuan")

        ListView1.GridLines = True
        ListView1.View = View.Details

        For baris = 0 To 1
            For kolom = 0 To 1
                ListView1.Columns.Add(arr(baris, kolom), 85)
            Next
        Next

        TextBox1.ReadOnly = True
        TextBox1.Text = "1"
        TextBox2.Focus()

    End Sub

Kemudian Double Click pada Button1, dan ketik codingnya di bawah ini:

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) = TextBox3.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.Text = ""
        ComboBox1.Text = ""
        TextBox3.Text = ""
        TextBox2.Focus()
    End Sub

3. Setelah selesai, kemudian tekan F5 untuk menjalankan program. Dan silahkan coba diinput dan klik tambah, maka kesudahannya akan ibarat di bawah ini:

Demikian pembahasan ihwal penggunaan Array pada Vb.NET, semoga bermanfaat dan sanggup membantu memudahkan proses berguru pemrograman. 

Terimakasih sudah berkunjung kalau ada, hal-hal yang perlu disampaikan untuk perbaikan kami, silahkan isi pada kolom komentar di bawah.


Sumber http://pabaiq.blogspot.com


EmoticonEmoticon

:)
:(
hihi
:-)
:D
=D
:-d
;(
;-(
@-)
:o
:>)
(o)
:p
:-?
(p)
:-s
8-)
:-t
:-b
b-(
(y)
x-)
(h)