newbie318: April 2015

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.

Larik (Array) Satatis Satu dimensi yaitu jenis Larik dimana elemen elemnya hanya satu dimensi dan telah di tentukan jumlah elemennya.
Larik (Array) Dinamis satu dimensi yaitu jenis larik dimana elemnya hanya satu dimensi namun jumlah elemenya bersifat Dinamis.
Larik (Array) dua dimensi yaitu jenis larik yang mempunyai elemen berstruktur dua dimensi .

Tutorial : Contoh Penggunaan Array

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

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

Langkah kelima masukkan koding berikut

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(ByVal sender As System.Object, ByVal 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

Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

Langkah ketujuh, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

MULTIPLE FORM, MDI FORM, dan MODULE

Multiple Form : Sebuah aplikasi window dapat memiliki lebih dari satu window (form), dan kebanyakan aplikasi memang memiliki beberapa window. Kita juga dapat menambahkan beberapa window pada aplikasi dengan menambahkan form pada project.
MDI Form : Induk dari semua Form yang ada, atau dalam arti lain adalah antarmuka pengguna khas di mana setiap dokumen dalam aplikasi ditampilkan dalam jendela anak terpisah dalam wilayah klien dari jendela utama aplikasi.
Module : Secara sederhana dapat di artikan sebagai suatu fungsi yang bersifat umum, module biasanya di mulai seperti kita menuliskan sebuah functionSelain ituModule juga berfungsi untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.

Tutorial : Contoh Penggunaan Multiple Form, MDI Form, dan Module

Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
Langkah keempat buatlah desain MDI form Main Menu, form Meter To English, dan form Inches To Metrics seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Enter the Number of Meters
TextBox1		txtMeters
Button1	Convert To Inches	btnConvertToInches
Button2	Convert To Feet	btnConvertToFeet
Button3	Convert To Yard	btnConvertToYard
Button4	Exit	btnExit

Tabel Properties Meters To English

Objek	Text	Name
Label1	Enter the Number of Inches
TextBox1		txtInches
Button1	Convert To Mili Meters	btnConvertToMiliMeters
Button2	Convert To Centi Meters	btnConvertToCentiMeters
Button3	Convert To Meters	btnConvertToMeters
Button4	Exit	btnExit

Tabel Properties Inches To Metrics

Langkah kelima buatlah satu buah module, lalu masukkan fungsi berikut

Langkah keenam masukkan koding berikut

1.Form Meters To English

Public Class MetersToEnglish

Private Sub btnConvertToInches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToInches.Click
        Dim dblMeters As Double
        Dim dblInches As Double

Try
            dblMeters = CDbl(txtMeters.Text)
            dblInches = MetersToInches(dblMeters)
            MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblInches.ToString() & " Inches")
        Catch
            MessageBox.Show("Error: Enter a number value")
        End Try
    End Sub

Private Sub btnConvertToFeet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToFeet.Click
        Dim dblMeters As Double
        Dim dblFeet As Double

Try
            dblMeters = CDbl(txtMeters.Text)
            dblFeet = MetersToFeet(dblMeters)
            MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblFeet.ToString() & " Feet")
        Catch
            MessageBox.Show("Error: Enter a number value")
        End Try
    End Sub

Private Sub btnConvertToYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToYard.Click
        Dim dblMeters As Double
        Dim dblYard As Double

Try
            dblMeters = CDbl(txtMeters.Text)
            dblYard = MetersToYard(dblMeters)
            MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblYard.ToString() & " Yard")
        Catch
            MessageBox.Show("Error: Enter a number value")
        End Try
    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

2.Form Inches To Metrics

Public Class InchesToMetrics

Private Sub btnConvertToMiliMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMiliMeters.Click
        Dim dblInches As Double
        Dim dblMiliMeters As Double

Try
            dblInches = CDbl(txtInches.Text)
            dblMiliMeters = InchesToMili(dblInches)
            MessageBox.Show(dblInches.ToString() & " Inches equals " & dblMiliMeters.ToString() & " MiliMeters")
        Catch
            MessageBox.Show("Error: Enter a number value")
        End Try
    End Sub

Private Sub btnConvertToCM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToCentiMeters.Click
        Dim dblInches As Double
        Dim dblCentiMeters As Double

Try
            dblInches = CDbl(txtInches.Text)
            dblCentiMeters = InchesToCenti(dblInches)
            MessageBox.Show(dblInches.ToString() & " Inches equals " & dblCentiMeters.ToString() & " CentiMeters")
        Catch
            MessageBox.Show("Error: Enter a number value")
        End Try
    End Sub

Private Sub btnConvertToMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMeters.Click
        Dim dblInches As Double
        Dim dblMeters As Double

Try
            dblInches = CDbl(txtInches.Text)
            dblMeters = InchesToMeters(dblInches)
            MessageBox.Show(dblInches.ToString() & " Inches equals " & dblMeters.ToString() & " Meters")
        Catch
            MessageBox.Show("Error: Enter a number value")
        End Try
    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

3.MDI Form