Konsep
Program Aplikasi Prosedur
Dalam
program yang kita buat dengan menggunakan visual basic, kita akan dapatkan
fungsi prosedur. Apa itu prosedur dalam visual basic? Prosedur adalah langkah
untuk menyederhanakan tugas-tugas
pemrograman dengan cara memecahkan dalam bentuk program yang kecil dengan
menggunakan statement yang telah dibuat tanpa harus merubah satement tersebut,
sehingga dapat kita gunakan pada statement lainnya. Prosedur ini tidak dapat
mengembalikan nilai. Prosedur dapat dibagi menjadi sub dan call. Perbedaan sub
dengan call adalah, jika sub biasanya setelah kata sub adalah verb. Sedangkan
call, biasanya ditulis dengan Me.
Jadi dengan menggunakan call, program tersebut memanggil statement yang telah
dibuat tanpa harus menulis statement lagi.
Tujuan
dari aplikasi dengan menggunakan prosedur adalah memudahkan user dengan
melakukan panggilan statement yang telah dibuat tanpa harus menulis kembali
statement itu lagi. Pembuatan aplikasi ini dibuat untuk memasukan nama barang
beserta tanggal, jumlah, kode, dan harganya. Sehingga, pada suatu waktu
membutuhkan data barang yang telah masuk maka pengguna aplikasi ini tinggal
mencari data barang yang telah dimasukan datanya.
Biasanya penerapan aplikasi
ini dibutuhkan di pabrik dengan mengelola sejumlah barang yang masuk dan keluar
dalam jumlah yang besar. Sehingga dapat dipastikan bahwa aplikasi ini sangat
bermanfaat. Inti dari aplikasi ini adalah dengan menggunakan prosedur pada
pembuatan aplikasi dengan menggunakan visual basic.
Tutorial
Penggunaan Program Aplikasi Prosedur
Telah dijelaskan mengenai konsep dari
program aplikasi prosedur yang kelompok kami buat, lalu dijelaskan bagaimana
menuliskan listing pada visual basic. Sekarang kami akan menjelaskan mengenai
bagaimana cara penggunaan aplikasi ini. Berikut adalah langkah-langkah
penggunaan program aplikasi ini, selamat mencobanya J
1.
Buka
aplikasinya
2.
Lalu
masukan barang dengan klik button add.
3.
Pada
pengisian form barang, pilih tanggal dimasukannya barang, lalu masukan nama
barang, kode, harga, jumlah. Jika ingin mengganti data, klik button clear maka
data yang telah diinputkan tadi hilang, kemudian dapat mengisikan data dari
awal. Jika data yang dimasukan benar maka klik button hitung maka hasil akan
muncul, lalu klik save jika data ingin disimpan. Selanjutnya klik button exit.
4.
Maka
akan kembali pada menu utama, jika ingin memasukan barang maka klik button add,
yang mana langkah pengisian form barang sama seperti pada nomer tiga. Jika
ingin mengecek barang yang telah dimasukan tadi datanya, maka klik button
search. Lalu masukan kode barang, maka keterangan mengenai data barang yang
telah dimasukan akan muncul dalam bentuk massage box. Klik ok.
5.
Kembali
lagi pada menu utama, kita dapat memilih langkah nomer tiga atau empat. Jika
sudah selesai menggunakan aplikasi ini maka klik close untuk keluar dari
program.
Demikian
penjelasan mengenai tutorial bagaimana cara menggunakan program aplikasi ini.
Semoga teman-teman menikmatinya dan dapat bermanfaat bagi yang membaca dan
mencobanya. Terima kasih.
TUTORIAL
1.
Pada visual basic 2010 buka form baru lalu buat
sampai tampilan seperti ini
2. Membuat
modul baru lalu masukan listing sebagai berikut
Dim
a, b As Integer
Dim hitung As Double
Dim namabarang, kode, Harga, jumlah As String
Dim tanggal As Date
listing di atas merupakan bentuk
deklarasi
Sub jumlah(ByVal butt
As Button)
a =
Val(Form3.TextBox2.Text)
b =
Val(Form3.TextBox3.Text)
hitung = a * b
Form3.TextBox6.Text = hitung
End Sub
Sub clear(ByVal butt As Button)
Form3.TextBox6.Text = ""
Form3.TextBox4.Text = ""
Form3.TextBox3.Text = ""
Form3.TextBox2.Text = ""
Form3.TextBox1.Text = ""
End Sub
Sub save()
namabarang = Form3.TextBox1.Text
kode
= Form3.TextBox4.Text
Harga
= Form3.TextBox2.Text
jumlah = Form3.TextBox3.Text
tanggal = Form3.DateTimePicker1.Text
If kode = Nothing Or namabarang = Nothing
Or Harga = Nothing
Or jumlah = Nothing Or tanggal = Nothing Or hitung = Nothing Then
MsgBox("lengkapi data", MsgBoxStyle.Critical, "Perhatian")
Form3.Show()
ElseIf kode = kode Then
Form1.DataGridView1.Rows.Add(namabarang, kode, Harga, jumlah,
hitung, tanggal)
Call clear(Form3.Button1)
End If
End Sub
listing
procedur diatas berfungsi untuk memasukan data yang sudah kita input ke
datagrid
Sub text_keypress(ByVal
e As System.Windows.Forms.KeyPressEventArgs)
If Asc(e.KeyChar) <> 13 AndAlso Asc(e.KeyChar) <> 8 _
AndAlso Not
IsNumeric(e.KeyChar) Then
e.Handled = True
End If
End Sub
Listing procedure diatas berfungsi agar data yang kita
masukan adalah berupa numerik atau angka.
Semua listing diatas berfungsi apabila dalam form kerja
membutuhkan perintah seperti yang tertera dalam listing procedure diatas,
nantinya tinggal memanggil procedur diatas.
3.
Pada button 1 (search) klik dua kali lalu
masukkan listing berikut
Private Sub
search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form2.Show()
End Sub
listing diatas berfungsi untuk
memunculkan form search jika kita menekan tombol search
4.
Pada button 2 (add) klik dua kali lalu masukkan
listing berikut
Private Sub
add_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
Form3.Show()
End Sub
listing diatas berfungsi untuk
memunculkan form add jika kita menekan tombol add
5.
Pada button 3 (close) klik dua kali lalu
masukkan listing berikut
Private Sub
close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Close()
End Sub
listing diatas berfungsi untuk
keluar dari program jika kita menekan tombol close
6. Pada Menu Strip klik dua kali lalu masukkan listing
berikut
Private Sub
SearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
SearchToolStripMenuItem.Click
Form2.Show()
End Sub
listing diatas berfungsi untuk
memunculkan form add jika kita memilih submenu add
Private Sub
AddToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
AddToolStripMenuItem.Click
Form3.Show()
End Sub
listing diatas berfungsi untuk
memunculkan form search jika kita memilih submenu search
Private Sub
ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ExitToolStripMenuItem.Click
Close()
End Sub
listing diatas berfungsi untuk
keluar dari program jika kita memilih submenu exit
7.
Buka form baru dan buat tampilan sebagai berikut
Klik duakali pada
form lalu masukkan listing:
Dim i As Integer
Dim ada As Boolean
Dim indeks As Integer = Nothing
listing di atas merupakan bentuk deklarasi
8.
Pada button 4 (hitung) klik dua kali lalu masukkan
listing berikut
Private Sub
hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
Call jumlahhitung(Button4)
End Sub
Listing di atas berfungsi untuk
memanggil procedur jumlah hitung pada modul1.
9.
Pada button 1 (save) klik dua kali lalu masukkan
listing berikut
Private Sub
save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Call save()
End Sub
Listing di atas
berfungsi untuk memanggil procedur save pada modul1.
10.
Pada button 2 (clear) klik dua kali lalu masukkan
listing berikut
Private Sub
clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Call clear(Button2)
End Sub
Listing di atas berfungsi untuk
memanggil procedur clear pada modul1.
11.
Pada button 3 (exit) klik dua kali lalu masukkan
listing berikut
Private Sub
exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Close()
End Sub
Listing di atas berfungsi untuk
keluar dari form add
12. Pada
textbox1 klik dua kali lalu masukkan listing berikut
Private Sub
textbox1_keypress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsLetter(e.KeyChar) And
Not e.KeyChar = Chr(Keys.Delete)
And Not
e.KeyChar = Chr(Keys.Back) Then
e.Handled = True
End If
End Sub
Listing di atas berfungsi untuk
membatasi data yang kita indput pada textbox1 adalah hanya berupa huruf
13. Pada textbox3 klik dua kali lalu masukkan
listing berikut (berlaku untuk textbox2)
Private Sub
jumlah_keypress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
Call text_keypress(e)
End Sub
Private Sub
harga_keypress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Call text_keypress(e)
End Sub
Pada
Listing diatas berfungsi untuk memanggil procedure text_keypress yang terdapat
di modul1.
14.
Buka form baru dan buat tampilan sebagai berikut
15.
Klik dua kali pala form search lalu masukan
listing sebagai berikut
Dim kode As
String
listing di atas merupakan bentuk
deklarasi
16.
Klik dua kali pada button Search lalu masukan
listing sebagai berikut
Private Sub
Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim i As Integer
Dim ada As Boolean = False
Dim indeks As Integer = Nothing
If TextBox1.Text = TextBox1.Text Then
For i = 0 To
Form1.DataGridView1.RowCount - 1
If ada = False And
Form1.DataGridView1.Item(1, i).Value = TextBox1.Text Then
ada = True
indeks = i
Exit For
End If
Next
If ada Then
TextBox1.Text = Form1.DataGridView1.Item(0, i).Value
Form1.DataGridView1.Focus()
MsgBox("data ditemukan"
& vbCrLf & "data yang anda cari adalah
:" & vbCrLf & "nama barang
masuk : " & " "
& Form1.DataGridView1.Item(0, i).Value & vbCrLf & "kode :" & "
" & Form1.DataGridView1.Item(1, i).Value & "
>>>> " & Form1.DataGridView1.Item((1 + 1),
(i + 1)).ToString & vbCrLf & "harga
per unit :" & " "
& Form1.DataGridView1.Item(2, i).Value & vbCrLf & "Jumlah Barang Masuk :" & " " & Form1.DataGridView1.Item(3,
i).Value & vbCrLf & "Biaya Total :
" & Form1.DataGridView1.Item(4, i).Value & vbCrLf & "Tanggal Masuk : " &
Form1.DataGridView1.Item(5, i).Value, MsgBoxStyle.DefaultButton1,
"PT Indo Jaya Treemustketir")
Me.Close()
ElseIf MsgBox("Data
Tidak Ditemukan", MsgBoxStyle.Critical,
" PT Indo Jaya Treemustketir ") Then
TextBox1.Focus()
End If
End If
End Sub
Pada Listing diatas berfungsi untuk memunculkan data yang kita cari
apabila kode yang kita masukan sesuai data yang telah kita input. Dan nanti
akan dimunculkan melalui masagebox.
Gambar
Flowchart Program Aplikasi Prosedur
Keterangan:
1.
Program ini dimulai dengan start.
2. Ada tiga
proses yaitu add, search, dan close.
3. Pada
proses add, maka pilih tanggal lalu
masukan data pertama. Data pertama yang telah dimasukan tadi dapat dihapus,
jika tidak ingin dihapus maka akan lanjut pada input data kedua begitu
seterusnya sampai data keempat dimasukan lalu jika tidak ingin dihapus data
yang telah dimasukan dari data pertama sampai penginputan data keempat maka
berlanjut ke langkah selanjutnya.
4. Lalu
melakukan perhitungan terhadap data yang dimasukan tadi.
5. Kemudian
hasil akan muncul lalu pilih save. Data disimpan dalam bentuk eksternal data.
6. Setelah
data disimpan, kemudian pilih exit yang
akan kembali pada awal, di mana dapat memilih add, search, atau close. Jika ingin menambahkan barang baru maka
pilih add, di mana langkah
pengisiannya sama seperti langkah di atas.
7. Jika
ingin mengecek maka pilih search,
lalu inputkan kode yang telah dimasukan pada pengisian form tadi.
8. Maka
keterangan akan muncul pada massage box,
lalu pilih ok untuk kembali pada menu utama.
9. Jika
tidak ada yang ingin dimasukan data barang maka pilih close yang merupakan berakhirnya proses dari program aplikasi ini.
Demikian
keterangan berdasarkan aliran kerja dari program aplikasi prosedur ini.
Apliaksi ini bisa didownload disini
Tidak ada komentar:
Posting Komentar