Aplikasi Jasa Pengiriman JNE TIKI

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

DOWNLOAD : (300kb)
Via 4Shared
Via Mediafire

"Mengetahui Kerusakan pada Mainboard dan Alat2 yang dibutuhkan" OSK 1 with Pak Yulius Eka S.

Setelah saya belajar pada kelas OSK 1, dengan Pak Yulius Eka S. Kita dapat menganalisis kerusakan pada mainboard dan solusinya, berikut sedikit share dari saya.

Mengetahui Kerusakan pada Mainboard dan Alat2 yang dibutuhkan

Setelah membaca judul diatas, kita akan mengetahui cara untuk memperbaiki mainboard. Mainboard adalah Komponen utama dalam suatu perangkat, contohnya perangkat komputer, handphone, monitor, tv, dll.

Bagaimana kita bisa tahu kalau itu rusak? dan apakah solusinya?

Sebagian orang akan ke tukang service untuk memperbaiki alatnya yang rusak, namun ada cara sendiri yang mudah sebenarnya untuk mendeteksi kerusakan pada mainboarad.

Analyzer adalah salah satu alat yang digunakan untuk mendeteksi kerusakan pada mainboard, tegangan listrik yang mengalir. dengan alat ini kita tahu dimana kah letak kerusakan itu berada, apakah di monitor? kabel? atau mainboard itu sendiri? 

Gambar 1.1 Analyzer mendeteksi kerusakan pada Mainboard (ilustrasi dari google)

Gambar diatas menggambarkan bagaimana cara mendeteksi kerusakan pada mainboard. cara simpelnya saya sampaikan disini:

1. Analyzer akan di tempelkan ke suatu perangkat (contohnya pc, lcd, dll)

2. Jika Analyzer berbunyi biiip panjang, maka disitu letak kerusakannya

3. Mari kita perbaiki bagian itu.

Faktor kerusakan adalah:

1. Adanya tegangan yang lebih/kurang sehingga membuat tegangan tidak stabil

2. Adanya kotoran/debu yang menutupi bagian itu

Apa saja alat yang harus disiapkan?

1. Peralatan 

Yang dibutuhkan: Obeng lengkap, Tang kecil sampai panjang, dll.
Price: sekitar 250rb (kalau lengkap)

2. Sekrup 

.

Yang dibutuhkan: Sekrup yang lengkap, dari yg berbintang, plus, dan minus.
Price: Murah, ga sampe 5rb


3. Thinner Acrilex (pembersih)

Sebagai pembersih bagian mainboard yg kotor & debu
Price: tanya tukang aja/beli di tukang service

4. Kuas (yang kecil sebaiknya)


Kuas untuk membersihhkan bagian yang kotor, dengan alat ini dan dicelupkan ke tiner, niscaya akan bersih
Price: murah, beli di toko aja 10rb dapet 3 wkwk

5. Solder 



Alat ini digunakan untuk melepas bagian IC di dalam Mainboard yg rusak
Price: 30-100rb (tergantung jenisnya)


6. Alat pegangan solder



Untuk mencegah resiko, kita menggunakan alat ini untuk memegang solder sehingga tidak terkena panas
Price: 60rb biasanya

7. Vacum cleaner 


Alat ini adalah yang paling simpel digunakan, kalau kita malas membersihkan dengan kuas, kita bisa pakai alat ini untuk menyemprot debu pada perangkat
Price: 100rb-500rb (tergantung jenis)


8. Cutter

Cutter, sebagai alat bantu untuk mengankat bagian yang sulit dijangkau
Price: Murah 10rb dapet 3 wkwk


9. Solder tin

Untuk menyolder alat2
Price: 20rb-50rb (tergantung panjang)

10. Mengganti mainboard 


Ini adalah senjata ampuh terakhir kalau mainboard yang sangat2 rusak dan tak bisa diperbaiki.


Dan terakhir.......
Sekian Informasi dari saya mengenai alat2 yang dipakai untuk memperbaiki mainrboard.
Di blog selanjutnya akan saya share cara memperbaiki mainboard.

Arigatou ^_^

Pertama kali ke bioskop sama belo

Nama gue Abyan JK, dan gue sekarang udah hampir setengah tahun sama belo. Gue kasih tau, kalo belo itu bukan nama binatang, tapi nama peliaraan gue *canda (Baca: Belo adalah cewe gue)

Kalo lo liat dia pasti lo suka, karena behelnya menyilaukan mata lo. Jadi pas lagi liat dia, pasti lo bakal terperana melihat belo tersenyum. Salah satu korbannya gue. Kesilauan behelnya.

Berawal dari gue kenalan pada cerita sebelumnya, gue bakal terusin lanjutannya. Cekibrot.

Bioskop, bioskop adalah tempat berkumpulnya orang-orang berbagai status dengan materi yang pas-pasan. Gue adalah status galauers dan belo adalah status action, kalo digabung status itu jadi status aksi galau. Yap, inilah yang gue rasain pas pertama kali ke bioskop sama belo.

Seminggu pacaran, akhirnya belo mengajak gue untuk nonton di bioskop. Dan benar gue adalah cowo tulen, cewe yang akan mengajak gue, bukan sebaliknya. Dan gue dengan senang hati menerima ajakan itu.

Belo itu suka sekali dengan era ke-jepang-jepangannya, dan gue berpikir kalau gue mengajak dia pergi, dia akan memakai kimono ala jepang dan gue berpakaian ala sumo: sempak putih berbedak tebal. Ternyata mitos itu hanyalah rekayasa.

Saat pertama kali gue jalan berdua sama belo, jarak kita sangatlah terbatas, jaraknya antara satu sampai lima meter. Itu karena terdapat daerah yang gue namain “FriendZone”. Gue takut kalau pegangan tangan itu bisa menyebabkan hamil. Ternyata disitu bukan penyebabnya.

Ada tiga tahap pada saat pacaran:

1. Malu-malu tai kucing
2. Malu-malu kucing
3. Malu-malu, nafsu anjing.

Yang pertama itu malu-malu tai kucing, tai kucing itu membuat kita takut untuk mendekat, kita masih malu-malu untuk mencobanya. kayak misalkan gue baru kenal sama belo, masih takut dekat-dekat karena belo adalah hal yang baru buat gue. Tidak mungkin gue bakal terlalu dekat dan sampai menyentuhnya. Apalagi gue memakan tai kucing itu.

Yang kedua adalah malu-malu kucing. Disini pasti kalian pernah di dekat kucing, dan dia akan mengelus-elus ke badan lo dan dengan mesranya dia menatap mata lo dalam-dalam. Sama seperti pacaran. Kalian sudah lumayan kenal dan akan semakin dekat. Jangan heran kalau pacar lo suka ngelus-ngelus dibadan lo dan menggigit lo, artinya dia sudah menganggap dirinya seperti kucing.

Yang ketiga malu-malu, nafsu anjing. Ditahap ini khusus buat para gay dia akan menggonggong bila tidak ditemani seperti PKS (PKS= pekerja kurang setoran). Yang pasti hal ini sangat buruk buat gue. Tapi gue bukan gay. Seperti kemarin di acara lomba, gue duduk santai di lataran teras, suasananya sejuk, namun tiba-tiba ada pemandangan yang tidak sedap.

Beberapa polisi telah bugil bermain pingpong.

Gue ga mau kalau diajak main pingpong sambil bugil. Itu akan menimbulkan kontroversi dalam hidup gue. Dan kalau hal ini terjadi, gue berpikir kalau akan ada berita: “Beberapa polisi tengah bugil bersama anak kecil yang diketahui suka dengan polisi gay dengan modus penipuan bermain pingpong bersama.”

Itu ga akan pernah terjadi.

Sekian dulu cerita gue, jangan lupa baca-baca cerita gue yang lain. Arigatou. (arigatou= bahasa jepang yang artinya terimakasih) :D

Kenal Belo

Udah berapa bulan gue ga pernah ngepost. mungkin otak gue udah makin penuh sama pelajaran2 yang buat gue muntah. gue ga tau gue bener2 belajar atau ngga, tapi bentar lagi gue kuliah, tapi gue masih bingung mau kuliah dimana. dimanaaa... dimanaa.. dimanaaaa..... (ayu sinting)

yap sebelum gue mikirin buat kuliah, gue punya pengalaman baru. yang ga bakal pernah gue lupain. 

gue jadian sama belo :)

belo adalah makhluk langka yang ga pernah gue temuin sebelumnya, dia baik, dan cantik. kenapa setiap gue bilang cakep dia sok2 ga peduli, sok cool. tapi gapapa, yang penting gue dapetin dia. makasih tuhannnnn :D

Kenalan pertama sama belo, itu lewat sms. (keren kan bro) wkwk

waktu itu gue masih sepolos-polosnya orang, iya gue ga ngerti dia suka sama gue atau sekedar pengen kenal. tapi gue yakin ada feiling sama belo. anaknya baik, ga suka muluk2, terus kocak, dan belo suka senyummmm:* (ini hal yang gue suka dari dia)

Sms singkatnya lumayan aneh sih:

belo: selamat malam

gue: malam, siapa ya?

belo: hani

gue: hani iqro?

belo: bukan -,-

gue: hani anak 55?

belo: iyaaa

gue: oh ada apa ya?

hening sejenak. terus gue sms lagi

gue: follow twitter gue ya @abyanjksatu
belo: udah kok, twitter gue yg @hanymaryam
gue: ohh itu lo..

setelah itu gue dan belo smsan sampe malem.

Iya kira2 kaya gitu, walaupun gue ga tau waktu itu istilahnya diKODEin tapi gue yakinm, gue yang ga peka ><

selama 6 bulan belo melahirkan... eh pdkt maskudnya -_-

Sebelum gue jadian, gue pernah diajak jalan sama dia diajak ke taman mini buat tugas, gue pernah diajak ke japan fest. gue sebelumnya belom pernah ke festival gitu, jadi gue sok2 tau tentang japan, iya gue baca2 kamus dan gue ga ngerti -_-

gue belom pernah jalan sama cewe, ini pengalaman awal gue sama belo.

Akhirnya gue mau nembak belo.

cara nembaknya juga unik gue nembak pake sniper... ehhh lewat wechat :D (gue ga tau ini bener apa ngga tapi gue bener2 suka sama dia, terpaksa malem itu juga harus gue tembak)

Dan akhirnya... 

gue pun jadian \:D/

Oh iyaa pada bingung kenapa gue manggil belo? belo itu panggilan gue buat dia, soalnya dia manggil gue sipit -_- tapi gue suka kalo dia yg manggil gue sipit :)

kaya manggil kucing gitu, sipit sipit... sipitt.... woyyy nengok dong!!!! (salah teks om)

lanjut baca cerita gue yang lain ya bro :D