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

Salam sobat blogger........
Sebagai bahan ujian di semester III saya akan memposting tentang VB NET pada blog saya 
Postingan kali ini tentang PROGRAM PEMBAYARAN REKENING LISTRIK.
Langsung saja buat form design seperti di bawah ini:

Selanjutnya isi codding di bawah ini:
Public Class Pembayaran_Listrik


    Private Sub Pembayaran_Listrik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("Kode", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jenis Pelanggan", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Harga KWH", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Beban", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Pemakaian", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Pembayaran", 180, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

        jpelanggan.Enabled = False
        hargakwh.Enabled = False
        beban.Enabled = False
        pembayaran.Enabled = False
    End Sub
    Private Sub kpelanggan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.TextChanged
        If kode.Text = "001" Then
            jpelanggan.Text = "Rumah"
            beban.Text = "25000"
            hargakwh.Text = "3000"
        ElseIf kode.Text = "002" Then
            jpelanggan.Text = "Toko"
            beban.Text = "50000"
            hargakwh.Text = "5000"
        ElseIf kode.Text = "003" Then
            jpelanggan.Text = "Pabrik"
            beban.Text = "100000"
            hargakwh.Text = "10000"
        Else
            jpelanggan.Text = ""
            beban.Text = ""
            hargakwh.Text = ""
        End If
    End Sub

    Private Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
        pembayaran.Text = Val(beban.Text + hargakwh.Text * pemakaian.Text)

        Dim Lst As New ListViewItem
        Lst.Text = kode.Text
        Lst.SubItems.Add(jpelanggan.Text)
        Lst.SubItems.Add(hargakwh.Text)
        Lst.SubItems.Add(beban.Text)
        Lst.SubItems.Add(pemakaian.Text)
        Lst.SubItems.Add(pembayaran.Text)
        lv.Items.Add(Lst)
    End Sub

    Private Sub btnhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhap.Click
        kode.Text = ""
        jpelanggan.Text = ""
        hargakwh.Text = ""
        beban.Text = ""
        pemakaian.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkel.Click
        End
    End Sub

    Private Sub btnhappilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhappilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnhapsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            btnpro_Click(sender, e)
        End If
    End Sub
End Class

Jika berhasil maka tampilannya seperti gambar di bawah ini:

Demikilahlah postingan saya
Nama : GALIH ANGGA SWARA
NPM : 14110115 

Selamat Belajar Pemrograman VB NET

Related Posts:

Tweet

Cara Mempercepat Kinerja WIndows Xp

Meskipun Windows XP sudah terbilang veteran untuk ukuran sebuah sistem operasi namun masih banyak peminatnya karena sistem operasi ini tidak banyak memakan ruang penyimpanan pada hardisk.  Berikut ini ada beberapa trik untuk mempercepat kinerja Windows XP  yang orang bilang sedikit membantu, berikut triknya :

1. Matikan System restore
    System restore bisa bermanfaat jika komputer bermasalah, akan tetapi semua restore point yg
    disimpan bisa memakan ruangan yg cukup besar di harddisk. System restore membebani karena
    selalu memonitor sistem, dengan mendisable system restore maka sebagian resource bisa
    dialokasikan untuk hal yg lain.
    Ikuti langkah langkah di bawah:

1. Buka Control Panel
2. Klik Performance and Maintenance
3. Klik System
4. Klik System Restore tab
5. Klik ‘Turn off System Restore on All Drives’
6. Klik ‘Ok’

2. Defrag Pagefile
    Salah satu cara terbaik untuk melakukan ini adalah untuk menciptakan sebuah partisi yang terpisah
    pada hard drive hanya untuk file halaman, sehingga tidak bisa dipengaruhi oleh penggunaan disk
    normal. Cara lain untuk menjaga pagefile defragmented adalah dengan menjalankan PageDefrag.
    Aplikasi ini sedikit dingin dapat digunakan untuk defrag pagefile dan juga dapat diatur untuk
    defrag pada setiap pagefile di PC

1. Download Ultimate Defrag (bisa di search di google)
2. Running Defragment sampai selasai 100%
3. Reboot Komputer

3. Mempercepat akses Folder
    Jika anda memiliki banyak folder dan subdirectories, maka akses ke Direktory2 Windows XP
    terasa sangat berat. Dengan mengupdate time stamp di registry, yaitu last access update untuk
    semua sub directory. Proceed with caution. Ikuti langkah berikut :

1. Start>Run>regedit
2. HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contr ol\FileSystem
3. Klik kanan di bagian yg kan (cari area yg kosong), lalu pilih ‘DWORD Value’
4. Bikin DWORD Value dengan nama ‘NtfsDisableLastAccessUpdate’
5. Klik kanan pada value baru terus pilih ‘Modify’
6. Ubah data menjadi ’1
7. Klik ‘OK’

4. Menonaktifkan Microsoft System Sounds
    Secara default MS sound systems membuat komputer berbunyi/bersuara ketika booting awal,
    shutdown, error, dll. Skenario suara windows jelas-jelas membuat komputer lebih lambat (terutama
    dalam waktu shutdown dan booting awal), untuk me-non-aktifkan silahkan ikuti langkah berikut:

1. Buka Control Panel
2. Klik Sounds and Audio Devices
3. Klik tab Sounds
4. Pilih “No Sounds” dari Sound Scheme
5. Klik “No”
7. Klik “Apply”
8. Klik “OK”

5. Mempercepat waktu Boot
    Fitur yg lumayan asik dari Windows XP adalah kemampuan untuk mendefrag ketika ada dalam
    proses booting. Boot Defrag pada prinsipnya adalah menata file-file yg relevan dengan booting
    secara berurutan. Secara default fitur ini telah diaktifkan pada beberapa Build Windows, tapi
    beberapa build windows tidak, ada baiknya kalo kita cross check terhadap fitur yg satu ini.

1. Start Menu>Run
2. Regedit
3. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOpt imizeFunction
4. Cari Enable dibagian kanan regedit
5. Klik Modify
6. Pilih Y to enable
7. Reboot

    Tambahan: Bootvis juga bisa dicoba, untuk memangkas waktu boot dengan manuver yg manis.

6. Mempercepat Performa Swapfile
    Jika anda memiliki RAM lebih besar dari 256MB bisa dibilang tweaking yg ini akan membuat
    sistem anda berjalan lebih cepat. Tweaking ini pada dasarnya PC kita mengunakan setiap byte dari
    memori fisik yg terpasang di komputer kita. Langkah langkahnya:

1. Start>Run
2. msconfig.exe>ok
3. Klik tab System.ini
4. Klik tanda plus pada tab 386enh
5. Klik kotak new kemudian ketik ConservativeSwapfileUsage=1
6. Klik OK
7. Restart

7. Mempercepat Loading Windows Menu
    Tweak ini adalah tweaking fav saya, karena akan membuat komputer kita terasa lebih cepat.
    Tweaking ini membuang waktu delay ketika kita mengklik menu dan windows XP menampakkan
    Menu.

1. Start>Run
2. Regedit>Ok
3. “HKEY_CURRENT_USER\Control Panel\Desktop\”
4. Pilih/Sorot MenuShowDelay
5. Klik kanan dan pilih Modify
6. Ketik angka “100". Angka 50-150 adalah kisaran yg baik, bisa disesuaikan dengan Mood anda

8. Mempercepat Loading Program.
    Tweaking ini bisa berjalan untuk sebagian besar program. Jika program tidak mau loading seperti
    yg diharapkan, silahkan aja dikembalikan ke setting semula.

1. Klik kanan pada icon/shortcut yg berkaitan dengan program.
2. properties
3. Pada kotak ‘target’, tambahkan ‘ /prefetch:1' diakhir kalimat.
4. Klik “Ok”

gampang kan, Program akan loading lebih cepat.

9. Mempercepat Shutdown Windows XP.
    Tweaking ini mengurangi waktu tunggu secara otomatis ketika windows sudah menerima instruksi
    untuk shutdown.

1. Start>Run ‘Regedit’>OK
2. ‘HKEY_CURRENT_USER\Control Panel\Desktop\’
3. Sorot ‘WaitToKillAppTimeout’
4. Klik kanan dan pilih modify
5. Ubah value menjadi ’1000' Klik ‘OK’
6. Sorot ‘HungAppTimeout’
7. Ubah value menjadi ’1000' Klik ‘OK’
8. ‘HKEY_USERS\.DEFAULT\Control Panel\Desktop’ sorot WaitToKillAppTimeout’
9. Klik kanan dan pilih modify. Ubah value ke ’1000' Klik ‘OK’
10. ‘HKEY_LOCAL_MACHINE\System\CurrentControlSet\Contr ol\’ sorot WaitToKillServiceTimeout
11. Klik kanan dan pilih modify. Ubah value menjadi ’1000' Klik ‘OK’

Selamat Mencoba dan Semoga Berhasil
Never give up guys..........

Related Posts:

Tweet

Gaji Karyawan dengan If Majemuk

Postingan kali ini masih membahas metode penggunaan If pada VB 2008 dan yang akan saya posting yaitu tentang GAJI KARYAWAN. Masih seperti If yang di bahas sebelumnya If yang digunakan adalah If Majemuk.
Langsung saya kita buat form designya seperti gambar di bawah ini
ToolBox yang digunakan yaitu: Label, ListBox, TextBox, and Button 

 

Kemudian masukkan codding seperti di bawah ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        nik.Items.Add("001")
        nik.Items.Add("002")
        nik.Items.Add("003")

        jab.Items.Add("Kabag")
        jab.Items.Add("Staff")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        janak.Items.Add("1")
        janak.Items.Add("2")
        janak.Items.Add("3")

        nama.Enabled = False
        gaji.Enabled = False
        tanak.Enabled = False
        tistri.Enabled = False
        tgaji.Enabled = False
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "001" Then
            nama.Text = "Aldiyan"
        ElseIf nik.Text = "002" Then
            nama.Text = "Andi"
        ElseIf nik.Text = "003" Then
            nama.Text = "Joko"
        Else
            nik.Text = ""
            nama.Text = ""

        End If

    End Sub

    Private Sub jab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged

        If jab.Text = "Kabag" Then
            gaji.Text = 3500000
        ElseIf jab.Text = "Staff" Then
            gaji.Text = 2000000
        End If
    End Sub

    Private Sub btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnha.Click
        nik.Text = ""
        nama.Text = ""
        jab.Text = ""
        gaji.Text = ""
        status.Text = ""
        janak.Text = ""
        tanak.Text = ""
        tistri.Text = ""
        tgaji.Text = ""
    End Sub

    Private Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
      
        If status.Text = "Menikah" Then
            tistri.Text = 0.1 * Val(gaji.Text)
        ElseIf status.Text = "Tidak Menikah" Then
            tistri.Text = "0"
        End If
        tanak.Text = 0.02 * Val(gaji.Text) * Val(janak.Text)
        tgaji.Text = Val(gaji.Text) + Val(tistri.Text) + Val(tanak.Text)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Tidak Menikah" Then
            janak.Text = 0
        End If
    End Sub

    Private Sub btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkel.Click

        End
 

    End Sub
End Class
 

Hasilnya akan seperti gambar berikut:

 

Gambar di atas membuktikan bahwa program yang kita buat dapat berjalan dengan baik.

Postingan ini hanyalah contoh kecil bagaimana membuat program dengan menggunakan VB 2008 dan masih jauh dari kata sempurna.

Selamat mencoba dan jangan menyerah

Good Luck........!!! 

Related Posts:

Tweet

Penggunaan If pada Visual Basic

Assalamualaikum..............
Di sini saya akan memposting tentang penggunaan if pada Visual Basic (VB) dan VB yang saya gumakan adalah VB 2008.
Postingan kali ini yaitu MENGHITUNG NILAI MAHASIAWA dengan penggunaan if majemuk, yaitu: 
If kodisi1 then
pernyataan1
elseif kondisi2 then
pernyataan2
else
pernyataan3
End if

Pertama buat form Design pada VB seperti gambar di bawah ini

Yang dibutuhkan saat membuat form design yaitu:

1. Label

2. ComboBox

3. ListBox

4. Button

 

Setelah form Design selesai dibuat selanjutnya masukkan codding di bawah ini:

 

 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("14110111")
        npm.Items.Add("14110112")
        npm.Items.Add("14110113")

        jenjang.Items.Add("S1")
        jenjang.Items.Add("D3")

      
        matakul.Items.Add("Struktur Data")
        matakul.Items.Add("Pmograman Visual")
        matakul.Items.Add("Sistem Basis Data")
        matakul.Items.Add("Sistem Operasi")

        dosen.Items.Add("Noferianto Sitompul, M.Kom.")
        dosen.Items.Add("Mesran, M.Kom.")
        dosen.Items.Add("M. Iqbal Batubara, M.Kom.")
        dosen.Items.Add("Yasir Hasan, M.Kom.")

        akhir.Enabled = False
        huruf.Enabled = False
        ket.Enabled = False
        nama.Enabled = False
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "14110111" Then
            nama.Text = "Nita"
        ElseIf npm.Text = "14110112" Then
            nama.Text = "Andi"
        ElseIf npm.Text = "14110113" Then
            nama.Text = "Joko"
        End If
    End Sub

    Private Sub btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnha.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        matakul.Text = ""
        jurusan.Text = ""
        dosen.Text = ""
        nh.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        akhir.Text = ""
        huruf.Text = ""
        ket.Text = ""
    End Sub

    Private Sub btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkel.Click
        End
    End Sub

    Private Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
        akhir.Text = Val(nh.Text * 0.1) + Val(nt.Text * 0.2) + Val(uts.Text * 0.3) + Val(uas.Text * 0.4)
        If akhir.Text >= "85 - 100" Then
            huruf.Text = "A"
        ElseIf akhir.Text >= "78 - 84" Then
            huruf.Text = "B+"
        ElseIf akhir.Text >= "70 - 77" Then
            huruf.Text = "B"
        ElseIf akhir.Text >= "65 - 69" Then
            huruf.Text = "C+"
        ElseIf akhir.Text >= "59 - 64" Then
            huruf.Text = "C"
        ElseIf akhir.Text >= "50 - 58" Then
            huruf.Text = "D"
        Else
            huruf.Text = "E"
        End If

        If akhir.Text >= 50 Then
            ket.Text = "Lulus"
        ElseIf akhir.Text < 50 Then
            ket.Text = "Gagal"
        End If
    End Sub

    Private Sub jenjang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenjang.SelectedIndexChanged
        jurusan.Items.Clear()
        If jenjang.Text = "S1" Then
            jurusan.Items.Add("TI")
            jurusan.Items.Add("SI")
        ElseIf jenjang.Text = "D3" Then
            jurusan.Items.Add("MI")
            jurusan.Items.Add("KA")
        End If

    End Sub
End Class

Setelah codding selesai  dibuat coba jalankan VB dengan menekan tombol Start Debugging atau tkan tombol F5 pada keyboard Anda.

Jika berhasil maka hasilnya seperti gambar berikut:

Sedikit berbagi ilmu tentang metode penggunaan if dalam VB

Semoga bermanfaat dan selamat mencoba!

Wassalamualaikum..............

Related Posts:

Tweet