Membuat Koneksi Database, Validasi dan CRUD Menggunakan Microsoft Visual Studio

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.

Program Form Menggunakan Visual Studio 2017

Membuat Program Form Menggunakan Visual Studio 2017

  1.  Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Nama, Jenis Kelamin, Fakultas), textbox, 2 buah combobox dan Button tampilkan .

      

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

Public Class Form1

    Private Sub btnTampil_Click(sender As Object, e As EventArgs) Handles btnTampil.Click

        MessageBox.Show(txtnama.Text & vbCrLf & cbojeniskelamin.Text & vbCrLf & cbofakultas.Text,

                         "Hasil Pengisian", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

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

Program Belanja Sederhana Menggunakan Visual Studio 2017

Membuat Program Belanja Sederhana Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Nama Barang, Harga Satuan, Jumlah Barang, Total Harga, Diskon, Total Bayar, Bonus), textbox dan 3 buah button (Hitung, Ulang, Keluar).

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

    

Public Class Form1

    Private Sub btnulang_Click(sender As Object, e As EventArgs) Handles btnulang.Click

        'membersihkan ini text box

        txtNama.Text = ""

        txtHarga.Text = ""

        txtJumlah.Text = ""

        txtTotal.Text = ""

        txtDiskon.Text = ""

        txtBayar.Text = ""

        txtBonus.Text = ""

        txtNama.Focus()

    End Sub

    Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click

        'Deklarasi

        Dim Harga, Jumlah As Integer

        Dim Total, Diskon, Bayar As Double

        Dim Bonus As String

        'Deklarasi input harga dan jumlah

        Harga = txtHarga.Text

        Jumlah = txtJumlah.Text

        'Perhitungan Total harga

        Total = Harga * Jumlah

        'Penentuan Diskon dan bonus

        If Total >= 500000 Then

            Diskon = 0.2 * Total

            Bonus = "Tas Pinggang"

        ElseIf Total >= 200000 Then

            Diskon = 0.15 * Total

            Bonus = "Payung"

        ElseIf Total >= 100000 Then

            Diskon = 0.1 * Total

            Bonus = "Kaos"

        ElseIf Total >= 50000 Then

            Diskon = 0.05 * Total

            Bonus = "Pulpen"

        Else

            Diskon = 0

            Bonus = "Tidak ada"

        End If

        'Perhitungan Total bayar

        Bayar = Total - Diskon

        'Deklarasi keluaran semua

        txtTotal.Text = Total

        txtDiskon.Text = Diskon

        txtBayar.Text = Bayar

        txtBonus.Text = Bonus

    End Sub

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

        End

    End Sub

End Class

3. Hasil tampilan program form belanja sederhana.

a.       ini pada barang untuk mendapatkan Bonus Tas Pinggang.

b.   ini pada barang untuk mendapatkan Bonus Payun

c.       ini pada barang untuk mendapatkan Bonus Kaos

d.      ini pada barang untuk mendapatkan Bonus Pulpen

e.       ini pada barang apabila tidak mendapatkan bonus