Nama: Abyan Juang Kecci
NPM: 1406629780
1. Screenshot / Tangkapan Layar Aplikasi Pengiriman Barang JNE TIKI
2. Penjelasan & Langkah pengisian Aplikasi Pengiriman JNE TIKI INDO
Fungsinya: Sebagai alat penghitung Pembayaran Jasa Pengiriman yang berdasarkan Provinsi tujuan, Paket, Jenis Barang, Dan Berat Barang.
Langkah-langkah Pengisian Data:
1.) Isikan Nama dan Telpon Pengirim juga Penerima
2.) Pilih Provinsi Tujuan
3.) Isikan Alamat Tujuan dan Kota Tujuan
4.) Pilih Paket yang anda inginkan (Paket YES=1-2 Hari sampai, OKE=3-4 Hari sampai)
5.) Pilih Jenis Barang (jika jenis barang kaca / elektronik harus Mendapatkan biaya asuransi sebesar 25000)
6.) Isikan Tanggal Pengiriman (Terdapat di atas kanan Form)
7.) Isikan Nama barang
8.) Isikan Berat Barang (dalam kg)
9.) Klik Tombol Hitung (untuk menghitung Biaya Pengiriman, Pajak/PPN, serta Total yang harus dibayar)
10.) Klik Tombol Cek (Untuk mengetahui No. Resi anda)
11.) Klik Tombol Cetak (Untuk Mencetak Form anda Isikan tersebut sebagai bukti pengiriman)
12.) Jika ingin dibersihkan List nya klik Tombol Bersihkan
13.) Jika Ingin keluar Klik Tombol Selesai
Keterangan-Keterangan:
*Provinsi Tujuan : sebagai biaya ongkos kepada tujuan berdasarkan Paket (Per-Kg).
- JABODETABEK Paket YES = 8500 / Paket OKE = 5500
- JAWA BARAT Paket YES = 7000 / Paket OKE = 11000
- JAWA TENGAH Paket YES = 16000 / Paket OKE = 22000
- JAWA TIMUR Paket YES = 24000 / Paket OKE = 33000
- BALI Paket YES = 36000 / Paket OKE = 45000
- SUMATERA Paket YES = 20000 / Paket OKE = 27000
- KALIMANTAN Paket YES = 28000 / Paket OKE = 32000
- SULAWESI Paket YES = 40000 / Paket OKE = 48000
- PAPUA Paket YES = 47000 / Paket OKE = 54000
*No. Order sebagai bukti cetak Resi yang diambil dari Provinsi Tujuan yang ditulis:
No. Order =JKT(PROVINSI)(BIAYA BAYAR)
Contoh:
Provinsi JABODETABEK
Bayar 12000
No. Order = JKTJAB12000
*Notes: Tombol Cetak Berfungsi jika semua data yang di input sudah lengkap !
3. Source Code
Public Class Form1
Dim VPaket, a, b, c As Integer
Sub bersih()
Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then
Ctl.Text = ""
End If
Next
For Each Ctl In GroupBox1.Controls
If TypeOf Ctl Is TextBox Then
Ctl.Text = ""
End If
Next
For Each Ctl In GroupBox2.Controls
If TypeOf Ctl Is TextBox Then
Ctl.Text = ""
YES.Checked = False
OKE.Checked = False
End If
Next
For Each Ctl In GroupBox3.Controls
If TypeOf Ctl Is TextBox Then
Ctl.Text = ""
Kaca.Checked = False
Lainnya.Checked = False
End If
Next
ProvinsiTujuan.Text = ""
Tanggal.Text = ""
Bulan.Text = ""
Tahun.Text = ""
End Sub
Sub BersihList()
ListBox1.Items.Clear()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LabelTanggal.Text = DateAndTime.Now
ProvinsiTujuan.Items.Add("JABODETABEK")
ProvinsiTujuan.Items.Add("JAWA BARAT")
ProvinsiTujuan.Items.Add("JAWA TENGAH")
ProvinsiTujuan.Items.Add("JAWA TIMUR")
ProvinsiTujuan.Items.Add("BALI")
ProvinsiTujuan.Items.Add("SUMATERA")
ProvinsiTujuan.Items.Add("KALIMANTAN")
ProvinsiTujuan.Items.Add("SULAWESI")
ProvinsiTujuan.Items.Add("PAPUA")
For a = 1 To 31
Tanggal.Items.Add(a)
Next
For b = 1 To 12
Bulan.Items.Add(MonthName(b))
Next
For c = 2015 To 2020
Tahun.Items.Add(c)
Next
End Sub
Private Sub YES_CheckedChanged(sender As Object, e As EventArgs) Handles YES.CheckedChanged
If ProvinsiTujuan.Text = "JABODETABEK" And YES.Checked Then
txtBiayaPengiriman.Text = 8500
ElseIf ProvinsiTujuan.Text = "JAWA BARAT" And YES.Checked Then
txtBiayaPengiriman.Text = 11000
ElseIf ProvinsiTujuan.Text = "JAWA TENGAH" And YES.Checked Then
txtBiayaPengiriman.Text = 22000
ElseIf ProvinsiTujuan.Text = "JAWA TIMUR" And YES.Checked Then
txtBiayaPengiriman.Text = 33000
ElseIf ProvinsiTujuan.Text = "BALI" And YES.Checked Then
txtBiayaPengiriman.Text = 45000
ElseIf ProvinsiTujuan.Text = "SUMATERA" And YES.Checked Then
txtBiayaPengiriman.Text = 27000
ElseIf ProvinsiTujuan.Text = "KALIMANTAN" And YES.Checked Then
txtBiayaPengiriman.Text = 32000
ElseIf ProvinsiTujuan.Text = "SULAWESI" And YES.Checked Then
txtBiayaPengiriman.Text = 48000
ElseIf ProvinsiTujuan.Text = "PAPUA" And YES.Checked Then
txtBiayaPengiriman.Text = 54000
End If
End Sub
Private Sub OKE_CheckedChanged(sender As Object, e As EventArgs) Handles OKE.CheckedChanged
If ProvinsiTujuan.Text = "JABODETABEK" And OKE.Checked Then
txtBiayaPengiriman.Text = 5500
ElseIf ProvinsiTujuan.Text = "JAWA BARAT" And OKE.Checked Then
txtBiayaPengiriman.Text = 7000
ElseIf ProvinsiTujuan.Text = "JAWA TENGAH" And OKE.Checked Then
txtBiayaPengiriman.Text = 16000
ElseIf ProvinsiTujuan.Text = "JAWA TIMUR" And OKE.Checked Then
txtBiayaPengiriman.Text = 24000
ElseIf ProvinsiTujuan.Text = "BALI" And OKE.Checked Then
txtBiayaPengiriman.Text = 36000
ElseIf ProvinsiTujuan.Text = "SUMATERA" And OKE.Checked Then
txtBiayaPengiriman.Text = 20000
ElseIf ProvinsiTujuan.Text = "KALIMANTAN" And OKE.Checked Then
txtBiayaPengiriman.Text = 28000
ElseIf ProvinsiTujuan.Text = "SULAWESI" And OKE.Checked Then
txtBiayaPengiriman.Text = 40000
ElseIf ProvinsiTujuan.Text = "PAPUA" And OKE.Checked Then
txtBiayaPengiriman.Text = 47000
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
txtTotalBiayaPengiriman.Text = (Val(txtBiayaPengiriman.Text) * Val(txtBeratBarang.Text)) + Val(txtBiayaAsuransi.Text)
txtPPN.Text = Val(txtTotalBiayaPengiriman.Text) * 0.1
txtTotalBayar.Text = Val(txtTotalBiayaPengiriman.Text) - Val(txtPPN.Text)
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles Kaca.CheckedChanged
If Kaca.Checked Then
txtBiayaAsuransi.Text = 25000
End If
End Sub
Private Sub Lainnya_CheckedChanged(sender As Object, e As EventArgs) Handles Lainnya.CheckedChanged
If Lainnya.Checked Then
txtBiayaAsuransi.Text = 0
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If txtNamaPengirim.Text = "" Or txtNamaPenerima.Text = "" Or txtTelponPenerima.Text = "" Or txtTelponPengirim.Text = "" Or ProvinsiTujuan.Text = "" Or txtAlamatTujuan.Text = "" Or txtKotaTujuan.Text = "" Or txtBiayaPengiriman.Text = "" Or txtBiayaAsuransi.Text = "" Or txtNamaBarang.Text = "" Or txtBeratBarang.Text = "" Or txtTotalBayar.Text = "" Or txtNoOrder.Text = "" Then
MsgBox("Isikan Data dengan Lengkap", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "Perhatian")
Else : ListBox1.Items.Add(DateAndTime.Now)
ListBox1.Items.Add(txtNoOrder.Text)
ListBox1.Items.Add("Nama Pengirim : " + txtNamaPengirim.Text)
ListBox1.Items.Add(txtTelponPengirim.Text)
ListBox1.Items.Add("Nama Penerima : " + txtNamaPenerima.Text)
ListBox1.Items.Add(txtTelponPenerima.Text)
ListBox1.Items.Add("Provinsi Tujuan : " + ProvinsiTujuan.Text)
ListBox1.Items.Add("Alamat Tujuan : " + txtAlamatTujuan.Text + " " + txtKotaTujuan.Text)
ListBox1.Items.Add("Nama Barang : " + txtNamaBarang.Text)
ListBox1.Items.Add("Berat : " + txtBeratBarang.Text + " KG ")
ListBox1.Items.Add("Pembayaran : Rp. " + txtTotalBayar.Text)
Call bersih()
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
Dim x As Integer
x = MsgBox("Yakin Mau dibersihkan?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Call bersih()
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
Dim x As Integer
x = MsgBox("Yakin Mau Selesai?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Me.Close()
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If ProvinsiTujuan.Text = "JAWA BARAT" Then
txtNoOrder.Text = "JKT" + "JABAR" + txtTotalBayar.Text
ElseIf ProvinsiTujuan.Text = "JAWA TIMUR" Then
txtNoOrder.Text = "JKT" + "JATIM" + txtTotalBayar.Text
ElseIf ProvinsiTujuan.Text = "JAWA TENGAH" Then
txtNoOrder.Text = "JKT" + "JATENG" + txtTotalBayar.Text
ElseIf ProvinsiTujuan.Text = "" Then
txtNoOrder.Text = ""
Else : txtNoOrder.Text = "JKT" + Strings.Left(ProvinsiTujuan.Text, 3) + txtTotalBayar.Text
End If
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim x As Integer
x = MsgBox("Yakin mau dibersihkan ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Call BersihList()
Call bersih()
End If
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
Dim x As Integer
x = MsgBox("Yakin akan Selesai ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
End
End If
End Sub
End Class
