Al-Qur'an in Ms.Word

Assalamu'alaikum...........!!!!!!!!!!
Buat Sobat sobat anE Khususnya yanG Muslim.....

Nie ada Software yang Bisa Sedikit Membantu Anda Dalam MenuLis BaHasa Arab di Mis.Word,, BukaN haNya itu Sob, Anda jUga dapat meNgatur ayat mAna saZa yaNg akaN Anda Tuliskan, ukuran Font/tulisan, meNjadikan foNt tersebut uniCode, dan yaNg paliNg peNting sOftware ini daPat Menerjemahkan Al-Qur'an ke Dalam BaHasa IndoNesia.......!!!!!!!!!

Tertarik Untuk Mulai MeNggunakan'a...
Lagsung Aja Klik dibawah ini uNTuk Mendownload sOftware'a...

Download From 4shared:
Download Al-Qur'an in Mis.Word

Sejarah Blogger

    yapPs kali ini kita akan membahas tentang sejarah blogger.. hehehe.... lagi semangat2nya nulis sejarah niecH, , , , !!!!

Blogger dimulai oleh sebuah perusahaan sangat kecil di San Fransisco yang bernama Pyra Labs pada bulan Agustus 1999. Terjadi di tengah-tengah booming dot-com. Tetapi kami  bukan jenis perusahaan yang didanai oleh VC, suka berpesta, dan berhura-hura, ataupun minum bir. (Kecuali bir gratis.)Kami tiga sekawan, didanai dengan melakukan kontrak proyek web yang mengesalkan untuk perusahaan besar, berusaha mencari jalan masuk yang megah ke dunia Internet. Apa yang dulu kami coba lakukan tidak ada hubungannya lagi sekarang. Tapi dulu ketika melakukan itu, kami menciptakan Blogger, hanya iseng saja, dan kami berpikir Hmmmm….......... ini sepertinya menarik.

Blogger dimulai, dengan cara sederhana, dan akhirnya membesar, selama beberapa tahun. Kami telah mendapatkan sedikit uang (tapi masih kecil). Kemudian keruntuhan dot-com terjadi, dan kamipun kehabisan uang, dan kesenangan kecil dalam perjalanan kami semakin tidak menyenangkan lagi. Kami hampir tidak selamat, tidak utuh, tapi masih bisa mempertahankan layanan tetap berjalan 1sepanjang waktu (biasanya) dan mulai membangunnya kembali.

Semua hal berjalan dengan baik lagi di tahun 2002. Kami memiliki ratusan ribu user, meskipun itu belum banyak. Dan kemudian sesuatu yang tidak diharapkan terjadi: Google ingin untuk membeli kami. Kami suka Google,,,,, banget. Dan mereka suka blog, Jadi kami mengamini ide tersebut. Dan segalanya berjalan lancar.

Sekarang kami merupakan tim kecil (tapi sedikit lebih besar dari sebelumnya) di Google berfocus untuk menolong orang memiliki suara mereka sendiri di web dan mengorganisasikan informasi dunia dari perspektif perorangan. Yang dari dulunya sudah menjadi urusan kami.

Dnger2 Gtu decH sejarahnya...................,,,,, law salah mohon maaf ea.........!!!!!!

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

Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

No 1
 ========================================================================

 Public Class Form2
    Sub buattabel()
        LV.Columns.Add("pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("kode barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("nama barang", 120, HorizontalAlignment.Left)
        LV.Columns.Add("merk", 80, HorizontalAlignment.Left)
        LV.Columns.Add("harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("jmlh beli", 80, HorizontalAlignment.Left)
        LV.Columns.Add("ttl harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = pembelian.Text
        lst.SubItems.Add(kd_brg.Text)
        lst.SubItems.Add(nm_brg.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jlh_beli.Text)
        lst.SubItems.Add(ttl_harga.Text)
        LV.Items.Add(lst)
    End Sub

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

    Private Sub kd_brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_brg.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(kd_brg.Text, 2)
        Select Case X
            Case "TS" : merk.Text = "TOSIBA"
            Case "VG" : merk.Text = "V-GEN"
        End Select

        X = Microsoft.VisualBasic.Right(kd_brg.Text, 5)
        Select Case X
            Case "TS001" : nm_brg.Text = "FLASDISK 4 GB" : harga.Text = "1050000" : pembelian.Text = "001"
            Case "TS002" : nm_brg.Text = "FLASDISK 2 GB" : harga.Text = "75000" : pembelian.Text = "002"
            Case "VG001" : nm_brg.Text = "FLASDISK 4 GB" : harga.Text = "90000" : pembelian.Text = "003"
            Case "VG002" : nm_brg.Text = "FLASDISK 2 GB" : harga.Text = "60000" : pembelian.Text = "004"
        End Select
    End Sub
    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        ttl_harga.Text = harga.Text * jlh_beli.Text
        isitable()
        pembelian.Text = ""
        kd_brg.Text = ""
        nm_brg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jlh_beli.Text = ""
        ttl_harga.Text = ""
    End Sub

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

    Private Sub hps_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_data.Click
        LV.Items.Clear()
    End Sub

    Private Sub hps_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_dipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

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

    End Sub

    Private Sub pembelian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembelian.TextChanged

    End Sub
End Class
=======================================================================



No  2

========================================================================
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nama.Items.Add("Sony LCD 330")
        nama.Items.Add("Sony LCD 357")
        nama.Items.Add("Sony LCD 457")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        If nama.Text = "Sony LCD 330" Then
            harga.Text = 1500000
        ElseIf nama.Text = "Sony LCD 357" Then
            harga.Text = 2000000
        ElseIf nama.Text = "Sony LCD 457" Then
            harga.Text = 2500000
        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
        total.Text = Val(jumlah.Text) * Val(harga.Text)
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        If total.Text > 2500000 Then
            disc.Text = 0.1 * total.Text
        Else
            disc.Text = 0
        End If
        totpem.Text = Val(total.Text - disc.Text)
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        End
    End Sub
End Class

Demikilahlah postingan saya  Nama : (ASRULLAH)  NPM : (1111208)
Selamat Pemrograman VB NET (MESRAN.NET)

Aplikasi Pengusir Nyamuk

Hello Sob.......................!!!!!!!
Saya Kembali lagi NiecH......

bAgi sobat2 yang Kurang nyAman ketiKa Lagi Maen Computer, di Gangguin ma Nyamuk2 ResecH ianK kagax BertanGgung Jawab tuE..... Gax usaH xawatir..... Nie aNe kasiH Solusinya,,,,,,,kemaren anE baru aZa Download Software'a....Di jamin dech Nyamuk2 tUe pada Ko'id Cemua na, kagax ada iAnK berani deket amA coBat.....

Emmmm....Kalau Cobat PenGen taU kehebAtan software ini...Langsung adZA eA....Silahkan Cobat Klik Disini

Selamat Mencoba....Semoga BErmanfaat....!!!!!!

Jenis Jenis Jaringan Komputer

Secara umum jaringan komputer dibagi atas lima jenis, yaitu : 

1. Local Area Network (LAN)

      Local Area Network (LAN), merupakan jaringan milik pribadi di dalam sebuah gedung atau kampus yang  berukuran sampai beberapa kilometer. LAN seringkali digunakan untuk menghubungkan komputer-komputer pribadi dan workstation dalam kantor suatu perusahaan atau pabrik-pabrik untuk memakai bersama sumberdaya (misalnya printer) dan saling bertukar informasi.

2. Metropolitan Area Network (MAN)
      Metropolitan Area Network (MAN), pada dasarnya merupakan versi LAN yang berukuran lebih besar dan biasanya menggunakan teknologi yang sama dengan LAN. MAN dapat mencakup kantor-kantor perusahaan yang letaknya berdekatan atau juga sebuah kota dan dapat dimanfaatkan untuk keperluan pribadi (swasta) atau umum. MAN mampu menunjang data dan suara, bahkan dapat berhubungan dengan jaringan televisi kabel.

3. Wide Area Network (WAN)
Wide Area Network (WAN), jangkauannya mencakup daerah geografis yang luas, seringkali mencakup sebuah negara bahkan benua. WAN terdiri dari kumpulan mesin-mesin yang bertujuan untuk menjalankan program-program (aplikasi) pemakai.

4. Internet
      Sebenarnya terdapat banyak jaringan didunia ini, seringkali menggunakan perangkat keras dan perangkat lunak yang berbeda-beda. Orang yang terhubung ke jaringan sering berharap untuk bisa berkomunikasi dengan orang lain yang terhubung ke jaringan lainnya. Keinginan seperti ini memerlukan hubungan antar jaringan yang seringkali tidak kampatibel dan berbeda. Biasanya untuk melakukan hal ini diperlukan sebuah mesin yang disebut gateway guna melakukan hubungan dan melaksanakan terjemahan yang diperlukan, baik perangkat keras maupun perangkat lunaknya. Kumpulan jaringan yang terinterkoneksi inilah yang disebut dengan internet.

5. Jaringan Tanpa Kabel
      Jaringan tanpa kabel merupakan suatu solusi terhadap komunikasi yang tidak bisa dilakukan dengan jaringan yang menggunakan kabel. Misalnya orang yang ingin mendapat informasi atau melakukan komunikasi walaupun sedang berada diatas mobil atau pesawat terbang, maka mutlak jaringan tanpa kabel diperlukan karena koneksi kabel tidaklah mungkin dibuat di dalam mobil atau pesawat. Saat ini jaringan tanpa kabel sudah marak digunakan dengan memanfaatkan jasa satelit dan mampu memberikan kecepatan akses yang lebih cepat dibandingkan dengan jaringan yang menggunakan kabel. 

Cara Menambahkan Status YM di Bawah Profil

Soreeeee sObbbb.....!!!!!!!!

Oke sob, laNgsuNg aZa....

x ini saYa akan Memberi taU bagaimana Cara Memasang / membuat Status YM di bawah Kotak Profil Kita.....!!!!!!

Nah dibawah ini adalah caranya :

1. Langkah pertama yang soBat haRus lakukan adalah Log In ke Blogger, lalu menuju bagian "Layout" kemudian maSuk "Edit HTML"
2. Setelah itu ceNtang "Expand Widget Templates"
3. KeMudian cari code dibawah ini :
   <a class='profile-link' expr:href='data:userUrl'><data:viewProfileMsg/></a>
4. Setelah ketemu code diatas lalu tambahkan code dibawah ini diatasnya
   &lt;a href='ymsgr:sendIM?&gt; &lt;img src='http://opi.yahoo.com/online?u=\&amp;amp;m=g&amp;amp;t=1&amp;amp;l=us'/&gt;
   &lt;/a&gt;&lt;br/&gt;
   
   Code yaNg berWarna unGu diataS gaNti denGan ID YM soBat, dan angKa yang berWarna oraNge aDalah beNtuk dari laMbang stAtus YM (Yahoo Messenger)..
   
5. Kalau sUdah kemudiaN sObat SAVE.....!!!!!!!!!!
   
   Selamat Mencoba......
   Semoga Bermanfaaaaatttttt....!!!
   Seee UUuuuuuu

PROGRAM PENGGAJIAN DENGAN MENGGUNAKN LISTVIEW
          Public Class Form1

    Sub BUATTABLE()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 60, HorizontalAlignment.Left)
        LV.Columns.Add("GAJI", 60, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 60, HorizontalAlignment.Left)
        LV.Columns.Add("TJN KELUARGA", 60, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 60, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABLE()
        Dim LST As New ListViewItem
        LST.Text = NIK.Text
        LST.SubItems.Add(NAMA.Text)
        LST.SubItems.Add(JABATAN.Text)
        LST.SubItems.Add(GAJI.Text)
        LST.SubItems.Add(STATUS.Text)
        LST.SubItems.Add(TUNJ.Text)
        LST.SubItems.Add(PAJAK.Text)
        LST.SubItems.Add(TTL_GAJI.Text)
        LV.Items.Add(LST)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("KEPALA BAGIAN")
        JABATAN.Items.Add("STAF")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("LAJANG")
        BUATTABLE()
    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
        Select Case JABATAN.Text
            Case "MANDOR" : GAJI.Text = 1750000
            Case "KEPALA BAGIAN" : GAJI.Text = 2500000
            Case "STAF" : GAJI.Text = 1250000
        End Select
        PAJAK.Text = 0.15 * GAJI.Text
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "001" : NAMA.Text = "CENEK"
            Case "002" : NAMA.Text = "ASRULLAH"
            Case "003" : NAMA.Text = "SYAIPULLAH"
        End Select
    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        Select Case STATUS.Text
            Case "MENIKAH" : TUNJ.Text = 0.15 * GAJI.Text
            Case "LAJANG" : TUNJ.Text = 0
        End Select
    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        TTL_GAJI.Text = Val(GAJI.Text) + Val(TUNJ.Text) - Val(PAJAK.Text)
        ISITABLE()
        NIK.Text = ""
        NAMA.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        TUNJ.Text = ""
        PAJAK.Text = ""
        TTL_GAJI.Text = ""
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        Close()
    End Sub
End Class
*HASILNYA..