Aplikasi Penjualan Motor HRC Motorcycle
Penjelasan Program Aplikasi
Pada tugas UAS Lab Pemrograman Bisnis 1 ini saya membuat sebuah program aplikasi untuk membantu perusahaan dalam penjualan produk barang atau jasa yang diperjualbelikan/ ditawarkan kepada pelanggan. Sebagai contoh, kali ini saya membuat sebuah program aplikasi untuk membantu pelanggan dalam memilih dan membeli sebuah motor di perusahaan HRC Motorcycle. Program Aplikasi ini dapat memudahkan pelanggan membeli motor dengan mengetahui spesifikasi motor,besar pajak yg dikenakan per motor,total pajak dan total harga setelah kena pajak.
ScreenShoot
- Design yang diperlukan untuk membuat program aplikasi ini :
Cara Menggunakan Program Aplikasi ini
1. Pilih Jenis Motor yang ingin anda beli
*Harga Motor akan keluar otomatis setelah pemilihan jenis motor dilakukan
2. Isi nama(bebas) dan klik tombol 'Cek' untuk mengetahui Spesifikasi Motor dan sekaligus mengetahui daftar Pajak Motor yang dikenakan pada setiap motor
-Sebagai contoh pelanggan membeli motor Honda CBR1000RR maka pajak yang dikenakan adalah sebesar 10%
#Catatan : apabila Jenis Motor dan harga dikosongkan maka akan terjadi error pada aplikasi ini dan keluar messagge box seperti ini :
3. Setelah pemilihan Jenis Motor dilakukan,langkah selanjutnya adalah klik tombol 'Beli' untuk membeli dan mengetahui besar total pajak + total harga motor setelah kena pajak
4. Langkah terakhir adalah klik tombol 'Selesai' untuk keluar dari program aplikasi ini maka akan keluar messagebox "Yakin Keluar?" kalau 'Yes' maka akan langsung keluar dari aplikasi ini dan 'No' akan kembali ke aplikasi tersebut
Source Coding :
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim a As String
a = ComboBox1.Text
If a = "Kawasaki h2r" Then
TextBox1.Text = 30000000
ElseIf a = "Yamaha R1" Then
TextBox1.Text = 26000000
ElseIf a = "Honda CBR1000RR" Then
TextBox1.Text = 32000000
ElseIf a = "Hayababusa GSX1300R" Then
TextBox1.Text = 35000000
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OFD1.Filter = "Text files |*.txt|All files|*.*|Document file|*.Doc"
OFD1.DefaultExt = "*.txt"
OFD1.ShowDialog()
Dim nomorfile1 As Integer
nomorfile1 = FreeFile()
FileOpen(nomorfile1, OFD1.FileName, OpenMode.Input)
RichTextBox2.Text = InputString(nomorfile1, LOF(nomorfile1))
Dim nomorfile As Integer
nomorfile = FreeFile()
FileOpen(nomorfile, "D:\PajakMotor.txt", OpenMode.Input)
RichTextBox1.Text = InputString(nomorfile, LOF(nomorfile))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim a As String
Dim Harga As Double
Dim TotHarga As Double
a = ComboBox1.Text
Harga = Val(TextBox1.Text)
If a = "Kawasaki h2r" Then
TextBox1.Text = Harga
TextBox3.Text = Val(Harga * 0.05)
ElseIf a = "Yamaha R1" Then
TextBox1.Text = Harga
TextBox3.Text = Val(Harga * 0.05)
ElseIf a = "Honda CBR1000RR" Then
TextBox1.Text = Harga
TextBox3.Text = Val(Harga * 0.1)
ElseIf a = "Hayababusa GSX1300R" Then
TextBox1.Text = Harga
TextBox3.Text = Val(Harga * 0.1)
ElseIf MsgBox("Tolong Input/Masukkan pilihan Jenis Motor", MsgBoxStyle.Critical, "Peringatan") Then
TextBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
End If
TextBox4.Text = Val(Harga + TextBox3.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If MessageBox.Show("Yakin Keluar?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Me.Close()
End If
End Sub
End Class
--------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------
Sekian posting tugas uas lab pemrograman bisnis 1 saya kali ini, terima kasih dan semoga bermanfaat...
