Program Array Multi Dimensi Menggunakan Microsft Visual Studio 2017

Membuat Program Array Multi Dimensi Menggunakan Microsft Visual Studio 2017

1.  Mendesain Form terlebih dahulu

    Dibawah ini merupakan tampilan desain program yang memiliki label (NIM, Nama, Kelamain,  PRODI), textbox, dan Button Tambah .

a.  Fungsi dari Label yang terdapat pada microsft visual sendiri adalah sebagai penamaan suatu teks atau judul untuk tampilan tersebut,

b.   Fungsi dari text box adalah untuk agar saat program di jalankan dapat mengisi form yang kosong tersebut(text box),

c.    Fungsi dari Combo box adalah Menampilkan data dalam bentuk kotak berdaftar yang telah terisi jadi tinggal memilih data yang sudah terdaftar tersebut.

d.   Fungsi dari Button adalah inti dari semua proses tampilan yang dijalankan dan melalui buton ini program mengcoding dijalankan. butto nya sendri yaitu Tambah untuk menambahkan data pada program Array multi dimensi.

e. Fungsi dari Listview adalah menampilkan data yang telah di inputkan yang menapilkan sebuah teks sesuai dengan Array multi dimensi.

  2. Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

        Dim Arr(3, 1) As String

        Arr(0, 0) = "NIM"

        Arr(0, 1) = "NAMA"

        Arr(1, 0) = "JENIS KELAMIN"

        Arr(1, 1) = "PRODI"

        Arr(2, 0) = "Laki - laki"

        Arr(2, 1) = "Perempuan"

        Arr(3, 0) = "Sistem Informasi"

        Arr(3, 1) = "Komputerisasi Akuntansi"

        ListView1.GridLines = True

        ListView1.View = View.Details

        For Baris = 0 To 1

            For Kolom = 0 To 1

                ListView1.Columns.Add(Arr(Baris, Kolom), 100)

            Next Kolom

        Next Baris

        For Baris = 2 To 2

            For Kolom = 0 To 1

                ListView1.Columns.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

        For Baris = 3 To 3

            For Kolom = 0 To 1

                ListView1.Columns.Add(Arr(Baris, Kolom))

            Next Kolom

        Next Baris

    End Sub

    Private Sub btnProses_Click(sender As Object, e As EventArgs) Handles btnProses.Click

        Dim Arr(3) As String

        Arr(0) = txtNIM.Text

        Arr(1) = txtNama.Text

        Arr(2) = cbKelamin.Text

        Arr(3) = cbProdi.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        listitem = ListView1.Items.Add(Arr(0))

        listitem.SubItems.Add(Arr(1))

        listitem.SubItems.Add(Arr(2))

        listitem.SubItems.Add(Arr(3))

        txtNIM.Text = txtNIM.Text + 1

        txtNama.Text = ""

        cbKelamin.Text = ""

        cbProdi.Text = ""

        txtNama.Focus()

    End Sub

End Class

  3.  Salah satu property pada Desain tampilan program tadi.

    Disini kita dapat megedit seluruh desain yang kita inginkan yang dimana sebelum nya menggunakan toolbox “btnProses”.

  4. Setelah Selesai Jalankan atau Running Program

    Tampilan hasil running pada program Percobaan Form ketikan sudah selesai mingisi data dan mengklik tampilkan hasil.

Program Procedure, Function, dan Module Menggunakan Microsoft Visual Studio 2017

Membuat Program Procedure, Function, dan Module Menggunakan Microsoft Visual Studio 2017 

Procedure (Prosedur)

Sejauh ini, anda telah menuliskan sub procedure yang dibuat secara otomatis pada saat menggunakan event . Sub procedure merupakan blok kode yang mempunyai nama dan berisi perintah yang dapat dipanggil suatu waktu. Artinya, hanya sekali dibuat yang kemudian di panggil berkali-kali sesuai dengan kebutuhan.

Function (Fungsi)

Fungsi mempunyai banyak kemiripan dengan sub procedure. Bedanya, fungsi selalu mengembalikan nilai (return value) Sintaks fungsi dituliskan.

Module (Modul)

Modul merupakan bagian yang sengaja dipisahkan untuk memudahkan pemrograman. Dalam module dapat dimasukkan procedure dan fungsi dan kemudian digunakan oleh beberapa form.

• Umumnya modul dideklarasikan secara public (public) agar dapat digunakan di dalam kode dimanapun
• Modul dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai.
•  Modul merupakan salah satu argumentasi code  reuse yang bertujuan agar program lebih efesien

  1. Mendesain Form terlebih dahulu

      Dibawah ini merupakan tampilan desain program yang memiliki label (Kode Barang, Nama Barang, Satuan, Harga Satuan, Jumlah, Total Harga), textbox, dan Button Hitung .

a.    Fungsi dari Label yang terdapat pada microsft visual sendiri adalah sebagai penamaan suatu teks atau judul untuk tampilan tersebut,

b.    Fungsi dari text box adalah untuk agar saat program di jalankan dapat mengisi form yang kosong tersebut(text box),

c.   Fungsi dari Button adalah inti dari semua proses tampilan yang dijalankan dan melalui buton ini program mengcoding dijalankan. button nya sendri yaitu Tambah untuk menambahkan data pada program Procedure, Function, dan Module.

  2. Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Sub Bersih()

        txtKodebrg.Text = ""

        txtNamabrg.Text = ""

        txtSatuan.Text = ""

        txtHrgaSatuan.Text = ""

        txtJumlah.Text = ""

        txtTotal.Text = ""

        txtKodebrg.Focus()

        txtTotal.Enabled = False

    End Sub

    Private Sub btnBersih_Click(sender As Object, e As EventArgs) Handles btnBersih.Click

        Call Bersih()

    End Sub

    Private Function Hitung()

        Dim Jumlah, hrgSatuan, Total As Integer

        Jumlah = txtJumlah.Text

        hrgSatuan = txtHrgaSatuan.Text

        Total = Jumlah * hrgSatuan

        txtTotal.Text = Total

        Return Total

    End Function

    Sub CekDataKosong()

        If txtKodebrg.Text = "" Then

            MessageBox.Show("Kode Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtKodebrg.Focus()

        ElseIf txtNamabrg.Text = "" Then

            MessageBox.Show("Nama Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtNamabrg.Focus()

        ElseIf txtSatuan.Text = "" Then

            MessageBox.Show("Satuan Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtSatuan.Focus()

        ElseIf txtHrgaSatuan.Text = "" Then

            MessageBox.Show("Harga Satuan harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtHrgaSatuan.Focus()

        ElseIf txtJumlah.Text = "" Then

            MessageBox.Show("Jumlah Barang harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Warning)

            txtJumlah.Focus()

        Else

            Call Hitung()

        End If

    End Sub

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        Call CekDataKosong()

    End Sub

    Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

        Dim Tutup As String

        Tutup = MessageBox.Show("Yakin Ingin Tutup Form Ini?", "Konfirmasi",

        MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Tutup = MsgBoxResult.Yes Then

            End

        Else

            Exit Sub

        End If

    End Sub

  3.  Salah satu property pada Desain tampilan program tadi.

     Disini kita dapat megedit seluruh desain yang kita inginkan yang dimana sebelum nya menggunakan toolbox “btnHitung”. 

  4. Setelah Selesai Jalankan atau Running Program

Tampilan hasil running pada program Percobaan Form ketikan sudah selesai mingisi data dan mengklik tampilkan hasil.

Apabila ada data yang diinputkan kosong maka akan muncul tampilan seperti berikut.

Program Array Satu Dimensi Menggunkan Microsft Visual Studio 2017

Membuat Program Array Satu Dimensi Menggunkan Microsft Visual Studio 2017

  1. Mendesain Form terlebih dahulu

      Dibawah ini merupakan tampilan desain program yang memiliki label (NIM, NAMA, PRODI), textbox, dan Button Tambah .

a.    Fungsi dari Label yang terdapat pada microsft visual sendiri adalah sebagai penamaan suatu teks atau judul untuk tampilan tersebut,

b.    Fungsi dari text box adalah untuk agar saat program di jalankan dapat mengisi form yang kosong tersebut(text box),

c.   Fungsi dari Button adalah inti dari semua proses tampilan yang dijalankan dan melalui buton ini program mengcoding dijalankan. butto nya sendri yaitu Tambah untuk menambahkan data pada program Array satu dimensi.

d.  Fungsi dari Listview adalah menampilkan data yang telah di inputkan yang menapilkan sebuah teks sesuai dengan Array satu dimensi

  2. Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

        ListView1.GridLines = True

        ListView1.View = View.Details

        ListView1.Columns.Add("NIM")

        ListView1.Columns.Add("NAMA", 115)

        ListView1.Columns.Add("PRODI", 110)

        txtNIM.Text = 1

        txtNama.Focus()

    End Sub

    Private Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnTambah.Click

        Dim Arr(2) As String

        Arr(0) = txtNIM.Text

        Arr(1) = txtNama.Text

        Arr(2) = txtProdi.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        listitem = ListView1.Items.Add(Arr(0))

        listitem.SubItems.Add(Arr(1))

        listitem.SubItems.Add(Arr(2))

        txtNIM.Text = txtNIM.Text + 1

        txtNama.Text = ""

        txtProdi.Text = ""

        txtNama.Focus()

  

    End Sub

End Class

  3.  Salah satu property pada Desain tampilan program tadi.

     Disini kita dapat megedit seluruh desain yang kita inginkan yang dimana sebelum nya menggunakan toolbox “btnTambah”. 

  4. Setelah Selesai Jalankan atau Running Program

Tampilan hasil running pada program Percobaan Form ketikan sudah selesai mingisi data dan mengklik button tambah.