Jika kita membuka suatu website atau blog maka seringkali kita menjumpai ada sebuah gambar atau icon pada address bar (kotak untuk mengetikkan alamat web). Dan jika kita punya blog di Blogspot maka icon default yang akan tampil adalah gambar seperti ini :
Bagi kamu yang tidak puas dengan icon/gambar tersebut, kamu bisa menggantinya dengan gambar sesuai dengan keinginanmu. caranya sangat mudah, yaitu dengan membuat gambar (gif, jpg, ico, dan lain2) dengan ukuran kira2 24x42 pixel sampai 32x32 pixel (sebenarnya ukurannya bebas sih, tapi biar filenya kecil dan proses membukanya cepat). Setelah itu .....
masuk ke "Layout --> Edit HTML" trus tempatkan script berikut sebelum kode </head>
<link href='http://kendhin.890m.com/sonictrik.gif' rel='SHORTCUT ICON'/>
ganti huruf yang dicetak tebal dengan lokasi gambar dimana kamu menyimpannya. Kamu bisa menyimpan gambarmu di 000webhost atau bisa juga di photobucket dan juga di imageshack atau kalo kamu tidak mau pusing dibawah ini ada beberapa contoh icon/gambar beserta dengan linknya.
Selasa, 21 Februari 2012
Jumat, 27 Januari 2012
Jawaban Soal 2 (Dedy Frengki Saputra)
Listing Program
Public Class Form1
Sub buattabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = npm.Text
Lst.SubItems.Add(nama.Text)
LV.Items.Add(Lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
nama.Focus()
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
isitabel()
npm.Text = ""
nama.Text = ""
nama.Focus()
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End
End Sub
Private Sub hapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussatu.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
LV.Items.Clear()
End Sub
End Class
Sub buattabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = npm.Text
Lst.SubItems.Add(nama.Text)
LV.Items.Add(Lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
nama.Focus()
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
isitabel()
npm.Text = ""
nama.Text = ""
nama.Focus()
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End
End Sub
Private Sub hapussatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussatu.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
LV.Items.Clear()
End Sub
End Class
Jawaban Soal 3 (Dedy Frengki Saputra)
Kasus : Klik Disini
Penggajian Karyawan
3.Listing Program Form Data Karyawan
Komponen-komponen yang ada di setiap Form
Penggajian Karyawan
- Listing Program Form Login
- Public Class form_Login
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If user.Text = "dedy" And pwd.Text = "frengki" Then
Form_Menu.Show()
Me.Hide()
Else
MsgBox("MaaF! PAsword Salah!")
user.Text = ""
pwd.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form_Menu.Show()
End Sub
End Class
2.Listing Program Form Menu
- Public Class Form_Menu
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
Form_DataKaryawan.Show()
End Sub
End Class
3.Listing Program Form Data Karyawan
- Public Class Form_DataKaryawan
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Close()
End Sub
Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
Call addapus()
End Sub
Sub buattabel()
LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 180, HorizontalAlignment.Center)
LV.Columns.Add("pajak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Status Kerja", 50, HorizontalAlignment.Center)
LV.Columns.Add("Jam Lembur", 50, HorizontalAlignment.Center)
LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Anak", 120, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Center)
LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = gol.Text
Lst.SubItems.Add(gajpokok.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(Slembur.Text)
Lst.SubItems.Add(jamlembur.Text)
Lst.SubItems.Add(lembur.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(jmlanak.Text)
Lst.SubItems.Add(tunjanganistri.Text)
Lst.SubItems.Add(tunjangananak.Text)
Lst.SubItems.Add(totgaji.Text)
LV.Items.Add(Lst)
End Sub
Private Sub addapus()
lembur.Text = ""
gol.Text = ""
gajpokok.Text = ""
pajak.Text = ""
status.Text = ""
jmlanak.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totgaji.Text = ""
jamlembur.Text = ""
Slembur.Text = ""
gol.Focus()
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
totgaji.Text = Val(gajpokok.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) + Val(lembur.Text) - Val(pajak.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
gol.Items.Add("Mandor")
gol.Items.Add("Kepala Bagian")
gol.Items.Add("Staf")
Slembur.Items.Add("Lembur")
Slembur.Items.Add("Tidak Lembur")
status.Items.Add("MENIKAH")
status.Items.Add("BELUM MENIKAH")
jmlanak.Enabled = False
Dim i As Integer
For i = 1 To 5
jamlembur.Items.Add(i)
Next
buattabel()
End Sub
Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
If gol.Text = "Mandor" Then
gajpokok.Text = 1750000
pajak.Text = (0.015 * Val(gajpokok.Text))
ElseIf gol.Text = "Kepala Bagian" Then
gajpokok.Text = 2500000
pajak.Text = (0.015 * Val(gajpokok.Text))
ElseIf gol.Text = "Staf" Then
gajpokok.Text = 1250000
pajak.Text = (0.015 * Val(gajpokok.Text))
Else
gajpokok.Text = 0
End If
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "BELUM MENIKAH" Then
tunjangananak.Text = 0
tunjanganistri.Text = 0
jmlanak.Enabled = False
ElseIf status.Text = "MENIKAH" Then
jmlanak.Enabled = True
tunjanganistri.Text = (0.09 * Val(gajpokok.Text))
End If
End Sub
Private Sub jmlanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged
If jmlanak.Text = "" Then
tunjangananak.Text = 0
ElseIf jmlanak.Text = 1 Then
tunjangananak.Text = Val(jmlanak.Text) * (0.03 * Val(gajpokok.Text))
ElseIf jmlanak.Text = 2 Then
tunjangananak.Text = 2 * (0.07 * Val(gajpokok.Text))
ElseIf jmlanak.Text >= 2 Then
tunjangananak.Text = 2 * (0.07 * Val(gajpokok.Text))
End If
End Sub
Private Sub nid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
If gol.Text = "Mandor" Then
If jamlembur.Text = 1 Then
lembur.Text = 1 * (5000)
ElseIf jamlembur.Text = 2 Then
lembur.Text = 2 * (5000)
ElseIf jamlembur.Text = 3 Then
lembur.Text = 3 * (5000)
ElseIf jamlembur.Text = 4 Then
lembur.Text = 4 * (5000)
ElseIf jamlembur.Text = 5 Then
lembur.Text = 5 * (5000)
Else
lembur.Text = 0
End If
ElseIf gol.Text = "Kepala Bagian" Then
If jamlembur.Text = 1 Then
lembur.Text = 1 * (10000)
ElseIf jamlembur.Text = 2 Then
lembur.Text = 2 * (10000)
ElseIf jamlembur.Text = 3 Then
lembur.Text = 3 * (10000)
ElseIf jamlembur.Text = 4 Then
lembur.Text = 4 * (10000)
ElseIf jamlembur.Text = 5 Then
lembur.Text = 5 * (10000)
Else
lembur.Text = 0
End If
ElseIf gol.Text = "Staf" Then
If jamlembur.Text = 1 Then
lembur.Text = 1 * (7500)
ElseIf jamlembur.Text = 2 Then
lembur.Text = 2 * (7500)
ElseIf jamlembur.Text = 3 Then
lembur.Text = 3 * (7500)
ElseIf jamlembur.Text = 4 Then
lembur.Text = 4 * (7500)
ElseIf jamlembur.Text = 5 Then
lembur.Text = 5 * (7500)
Else
lembur.Text = 0
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitabel()
jamlembur.Text = ""
lembur.Text = ""
gol.Text = ""
gajpokok.Text = ""
pajak.Text = ""
status.Text = ""
Slembur.Text = ""
jmlanak.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totgaji.Text = ""
lembur.Focus()
End Sub
Private Sub Slembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slembur.SelectedIndexChanged
If Slembur.Text = "Tidak Lembur" Then
jamlembur.Enabled = False
lembur.Enabled = False
ElseIf Slembur.Text = "Lembur" Then
lembur.Enabled = True
jamlembur.Enabled = True
End If
End Sub
Private Sub btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus1.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnhapus2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus2.Click
LV.Items.Clear()
End Sub
End Class
Komponen-komponen yang ada di setiap Form
Komponen | Properti | Nilai |
Form Menu | Name | Form_Menu |
Text | Form_Menu | |
Windowstate | Maximized | |
BackColor | ActiveCaption | |
ControlBox | False | |
MenuStrip | DropDownItem | DataKaryawan |
- | ||
Exit |
Komponen | Properti | Nilai |
Form Login | Name | form_Login |
Text | form_Login | |
StartPosition | CenterScreen | |
ControlBox | False | |
BackColor | GreenYellow | |
Button1 | Forecolor | DarkRed |
Text | Sig In | |
Name | Btnok | |
Button2 | Forecolor | DarkRed |
Text | Keluar | |
Name | Btnkeluar | |
Label1 | Forecolor | DarkRed |
Text | USer Name | |
Name | Label1 | |
Label2 | Forecolor | DarkRed |
Text | Password | |
Name | Label2 | |
TextBox1 | Name | User |
Forecolor | DarkRed | |
TextBox2 | Name | pwd |
Forecolor | DarkRed |
Komponen | Properti | Nilai |
Form Data Karyawan | Name | Form_DataKaryawan |
Windowstate | Maximized | |
ControlBox | False | |
Text | Form_DataKaryawan | |
BackColor | SkyBlue | |
GroupBox | Name | GroupBox1 |
Font | Californian FB | |
BackColor | LightBlue | |
Text | Menu File | |
Label1 | Name | Label1 |
Text | Golongan | |
Label2 | Name | Label2 |
Text | Gaji Pokok | |
Label3 | Name | Label3 |
Text | Pajak | |
Label4 | Name | Label4 |
Text | Status Kerja | |
Label5 | Name | Label5 |
Text | Jam Lembur | |
Label6 | Name | Label6 |
Text | Upah Lembur | |
Label7 | Name | Label7 |
Text | Status | |
Label8 | Name | Label8 |
Text | Jumlah Anak | |
Label9 | Name | Label9 |
Text | Tunjangan Istri | |
Label10 | Name | Label10 |
Text | Tunjangan Anak | |
Label11 | Name | Label11 |
Text | Total Gaji | |
TextBox1 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Gol | |
TextBox2 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Gajpokok | |
TextBox3 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | pajak | |
TextBox4 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | slembur | |
TextBox5 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | jamlembur | |
TextBox6 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | lembur | |
TextBox7 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Status | |
TextBox8 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Jmlanak | |
TextBox9 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Tunjanganistri | |
TextBox10 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Tunjangananak | |
TextBox11 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Tunjangananak | |
Button1 | Font | Californian FB |
Text | Proses | |
Name | Proses | |
Button2 | Font | Californian FB |
Text | Hapus | |
Name | hapus | |
Button3 | Font | Californian FB |
Text | Keluar | |
Name | keluar | |
Button4 | Font | Californian FB |
Text | Simpan Ke List View | |
Name | simpan | |
Button5 | Font | Californian FB |
Text | Hapus Data Yang Di Pilih | |
Name | btnhapus1 | |
Button6 | Font | Californian FB |
Text | Hapus Semua | |
Name | btnhapus2 | |
ListView | Name | LV |
BackColor | ScrollBar | |