CONTOH APLIKASI ARRAY
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 :
Public Class Form1
Dim ArrayProv() As String = {"Jawa Barat", "Banten", "Jawa Tengah"}
Dim ArrayKotaJabar() As String = {"Bandung", "Cimahi"}
Dim ArrayKotaBanten() As String = {"Cilegon", "Serang"}
Dim ArrayKotaJateng() As String = {"Brebes", "Semarang"}
Dim ArrayKecBandung() As String = {"Antapani", "Babakanciparay"}
Dim ArrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Tengah"}
Dim ArrayKecCilegon() As String = {"Cibeber", "Gerogol"}
Dim ArrayKecSerang() As String = {"Curug", "Kasemen"}
Dim ArrayKecBrebes() As String = {"Losari", "Salem"}
Dim ArrayKecSemarang() As String = {"Banyumanik", "Mijen"}
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
cmbProv.Items.AddRange(ArrayProv)
End Sub
Private Sub cmbProv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProv.SelectedIndexChanged
If cmbProv.SelectedIndex = 0 Then
cmbKota.Items.Clear()
cmbKota.Items.AddRange(ArrayKotaJabar)
ElseIf cmbProv.SelectedIndex = 1 Then
cmbKota.Items.Clear()
cmbKota.Items.AddRange(ArrayKotaBanten)
ElseIf cmbProv.SelectedIndex = 2 Then
cmbKota.Items.Clear()
cmbKota.Items.AddRange(ArrayKotaJateng)
End If
End Sub
Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged
If cmbKota.SelectedItem = "Bandung" Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecBandung)
ElseIf cmbKota.SelectedItem = "Cimahi" Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecCimahi)
ElseIf cmbKota.SelectedItem = "Cilegon" Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecCilegon)
ElseIf cmbKota.SelectedItem = "Serang" Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecSerang)
ElseIf cmbKota.SelectedItem = "Brebes" Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecBrebes)
ElseIf cmbKota.SelectedItem = "Semarang" Then
cmbKecamatan.Items.Clear()
cmbKecamatan.Items.AddRange(ArrayKecSemarang)
End If
End Sub
Private Sub btnTampil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampil.Click
If cmbProv.SelectedItem = "" Then
MsgBox("belum pilih Provinsi")
ElseIf cmbKota.SelectedItem = "" Then
MsgBox("belum pilih Kota")
ElseIf cmbKecamatan.SelectedItem = "" Then
MsgBox("belum pilih Kecamatan")
Else
lstTampil.Items.Clear()
lstTampil.Items.Add("Provinsi yang dipilih " + cmbProv.SelectedItem)
lstTampil.Items.Add("Kota yang dipilih " + cmbKota.SelectedItem)
lstTampil.Items.Add("Kecamatan yang dipilih " + cmbKecamatan.SelectedItem)
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
lstTampil.Items.Clear()
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
8. maka hasilnya akan seperti gambar di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon