Contoh Program Array Di Visual Basic [Pertemuan: XI]
Array adalah konstruksi pemrograman yang menyimpan data dan memungkinkan kita untuk mengaksesnya
dengan indeks numerik atau subscript. Array membantu kita membuat kode lebih pendek dan sederhana dalam
banyak situasi. Array dideklarasikan menggunakan Dim, ReDim, Static, Private. Array dapat memiliki satu
dimensi (array linear) atau lebih dari satu (array multidimensi). Dimensi dari array mengacu pada jumlah subskrip
digunakan untuk mengidentifikasi elemen individu. Dalam Visual Basic kita dapat menentukan hingga 32
dimensi. Array tidak memiliki ukuran yang tetap dalam Visual Basic.
a. Larik (Array) Satatis Satu dimensi yaitu jenis Larik dimana elemen elemnya hanya satu dimensi dan telah di
tentukan jumlah elemennya.
b. Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah
elemenya bersifat Dinamis.
c. Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi .
Pada kesempatan kali ini saya akan berbagi cara bagaimana MEMBUAT A MDI FORM di vb 2010 .Untuk kali
berbeda dengan yang sebelum sebelumnya karena menggunakan 2 form yang pertama untuk form Meter To
English dan yang ke 2 form untuk Inchies To Meter. Sementara Untuk script nya sih sama saja dengan vb yang
sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , " TextBox
", " Label " seperti gambar di bawah ini
6. maka hasilnya akan muncul form seperti gambar di bawah ini
CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya
menjadi seperti gambar di bawah ini "
Objek Text Name
Label1 Provinsi
Label2 Kota/Kabupaten
Label3 Kecamatan
ComboBox1 cmbProv
ComboBox2 cmbKota
ComboBox3 cmbKecamatan
ListBox lstTampil
Button1 Tampil btnTampil
Button2 Clear btnClear
Button3 Exit btnExit
7. Copy script di bawah ini :
01 Public Class Form1
02 Dim ArrayProv() As String = {"Jawa Barat", "Banten", "Jawa Tengah"}
03 Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi"}
04 Dim ArrayKotaBanten() As String = {"Cilegon", "Serang"}
05 Dim ArrayKotaJateng() As String = {"Brebes", "Semarang"}
06 Dim ArrayKecBandung() As String = {"Antapani", "Babakanciparay"}
07 Dim ArrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Tengah"}
08 Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol"}
09 Dim ArrayKecSerang() As String = {"Curug", "Kasemen"}
10 Dim ArrayKecBrebes() As String = {"Losari", "Salem"}
11 Dim ArrayKecSemarang() As String = {"Banyumanik", "Mijen"}
12
13
Private Sub Form1_Load(sender As [Link],
14
e As [Link]) Handles [Link]
15 [Link](ArrayProv)
16 End Sub
1
7
1 Private Sub cmbProv_SelectedIndexChanged(ByVal sender [Link],
8 ByVal e As [Link]) [Link]
19 If [Link] = 0 Then
20 [Link]()
21 [Link](ArrayKotaJabar)
22 ElseIf [Link] = 1 Then
23 [Link]()
24 [Link](ArrayKotaBanten)
25 ElseIf [Link] = 2 Then
26 [Link]()
27 [Link](ArrayKotaJateng)
28 End If
29 End Sub
30
3 Private Sub cmbKota_SelectedIndexChanged(ByVal sender [Link],
1 ByVal e As [Link]) [Link]
3
2 If [Link] = "Bandung" Then
33 [Link]()
34 [Link](ArrayKecBandung)
35 ElseIf [Link] = "Cimahi" Then
36 [Link]()
37 [Link](ArrayKecCimahi)
38 ElseIf [Link] = "Cilegon" Then
39 [Link]()
40 [Link](ArrayKecCilegon)
41 ElseIf [Link] = "Serang" Then
42 [Link]()
43 [Link](ArrayKecSerang)
44 ElseIf [Link] = "Brebes" Then
45 [Link]()
46 [Link](ArrayKecBrebes)
47 ElseIf [Link] = "Semarang" Then
48 [Link]()
49 [Link](ArrayKecSemarang)
50 End If
51 End Sub
52
5 Private Sub btnTampil_Click(ByVal sender As [Link], ByVal e AsSy
3 [Link]) Handles [Link]
5
4 If [Link] = "" Then
55 MsgBox("belum pilih Provinsi")
56 ElseIf [Link] = "" Then
57 MsgBox("belum pilih Kota")
58 ElseIf [Link] = "" Then
59 MsgBox("belum pilih Kecamatan")
60 Else
61 [Link]()
62 [Link]("Provinsi yang dipilih " +
[Link])
63 [Link]("Kota yang dipilih " +
[Link])
64 [Link]("Kecamatan yang dipilih " +
[Link])
65 End If
66 End Sub
6
7
6 Private Sub btnClear_Click(ByVal sender As [Link], ByVal e AsSys
8 [Link]) Handles [Link]
69 [Link]()
70 End Sub
7
1
7 Private Sub btnExit_Click(ByVal sender As [Link], ByVal e AsSyst
2 [Link]) Handles [Link]
73 [Link]()
74
75 End Sub
76 End Class
8. maka hasilnya akan seperti gambar di bawah ini