Tahukah anda kenapa Facebook berdominasi warna Biru ???

   Tentunya tidak ada yang sempat terpikir kenapa Facebook didominasi warna biru. Berikut penjelasannya.

Sampai sekarang belum ada yang mampu memandangi keunggulan fitur - fitur dan fasilitas lengkap yang di miliki Akun FACEBOOK untuk memanjakan penggunanya.

Namun, ada satu pertanyaan, kenapa Facebook lebih didominasi warna biru, selain warna dasar putih?  

   Ternyata Sang pembuat Mark Zuckerberg memutuskan untuk menggunakan warna biru sebagai warna dominan di situs buatannya tersebut karena dia buta warna.

Ketika dia menjalani test mata, dia mendapati bahwa matanya kesulitan untuk melihat paduan warna merah dan hijau. Dia hanya dapat melihat warna biru saja.

Oleh karenanya, dia beranggapan bahwa biru adalah warna yang dinamis dan dapat diaplikasikan hampir dengan semua warna.

    Biru menunjukkan satu warna yang terkesan tenang dan lebih dapat 'menunjukkan diri' apabila bertemu dengan warna lainnya. Bahkan untuk underline atau link sebuah URL di internet, warna yang biasa ditemui adalah mayoritas biru.

Oleh karenanya, pertanyaan kenapa biru menjadi warna dominan di Facebook, jawabannya karena Zuck buta warna dan warna biru lebih dominan sekaligus dinamis dibandingkan dengan warna lainnya.

PENEMU BLACKBERRY

      Mike Lazaridis. Lahir 14 Maret 1961, di Istambul Turki. Beliau adalah pengusaha Kanada, investor dalam teknologi komputasi kuantum, dan pendiri dan Wakil Ketua BlackBerry, yang menciptakan dan memproduksi perangkat genggam nirkabel BlackBerry.  
      Sebagai pendukung yang penuh gairah untuk kekuatan ilmu dasar untuk meningkatkan dan mengubah dunia, ia mendirikan Quantum Lembah Investasi Maret 2013 dengan teman masa kecilnya Douglas Fregin untuk menyediakan modal finansial dan intelektual untuk pengembangan lebih lanjut dan komersialisasi terobosan dalam ilmu informasi kuantum. Pada tahun 1999 ia mendirikan Perimeter Institute for Theoritical Physics, di mana ia juga menjabat sebagai Ketua Dewan. Ia juga mantan rektor Universitas Waterloo, dan Officer Pesanan Kanada. Dengan kekayaan bersih diperkirakan $ US 800 Juta (per Juni 2011), Lazaridis oleh Forbes peringkat ke-17 terkaya Kanada dan 651 di dunia.

     Mike adalah seorang visioner dan inovator Yang mampu melihat jauh ke masa depan dan bisa menciptakan sesuatu yang diperlukan oleh orang untuk hidup nyaman dalam kondisi di masa depan yang sangat membutuhkan pertukaran informasi dan juga data. Hingga akhirnya Ia berhasil membuat sebuah gadget pintar yang dapat memenuhi kebutuhan pertukaran informasi dan data secara realtime baik dengan cara
 mengirimkan teks, suara, dan bahkan Push mail. Namun, terjadi kendala ketika produk itu akan diluncurkan, yaitu masalah Brandmark atau nama pasaran produk. Saat itu RIM memaki jasa Lexico Branding di California. Sebuah perusahaan konsultan merek terkenal di Amerika namun masih saja belum menemukan nama yang pas, mudah diingat dan memiliki nilai jual tinggi. Setelah lama memikir dan melihat bentuk serta logo pada produk tersebut tercetuslah nama "Blackberry". "BlackBerry mudah melekat di ingatan, lebih baik daripada nama-nama seperti ProMail atau MegaMail," kata Placel (Pimpinan Lexico Branding California)
 

      Nama Blackberry diambil setelah melihat logo gambar yang berbentuk butiran-butiran serta warna produk tersebut yang hitam legam. Dan dengan mengusung nama brand tersebut BlackBerry kini terjual hampir 100juta unit di 91 negara, bekerja sama dengan 500 operator, dan menguasai 20.8 persen pasar telepon pintar. Hanya kalah dengan Nokia Syimbian OS.
      
      Tentunya tak berlebihan pula menyandingkan nama Lazaridis dengan pemilik Microsoft, Bill Gates, dan pemilik jaringan sosial Facebook, Mark Zuckerberg. Sebab, tangan dingin mereka mampu melahirkan produk barn dalam waktu relatif singkat dan menjadi ikon gaya hidup manusia.

Wireless keyboard

Sebuah keyboard nirkabel adalah keyboard komputer yang memungkinkan pengguna untuk berkomunikasi dengan komputer, tablet, atau laptop dengan bantuan baik frekuensi radio, inframerah atau Bluetooth teknologi. Adalah umum untuk keyboard nirkabel yang tersedia hari ini harus disertai dengan mouse nirkabel.

Wireless keyboard berbasis teknologi inframerah menggunakan gelombang cahaya untuk mengirimkan sinyal ke perangkat inframerah-enabled. Tapi, memetikan frekuensi radio (RF) teknologi, keyboard nirkabel berkomunikasi menggunakan sinyal yang berkisar dari 27 MHz ke hingga 2,4 GHz. Kebanyakan keyboard nirkabel saat ini bekerja pada 2,4 GHz frekuensi radio. Bluetooth adalah teknologi lain yang sedang banyak digunakan oleh keyboard nirkabel hari ini. Perangkat ini terhubung dan berkomunikasi ke perangkat induknya melalui protokol bluetooth.


Sebuah keyboard nirkabel dapat dihubungkan dengan menggunakan teknologi RF dengan bantuan dari dua bagian, yang mencakup pemancar dan penerima. Pemancar radio dalam keyboard nirkabel. Para penerima radio dihubungkan ke port keyboard, atau port USB. Setelah penerima dan pemancar terpasang, komputer mengenali keyboard dan mouse seolah-olah mereka terhubung melalui kabel.

RF Wireless keyboard dan keyboard Bluetooth telah populer sejak originasi mereka dan kompatibel di seluruh platform. Perangkat ini mendapatkan popularitas karena kemampuannya untuk memberikan kawat lingkungan bebas lengkap.
  

TYPE : 

• Sebuah combo keyboard nirkabel
• Ukuran standar keyboard nirkabel: Keyboard ini standar ukuran keyboard nirkabel.
• Portabel keyboard dengan touchpad: Keyboard Dilengkapi dengan panel sentuh terintegrasI. 
•  Roll-up keyboard nirkabel: keyboard nirkabel yang dapat digulung bila tidak digunakan. 
• Mini Wireless Keyboard: Palm keyboard berukuran dengan panel sentuh terintegrasi

Waduh ... Indonesia Vs Belanda

Buseett dah !
Indonesia memang Top dah kalau cari lawan sepak bola, tidak main-main lawannya Belanda (The Orange).
ini adalah pertemuan pertama Indonesia dan Belanda sepanjang sejarah. Dan Belanda dipastikan akan menampilkan pemain-pemain terbaiknya yang berada dalam kondisi bugar seperti Wesley Sneijder, Arjen Roben ataupun Robin van Persie.

Pertarungan Di atas lapangan hijau ini akan diadakan di Stadion Gelora Bung Karno, Jumat (7/6/2013).
Duel uji coba ini akan menjadi sorotan baru dan sejarah baru untuk indonesia. Dengan komposisi format pemain Sebanyak 13 pemain yang menghadiri latihan kali ini di antaranya Kurnia Mega, I Made Wirawan, Hengky Ardiles, Raphael Maitimo, Zulkifli Syukur, Muhammad Roby, Tony Sucipto, Achmad Jufriyanto, Andik Vermansah, Vendry Mofu, Ahmad Bustomi, Hendro Siswanto, dan Sergio Van Dijk. Mereka menjalani latihan fisik dan teknik dengan porsi ringan.

Semoga saja Negeriku ini Menang meski hanya Duel uji coba, Ya... paling 1 anka saya berikan untuk indonesia.

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

 SOAL 1:
Buatlah program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

SOAL 2:

Buatlah program vb net untuk menampilkan output seperti dibawah ini.

GAJI PEGAWAI PT. TELKOM
--------------------------------------------
Nama Pegawai       :   ?
Gol        :   ?
Gaji        :  
Pajak        :
Pinjaman    :   ?
Gaji Bersih    :
--------------------------------------------

Proses
    Gol=IIIA maka Gaji = 1500000
    Gol=IIIB maka Gaji = 2500000
    Gol=IIIC maka Gaji = 3500000
   
    Pajak = 15% dari Gaji
    Gaji Bersih  = Gaji  - Pinjaman  - Gaji Bersih

 PENYELESAIAN:
SOAL 1

-->

Public Class Form1

    Sub buattable()

        lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)

        lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)

        lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)

        lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)

        lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)

        lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)

        Lv.GridLines = True

        Lv.FullRowSelect = True

        Lv.View = View.Details

    End Sub

    Sub isitable()

        Dim x As New ListViewItem

        With x

            .Text = nmr.Text

            .SubItems.Add(daerah.Text)

            .SubItems.Add(tipe.Text)

            .SubItems.Add(Bbeban.Text)

            .SubItems.Add(kwh.Text)

            .SubItems.Add(MMini.Text)

            .SubItems.Add(MMlalu.Text)

            .SubItems.Add(pemakai.Text)

            .SubItems.Add(total.Text)

            .SubItems.Add(pajak.Text)

            .SubItems.Add(bayar.Text)

            lv.Items.Add(x)

        End With

    End Sub

    Sub add_daerah()

        With daerah

            .Items.Add("MEDAN")

            .Items.Add("BELAWAN")

            .Items.Add("AKSARA")

            .Items.Add("MARENDAL")

            .Items.Add("BINJAI")

            .Items.Add("LUBUK PAKAM")

        End With

    End Sub

    Sub add_tipe()

        With tipe

            .Items.Add("TOKO")

            .Items.Add("RUMAH")

            .Items.Add("SWALAYAN")

            .Items.Add("PABRIK")

        End With

    End Sub

 

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged

        If tipe.Text = "TOKO" Then

            Bbeban.Text = 150000

            kwh.Text = 500

        ElseIf tipe.Text = "RUMAH" Then

            kwh.Text = 200

            Bbeban.Text = 50000

        ElseIf tipe.Text = "SWALAYAN" Then

            kwh.Text = 1500

            Bbeban.Text = 400000

        ElseIf tipe.Text = "PABRIK" Then

            kwh.Text = 1000

            Bbeban.Text = 1000000

        End If

        MMini.Text = ""

        MMlalu.Text = ""

        pemakai.Text = ""

        total.Text = ""

        pajak.Text = ""

        bayar.Text = ""

        nmr.Text = ""

    End Sub

    Sub bersih()

        nmr.Text = ""

        daerah.Text = ""

        tipe.Text = ""

        Bbeban.Text = ""

        kwh.Text = ""

        MMini.Text = ""

        MMlalu.Text = ""

        pemakai.Text = ""

        total.Text = ""

        pajak.Text = ""

        bayar.Text = ""

    End Sub

    Sub add_nmr()

        Dim x, y, z As String

        x = Microsoft.VisualBasic.Left(daerah.Text, 3)

        y = Microsoft.VisualBasic.Left(tipe.Text, 3)

        z = "00" & (tipe.SelectedIndex + 1)

        nmr.Text = x & "-" & y & "-" & z

    End Sub

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

        If e.KeyChar = Chr(13) Then

            If MMlalu.Text = "" Or MMini.Text = "" Then

                MsgBox("Isi Dengan Benar")

            Else

                If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then

                    pemakai.Text = MMini.Text - MMlalu.Text

                    total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)

                    pajak.Text = (15 / 100) * total.Text

                    bayar.Text = Val(total.Text) + Val(pajak.Text)

                    Call add_nmr()

                Else

                    MsgBox("isi dengan angka !!!")

                    pemakai.Text = ""

                    total.Text = ""

                    pajak.Text = ""

                    bayar.Text = ""

                    nmr.Text = ""

                End If

            End If

        End If

    End Sub

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

        Call add_daerah()

        Call add_tipe()

        Call buattable()

    End Sub

    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged

        Dim i As String

        i = daerah.Text

        bersih()

        daerah.Text = i

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        bersih()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        isitable()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        lv.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

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

    End Sub

End Class

        

LISTVIEW    :                  

soal 2:

-->

Public Class Form1

    Sub bersih()

        'gol.Text = ""

        'gol.Text = ""

        'gaji.Text = ""

        'pajk.Text = ""

        pinjm.Text = ""

        gjbrsh.Text = ""

    End Sub

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

        gol.Items.Add("IIIA")

        gol.Items.Add("IIIB")

        gol.Items.Add("IIIC")

    End Sub

    Private Sub gaji_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji.TextChanged

        pajk.Text = gaji.Text - 15%

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        gjbrsh.Text = "Rp. " & Format(pajk.Text - pinjm.Text, "###,###,###")

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        bersih()

        If gol.Text = "IIIA" Then

            gaji.Text = "1500000"

        ElseIf gol.Text = "IIIB" Then

            gaji.Text = "2500000"

        ElseIf gol.Text = "IIIC" Then

            gaji.Text = "3500000"

        End If

        pinjm.Focus()

    End Sub

End Class