Pertemuan 11, 4 Mei 2015 : Tutorial Array 2D menggunakan Vb.net

saya akan membuat tutorial Array menggunakan Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut : 
1. Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Array Kota. Kemudian klik ok. 

Rename nama formnya menjadi Array. 
Buat tampilan formnya seperti ini 

Terdiri dari :
 -3 Label
 -3 ComboBox
-1 ListView
-3 Button
Keterangan :
ComboBox Provinsi ganti namenya menjadi cmbProv
ComboBox Kota ganti namenya menjadi cmbKota
ComboBox Kota ganti namenya menjadi cmbKec

2. Kemudian Masukan kode berikut ini :
 -Deklarasikan array berikut 

Public Class ArrayKota
    Dim arrayProv() As String = {"Jawa Barat", "Jawa Tengah", "Jawa Timur"}
    Dim arrayKotaJabar() As String = {"Cimahi", "Padalarang"}
    Dim arrayKotaJateng() As String = {"Solo", "Semarang"}
    Dim arrayKotaJatim() As String = {"Malang", "Surabaya"}
    Dim arrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Selatan"}
    Dim arrayKecPadalarang() As String = {"Padalarang", "Ngamprah"}
    Dim arrayKecSemarang() As String = {"Semarang Timur", "Mijen"}
    Dim arrayKecSolo() As String = {"Pasar Kliwon", "Semanggi"}
    Dim arrayKecMalang() As String = {"Sukoharjo", "Kauman"}
    Dim arrayKecSurabaya() As String = {"Jambangan", "Sawahan"}

-Masukan kode ini di form load nya : 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbProv.Items.AddRange(arrayProv)
        Call Tabel()
    End Sub

-Kode untuk ComboBox Provinsi adalah sebagai berikut. 

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(arrayKotaJateng)
        ElseIf cmbProv.SelectedIndex = 2 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(arrayKotaJatim)

        End If
    End Sub

-Kode untuk ComboBox Kota adalah sebagai berikut : 

Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged
        If cmbKota.SelectedItem = "Cimahi" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecCimahi)
        ElseIf cmbKota.SelectedItem = "Padalarang" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecPadalarang)
        ElseIf cmbKota.SelectedItem = "Solo" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecSolo)
        ElseIf cmbKota.SelectedItem = "Semarang" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecSemarang)
        ElseIf cmbKota.SelectedItem = "Malang" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecMalang)
        ElseIf cmbKota.SelectedItem = "Surabaya" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecSurabaya)
        End If
    End Sub

-Kode untuk button Tampilkan adalah sebagai berikut : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lst As New ListViewItem
        lst.Text = cmbProv.Text
        lst.SubItems.Add(cmbKota.Text)
        lst.SubItems.Add(cmbKec.Text)
        ListView1.Items.Add(lst)
    End Sub

-Membuat procedure table . 

Sub Tabel()
        'membuat colom pada listview
        ListView1.Columns.Add("Provinsi", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kota", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kecamatan", 80, HorizontalAlignment.Center)
        'menjadikan listview detail artinnya nampak sebagai baris dan kolom
        ListView1.View = View.Details
        'menampilkan garis sebagai pembatas baris dan kolom
        ListView1.GridLines = True
        'untuk membuat seluruh satu baris tersorot saat di klik
        ListView1.FullRowSelect = True
    End Sub

-Kode untuk button Hapus adalah sebagai berikut : 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Apa kamu ingin menghapus data ini?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

            ListView1.SelectedItems(0).Remove()

        End If
    End Sub

-Kode untuk button Exit adalah sebagai berikut : 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

3. Setelah semua kode telah dimasukanRun programnya. Saya ambil contoh Porvinsi Jawabarat.

Ketika button tampilkan di klik maka tampil di list view. 

Lalu untuk menghapusnya tinggal kita sorot yang ingi di hapus lalu klik button hapus. 

Kemudian muncul messagebox seperti berikut. 

Kemudian muncul messagebox seperti berikut

Pertemuan 10, 27 April 2015 : Konverter Panjang menggunakan VB.net

saya akan membuat tutorial Mengkonversi Panjang menggunakan Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut : 
1.Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Konversi Panjang. Kemudian klik ok. 

Rename nama formnya menjadi Main Menu. Buat tampilan formnya seperti ini 

Kemudian masukan code berikut ini : Untuk button Convert to meters . 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Meters.Show()
    End Sub

Untuk button Convert to inches. 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Inches.Show()
    End Sub

Untuk button Exit. 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

2.Kemudian kita membuat satu form baru dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Meters. 

Lalu buat tampilan formnya seperti ini. 

Kemudian masukan code berikut ini : Untuk button Convert To Inches. 

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

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblInches = MeterToInches(dblMeters)

            MessageBox.Show(dblMeters.ToString() & "Meter Equals" & dblInches.ToString() & " Inches")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")

        End Try
    End Sub

Untuk button Convert To Feet. 

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

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblFeet = MeterToFeet(dblMeters)

            MessageBox.Show(dblMeters.ToString() & "Meter Equals" & dblFeet.ToString() & " Feets")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Convert To Yard. 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dblMeters As Double
        Dim dblYards As Double

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblYards = MeterToYard(dblMeters)

            MessageBox.Show(dblMeters.ToString() & "Meter Equals" & dblYards.ToString() & " Yards")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Exit. 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub

3.kita buat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Inches. 

Lalu buat tampilan formnya seperti berikut ini. 

Masukan code berikut di masing-masing button. Untuk button Convert To Mili Meters. 

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

        Try
            dblInches = CDbl(txtInches.Text)
            dblMiliMeters = InchesToMiliMeters(dblInches)

            MessageBox.Show(dblInches.ToString() & "Inch Equals" & dblMiliMeters.ToString() & " MiliMeters")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Convert To Centi Meters. 

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

        Try
            dblInches = CDbl(txtInches.Text)
            dblCentiMeters = InchesToCentiMeters(dblInches)

            MessageBox.Show(dblInches.ToString() & "Inch Equals" & dblCentiMeters.ToString() & " CentiMeters")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Convert To Meters. 

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

        Try
            dblInches = CDbl(txtInches.Text)
            dblMeters = InchesToMeters(dblInches)

            MessageBox.Show(dblInches.ToString() & "Inch Equals" & dblMeters.ToString() & " Meters")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Exit. 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub

4.Buat sebuah module dengan cara klik kanan pada project kita pilih add-> Module. 

Lalu ketikan code berikut ini. 

5.Setelah semua selesai run programnya. 

Pertemuan 9, 20 April 2015 : tutorial penggunaan module dan MDI Parent Form menggunakan Visual basic 2010 express

 saya akan membuat tutorial penggunaan module dan MDI Parent Form kursi menggunakan Microsoft visual basic 2010 express.

Langkah-langkahnya adalah sebagai berikut :

1.      Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Luas Segitiga. Kemudian klik ok.

Buat tampilan formnya seperti ini.

 

Kemudian masukan koding nya di button proses.

Kodingnya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Alas, Tinggi As Integer
        Alas = TextBox1.Text
        Tinggi = TextBox2.Text
        TextBox3.Text = LuasSegitiga(Alas, Tinggi)
    End Sub
End Class

2.      Kemudian kita membuat satu form baru lagi  dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Luas Persegi.

Lalu buat tampilan formnya seperti ini.

Lalu masukan kodingnya ke button proses.

Kodingnya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Panjang, Lebar As Integer

        Panjang = TextBox1.Text

        Lebar = TextBox2.Text

        TextBox3.Text = Luas(Panjang, Lebar)

    End Sub

End Class

3.      Buat module baru dengan cara klik kanan pada project pilih add -> module.

Kemudian masukan coding seperti di gambar berikut ini .

4.      Lalu buat MDI Parent Form dengan cara klik kanan di projet kita pilih add -> new item-> kemudian pili MDI Parent Form.tampilannya seperti berikut.

Hapus semua menu bar yang ada di atas dan ubah menjadi seperti gambar di bawah ini.

Kemudian klik pada menu bar rumus , masukan Luas segitiga dan Luas Persegi Panjang dan Exit Pada Menu bar Keluar Menjadi  seperti gambar dibawah ini.

  

Masukan koding di Rumus segitiga.

Kodingnya adalah sebagai berikut :

Private Sub RumusSegitigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusSegitigaToolStripMenuItem.Click

        Form1.Show()

    End Sub

Masukan koding di Rumus Persegi Panjang.

Kodingnya adalah sebagai berikut :

Private Sub RumusPersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiPanjangToolStripMenuItem.Click

        Form2.Show()

    End Sub

Masukan koding di Exit.

Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click

        Me.Close()

    End Sub

Kodingnya adalah sebagai berikut :

5.      Kemudian Run program. Tampilannya akan seperti berikut.

Pilih rumus yang ingin di cari . saya ambil contoh rumus segitiga. Klik rumus lalu pilih rumus segitiga .

dengan alas 9  dan tinggi 20 maka luas segitiganya adalah 90.

Sekian tutorial mengenai penggunaan  Module dan MDI Parent Form.