Aplikasi Perhitungan Transaksi Pembelian Sederhana Menggunakan VB.Net
Assalamualaikum wr.wb
Semangat pagi semua...!!!, hari ini saya akan mencoba untuk berbagi sedikit ilmu tentang pembuatan aplikasi sederhana dengan menggunakan VB.Net. Semoga apa yang saya tulis pada blog saya ini dapat bermanfaat untuk kita semua. amiiin...
Pada kesempatan kali ini saya akan berbagi mengenai bagaimana cara membuat aplikasi perhitungan transaksi pembelian sederhana dengan vb.net. dibawah ini adalah tampilan dari aplikasi yang akan kita buat.
Aturan perhitungan dari aplikasi yang saya buat adalah sebagai berikut :
- Total Harga = harga satuan * jumlah porsi
- Total Pembelian = Total Harga - Potongan Harga
- Potongan Harga :
Jika Total Harga < 50000, maka potongan harga = 0%
Jika Total Harga < = 150000, maka potongan harga = 5%
Jika Total Harga > 150000, maka potongan harga = 10% - Kembalian = Harga Bayar - Total Pembelian
Setelah kita mengetahui aturan perhitungan dari aplikasi yang akan kita buat, sekarang kita langsung ke pembuatan aplikasi perhitungan transaksi pembelian-nya.
Langkah Pertama :
Persiapkan sebuah form dengan nama form "Aplikasi" dan desain tampilan seperti gambar diatas. Berikut ini adalah tools yang digunakan :
Tools
|
Name
|
Text
|
Keterangan
|
Label1
|
Label1
|
APLIKASI PERHITUNGAN TRANSAKSI
PEMBELIAN
|
-
|
Label2
|
Label2
|
Jenis Makanan
|
-
|
Label3
|
Label3
|
Harga Satuan
|
-
|
Label4
|
Label4
|
Jumlah Porsi
|
-
|
Label5
|
Label5
|
Jenis Minuman
|
-
|
Label6
|
Label6
|
Harga Satuan
|
-
|
Label7
|
Label7
|
Jumlah Porsi
|
-
|
Label8
|
Label8
|
Total
|
-
|
Label9
|
Label9
|
Total Pembelian
|
-
|
Label10
|
Label10
|
Bayar
|
-
|
Label11
|
Label11
|
Potongan Harga
|
-
|
Label12
|
Label12
|
Kembalian
|
-
|
Label13
|
Label13
|
Catatan : Total < 50000, Discount 0%
|
-
|
Label14
|
Label14
|
Total <= 150000, Discount 5%
|
-
|
Label15
|
Label15
|
Total > 150000, Discount 10%
|
-
|
Label16
|
Label16
|
Created by: - - - - - - - - -
|
-
|
ComboBox1
|
Makanan
|
-
|
-
|
ComboBox2
|
Minuman
|
-
|
-
|
TextBox1
|
hrgMakanan
|
-
|
Enabled = false
|
TextBox2
|
qtyMakana
|
-
|
-
|
TextBox3
|
hrgMinuman
|
-
|
Enabled = false
|
TextBox4
|
qtyMinuman
|
-
|
-
|
TextBox5
|
total
|
-
|
Enabled = false
|
TextBox6
|
totalBeli
|
-
|
Enabled = false
|
TextBox7
|
Bayar
|
-
|
-
|
TextBox8
|
kembalian
|
-
|
Enabled = false
|
RadioButton1
|
Ph1
|
0%
|
-
|
RadioButton2
|
Ph2
|
5%
|
-
|
RadioButton3
|
Ph3
|
10%
|
-
|
Button1
|
Hitung
|
Hitung
|
-
|
Button2
|
Cetak
|
Cetak
|
-
|
Button3
|
Clear
|
Clear
|
-
|
Button4
|
Button5
|
Button5
|
-
|
Langkah Kedua :
Tambahkan sebuah class baru pada file project dengan nama 'ClassOperasi', dan berikut ini adalah script untuk ClassOperasi :
Public Class ClassOperasi
Public Function totMakan(ByVal hrgMakan As Integer, ByVal qtyMakan As Integer) As Integer
Dim TMakan As Integer
TMakan = hrgMakan * qtyMakan
totMakan = TMakan
End Function
Public Function totMinum(ByVal hrgMinum As Integer, ByVal qtyMinum As Integer) As Integer
Dim TMinum As Integer
TMinum = hrgMinum * qtyMinum
totMinum = TMinum
End Function
End Class
// Berikutnya adalah script atau source code untuk form "Aplikasi" ://
Public Class Aplikasi
Dim discount As Double = 0
Dim TMakan = 0, TMinum = 0, totalnya, totbelinya As Integer
Dim ObjOperasi As ClassOperasi
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Close()
End Sub
Private Sub makanan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles makanan.SelectedIndexChanged
Select Case makanan.Text
Case "Bakso Urat"
hrgMakan.Text = "10000"
Case "Bakso Tahu"
hrgMakan.Text = "8000"
Case "Bakso Daging"
hrgMakan.Text = "9000"
Case "Bakso Keju"
hrgMakan.Text = "10000"
Case "Bakso Rudal"
hrgMakan.Text = "12000"
Case "Bakso Setan"
hrgMakan.Text = "15000"
End Select
End Sub
Private Sub Minuman_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minuman.SelectedIndexChanged
Select Case Minuman.Text
Case "Es Teh Manis"
hrgMinum.Text = "3000"
Case "Es Kelapa Muda"
hrgMinum.Text = "5000"
Case "Es Teler"
hrgMinum.Text = "8000"
Case "Teh Manis Hangat"
hrgMinum.Text = "3000"
Case "Teh Botol"
hrgMinum.Text = "4000"
Case "Teh Kotak"
hrgMinum.Text = "4000"
Case "Jus Alpukat"
hrgMinum.Text = "8000"
Case "Jus Jambu"
hrgMinum.Text = "8000"
Case "Jus Alpukat"
hrgMinum.Text = "8000"
End Select
End Sub
Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click
ObjOperasi = New ClassOperasi
TMakan = ObjOperasi.totMakan(Val(hrgMakan.Text), Val(qtyMakan.Text))
TMinum = ObjOperasi.totMinum(Val(hrgMinum.Text), Val(qtyMinum.Text))
totalnya = TMakan + TMinum
total.Text = totalnya
End Sub
Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click
makanan.Text = ""
hrgMakan.Text = ""
qtyMakan.Text = ""
Minuman.Text = ""
hrgMinum.Text = ""
qtyMinum.Text = ""
total.Text = ""
totalBeli.Text = ""
bayar.Text = ""
ph1.Checked = False
ph2.Checked = False
ph3.Checked = False
kembalian.Text = ""
End Sub
Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged
If total.Text <> "" Then
If Val(total.Text) < 50000 Then
ph1.Checked = True
ph2.Checked = False
ph3.Checked = False
totbelinya = totalnya - (0 * totalnya)
totalBeli.Text = totbelinya
ElseIf Val(total.Text) <= 150000 Then
ph1.Checked = False
ph2.Checked = True
ph3.Checked = False
totbelinya = totalnya - ((5 * totalnya) / 100)
totalBeli.Text = totbelinya
Else
ph1.Checked = False
ph2.Checked = False
ph3.Checked = True
totbelinya = totalnya - ((10 * totalnya) / 100)
totalBeli.Text = totbelinya
End If
End If
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cetak.Click
kembalian.Text = Val(bayar.Text) - Val(totalBeli.Text)
End Sub
End Class
Demikian proses pembuatan aplikasi perhitungan transaksi pembelian sederhana dengan menggunakan vb.net, semoga bermanfaat dan selamat mencoba... :)
0 komentar:
Posting Komentar