Program Pemakaian Listrik menggunakan Listview dengan VB Net 2008

Program Pemakaian Listrik menggunakan Listview dengan VB Net 2008

Buatlah program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

Kemudian Masuk kan Listing Program Berikut:

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

program penjuanlan visul besic

Sub buattable()
        Lv.Columns.Add("kodebrg", 60, HorizontalAlignment.Center)
        Lv.Columns.Add("namabrg", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("harga", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("jumlah", 65, HorizontalAlignment.Center)
        Lv.Columns.Add("Total", 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 = kodebrg.Text
            .SubItems.Add(nmbrg.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(jumlah.Text)
            .SubItems.Add(harga.Text * jumlah.Text)

            Lv.Items.Add(x)
        End With
        totalharga()


    End Sub

    Sub totalharga()
        Dim i As Long
        i = 0
        For j As Integer = 0 To Lv.Items.Count - 1
            i = i + Val(Lv.Items(j).SubItems(4).Text)

        Next
        total.Text = "Rp" & Format(i, "###.###.###,")
    End Sub


    Sub hapus()
        kodebrg.Text = ""
        nmbrg.Text = ""
        harga.Text = ""
        jumlah.Text = ""


    End Sub

    Sub aktif(ByVal a As Boolean, ByVal b As Boolean)
        kodebrg.Enabled = a
        nmbrg.Enabled = b
        harga.Enabled = b
        jumlah.Enabled = b

    End Sub





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

        kodebrg.Items.Add("001")
        kodebrg.Items.Add("002")
        kodebrg.Items.Add("003")
        kodebrg.Items.Add("004")
        buattable()

    End Sub

    Private Sub kodebrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebrg.SelectedIndexChanged
        aktif(False, True)
        If kodebrg.Text = "001" Then
            nmbrg.Text = "LAPTOP"
            harga.Text = "5000000"
            jumlah.Text = "3"
        ElseIf kodebrg.Text = "002" Then
            nmbrg.Text = "printer"
            harga.Text = "150000"
            jumlah.Text = "2"
        ElseIf kodebrg.Text = "003" Then
            nmbrg.Text = "monitor"
            harga.Text = "2000000"
            jumlah.Text = "1"
        ElseIf kodebrg.Text = "004" Then
            nmbrg.Text = "mose"
            harga.Text = "200000"
            jumlah.Text = "4"
        End If

    End Sub

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

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

    End Sub

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

    End Sub

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

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Lv.SelectedItems.Count <> 0 Then
            Lv.Items.Remove(Lv.SelectedItems(0))
        Else
            MsgBox("cuy pilih dulu yang m,au di hapus")

        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Lv.Items.Clear()

    End Sub

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

Balajar membuat data gaji berserta table nya dari visul besic

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("nik", 80, HorizontalAlignment.Center)

        LV.Columns.Add("nama", 90, HorizontalAlignment.Left)

        LV.Columns.Add("jabatan", 80, HorizontalAlignment.Left)

        LV.Columns.Add("gaji", 80, HorizontalAlignment.Left)

        LV.Columns.Add("status", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Tunj.Keluarga", 80, HorizontalAlignment.Left)

        LV.Columns.Add("pajak", 80, 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(keluarga.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)

    End Sub

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

        BuatTabel()

    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("Belum Menikah")

    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 = "yuni"

            Case "002" : nama.Text = "leli"

            Case "003" : nama.Text = "dino"

        End Select

    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 status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah" : keluarga.Text = 0.15 * gaji.Text

            Case "Belum Menikah" : keluarga.Text = 0

        End Select

    End Sub

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

        total.Text = Val(gaji.Text) + Val(keluarga.Text) - Val(pajak.Text)

        isitable()

    End Sub

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

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        keluarga.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

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

        End

    End Sub

End Class

                                                                 

Ciri-ciri Wanita Ahli Surga:

1. Bertakwa.

2. Beriman kepada Allah, Malaikat-Malaikat-Nya, Kitab-Kitab-Nya, Rasul-Rasul-Nya, hari kiamat, dan beriman kepada takdir yang baik maupun yang buruk.

3. Bersaksi bahwa tiada ilah yang berhak disembah kecuali Allah, bersaksi bahwa Muhammad adalah hamba dan Rasul-Nya, mendirikan shalat, menunaikan zakat, berpuasa di bulan Ramadlan, dan naik haji bagi yang mampu.

4. Ihsan, yaitu beribadah kepada Allah seakan-akan melihat Allah, jika dia tidak dapat melihat Allah, dia mengetahui bahwa Allah melihat dirinya.

5. Ikhlas beribadah semata-mata kepada Allah, tawakkal kepada Allah, mencintai Allah dan Rasul-Nya, takut terhadap adzab Allah, mengharap rahmat Allah, bertaubat kepada-Nya, dan bersabar atas segala takdir-takdir Allah serta mensyukuri segala kenikmatan yang diberikan kepadanya.

6. Gemar membaca Al Qur'an dan berusaha memahaminya, berdzikir mengingat Allah ketika sendiri atau bersama banyak orang dan berdoa kepada Allah semata.

7. Menghidupkan amar ma'ruf dan nahi mungkar pada keluarga dan masyarakat.

8. Berbuat baik (ihsan) kepada tetangga, anak yatim, fakir miskin, dan seluruh makhluk, serta berbuat baik terhadap hewan ternak yang dia miliki.

9. Menyambung tali persaudaraan terhadap orang yang memutuskannya, memberi kepada orang, menahan pemberian kepada dirinya, dan memaafkan orang yang mendhaliminya.

10. Berinfak, baik ketika lapang maupun dalam keadaan sempit, menahan amarah dan memaafkan manusia.

11. Adil dalam segala perkara dan bersikap adil terhadap seluruh makhluk.

12. Menjaga lisannya dari perkataan dusta, saksi palsu dan menceritakan kejelekan orang lain (ghibah).

13. Menepati janji dan amanah yang diberikan kepadanya.

14. Berbakti kepada kedua orang tua.

15. Menyambung silaturahmi dengan karib kerabatnya, sahabat terdekat dan terjauh.

Andaikata Rasulullah Menjadi Tamu Kita

Bayangkan apabila Rasulullah dengan seijin Allah tiba-tiba muncul mengetuk pintu rumah kita. Beliau datang dengan tersenyum dan muka bersih di muka pintu rumah kita, Apa yang akan kita lakukan? Mestinya kita akan sangat berbahagia, memeluk beliau erat-erat dan lantas mempersilahkan beliau masuk ke ruang tamu kita. Kemudian kita tentunya akan meminta dengan sangat agar Rasulullah sudi menginap beberapa hari di rumah kita. Beliau tentu tersenyum........

Tapi barangkali kita meminta pula Rasulullah menunggu sebentar di depan pintu karena kita teringat Video CD rated R18+ yang ada di ruang tengah dan kita tergesa-gesa memindahkan dahulu video tersebut ke dalam.

Beliau tentu tetap tersenyum........

Atau barangkali kita teringat akan lukisan wanita setengah telanjang yang kita pajang di ruang tamu kita, sehingga kita terpaksa juga memindahkannya ke belakang secara tergesa-gesa.
Barangkali kita akan memindahkan lafal Allah dan Muhammad yang ada di ruang samping dan kita meletakkannya di ruang tamu.

Beliau tentu tersenyum.......

Bagaimana bila kemudian Rasulullah bersedia menginap di rumah kita? Barangkali kita teringat bahwa kita lebih hapal lagu-lagu barat daripada menghapal Shalawat kepada Rasulullah SAW.
Barangkali kita menjadi malu bahwa kita tidak mengetahui sedikitpun sejarah Rasulullah SAW karena kita lupa dan lalai mempelajarinya.

Beliau tentu tersenyum........

Barangkali kita menjadi malu bahwa kita tidak mengetahui satupun nama keluarga Rasulullah dan sahabatnya tetapi hapal di luar kepala mengenai anggota Indonesian Idols atau AFI.
Barangkali kita terpaksa harus menyulap satu kamar mandi menjadi ruang shalat. Atau barangkali kita teringat bahwa perempuan di rumah kita tidak memiliki koleksi pakaian yang pantas untuk berhadapan kepada Rasulullah.

Beliau tentu tersenyum........

Belum lagi koleksi buku-buku kita. Belum lagi koleksi kaset kita. Belum lagi koleksi karaoke kita. Kemana kita harus menyingkirkan semua koleksi tersebut demi menghormati junjungan kita?
Barangkali kita menjadi malu diketahui junjungan kita bahwa kita tidak pernah ke masjid meskipun adzan berbunyi.

Beliau tentu tersenyum........

Barangkali kita menjadi malu karena pada saat Maghrib keluarga kita malah sibuk di depan TV.
Barangkali kita menjadi malu karena kita menghabiskan hampir seluruh waktu kita untuk mencari kesenangan duniawi.
Barangkali kita menjadi malu karena keluarga kita tidak pernah menjalankan shalat sunnah.
Barangkali kita menjadi malu karena keluarga kita sangat jarang membaca Al-Qur'an.
Barangkali kita menjadi malu bahwa kita tidak mengenal tetangga-tetangga kita.

Beliau tentu tersenyum.......

Barangkali kita menjadi malu jika Rasulullah menanyakan kepada kita siapa nama tukang sampah yang setiap hari lewat di depan rumah kita.
Barangkali kita menjadi malu jika Rasulullah bertanya tentang nama dan alamat tukang penjaga masjid di kampung kita.

Betapa senyum beliau masih ada di situ........

Bayangkan apabila Rasulullah tiba-tiba muncul di depan rumah kita. Apa yang akan kita lakukan? Masihkah kita memeluk junjungan kita dan mempersilahkan beliau masuk dan menginap di rumah kita?

Ataukah akhirnya dengan berat hati, kita akan menolak beliau berkunjung ke rumah karena hal itu akan sangat membuat kita repot dan malu.

Maafkan kami ya Rasulullah.........

Masihkah beliau tersenyum?

Senyum pilu, senyum sedih dan senyum getir........

Oh betapa memalukannya kehidupan kita saat ini di mata Rasulullah........

Pikiran yang terbuka dan mulut yang tertutup merupakan suatu kombinasi kebahagiaan.

Jangan jadikan Penghalang sebagai hambatan, tetapi jadikan sebagai pendorong aktifitas.

Siapa yang mendiamkan saja kejahatan merajalela, dia itu membantu kejahatan!

Sehalus-halusnya musibah adalah ketika kedekatan kita denganNya perlahan-lahan terenggut dan itu biasanya ditandai dengan menurunnya kualitas ibadah.

Jenis-jenis LCD

STN (Super Twisted Nematic)
STN menggunakan lebih sedikit energi & lebih murah dibanding teknologi TFT (Thin Film Transistor), tapi dengan konsekuensi kualitas gambar & respons yang lebih rendah.STN disebut juga sebagai Passive Matrix.Pada awal munculnya, banyak ponsel yang menggunakan LCD jenis ini.

TFT (Thin Film Transistor)
Jika dibandingkan dengan teknologi LCD lainnya, layar TFT memiliki keunggulan di kualitas gambar & respons yang lebih cepat.Yang menjadi masalah adalah LCD jenis ini membutuhkan energi yang cukup besar & lebih mahal harganya.TFT disebut juga Active Matrix.

CSTN (Colour Super Twisted Nematic)
CSTN merupakan tipe perbaikan dari teknologi STN, diamana CSTN memiliki respons & ketajaman warna yang lebih baik dari STN, hampir mendekati kualitas TFT.CSTN disebut juga New Technologies of Passive Matrix.

OLED (Organic Light Emitting Diode)
Tampilan OLED menggunakan senyawa organik yang mengeluarkan cahaya saat diberi arus listrik.OLED lebih terang, memiliki kontras yang lebih baik dengan sudut pandang yang lebih lebar, konsumsi daya lebih sedikit, & respons yang lebih cepat dibanding LCD.Layar OLED juga sepertiga kali lebih tipis dari LCD, karena tidak membutuhkan Backlight & membuatnya cocok untuk perangkat elektronik portable.

UFB (Ultra Fine & Bright)
Jenis ini membutuhkan lebih sedikit energi, dibandingkan TFT & dengan kemampuan pencahayaan yang lebih terang dibandingkan STN.Ponsel yang menggunakan LCD jenis ini biasanya lebih tipis dibanding ponsel yang menggunakan LCD jenis lain, hal ini karena UFB hanya setebal 2,2 mm.

TFD (Thin Film Diode)
Jenis ini menggunakan cairan semacam kristal yang dikontrol oleh Dioda (dengan pengaturan seperti cara kerja Switch).

 

http://www.tahuinfo.com/2012/12/jenis-jenis-lcd.html 

Real Apk Leecher Untuk Download Aplikasi Android

Bagi para pecinta atau pengguna Smartphone Android harus tahu aplikasi yang satu ini. Real Apk Leecher adalah aplikasi untuk PC yang dapat digunakan untuk mendownload APK dari google market.

Dengan Real Apk Leecher kita bisa mendownload aplikasi dengan sangat mudah layaknya saat menggunakan smartphone android.

Adapun fitur-fitur dari Real Apk Leecher adalah sebagai berikut :

• Download APK from market to your PC
• Download apk icon (just for fun )
• Download multiple files at once
• Supports to search in:
• Vendor name
•  Package name. Ex: com.android.helloworld
•  Custom

Untuk download aplikasi Real Apk Leecher dapat menuju link dibawah ini
Real Apk Leecher
Catatan :
Untuk menjalankan aplikasi ini dibutuhkan Java Runtime Environment(JRE) or JDK.

 

http://www.tahuinfo.com/2012/11/Real-Apk-Leecher-Untuk-Download-Aplikasi-Android.html 

Beberapa Istilah Dalam Dunia Blog

sumber : refruns.com

 

 

 

1. Blog
Sebelum melangkah lebih jauh, kita coba ulas arti kata tersebut. Blog yang merupakan singkatan dari web log adalah sebuah catatan yang dapat ditampilkan dalam sebuah halaman web tersendiri. Isi dari sebuah blog sangat beragam, tergantung dari sang pengelola yang ingin mengisinya.
2. Post
Blog tanpa yang satu ini belum bisa disebut sebagai sebuah blog, mengapa? Ya, karena ini adalah inti dari sebuah blog. Blog yang bagus harus dapat memberikan informasi yang tepat bagi para pembacanya.
3. Bloger
Ada blog pasti ada bloger. Bloger adalah orang yang mengelola sebuah blog. Mengelola mulai dari tampilan, sampai isi dan juga promosi dari blog tersebut.
4. Blogspot
Dia adalah salah satu penyebab demam blog menjalar di seluruh dunia. Karena darinyalah muncul blog gratisan yang mampu memenuhi kebutuhan para bloger.


5. Wordpress
Yang satu ini juga tidak kalah hebatnya dengan yang nomor 4 tadi. Wordpress juga salah satu penyedia blog geratis yang paling bagus. Namun untuk wordpress memiliki dua versi, yaitu yang berbayar dan yang gratisan.
6. SEO
Dalam dunia blog, SEO tidak boleh ketinggalan. Blog tanpa SEO bukan apa-apa, sebab tanpanya blog yang kita kelola tidak dapat bersaing dengan blog lainya untuk mencapai nomer satu dalam pencarian di google dengan kata kunci tertentu.
7. Keyword
Merupakan salah satu bagian dari SEO. Keyword adalah kata-kata yang ingin kita incar dalam pencarian mesin pencari. Agar blog kita menjadi yang terbaik kita harus pandai-pandai dalam memilih keyword.
8. Blog Walking
Ini juga merupan salah satu unsur penting dalam SEO blog. Seperti namanya, blog walking adalah suatu kegiatan jalan-jalan dalam blog. Mulai dari satu blog ke blog yang lainnya. Hal yang tidak boleh kelupaan dalam kegiatan ini adalah meninggalkan jejak. Jejak yang saya maksud adalah meninggalkan komen-komen dalam blog yang telah kita baca.

 

http://www.tahuinfo.com/2012/04/beberapa-istilah-dalam-dunia-blog.html