Menghilangkan Lag pada Windows 8.1

Menghilangkan Lag pada Windows 8.1 ~ Windows 8.1 adalah sistem operasi terbaru besutan Microsoft, yang belum lama ini telah dirilis Update 1-nya. Walau yang terbaru, belum tentu kinerjanya sudah bagus dan maksimal. Mungkin ada beberapa dari kalian yang merasakan kurangnya performa Windows 8.1 ini?

Salah satu solusi untuk mengatasi hal ini adalah dengan melakukan instalasi baru, tetapi kita semua tahu bahwa itu adalah memakan waktu dan kadang-kadang menyakitkan untuk melakukan. Jadi apa yang dapat dilakukan untuk menghilangkan lag dan memperbaiki masalah kinerja tanpa melakukan instalasi ulang lengkap Windows 8.1? Cukup ikuti langkah-langkah yang telah kita diuraikan di bawah ini dan didorong Windows PC 8.1 Anda harus merasa tajam untuk digunakan dalam waktu singkat.

Langkah 1: Pergi ke Desktop Windows anda.

Langkah 2: Klik kanan on Computer . Kemudian klik Properties.

Langkah 3: Pada jendela yang dihasilkan baru, klik pada Advanced System Setting yang terletak di sisi kiri atas.

Langkah 4:  Baru System Properties akan terbuka. Klik Setting pada Peformance.

Langkah 5: Jendela baru akan menampilkan banyak pilihan di bawah Visual Effects tab. Ini adalah tempat di mana seluruh keajaiban terjadi. Klik Adjust for best performance , dan sebelum anda menekan Ok, Ceklist pada Smooth egdes of screen fonts.

Itu saja, Anda sudah selesai. PC Windows Anda akan merasakan dan melakukan lebih banyak snappier dari sebelumnya.

Pada langkah 5, Anda bahkan dapat men-tweak pengaturan sesuai dengan keinginan Anda untuk membuat OS lebih responsif seperti yang Anda inginkan. Seperti dalam beberapa kasus, Anda mungkin ingin mengorbankan cukup kurang dibandingkan dengan skenario lainnya.

Tip ini sangat berguna jika Anda memiliki PC lambat dari awal, atau jika Anda sedang mencari solusi sederhana untuk mempercepat tanpa mengeluarkan sepeser pun.

Itu saja yang bisa saya bagikan tentang Menghilangkan Lag pada Windows 8.1 - Semoga artikel dapat membantu anda.

Read More

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

Selesaikanlah Kasus Berikut :

Kasus Pemrograman Pemakaian Listri
Berikut Jawaban Program :

Public Class Form1

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

        Call isikode()

        Call enable()

        Call desaintabel()

    End Sub

    Sub hapusform()

        kode.Text = ""

        nama.Text = ""

        daerah.Text = ""

        tipe.Text = ""

        meterbulanini.Text = ""

        meterbulanlalu.Text = ""

        biayabeban.Text = ""

        harga.Text = ""

        besar.Text = ""

        total.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

    End Sub

    Sub desaintabel()

        lv.Columns.Add("KODE", 120, HorizontalAlignment.Center)

        lv.Columns.Add("NAMA", 120, HorizontalAlignment.Center)

        lv.Columns.Add("DAERAH", 120, HorizontalAlignment.Center)

        lv.Columns.Add("TIPE", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BULAN INI", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BULAN LALU", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BIAYA", 120, HorizontalAlignment.Center)

        lv.Columns.Add("HARGA", 120, HorizontalAlignment.Center)

        lv.Columns.Add("BESAR PAKAI", 120, HorizontalAlignment.Center)

        lv.Columns.Add("TOTAL", 120, HorizontalAlignment.Center)

        lv.Columns.Add("PAJAK", 120, HorizontalAlignment.Center)

        lv.Columns.Add("PEMBAYARAN", 120, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim x As New ListViewItem

        x.Text = tipe.Text

        x.SubItems.Add(nama.Text)

        x.SubItems.Add(daerah.Text)

        x.SubItems.Add(tipe.Text)

        x.SubItems.Add(meterbulanini.Text)

        x.SubItems.Add(meterbulanlalu.Text)

        x.SubItems.Add(biayabeban.Text)

        x.SubItems.Add(harga.Text)

        x.SubItems.Add(besar.Text)

        x.SubItems.Add(total.Text)

        x.SubItems.Add(pajak.Text)

        x.SubItems.Add(pembayaran.Text)

        lv.Items.Add(x)

        Call hapusform()

    End Sub

    Sub enable()

        daerah.Enabled = False

        tipe.Enabled = False

        biayabeban.Enabled = False

        harga.Enabled = False

        total.Enabled = False

        pajak.Enabled = False

        besar.Enabled = False

        pembayaran.Enabled = False

    End Sub

    Sub isikode()

        kode.Items.Add("MED-TOK-100")

        kode.Items.Add("MED-RUM-101")

        kode.Items.Add("MED-SWA-102")

        kode.Items.Add("MED-PAB-103")

        kode.Items.Add("BEL-TOK-104")

        kode.Items.Add("BEL-RUM-105")

        kode.Items.Add("BEL-SWA-106")

        kode.Items.Add("BEL-PAB-107")

        kode.Items.Add("TEM-TOK-108")

        kode.Items.Add("TEM-RUM-109")

        kode.Items.Add("TEM-SWA-110")

        kode.Items.Add("TEM-PAB-111")

        kode.Items.Add("MAR-TOK-112")

        kode.Items.Add("MAR-RUM-113")

        kode.Items.Add("MAR-SWA-114")

        kode.Items.Add("MAR-PAB-115")

        kode.Items.Add("BIN-TOK-116")

        kode.Items.Add("BIN-RUM-117")

        kode.Items.Add("BIN-SWA-118")

        kode.Items.Add("BIN-PAB-119")

        kode.Items.Add("PAK-TOK-120")

        kode.Items.Add("PAK-RUM-121")

        kode.Items.Add("PAK-SWA-122")

        kode.Items.Add("PAK-PAB-123")

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim d As String = Microsoft.VisualBasic.Left(kode.Text, 3)

        Dim t As String = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If d = "MED" Then

            daerah.Text = "MEDAN"

        ElseIf d = "BEL" Then

            daerah.Text = "BELAWAN"

        ElseIf d = "TEM" Then

            daerah.Text = "AKSARA"

        ElseIf d = "MAR" Then

            daerah.Text = "MARENDAL"

        ElseIf d = "BIN" Then

            daerah.Text = "BINJAI"

        ElseIf d = "PAK" Then

            daerah.Text = "LUBUK PAKAM"

        End If

        If t = "TOK" Then

            tipe.Text = "TOKO"

            biayabeban.Text = 150000

            harga.Text = 500

        ElseIf t = "RUM" Then

            tipe.Text = "RUMAH"

            biayabeban.Text = 50000

            harga.Text = 200

        ElseIf t = "SWA" Then

            tipe.Text = "SWALAYAN"

            biayabeban.Text = 400000

            harga.Text = 1500

        ElseIf t = "PAB" Then

            tipe.Text = "PABRIK"

            biayabeban.Text = 1000000

            harga.Text = 10000

        End If

    End Sub

    Private Sub meterbulanlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles meterbulanlalu.KeyPress

        If Asc(e.KeyChar) = 13 Then

            besar.Text = meterbulanini.Text - meterbulanlalu.Text

            total.Text = biayabeban.Text + harga.Text * besar.Text

            pajak.Text = 0.015 * total.Text

            pembayaran.Text = total.Text + pajak.Text

        End If

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Call hapusform()

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus1.Click

        If lv.SelectedItems.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))

        Else

            MsgBox("item blum di pilih")

        End If

    End Sub

    Private Sub btninput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninput.Click

        Call isitabel()

    End Sub

End Class

Demikilahlah postingan saya  Nama : IMAM MUNANDAR  NPM : 13110067
Selamat Belajar Pemrograman VB NET

Read More