Cara menghilangkan gambar kunci dan obeng pada blog

Tanda obeng dan kunci akan membuat kita was-was saat kita melakukan edit atau menambah posting karena hal tersebut dapat terlihat oleh orang lain yang dalam waktu bersamaan membuka blog kita .

untuk menghindarinya maka kita perlu menghilangkan gambar kunci dan obeng

Silahkan masuk ke akun blogger kamu

Klik Tata Letak dan pilih Edit HTML.

Cari kode ]]></b:skin> dengan menekan Control F.

Jika sudah ketemu, kopikan kode berikut :

.quickedit { display:none; }

Letakkan kode tersebut di atas ]]></b:skin>

Kemudian simpan dan coba lihat hasilnya.

Cara Membuat Chat Box Di Blog

Cara Membuat Chat Box Di Blog :

1. Buka Website ini ► www.cbox.ws
2. Klik tombol Sign Up di kanan atas Website tersebut.
3. Kemudian akan muncul tampilan seperti ini. ( Lihat Gambar )

4. Lalu isi pada kotak - kotak tersebut dan centang, sehingga menjadi ini. ( Lihat Gambar )

Keterangan:

• Cbox Name diingat ya, karena itu akan dijadikan ID Login kalian.
• Emailnya disensor ya.

5. Kemudian Klik " Create My Cbox! "
6. Akan muncul tampilan seperti ini jika anda berhasil. ( Lihat Gambar )

7. Setelah itu Cek Email anda dan Login.
8. Kemudian pada halaman utama Cbox tersebut. Klik " Publish! " yang berada di Kanan Atas.
9. Pada halaman baru tersebut, Lihat Bagian ini. ( Lihat Gambar )

10. Kemudian Copy dan Paste Kode tersebut di Blog anda. Jika bingung baca artikel ini Cara Edit Blog.
11. Selesai.

Contoh Tampilan ChatBox ViperGoy Blog!


Bagaimana? Mudah dan Berhasilkan ? Jadi, jangan ragu untuk mencari Tutorial Blogger lainnya di ViperGoy Blog.

Baca juga Tutorial lainnya seperti: 
Cara Membuat Kotak Like Facebook Di Blog
Cara Membuat Favicon Blog
Cara Memasang Lagu Di Blog

Oke sekian dari saya untuk artikel yang berjudul Cara Membuat ChatBox Pada Blog Dengan Cbox.ws. Terima kasih banyak dan Salam Blogger

Jawaban Ujian Pencarian nilai mahasiswa dengan VB 2008

Desain Form Seperti Dibawah ini:



 Listing Program

Public Class Form1

   

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

        npm.Items.Add("12110255")

        npm.Items.Add("12110256")

        npm.Items.Add("12110257")

        k_dosen.Items.Add("MS001")

        k_dosen.Items.Add("PL002")

        k_dosen.Items.Add("TN003")

        k_mk.Items.Add("PV001")

        k_mk.Items.Add("AO002")

        k_mk.Items.Add("SBD003")

        Dim x As Integer

        For x = 100 To 1 Step -1

            nh.Items.Add(x)

            nt.Items.Add(x)

            nu.Items.Add(x)

            nua.Items.Add(x)

        Next x

        rancangtbl()

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110255"

                nama.Text = "Doni Gunawan"

                jr.Text = "Sistem Informatika"

            Case "12110256"

                nama.Text = "Somat"

                jr.Text = "Teknik Inpormatika"

            Case "12110257"

                nama.Text = "Adi"

                jr.Text = "Akutansi"

        End Select

        Dim s As String

        s = Microsoft.VisualBasic.Right(npm.Text, 2)

        If npm.Text = "12110255" Then

            jj.Text = "SI"

        ElseIf npm.Text = "12110256" Then

            jj.Text = "DIII"

        ElseIf npm.Text = "12110257" Then

            jj.Text = "DI"

        End If

    End Sub

    Private Sub k_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_dosen.SelectedIndexChanged

        Select Case k_dosen.Text

            Case "MS001"

                n_dosen.Text = "Mesran M.Kom"

            Case "PL002"

                n_dosen.Text = "Pilipus M.Kom"

            Case "TN003"

                n_dosen.Text = "Toni Limbong M.Kom"

        End Select

    End Sub

    Private Sub k_mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_mk.SelectedIndexChanged

         Select k_mk.Text

            Case "PV001"

                mk.Text = "Pemograman Visual"

            Case "AO002"

                mk.Text = "Arsitektur dan Organisasi"

            Case "SBD003"

                mk.Text = "Sistem Basis Data"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        na.Text = 0.1 * nh.Text + 0.15 * nt.Text + 0.35 * nu.Text + 0.45 * nua.Text

        If na.Text >= 50 Then

            ket.Text = "Lulus"

        Else

            ket.Text = "gagal"

        End If

        If na.Text >= "80" Then

            n_hu.Text = "A"

        ElseIf na.Text >= "70" Then

            n_hu.Text = "B"

        ElseIf na.Text >= "60" Then

            n_hu.Text = "C"

        ElseIf na.Text >= "50" Then

            n_hu.Text = "D"

        Else

            n_hu.Text = "E"

        End If

        isitable()

    End Sub

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

        npm.Text = ""

        nama.Text = ""

        jj.Text = ""

        jr.Text = ""

        k_dosen.Text = ""

        n_dosen.Text = ""

        k_mk.Text = ""

        mk.Text = ""

        nh.Text = ""

        nt.Text = ""

        nu.Text = ""

        nua.Text = ""

        na.Text = ""

        n_hu.Text = ""

        ket.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

    End Sub

    Sub rancangtbl()

        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NAMA", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JENJANG", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JURUSAN", 50, HorizontalAlignment.Left)

        Lv.Columns.Add("NAMA DOSEN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("MATA KULIAH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI HADIR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI TUGAS", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI UTS", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI UAS", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI AKHIR", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("NILAI HURUF", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("KETERANGAN", 80, HorizontalAlignment.Left)

        Lv.GridLines = True

        Lv.FullRowSelect = False

        Lv.View = View.Details

    End Sub

    Sub isitable()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jj.Text)

        lst.SubItems.Add(jr.Text)

        lst.SubItems.Add(n_dosen.Text)

        lst.SubItems.Add(mk.Text)

        lst.SubItems.Add(nh.Text)

        lst.SubItems.Add(nt.Text)

        lst.SubItems.Add(nu.Text)

        lst.SubItems.Add(nua.Text)

        lst.SubItems.Add(na.Text)

        lst.SubItems.Add(n_hu.Text)

        lst.SubItems.Add(ket.Text)

        Lv.Items.Add(lst)

    End Sub

End Class

 
Hasil Program