Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Selesaikanlah Kasus Berikut :
Kasus Pemrograman Pemakaian Listrik


Berikut Jawaban Program :

KODING :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kdpelanggan.Items.Add("PAB-PAK-100")
        kdpelanggan.Items.Add("PAB-MED-101")
        kdpelanggan.Items.Add("SWA-BEL-100")
        kdpelanggan.Items.Add("TOK-TEM-100")
        kdpelanggan.Items.Add("RUM-MAR-101")
        kdpelanggan.Items.Add("TOK-BIN-100")

        Call rancang_tabel()
    End Sub

    Private Sub kdpelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpelanggan.SelectedIndexChanged
        If kdpelanggan.Text = "PAB-PAK-100" Then
            nama.Text = "IRWANSYAH"
        ElseIf kdpelanggan.Text = "PAB-MED-101" Then
            nama.Text = "IRWANSYAH PUTRA"
        ElseIf kdpelanggan.Text = "SWA-BEL-102" Then
            nama.Text = "TOMMY NUGRAHA"
        ElseIf kdpelanggan.Text = "TOK-TEM-100" Then
            nama.Text = "FATIH KARISMA"
        ElseIf kdpelanggan.Text = "RUM-MAR-101" Then
            nama.Text = "NOVITA ANANDA"
        ElseIf kdpelanggan.Text = "TOK-BIN-100" Then
            nama.Text = "SISKA AIRANGGA"
        End If

        Dim X As String
        X = Mid(kdpelanggan.Text, 1, 3)
        Select Case X
            Case "TOK"
                tipe.Text = "TOKO"
                byabbn.Text = 150000
                harga.Text = 500

            Case "RUM"
                tipe.Text = "RUMAH"
                byabbn.Text = 50000
                harga.Text = 200

            Case "SWA"
                tipe.Text = "SWALAYAN"
                byabbn.Text = 400000
                harga.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                byabbn.Text = 1000000
                harga.Text = 10000
        End Select

        X = Mid(kdpelanggan.Text, 5, 3)
        Select Case X
            Case "MED"
                daerah.Text = "MEDAN"
            Case "BEL"
                daerah.Text = "BELAWAN"
            Case "TEM"
                daerah.Text = "AKSARA"
            Case "MAR"
                daerah.Text = "MARENDAL"
            Case "BIN"
                daerah.Text = "BINJAI"
            Case "PAK"
                daerah.Text = "LUBUK PAKAM"
        End Select
    End Sub

    Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click
        pemakaian.Text = blnini.Text - blnlalu.Text
        ttltagihan.Text = (Val(byabbn.Text) + Val(harga.Text)) * pemakaian.Text
        pajak.Text = 0.015 * ttltagihan.Text
        pmbyrn.Text = Val(ttltagihan.Text) + Val(pajak.Text)
    End Sub
    Sub rancang_tabel()
        LV.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga per KWH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Meter Bulan ini", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Meter Bulan Lalu", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pemakaian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)

        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details

    End Sub
    Sub isi_tabel()
        Dim X As New ListViewItem
        X.Text = kdpelanggan.Text
        X.SubItems.Add(nama.Text)
        X.SubItems.Add(tipe.Text)
        X.SubItems.Add(daerah.Text)
        X.SubItems.Add(byabbn.Text)
        X.SubItems.Add(harga.Text)
        X.SubItems.Add(blnini.Text)
        X.SubItems.Add(blnlalu.Text)
        X.SubItems.Add(pemakaian.Text)
        X.SubItems.Add(ttltagihan.Text)
        X.SubItems.Add(pajak.Text)
        X.SubItems.Add(pmbyrn.Text)

        LV.Items.Add(X)
    End Sub



   
    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

    Private Sub Buttonhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhps.Click
        kdpelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        byabbn.Text = ""
        harga.Text = ""
        blnini.Text = ""
        blnlalu.Text = ""
        pemakaian.Text = ""
        ttltagihan.Text = ""
        pajak.Text = ""
        pmbyrn.Text = ""
    End Sub

    Private Sub Buttonsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsimpan.Click
        Call isi_tabel()

    End Sub

    Private Sub Buttonhps1item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhps1item.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Buttonhpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhpssemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnkluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkluar.Click
        Me.Close()
    End Sub
End Class



HASIL :

Demikilahlah postingan saya
 Nama : Irwansyah Putra Manurung
 NPM : 13110383
Selamat Belajar Pemrograman VB NET

Read More

Cara Unlock Blackberry dari CDMA ke GSM

Cara unlock blackberry cdma ke gsm akan saya rangkum dalam artikel ini. 

           Banyak pertanyaan tentang bagaimana cara unlock blackberry karena memang di pasaran sekarang sudah banyak beredar blackberry dengan model inject perdana nomer cdma. Alasan utama kebanyakan teman-teman adalah karena kalau pakai blackberry inject itu nanti nggak bisa ganti nomor.
           Hal ini disebabkan (kebanyakan yang kami temui) karena bebeerapa profider GSM sering memberikan promo untuk kartu perdana dengan paket blackberry yang sangat murah. Jadi banyak pengguna blackberry cdma ingin tahu cara unlock blackberry mereka ke gsm. Sebenarnya ya teman-teman, kualitas jaringan antara menggunakan blackberry gsm atau cdma itu hampir sama kok. Kalau pakai GSM network sinyalnya 3G atau 3,5G sedangkan kalau blackberry cdma namanya EVDO. Sedangkan tarifnya hampir sama, tapi promo nya yang berbeda .

              Oke deh langsung aja ke pokok pembahasan yaitu cara unlock Blackberry. 

Untuk bisa meng-unlock si BB kita perlu menggunakan beberapa software (maaf softwarenya tidak saya bagi-bagi di sini) yaitu: MFI multiloader yang fingsinya untuk unlock dan mengganti atau mengkloning pin blackberry anda, trus yang kedua Radio Lab Tool yang berguna untuk mengganti nomer imei dan pin BB anda, selain itu juga bisa teman-teman gunakan PIN and Imei Generator untuk mengkloning pin dan no imei blackberry teman-teman.
Kalau semua software tersebut sudah teman-teman dapat, lalu ini nih cara unlock blackberry nya

1. Semua software tadi di instal di laptop atu komputer
2. Lalu buka MFI Multi Loader dahulu
3. Siapkan kabel data USB lalu sambungkan handled blackberry teman-teman ke lepi
4. Ditunggu sampai blackberry terdeteksi oleh MFI Loader
5. Kalau sudah ada tulisan “pass” berarti sudah terdeteksi sempurna
6. Lampu indikator akan menyala hijau dan pada layar blackberry akan muncul angka 1
7. Lepaskan baterai BB lalu pasang kembali
8. Loading… kalau sudah selesai akan muncul “call mode”
9. Lalu tekan menu “start”
10. Akan muncul “No Aplication Linked”
11. Sampai tahap ini blackberry teman-teman sudah ter unlock
12. Eits masih belum selesai….
13. Teman-teman masih harus melakukan inject pada OS Blackberry nya
14. Lalu gunakan Radio Lab Tool untuk mengganti pin dan imei blackberry teman-teman
15. Kalau berhasil… baca Alhamdulillah

Oke.. 

Sekian tentang tips cara unlock smartphone Blackberry menggunakan beberapa software. 

Cara di atas merupaka salah satu cara yang sudah pernah digunakan, dengan perkembangan teknologi kemungkinan provider dari blackberry pun juga akan melakukan inovasi sehingga mungkin cara di atas pada suatu saat nanti tidak akan bisa digunakan lagi untuk unlock Blackberry teman-teman.

Semoga apa yang saya sampaikan berguna buat teman teman semuanya.

Terimakasih

Untuk Melihat Link Asli KLIK DISINI....

Read More

Cara Mengubah Tampilan Sinyal Blackberry menjadi Angka

Disini Saya akan membagi Trik kepada teman teman pembaca blog saya yaitu

"Cara Mengubah tampilan sinyal pada Blackberry menjadi angka"

Baik lah,, Ini dia Trik nya :

nah,, coba perhatikan gambar yang satu ini....

Pada gambar diatas,, sinyal Blackberry berupa batangan,, itu lah yang akan kita rubah agar menjadi tampilan angka.

berikut langkah langkah nya :

1. Tekan & tahan tombol ” alt “

2. Lalu secara bergantian tekan tombol ” N – M – L – L ” tanpa melepas tombol ” alt “

Seperti gambar dibawah ini..

setelah melakukan trik dengan benar, maka secara otomatis sinyal blackberry akan berubah menjadi tampilan angka seperti gambar berikut ini :

Pada gambar diatas sinyal blackberry sudah berubah menjadi angka, buat teman teman yang ingin mencoba nya,, silahkan dicoba.

NB : Gambar saya ambil dari sumber yang berbeda,,karna saya tidak mempunyai Hp Blackberry,,  Hehehee,, ^_^

Sekian dari saya,  semoga apa yang saya tuliskan diatas bermanfaat bagi teman teman semua..

Terima Kasih

Read More