Berdasarkan fungsi dan pengunaan indeks, array di bedakan menjadi 2 yaitu Array 1 dimensi dan Array 2 dimensi, untuk array satu dimensi, sudah aku bahas di tutorial sebelumnya, dan untuk array 2 di mensi, akan kita bahas sekarang.
  Array 2 dimensi yakni array yang memakai lebih dari satu indeks, misalkan memakai 2 indeks, untuk penulisanya hampir sama dengan array 1 dimensi, dimana array 1 dimensi ibarat ini variabel(indeks), sedangkan untuk array 2 dimensi, sanggup kita tulis (misalkan 2 indeks) variabel(indeks1, indeks2) 
  Array 2 dimensi biasanya dipakai untuk aktivitas aplikasi yang memakai matrik, dimana indeks pertama sebagai baris dan indeks kedua sebagai kolom, misalnya a(1, 3), yang berarti nilai a berada di posisi baris ke 1 dan kolom ke 3, untuk lebih memahaminya, kita akan menciptakan sebuah aktivitas yang sanggup menampilkan sebuah nilai, menurut posisi yang telah kita tentukan, oke berikut tutorialnya :
  1. Seperti biasa buka VB dengan project Stanar EXE
  2. Tambahkan 4 Label, 3 text box, 2 Command Button dan 1 List Box
  3. Ubah properties dari setiap toolsnya dengan kriteria ibarat ini :
 | Tool Box | Properties | Keterangan | 
| Form 1 | Start Up Positions | Center Screen | 
| Label 1 | Caption | POSISI MATRIKS | 
| Label 2 | BARIS | |
| Label 3 | KOLOM | |
| Label 4 | MATRIKS | |
| Text 1 | Text | (Kosong) | 
| Text 2 | (Kosong) | |
| Text 3 | (Kosong) | |
| Command 1 | Caption | SIMPAN | 
| Command 2 | TAMPILKAN | 
 sehingga ibarat ini :
   4. kemudian tuliskan script berikut :
  'Definisi matrik berukuran 4x4
  Dim m(4, 4) As Single 'Membuat Ukuran matriks terdiri dari 4 baris dan 4 kolom
  Private Sub Command1_Click() 'Menyimpan data matriks ke memory komputer
  baris = Val(Text1) 'Nilai baris = nilai yang di tuliskan di text1
  kolom = Val(Text2)  'Nilai Kolom = nilai yang di tuliskan di text2
  m(baris, kolom) = Val(Text3)  'Nilai Matriks = nilai yang di tuliskan di text3
  End Sub
  Private Sub Command2_Click() 'Menampilkan data yang di simpan ke list box
  List1.Clear
  For i = 1 To 4
  kal = ""
  For j = 1 To 4
  kal = kal & m(i, j) & " "
  Next j
  List1.AddItem kal
  Next i
  End Sub
  5. Dan terakhir, jalankan program.
   Cara Kerja :
  Isi semua posisi matriks mulai dari baris dan kolom dengan sebuah nilai, kemudian klik simpan, kemudian klik tampilkan, bila anda ingin menampilkan datanya, dan perhatikan dimana letak data yang telah di tuliskan
  Catatan :
  alasannya yakni ini adalag aktivitas dasar, Isilah Text Baris dan Text Kolom dengan angka mulai dari 1 hingga 4, bila lebih atau kurang dari data yang sudah di tentukan, maka aktivitas akan error
  Itulah Pembahasan mengenai Array 2 Dimensi dan Contoh Programnya\
  Sekian tutorial kali ini
  Terimakasih
 

Comments
Post a Comment