Minggu, 07 Desember 2014

Jawaban quis


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RancangTabel()
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 2)
        Select Case x
            Case "TS"
                merek.Text = "TOSIBAH"
            Case "VG"
                merek.Text = "V-GEN"
        End Select
        x = Mid(kode.Text, 3, 5)
        Select Case x
            Case "001"
                nama.Text = "Flasdisk4GB"
            Case "002"
                nama.Text = "Flasdisk2GB"
        End Select
        If kode.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kode.Text = "VG002" Then
            harga.Text = "60000"
        End If
    End Sub

    Private Sub jbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jbeli.TextChanged
        tharga.Text = Val(harga.Text) * Val(jbeli.Text)
    End Sub
    Sub RancangTabel()
        lv.Columns.Add("No Pembeli", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Merek", 120, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        lv.FullRowSelect = True
        lv.GridLines = True
        lv.View = View.Details
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Call MasukTabel()

        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merek.Text = ""
        harga.Text = ""
        jbeli.Text = ""
        tharga.Text = ""
       
    End Sub
    Sub MasukTabel()
        Dim a As New ListViewItem
        a.Text = no.Text
        a.SubItems.Add(kode.Text)
        a.SubItems.Add(nama.Text)
        a.SubItems.Add(merek.Text)
        a.SubItems.Add(harga.Text)
        a.SubItems.Add(jbeli.Text)
        a.SubItems.Add(tharga.Text)
        lv.Items.Add(a)
    End Sub
    Sub g()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merek.Text = ""
        harga.Text = ""
        jbeli.Text = ""
        tharga.Text = ""
    End Sub

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

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        Call g()

    End Sub

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

    End Sub

    Private Sub hdpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hdpilih.Click
        If lv.SelectedItems.Count <> 0 Then
            lv.SelectedItems(0).Remove()
        Else
            MsgBox("Plih dr tabel nya Bro !By ELEKSON", MsgBoxStyle.OkOnly, "Informasi")
        End If
    End Sub
End Class

 

Kamis, 04 Desember 2014

7 Negara Pengakses Situs Porno Terbanyak Tahun 2014

7 Negara Pengakses Situs Porno Terbanyak Tahun 2014

Tahukah kamu, selama tahun 2014 industri film porno ternyata tidak berangsur surut, bahkan menurut data, film porno terus beredar dan diproduksi di negara-negara seperti Amerika Serikat, Jepang atau Kanada.
Nah, menjelang akhir tahun 2014, JalanTikus telah melakukan survey menggunakan beberapa hasil pencarian dan riset untuk menemukan negara mana saja yang paling banyak mengakses situs porno pada tahun 2014.
Dan yang mengejutkan, Indonesia termasuk di 7 besar negara yang mengakses situs porno selama tahun 2014.

1. Amerika Serikat

Bukan hal langka lagi, Amerika Serikat juga memiliki industri film porno sendiri, maka tak heran jika pornografi di Negara Paman Sam tersebut memiliki banyak penduduk yang mengakses konten terlarang tersebut.

2. Pakistan

Sungguh kabar menyedihkan bagi kamu muslim. Pakistan, negara dengan jumlah penduduk yang tidak lebih dari 20 juta kepala, data menyebutkan 65% populasi di Pakistan adalah pengakses aktif film porno selama tahun 2014.

3. Mesir

Negara yang mayoritas beragama muslim ini ternyata juga menjadi negara pengakses situs porno terbesar kedua di tahun 2014. Populasi penduduk Mesir adalah 83 juta jiwa, dan hampir setengahnya adalah pengakses situs porno selama tahun 2014.

4. India

Sebagai salah satu Negara dengan populasi penduduk terbesar di dunia, ternyata juga menjadikan India sebagai pengakses situs porno terbanyak pada tahun 2014 ini, tercatat 40% dari penduduknya adalah pengakses aktif situs porno, kebanyakan dari kaum laki-laki.

5. Maroko

Maroko sebagai negara yang berpenduduk mayoritas muslim ternyata juga masuk sebagai Negara yang paling banyak berburu konten porno pada tahun 2014 ini, padahal penduduk Maroko tidak terlalu banyak.

6. Indonesia

Nah, Negara kita tercinta, Indonesia. Pada tahun 2014 ini masuk ke dalam Daftar Negara yang paling banyak mengakses situs porno di dunia. Entah kenapa, padahal Pemerintah sendiri melalui Menkominfo-nya sudah bekerja keras mem-blokir situs-situs porno, namun masih saja banyak yang bisa mengakses situs tersebut.
Padahal, Tahun 2013 Indonesia tidak masuk 10 Besar dan hanya menduduki peringkat 13. Sekarang Indonesia sudah masuk peringkat 6 besar Negara dengan pengakses situs porno terbesar tahun 2014.

7. Brazil

Negara yang dikenal dengan prestasi sepakbola-nya ini ternyata juga menjadi Negara dengan penduduknya yang suka mengakses situs porno. Namun yang unik adalah, Kebanayakn pengakses konten porno di Brazil adalah Wanita.

Aneh, USB Drive Ini Bisa Jalankan Windows 8.1

Perangkat stick USB dengan menggunakan prosesor Intel Atom quad core dijual di situs online Cina Alibaba dan Aliexpress.
Stick USB bisa dipakai untuk menjalankan OS Windows 8.1 atau distro populer Linux seperti Ubuntu ataupun Fedora, seperti dilansir dari Neowin, Kamis (23/10/2014).
Ukurannya kecil mempunyai panjang 100 milimeter, didalamnya dibenamkan RAM DDR3 1GB, 2 port MicroUSB, 1 port HDMI, slot memory card, WiFi, Bluetooth 4.0 serta opsi memori internal 16GB dan 32GB.
Hebat, USB Drive Ini Bisa Jalankan Windows 8.1
Siapa produsen dari perangkat USB tersebut tidak diketahui secara pasti. Hanya saja terdapat lambang Intel menempel pada stick USB ini. Namun dengan keberadaan perangkat ini, pihak Intel belum pernah secara resmi meskipun dilengkapi prosesor buatannya.
Dengan spesifikasi tersebut, stick USB ini pun kabarnya bisa menjalankan sistem operasi berbasis CPU x86 secara penuh.

Teknologi Baru Harddisk 10TB dengan Isi Helium

Teknologi Baru Harddisk 10TB dengan Isi Helium

Teknologi terbaru diumumkan oleh Western Digital. Kali ini melalui websitenya HGST, mereka mengumumkan harddisk 10&nbsp;terabyte pertama di dunia dengan isi Helium. Harddisk ini muncul beberapa minggu setelah Seagate mengumumkan harddisk 8TB dengan isi udara. Western Digital sendiri mengatakan bahwa harddisknya ini lebih murah dan menggunakan daya yang lebih rendah dibanding Harddisk yang sekarang ada di pasaran.
Pada momen yang sama, Western Digital juga mengumumkan mengenai 3 produk terbarunya yaitu:[list=1][li]HGST sebagai contoh dari harddisk 10TB dengan isi helium[/li][li]Harddisk 8TB dengan isi helium yang telah hadir duluan di pasaran[/li][li]Western Digital sekarang memiliki standard harddisk 6TB dengan isi udara yang mereka beri nama Ultrastar 7K6000[/li][/list]
Harddisk 10TB ini menggunakan teknologi dari HelioSeal yang dirilis pada november tahun 2013. HelioSeal sendiri berarti helium yang dipadatkan di dalam sebuah drive sehingga udara dan benda asing lainnya tidak akan masuk. Harddisk yang menggunakan teknologi helium ini mengklaim dirinya bahwa dapat mengurangi konsumsi daya hingga 23%.
Sepertinya kemajuan teknologi sedikit demi sedikit harus diaplikasikan pada PC kamu, bagaimana dengan harddisk kamu?

Samsung Hadirkan Monitor Dengan Dukungan Teknologi Dari AMD

Samsung Hadirkan Monitor Dengan Dukungan Teknologi Dari AMD

Belum lama ini Samsung dan AMD mengumumkan kolaborasi mereka dalam menghadirkan monitor yang mampu memaksimalkan tampilannya dengan menggabungkan teknologi dari dua kubu tersebut. Melalui seri Samsung UD590 dan UE850, keduanya telah disematkan teknologi dari AMD yaitu FreeSync.
Teknologi AMD FreeSync memungkinkan kartu grafis menghasilkan keluaran ke monitor dengan rate yang lebih baik. Adanya penyelarasan antara dua perangkat tersebut dapat menghasilkan tampilan yang lebih jernih, halus, cepat, dan bebas dari masalah yang kerap dijumpai pada monitor biasa. Teknologi FreeSync ini akan menghilangkan tampilan tearing (robekan) pada game di layar jika kartu grafis tersebut tidak mampu menyajikan frame rate secara stabil. Agar bekerja dengan baik, tentu saja dua perangkat tersebut harus mendukung fitur FreeSync.
Dengan mengadopsi teknologi tersebut ke sebuah monitor, akan bermanfaat bagi pengguna yang memiliki dana terbatas tanpa perlu melakukan upgrade kartu grafis yang memiliki harga cukup mahal. Bermodalkan monitor ini, pengguna dapat menikmati pengalaman bermain game dengan mulus meskipun berjalan pada frame rate yang tidak terlalu tinggi.
Monitor seri Samsung UD590 hadir dengan varian ukuran 23,6 inci dan 28 inci, sedangkan untuk seri UE850 hadir dengan pilihan 3 ukuran yaitu 23,6 inci, 27 inci, dan 31,5 inci. Dari semua varian tersebut, baru seri UE590 ukuran 28 inci yang sudah resmi hadir dipasaran. Dan sisanya baru akan resmi diluncurkan pada kisaran Maret 2015 nanti.