Servernya facebook ternyata seperti ini

Servernya facebook ternyata seperti ini

[img]http://www.kdd.org/kdd2010/images/logo_Facebook.jpg[/img]
Facebook seperti yang kita ketahui merupakan website terbesar kedua setelah Google, bahkan untuk beberapa negara tertentu (termasuk Indonesia dan 4 negara Asia Tenggara lainnya) facebook mendapatkan peringkat no. 1 sebagai situs internet terbanyak diakses. Beragam cerita menarik dibalik peningkatan drastis pengguna facebook, untuk saat ini telah mencapai sekitar 550 juta pengguna aktif facebook dan akan terus bertambah pada tahun-tahun berikutnya. Uniknya, negara kita ini juga sebagai pendongkrak terbesar atas kesuksesan facebook, Indonesia negara yang memiliki peningkatan drastis pengguna facebook.

Dalam 550 juta pengguna aktif facebook, terdapat 350 juta pengguna rutin facebook yang tidak pernah melewatkan mengakses facebook setiap harinya. Jumlah sangat besar yang otomatis sejalan dengan dukungan performance yang baik dari internal perusahaan facebook, tentu saja yang dibutuhkan disini adalah banyaknya server pada data centernya. Digunakan untuk menampung data setiap detiknya akibat beragam kegiatan pengguna melalui account facebooknya, saat ini server facebook telah mencapai 100.000 jumlahnya. Tentu saja itu adalah angka yang wajar mengingat beberapa keunikan statistik berikut ini :

Pengguna menghabiskan lebih dari 20 miliar menit di Facebook setiap harinya.

Setiap minggu pengguna berbagi lebih dari 8 miliar lembar konten, termasuk update status, foto dan catatan.

Setiap bulan lebih dari 5 milyar foto diupload ke Facebook.

Pengguna melihat lebih dari 2 juta foto setiap detik.

server melakukan lebih dari 50 juta operasi per detik, terutama antara server dan web cache tier.

Lebih dari 2 juta situs web telah menerapkan fitur Facebook Connect.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/1348563bydsi2idjo2joo2.jpg[/img]

Begitulah keunikan dari situs jejaring sosial terbesar ini, seperti yang kita rasakan saat ini bahwa facebook sangatlah cepat diakses dan minim sekali down, berbeda dengan beberapa tahun lalu ketika awal pengembangannya, facebook terasa agak berat diakses apalagi untuk pengguna Indonesia, tapi hal itu telah berlalu dan saat inilah masa kejayaan facebook. Berikut bisa kita lihat beberapa gambar pada facebook server farm (ladang server/data center).

Data center
Pusat data yang memiliki puluhan ribu server.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/134908vsr2dd2d8nkvv4n8.jpg[/img]

Pengelolaan hemat energi
Pada baris ini, server ditetapkan untuk meminimalkan energi yang dibutuhkan untuk menjaga data center berjalan
[img]http://www.publisher-id.com/data/attachment/album/201108/15/134906yaczph7bp7nlpyjj.jpg[/img]

Tumpukan
Gambar dari dekat tumpukan server dalam dua rak.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/134904ysy90ccsunebpj6g.jpg[/img]

Pengendali Suhu
Merupakan pusat yang memiliki sistem pendingin canggih dan menyimpan pasokan tenaga listrik.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/13490235d57zaibiw0i515.jpg[/img]

Lintas Komunikasi
Kabel terhubung server di pusat satu sama lain dan fasilitas menyuluruh untuk diakses seluruh dunia.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/135729tvt8yk98o9vntxa2.jpg

Rencana B dan C dan …
Pusat dibangun menggunakan layered replication replikasi berlapis, model yang membuat hampir tidak mungkin gagal, bahkan jika sistem di San Fransisco overload.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/134901aj9s22jllcn622x9.jpg[/img]

Detail
Gambar dari dekat server secara detil, dalam pengawasan teratur dan menggunakan teknologi terbaik.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/134859zzarnim4pxpjazxp.jpg[/img]

Web Server
Server memproses update halaman pengguna secepat mungkin, sehingga komentar atau posting tampil dalam hitungan detik. Menampung 550 juta (dan terus bertambah) pengguna, Maka dari itu membutuhkan kekuatas pusat data yang luar biasa.
[img]http://www.publisher-id.com/data/attachment/album/201108/15/1348584003zz6k0h6pxgfg.jpg[/img]

.

Membuat progam untuk menghitung luas trapsium menggunakan vb.net 2008

Membuat progam untuk menghitung luas trapsium menggunakan vb.net 2008

semua berhubung saya sedang belajar pemograman vb.net, saya mencoba untuk membuat progam  sederhana yaitu menghitung luas trapesium 

 Dan ini source kodenya :   

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtLuas.Text = (Val(txta.Text) + Val(txtb.Text)) * Val(txtTinggi.Text) / 2
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Bersih()
    End Sub
    Sub Bersih()
        txta.Text = ""
        txtb.Text = ""
        txtTinggi.Text = ""
        txtLuas.Text = ""
        txta.Focus()

    End Sub

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

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

Sekian dulu postingan saya , .

blog www.deafaroz.blogspot.com BEBAS DI COPY PASTE posting ini di buat untuk memberikan pengetahuan kepada yang belum mengetahuinya,jadi tidak ada larangan untuk tidak mengcopy di blog ini,trimakasih untuk yang udah mau mengcopy di blog ini,sebarkan ilmu semampu anda dengan ikhlas .

Aplikasi pengolahan buku menggunakan vb.net 2008 dengan database access.

Aplikasi pengolahan buku menggunakan vb.net 2008 dengan database access.

Ini adalah salah satu progam pengolahan data buku sederhana yang saya buat menggunakan vb.net 2008 dengan database acces

dan source kodenya :
Public Class frmBarang
    Dim SQL As String
    Dim Proses As New clskoneksi
    Dim tblbuku As DataTable
    Public MyListItem As ListViewItem
    Sub HeaderBuku()
        lstBuku.Columns.Add("NO", 100, HorizontalAlignment.Right)
        lstBuku.Columns.Add("id_buku", 100, HorizontalAlignment.Right)
        lstBuku.Columns.Add("judul_buku", 200, HorizontalAlignment.Center)
        lstBuku.Columns.Add("pengarang", 100, HorizontalAlignment.Left)
        lstBuku.Columns.Add("penerbit", 100, HorizontalAlignment.Left)
        lstBuku.Columns.Add("tahun", 100, HorizontalAlignment.Center)
        lstBuku.Columns.Add("kategori", 100, HorizontalAlignment.Right)
    End Sub
    Sub Tampil()
        Dim i As Integer
        Dim urut As Integer
        Dim jml As Double
        urut = 1
        jml = 0
        Try
            If lstBuku.Items.Count > 0 Then
                lstBuku.Clear()
            End If
            lstBuku.View = View.Details
            Call HeaderBuku()
            If txtCari.Text <> "" Then
                tblbuku = Proses.ExecuteQuery("Select * from [buku] Where judul_buku='" & txtCari.Text & "' order by judul_buku asc")
            Else
                tblbuku = Proses.ExecuteQuery("Select * from [buku] order by judul_buku asc")
            End If
            For i = 0 To tblbuku.Rows.Count - 1
                With tblbuku.Rows(i)
                    MyListItem = lstBuku.Items.Add(urut)
                    MyListItem.SubItems.Add(.Item("id_buku").ToString)
                    MyListItem.SubItems.Add(.Item("judul_buku").ToString)
                    MyListItem.SubItems.Add(.Item("pengarang").ToString)
                    MyListItem.SubItems.Add(.Item("penerbit").ToString)
                    MyListItem.SubItems.Add(.Item("tahun").ToString)
                    MyListItem.SubItems.Add(.Item("kategori").ToString)
                End With
                urut = urut + 1
            Next
        Catch Exp As Exception
            MsgBox("Program error" & vbCrLf & Err.Description)
        End Try
        txtCari.Text = txtCari.Text
    End Sub
    Sub bersih()
        txtKode.Text = ""
        txtJudul.Text = ""
        cboKategori.Text = ""
        txtPenerbit.Text = ""
        txtPengarang.Text = ""
        txtTahun.Text = ""
        txtCari.Text = ""
        Call Tampil()
        NonAktif()
        btnSimpan.Enabled = False
        btnUpdate.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
        txtKode.Enabled = True
        txtKode.Focus()
    End Sub
    Sub Aktif()
        txtKode.Enabled = True
        txtJudul.Enabled = True
        txtPengarang.Enabled = True
        txtPenerbit.Enabled = True
        txtTahun.Enabled = True
        cboKategori.Enabled = True
    End Sub
    Sub NonAktif()
        txtKode.Enabled = False
        txtJudul.Enabled = False
        txtPengarang.Enabled = False
        txtPenerbit.Enabled = False
        txtTahun.Enabled = False
        cboKategori.Enabled = False
    End Sub
    Private Sub txtKode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKode.TextChanged
        If Len(txtKode.Text) < 6 Then Exit Sub
        tblbuku = Proses.ExecuteQuery("Select * From [buku] Where id_buku='" & txtKode.Text & "'")
        If tblbuku.Rows.Count > 0 Then
            With tblbuku.Rows(0)
                txtJudul.Text = .Item("judul_buku")
                txtPengarang.Text = .Item("pengarang")
                txtPenerbit.Text = .Item("penerbit")
                txtTahun.Text = .Item("tahun")
                cboKategori.Text = .Item("kategori")
            End With
            Call Aktif()
            txtKode.Enabled = False
            txtJudul.Focus()
            btnSimpan.Enabled = False : btnKeluar.Enabled = True
            btnUpdate.Enabled = True : btnHapus.Enabled = True
            btnBatal.Enabled = True
        Else
            Call Aktif()
            txtKode.Enabled = False
            txtJudul.Focus()
            btnSimpan.Enabled = True
            btnUpdate.Enabled = False : btnHapus.Enabled = False
            btnBatal.Enabled = True
        End If
    End Sub
    Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lstBuku.FullRowSelect = True
        Call bersih()
    End Sub
    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        SQL = "Insert Into [buku] Values ('" & txtKode.Text & "','" & txtJudul.Text & "','" & txtPengarang.Text & "','" & txtPenerbit.Text & "','" & txtTahun.Text & "','" & cboKategori.Text & "')"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data Baru telah disimpan..!!", "Penyimpanan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call bersih()
    End Sub
    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "Delete From [buku] Where id_buku = '" & txtKode.Text & "'"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data telah dihapus..!!", "Penghapusan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call bersih()
    End Sub
    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        Call NonAktif()
    End Sub
    Private Sub lstBuku_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstBuku.Click
        txtKode.Text = lstBuku.SelectedItems(0).SubItems(1).Text
    End Sub
    Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged
        Call Tampil()
    End Sub

    Private Sub btnUpdate_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        SQL = "Update [buku] Set judul_buku = '" & txtJudul.Text & "',pengarang='" & txtPengarang.Text & "',penerbit='" & txtPenerbit.Text & "',tahun='" & txtTahun.Text & "',kategori='" & cboKategori.Text & "' where id_buku = '" & txtKode.Text & "'"
        Proses.ExecuteNonQuery(SQL)
        MessageBox.Show("Data telah diubah..!!", "Perubahan Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Call bersih()
    End Sub
End Class



Dan ini kode koneksi untuk menjalankannya :
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Public Class ClsKoneksi
    Protected tblUser = New DataTable
    Protected SQL As String
    Protected Cn As OleDb.OleDbConnection
    Protected Cmd As OleDb.OleDbCommand
    Protected Da As OleDb.OleDbDataAdapter
    Protected Ds As DataSet
    Protected Dt As DataTable
    Public Function OpenConn() As Boolean
        Cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\db_uas_vbnet.accdb;Persist Security Info=False;")
        Cn.Open()
        If Cn.State <> ConnectionState.Open Then
            Return False
        Else
            Return True
        End If
    End Function
    Public Sub CloseConn()
        If Not IsNothing(Cn) Then
            Cn.Close()
            Cn = Nothing
        End If
    End Sub
    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
            Return Nothing
            Exit Function
        End If

        Cmd = New OleDb.OleDbCommand(Query, Cn)
        Da = New OleDb.OleDbDataAdapter
        Da.SelectCommand = Cmd

        Ds = New Data.DataSet
        Da.Fill(Ds)

        Dt = Ds.Tables(0)

        Return Dt

        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing

        CloseConn()

    End Function
    Public Sub ExecuteNonQuery(ByVal Query As String)
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
            Exit Sub
        End If

        Cmd = New OleDb.OleDbCommand
        Cmd.Connection = Cn
        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = Query
        Cmd.ExecuteNonQuery()
        Cmd = Nothing
        CloseConn()
    End Sub
End Class


blog www.deafaroz.blogspot.com BEBAS DI COPY PASTE posting ini di buat untuk memberikan pengetahuan kepada yang belum mengetahuinya,jadi tidak ada larangan untuk tidak mengcopy di blog ini,trimakasih untuk yang udah mau mengcopy di blog ini,sebarkan ilmu semampu anda dengan ikhlas .