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.
Tidak ada komentar:
Posting Komentar