Array, Function dan Procedure yang bisa memproses array

ARAAY

• Array adalah struktur data yang menyimpan sekumpulan elemen yang bertipe sama.
• Array merupakan sekumpulan data dimana setiap data memiliki suatu indeks sebagai penunjuk elemen.
• Suatu variabel dapat berupa array dengan tipe data tertentu.
• Perbedaan mendasar dalam program yang memakai variabel biasa dengan variabel yang dideklarasikan menggunakan Array adalah setiap variabel atau pengenal hanya menyimpan sebuah nilai dari tipe data tertentu yang artinya tidak bisa digunakan untuk menyimpan beberapa buah nilai yang bertipe sejenis.
• Penggunaan array diperlukan untuk menyimpan beberapa data sejenis untuk dilakukan manipulasi tertentu, misalnya penggunaan array untuk mengolah sekumpulan data nilai mahasiswa, untuk mengolah sekumpulan daftar harga obat pada apotek, dan lain-lain.

Cara Deklarasi Array

Menetapkan Nilai Array

Mengakses Array dengan for each

Araay Multidimensi

Pengertian Array Multi-dimensi Menurut Beberapa Sumber

• Array multi-dimensi merupakan sebuah variabel yang menyimpan sekumpuln data yang memiliki tipe sama dan elemen yang akan diakses melalui banyak indeks atau subskrip.
• Array multi-dimensi merupakan array yang mempunyai
  ukuran lebih dari dua.
• Bentuk pendeklarasian array sama saja dengan array dimensi satu maupun array dimensi dua.
• Bentuk umumnya yaitu :
  tipe_array nama_array[ukuran1][ukuran2]…[ukuranN];
• Contoh :
  float X[2][4][3];

Peretemuan 4

Latihan 1

1. Buat Projek dan form baru
2. buat Interface seperti ini

3. Masukan koding dibawah ini

Public Class Form1
    Private Sub btn_tampil_Click(sender As Object, e As EventArgs) Handles btn_tampil.Click
        Dim decsalary As Decimal
        Try
            decsalary = CDec(txt_isi.Text)
            lbl_hasil.Text = "your salary is " & decsalary.ToString("c")
        Catch
            lbl_hasil.Text = "please try agan. enter number invalid"
        End Try
    End Sub
End Class

Latihan 2

1. Buat Form Baru

2. buat interface seperti dibawah ini

3. Masukan Koding dibawah ini

Public Class Form2

    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click

        Dim salary As Decimal

        Dim pay As Integer

        Dim decsalary As Decimal

        Try

            'deklarasi untuk salary dan pay terhadap text box

            salary = CDec(txt_salary.Text)

            pay = CInt(txt_pay.Text)

            'hitungan

            decsalary = salary / pay

            lbl_hasil.Text = decsalary.ToString("c")

        Catch

            lbl_status.Text = "Eroor = Be sure enter is no zero " & "numeric values"

        End Try

    End Sub

End Class

Latihan 3

1. Buat form baru

2. Buat Interface dibawah ini

3. Masukan Koding dibawah ini

Public Class Form3

    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click

        Dim salary As Decimal

        Dim pay As Integer

        Dim decsalary As Decimal

        Try

            salary = CDec(txt_salary.Text) 'txt_salary dijadikan desimal dan di deklarasi dari deklarasi salary yang diatas agar nanti bisa dibagi

            Try

                pay = CInt(txt_pay.Text) ' txt_pay dijadikan interger dan dideklarasikan dari pay yang diatas agar nanti bisa dibagi

                Try

                    decsalary = salary / pay ' hitungan

                    lbl_hasil.Text = decsalary.ToString("c") 'hasil decsalary dijadikan string

                Catch

                    lbl_status.Text = "pay periods cannot be zero " ' eroro untuk pay periods

                End Try

            Catch

                    lbl_status.Text = " pay perids must be integer" ' eror message untuk tex box pay periods

                End Try

            Catch

                lbl_status.Text = "enter a numeric value for salary" ' eror untuk text box salary

            End Try

        End Sub

End Class

Latihan 4

Public Class Form3

    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click

        Dim salary As Decimal

        Dim pay As Integer

        Dim decsalary As Decimal

        Try

            salary = CDec(txt_salary.Text) 'txt_salary dijadikan desimal dan di deklarasi dari deklarasi salary yang diatas agar nanti bisa dibagi

            Try

                pay = CInt(txt_pay.Text) ' txt_pay dijadikan interger dan dideklarasikan dari pay yang diatas agar nanti bisa dibagi

                Try

                    decsalary = salary / pay ' hitungan

                    lbl_hasil.Text = decsalary.ToString("c") 'hasil decsalary dijadikan string

                Catch

                    lbl_status.Text = "pay periods cannot be zero " ' eroro untuk pay periods

                End Try

            Catch

                    lbl_status.Text = " pay perids must be integer" ' eror message untuk tex box pay periods

                End Try

            Catch

                lbl_status.Text = "enter a numeric value for salary" ' eror untuk text box salary

            End Try

        End Sub

End Class

Latihan 4

1. Buat Form baru

2. Buat interface seperti dibawah ini

3. Masukan Koding dibawah ini

Public Class Form4

    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click

        Dim salary As Decimal

        Dim pay As Integer

        Dim decsalary As Decimal

        Try

            salary = CDec(txt_salary.Text)

            pay = CInt(txt_pay.Text)

            decsalary = salary / pay ' hitungan

            lbl_hasil.Text = decsalary.ToString("c") ' tampil hasil dan di konversi ke string

        Catch ex As InvalidCastException ' Perintah ini akan dijalankan apabila yang kita masukan bukan angka

            lbl_status.Text = " Eroor : Input must be Numeric"

        Catch ex As DivideByZeroException ' Perintah akan dijalankan apabila yang dimasukan adalah nol pada txt_pay

            lbl_status.Text = "Erorr : Enter Non zero values"

        End Try

    End Sub

End Class

Latihan 5

Pertemuan 5

1. Buat Projek baru
2. buat tampilan seperti dibawah ini

3. masukan koding dibawah ini

Public Class Form1
    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click
        Dim skor1 As Double
        Dim skor2 As Double
        Dim skor3 As Double
        Dim rata2 As Double

        Const num_scores As Integer = 3 ' jumlah skor yang ada, dihitung menurut jumlah tex box
        Const high_scores As Integer = 95.0

        Try
            skor1 = CDbl(txt_skor1.Text)
            skor2 = CDbl(txt_skor2.Text)
            skor3 = CDbl(txt_skor3.Text)

            rata2 = (skor1 + skor2 + skor3) / num_scores

            lbl_rata.Text = rata2.ToString("n2")

            If rata2 > high_scores Then lbl_ucapan.Text = "Selamat !! Nilai anda bagus"

        Catch
            lbl_ucapan.Text = "Scores harus angka"

        Catch ex As Exception

        End Try

    End Sub

    Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click
        txt_skor1.Clear()
        txt_skor2.Clear()
        txt_skor3.Clear()
        lbl_rata.Text = ""
        lbl_ucapan.Text = ""
    End Sub

    Private Sub btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click
        Me.Close()

    End Sub
End Class

latihan 2

1. Buat form baru

2. buat interface seperti dibawah ini

3. Masukan koding dibawah ini

Public Class Form2

    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click

        Dim skor1 As Double

        Dim skor2 As Double

        Dim skor3 As Double

        Dim rata2 As Double

        Const num_scores As Integer = 3 ' jumlah skor yang ada, dihitung menurut jumlah tex box

        Const high_scores As Integer = 95.0

        skor1 = CDbl(txt_skor1.Text)

            skor2 = CDbl(txt_skor2.Text)

            skor3 = CDbl(txt_skor3.Text)

            rata2 = (skor1 + skor2 + skor3) / num_scores

            lbl_rata.Text = rata2.ToString("n2")

        If rata2 > high_scores Then

            lbl_ucapan.Text = "Selamat !! Nilai anda bagus"

        Else

            lbl_ucapan.Text = "Coba Lagi"

        End If

    End Sub

    Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click

        txt_skor1.Clear()

        txt_skor2.Clear()

        txt_skor3.Clear()

        lbl_rata.Text = ""

        lbl_ucapan.Text = ""

    End Sub

    Private Sub btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click

        Me.Close()

    End Sub

End Class

Latihan 3

1. buat form baru

2. buat interface seperti dibawah ini

3. Masukan koding dibawah ini

Public Class Form3

    Private Sub btn_hitung_Click(sender As Object, e As EventArgs) Handles btn_hitung.Click

        Dim skor1 As Double

        Dim skor2 As Double

        Dim skor3 As Double

        Dim rata2 As Double

        Const num_scores As Integer = 3 ' jumlah skor yang ada, dihitung menurut jumlah tex box

        Const high_scores As Integer = 95.0

        skor1 = CDbl(txt_skor1.Text)

        skor2 = CDbl(txt_skor2.Text)

        skor3 = CDbl(txt_skor3.Text)

        rata2 = (skor1 + skor2 + skor3) / num_scores

        lbl_rata.Text = rata2.ToString("n2")

        If rata2 > high_scores Then

            lbl_ucapan.Text = "Selamat !! Nilai anda bagus"

        Else

            lbl_ucapan.Text = "Coba Lagi"

        End If

    End Sub

End Class

Pertemuan 3

Latihan 1

1. Buat Project baru

2 buat interface seperti ini

 3. Masukan koding dibawah ini

Public Class Form1

    Private Sub btn_show_Click(sender As Object, e As EventArgs) Handles btn_show.Click

        lbl_ucap.Text = "Hello" + txt_nama.Text

    End Sub

End Class

Latihan 2

1. Buat form Baru

2. Buat Interface seperti ini

3. Masukan koding dibawah ini

Public Class Form2

    Private Sub btn_show_Click(sender As Object, e As EventArgs) Handles btn_show.Click

        lbl_ucapan.Text = txt_dayweek.Text & " , " & txt_month.Text & ", " & txt_daymonth.Text & ", " & txt_year.Text

    End Sub

    Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click

        txt_daymonth.Clear()

        txt_dayweek.Clear()

        txt_month.Clear()

        txt_year.Clear()

        lbl_ucapan.Text = String.Empty

        txt_dayweek.Focus()

    End Sub

    Private Sub btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click

        Me.Close()

    End Sub

End Class

Latihan 3

1. buat form baru

2. buat interface seperti ini

3. Masukan koding dibawah ini

Public Class Form3

    Private Sub btn_show_Click(sender As Object, e As EventArgs) Handles btn_show.Click

        lbl_full.Text = txt_awal.Text & " " & txt_akhir.Text

    End Sub

    Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click

        txt_akhir.Clear()

        txt_awal.Clear()

        lbl_full.Text = String.Empty

    End Sub

    Private Sub btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click

        Me.Close()

    End Sub

End Class

Latihan 4

1. buat form baru

2. buat interface seperti ini

3. Masukan koding dibawah ini

Public Class Form4

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles txt_satu.TextChanged

    End Sub

    Private Sub btn_tambah_Click(sender As Object, e As EventArgs) Handles btn_tambah.Click

        txt_hasil.Text = CDec(txt_satu.Text) + CDec(txt_dua.Text)

    End Sub

    Private Sub btn_kurang_Click(sender As Object, e As EventArgs) Handles btn_kurang.Click

        txt_hasil.Text = CDec(txt_satu.Text) - CDec(txt_dua.Text)

    End Sub

    Private Sub btn_bagi_Click(sender As Object, e As EventArgs) Handles btn_bagi.Click

        txt_hasil.Text = CDec(txt_satu.Text) / CDec(txt_dua.Text)

    End Sub

    Private Sub btn_kali_Click(sender As Object, e As EventArgs) Handles btn_kali.Click

        txt_hasil.Text = CDec(txt_satu.Text) * CDec(txt_dua.Text)

    End Sub

    Private Sub btn_bagiint_Click(sender As Object, e As EventArgs) Handles btn_bagiint.Click

        txt_hasil.Text = CDec(txt_satu.Text) \ CDec(txt_dua.Text)

    End Sub

    Private Sub btn_pangkat_Click(sender As Object, e As EventArgs) Handles btn_pangkat.Click

        txt_hasil.Text = CDec(txt_satu.Text) ^ CDec(txt_dua.Text)

    End Sub

    Private Sub btn_mod_Click(sender As Object, e As EventArgs) Handles btn_mod.Click

        txt_hasil.Text = CDec(txt_satu.Text) Mod CDec(txt_dua.Text)

    End Sub

    Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click

        txt_dua.Clear()

        txt_satu.Clear()

        txt_hasil.Clear()

        txt_satu.Focus()

    End Sub

    Private Sub btn_close_Click(sender As Object, e As EventArgs) Handles btn_close.Click

        Me.Close()

    End Sub

End Class