Cara Mengganti Tema di Facebook

Mungkin banyak dari temen-temen bingung melihat tampilan facebook seseorang yang tampilan keren atau sylist.
dulu saya juga begitu.,.
saya iri melihat tampilan facebook teman ku..
bagi kalian yang ingin merubah tampilan facebook seperti ini

Sebenarnya mengganti atau memasang tampilan facebook tidaklah sulit, karena fitur ini sebenarnya adalah bagian dari add-ons yang tersedia bagi semua search egine (firefox, chrome dan exploler).

• Untuk langkah awalnya kamu masuk ke userstyles.org
• pilih add-ons yang anda inginkan
• klo uda liat gambar di bawah pilih install with stylis

memasang web stylist ini bisa memperlambat koneksi internet, jadi bagi yang online menggunakan bandwidth kecil sebaik nya tidak usah menggunakan nya.
anda juga bisa liat tutorial video install thema facebook
selamat mencoba yach :-).,.,.,

Read more ...

cara koneksi ke database menggunakan Microsoft Acces 2003/2007

Kali ini kaita akan mencoba cara koneksi ke database. Mungkin banyak dari kita yang belum bisa cara koneksi ke database menggunakan Microsoft Acces 2003/2007, karna kebanyakan database di buat dengan Mysql.

Langkah Pertama kita buat dulu database nya dengan masuk ke Microsoft Acces, lalu kita buat data seperti berikut;

Setelah kalian buat database nya kemudian kalian simpan dokumen ke direktori debug pada program vibi kalian. dalam disain nya kita cukup menambahkan datagridview pada form.

 Kemudian double klick pada form dan masukkan kode berikut;

Imports System.Data.OleDb

Public Class Data_siswa

    Dim cone As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=Database1.mdb")

    Sub Tampil()

        Dim da As New OleDbDataAdapter("select * from Table1", cone)

        Dim ds As New DataSet

        da.Fill(ds, "Table1")

        DataGridView1.DataSource = ds.Tables(0)

    End Sub

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

        Me.Tampil()

    End Sub

End Class

Sedikit keterangan, kata-kata “Database1” yg ada dalam kode adalah nama database yang kita buat, dan kata-kata “table1” adalah nama tabel nya.

Setelah itu coba kita jalankan program kita, datagriedview yang semula kosong akan terisi dengan database yang telah kita buat sebelumnya.

Terimah kasih semoga bermanfaat bagi kita semua, selamat mencoba.

Read more ...

ARMEG Mengare

ARMEG, merupakan salah satu kelompok/komunitas para pecinta alam mengare. Sebuah ekspedisi yang di lakukan menunjukkan bahwa alam di pulau mengare sangatlah menjanjikan buat sebuah tempat wisata.
salah satu contohnya adalah Benteng lodewijk.
Benteng mengare ini merupakan salah satu peninggalan sejarah penjajahan pada zaman Belanda di pulau mengare. Sayang akses jalan menuju tempat tersebut tidaklah mudah. Kita dapat memilih dua akses jalan darat dan laut. Jika kita memilih jalur laut kita harus membawa boot atau perahu sendiri atau menyewanya di pelabuhan terdekat. Jika kita melalui akses darat kita dapat melaluinya dengan menyebrang melewati tambak-tambak.
ARMEG juga salah satu kelompok suporter persegres gresik united yaitu ultras mania, kami juga merupakan pendukung tim sepak bola kami sendiri yaitu PSDM-mengare dengan sebutan supporter "ARMEG MANIA".

Gambar di samping merupakan salah satu lambang ultras_armeg_21 yang selalu mendukung Gresik United di bawah bendera Ultras Gresik, yang menjunjung tinggi sportifitas.

Read more ...

konversi sistem bilangan dengan vibi,net

sebuah conversi sistem bilangan kayak nya sulit untuk kita hitung, tapi kali ini kita akan mencoba untuk membuat sebuah aplikasi untuk mengkonversi sistem bilangan decimal.
kita tau bahwa sistem bilangan ada empat,  yaitu; biner, decimal, oktal dan biner.
dalam aplikasi kta memerlukan sebuah label dan tiga buah label.

buat codding dalam textbox1 sebagai berikut;

 Dim bagi As Long = Val(TextBox1.Text)
        Label3.Text = ""
        While bagi > 0
            Label3.Text = (bagi Mod 2) & Label3.Text
            bagi = bagi \ 2
        End While

        Label1.Text = Microsoft.VisualBasic.Hex(Val(TextBox1.Text))
        Label2.Text = Microsoft.VisualBasic.Oct(Val(TextBox1.Text))

selamat mencoba semoga sukses dan bermanfa'at bagi kalian.

Read more ...

Overloading pada PBO

Overloading Merupakan Suatu Function yang memiliki parameter , dan function tersebut dapat memiliki nama function yang sama dengan yang lainnya dengan syarat jumlah parameter mesti berbeda


atau bisa kita bilang Situasi di mana beberapa rutin dalam sebuah program dapat mempunyai nama sama tetapi berbeda jenis parameter dan/utau jenis return value.
coba kalian analisa class diagram ini;

class induk nya adalah class KELUARGA dan turunannya adalah semua class yang ada.
pertama buat class KELUARGA sebagai class induk dan masukkan code;


Public MustInherit Class KELUARGA

    Private bapak As String

    Private ibu As String

    Private anak_pria As String

    Private anak_wanita As String

    Public Property nama_bapak() As String

        Get

            Return bapak

        End Get

        Set(ByVal value As String)

            bapak = value

        End Set

    End Property

    Public Property nama_ibu() As String

        Get

            Return ibu

        End Get

        Set(ByVal value As String)

            ibu = value

        End Set

    End Property

    Public Property nama_anak_pria() As String

        Get

            Return anak_pria

        End Get

        Set(ByVal value As String)

            anak_pria = value

        End Set

    End Property

    Public Property nama_anak_wanita() As String

        Get

            Return anak_wanita

        End Get

        Set(ByVal value As String)

            anak_wanita = value

        End Set

    End Property

End Class

kemudian buat class turunannya dengan code;

Public Class BAPAK

    Inherits KELUARGA

    Private nama_ke As New Hashtable

    Public Overloads Property nama_bapak(ByVal jenis As jenis_nama_bapak) As String

        Get

            Return nama_ke(jenis)

        End Get

        Set(ByVal value As String)

            nama_ke.Add(jenis, value)

        End Set

    End Property

End Class

buat enum di bawah code class, nama enum bisa di sesuaikan dengan nama class nya.

Public Enum jenis_nama_bapak

    lengkap = 1

    panggilan = 2

End Enum

didalam program ini terdapat 4 class turunan, berarti kita juga harus membuat 4 enum yang di sesuaikan dengan nama class nya. code buat smua class nya sama dengan code di atas.

kemudian desain form seperti gambar

kemudian buat codding di dalam combobox;

private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBStatus.SelectedIndexChanged

        Dim obj_ZAQI As New BAPAK

        Dim zaqi As New IBU

        Dim obj_zacky As New ANAK_WANITA

        Dim zacky As New ANAK_PRIA

        If CBStatus.Text = "BAPAK" Then

            obj_ZAQI.nama_bapak = "ABURIZAL"

            obj_ZAQI.nama_bapak(jenis_nama_bapak.lengkap) = "ABURIZAL BACHRI"

            obj_ZAQI.nama_bapak(jenis_nama_bapak.panggilan) = "ABU"

            TextBox1.Text = obj_ZAQI.nama_bapak(jenis_nama_bapak.lengkap)

            TextBox2.Text = obj_ZAQI.nama_bapak

            TextBox3.Text = obj_ZAQI.nama_bapak(jenis_nama_bapak.panggilan)

        ElseIf CBStatus.Text = "IBU" Then

            zaqi.nama_ibu = "MEGAWATI"

            zaqi.nama_ibu(jenis_nama_ibu.lengkap) = "NUR MEGAWATI"

            zaqi.nama_ibu(jenis_nama_ibu.panggilan) = "MEGA"

            TextBox1.Text = zaqi.nama_ibu(jenis_nama_ibu.lengkap)

            TextBox2.Text = zaqi.nama_ibu

            TextBox3.Text = zaqi.nama_ibu(jenis_nama_ibu.panggilan)

        ElseIf CBStatus.Text = "ANAK WANITA" Then

            obj_zacky.nama_anak_wanita = "HASTARI"

            obj_zacky.nama_anak_wanita(jenis_nama_anak_wanita.lengkap) = "AYU HASTARI"

            obj_zacky.nama_anak_wanita(jenis_nama_anak_wanita.panggilan) = "YUHAS"

            TextBox1.Text = obj_zacky.nama_anak_wanita(jenis_nama_anak_wanita.lengkap)

            TextBox2.Text = obj_zacky.nama_anak_wanita

            TextBox3.Text = obj_zacky.nama_anak_wanita(jenis_nama_anak_wanita.panggilan)

        ElseIf CBStatus.Text = "ANAK PRIA" Then

            zacky.nama_anak_pria = "ROZAQI"

            zacky.nama_anak_pria(jenis_nama_anak_pria.lengkap) = "ABDUL ROZAQI"

            zacky.nama_anak_pria(jenis_nama_anak_pria.panggilan) = "ZAQI"

            TextBox1.Text = zacky.nama_anak_pria(jenis_nama_anak_pria.lengkap)

            TextBox2.Text = zacky.nama_anak_pria

            TextBox3.Text = zacky.nama_anak_pria(jenis_nama_anak_pria.panggilan)

        End If

    End Sub

#cbstatus = combobox

kemudian buat codding pada button tampil

 With ListBox1

         .Items.Add("NAMA LENGKAP      : " & textbox1.text)

         .Items.Add("NAMA PENDEK        : " & textbox2.text)

         .Items.Add("NAMA PANGGILAN  : " & textbox3.text)

         .Items.Add("STATUS  : " & CBStatus.Text)

                CBStatus.Text = ""

                TextBox1.Text = ""

                TextBox2.Text = ""

                TextBox3.Text = ""

end with

dalam program ini kalian harus menganalisa class diagram tersebut.

Read more ...