Merubah kursor Pada Blogger

Cara Merubah Kursor Mouse Pada Blogger

Kursor Mouse adalah sebuah panah yang berguna untuk menekan atau mengcopy tulisan atau gambar. Kursor Mouse pada blogger adalah salah satu hal penting yang pertama kali dilihat dari pengunjung. Kursor Mouse juga berfungsi agar blog menjadi indah. Kursor Mouse sudah biasa anda lihat bukan?, Kalik ini saya akan memberitahu cara merubah Kursor Mouse pada Blogger agar berubah dengan yang anda

mau, Berikut Caranya:

 

• Silahakan Anda Login ke Blogger Anda.
• Setelah itu, Klik Template, Lalu, Klik Edit HTML.
• Cari Kode </head>.
• Masukan Kode Berikut ini diatas Kode </head>:

<style type="text/css">
HTML,BODY{cursor: url("http://downloads.totallyfreecursors.com/thumbnails/fireblue.gif"), auto;}

</style>

Keterangan:

Ganti Kode yang bertulisan berwarna Merah dengan URL krusor anda. untuk mengambil URL Kusor buka link www.totallyfreecursors.com .

• Setelah Itu, Klik Tombol Simpan Template.

Selamat Mencoba,

Salam Sukses.

TI.P-1205

Tugas Pemograman visual basic

Berikut Desain nya:

Berikut Penyelesaian desain di atas:


Public Class Form1

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

npm.Items.Add("12110463")

npm.Items.Add("13111001")

npm.Items.Add("13111011")

Me.Text = " FORM NILAI "

Me.BackColor = Color.Chocolate

kdosen.Items.Add("01")

kdosen.Items.Add("02")

kdosen.Items.Add("03")

kode_mt.Items.Add("001")

kode_mt.Items.Add("002")

kode_mt.Items.Add("003")

nk.Items.Add("40")

nk.Items.Add("50")

nk.Items.Add("60")

nk.Items.Add("70")

nk.Items.Add("80")

nk.Items.Add("90")

nt.Items.Add("40")

nt.Items.Add("50")

nt.Items.Add("60")

nt.Items.Add("70")

nt.Items.Add("80")

nt.Items.Add("90")

nu.Items.Add("40")

nu.Items.Add("50")

nu.Items.Add("60")

nu.Items.Add("70")

nu.Items.Add("80")

nu.Items.Add("90")

nuas.Items.Add("40")

nuas.Items.Add("50")

nuas.Items.Add("60")

nuas.Items.Add("70")

nuas.Items.Add("80")

nuas.Items.Add("90")

End Sub

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

Select Case npm.Text

Case "12110463"

nama.Text = "Riko krisno sianturi"

jenjang.Text = "S1"

jurusan.Text = "Tehnik Informatika"

Case "13111001"

nama.Text = "wiiwi s"

jenjang.Text = "D3"

jurusan.Text = "Manajemen Informatika"

Case Else

nama.Text = "desi s"

jenjang.Text = "D1"

jurusan.Text = "design Grafis"

End Select

End Sub

Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged

If kdosen.Text = "01" Then

ndosen.Text = "Mesran"

ElseIf kdosen.Text = "02" Then

ndosen.Text = "Taroni Zebua"

ElseIf kdosen.Text = "03" Then

ndosen.Text = "Aulia Ramadhan"

End If

End Sub

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

npm.Text = ""

nama.Text = ""

jenjang.Text = ""

jurusan.Text = ""

kdosen.Text = ""

ndosen.Text = ""

kode_mt.Text = ""

mkuliah.Text = ""

nk.Text = ""

nt.Text = ""

nu.Text = ""

nuas.Text = ""

nakhir.Text = ""

nhuruf.Text = ""

keterangan.Text = ""

End Sub

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

Me.Close()

End Sub

Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged

Select Case kode_mt.Text

Case "001"

mkuliah.Text = "visuL Basic"

Case "002"

mkuliah.Text = "kalkulus"

Case Else

mkuliah.Text = "Matriks"

End Select

End Sub

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










nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nuas.Text
Dim a As Integer


a = nakhir.Text
Select Case a

Case Is >= 50

keterangan.Text = "lulus"

Case Is <= 50

keterangan.Text = "gagal"

End Select

If nakhir.Text >= 80 Then

nhuruf.Text = "A"

ElseIf nakhir.Text >= 70 Then

nhuruf.Text = "B"

ElseIf nakhir.Text >= 60 Then

nhuruf.Text = "C"

ElseIf nakhir.Text >= 50 Then

nhuruf.Text = "D"

ElseIf nakhir.Text <= 50 Then

nhuruf.Text = "E"

End If

End Sub

End Class



Berikut hasil dari desain di atas:

 

Tugas : mesran.net