Memotret Percikan Air Dengan Teknik Freeze

        Teknik Freeze yaitu membuat objek bergerak menjadi diam atau beku dengan menggunakan kecepatan Shutter Speed yang tinggi, Jika menggunakan kecepatan Shutter Speed rendah maka objek yang bergerak akan tampak kabur dan tidak bisa diperoleh efek beku yang bergerak tersebut.

Shutter Speed 1/2500

ISO 400

Aperture f/5,6

Editing : Photoshop CS4

Shutter Speed 1/2000

ISO 800

Aperture f.5,6

Editing : Photoshop CS4

Shutter Speed 1/2000

ISO 400

Aperture f/5,6

Editing : Photoshop CS4

Pemrograman Dasar Kriptografi Dengan Menggunakan Visual Basic.net

Form Design :

Script :

Public Class Form1

    Private Sub btn_enkrips_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_enkrips.Click
        Dim jumlah As Double = Len(plainteks.Text)
        Dim x As String
        Dim xkalimat As String = ""
        Dim i As Double
        Dim bil As Integer
        For i = 1 To jumlah
            x = Mid(plainteks.Text, i, 1)
            bil = Asc(x) + 3
            x = Chr(bil)
            xkalimat = xkalimat + x
        Next i
        chiperteks.Text = xkalimat
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        chiperteks.Text = ""
    End Sub
End Class


Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        plainteks.Text = ""
        chiperteks.Text = ""
    End Sub

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

Pemrograman ListView Penggajian Karyawan

 Form Design ListView :

Penulisan Script :

Public Class Form1

    Sub buattable( )

        LV.Columns.Add("NIK", 40, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)

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

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

        LV.Columns.Add("Status", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Anak", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Honor Lembur", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 75, HorizontalAlignment.Center)

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

        LV.View = View.Details

        LV.GridLines = 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(tunjanganistri.Text)

        Lst.SubItems.Add(jumlahanak.Text)

        Lst.SubItems.Add(tunjangananak.Text)

        Lst.SubItems.Add(jamlembur.Text)

        Lst.SubItems.Add(honorlembur.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(total.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("Staff")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

        For i = 1 To 4

            jumlahanak.Items.Add(i)

        Next i

        For i = 1 To 10

            jamlembur.Items.Add(i)

        Next i

        Call buattable()

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select nik.Text

            Case "001" : nama.Text = "Tukimin"

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

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

        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

                pajak.Text = 0.015 * gaji.Text

            Case "Kepala Bagian" : gaji.Text = 2500000

                pajak.Text = 0.015 * gaji.Text

            Case "staff" : gaji.Text = 1250000

                pajak.Text = 0.015 * gaji.Text

        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") : tunjanganistri.Text = 0.09 * gaji.Text

            Case ("Tidak Menikah") : tunjanganistri.Text = 0

        End Select

    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged

        If jumlahanak.Text >= 2 And status.Text = "Menikah" Then

            tunjangananak.Text = 0.07 * gaji.Text

        ElseIf jumlahanak.Text = 1 And status.Text = "Menikah" Then

            tunjangananak.Text = 0.03 * gaji.Text

        Else

            tunjangananak.Text = 0

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jabatan.Text = "Mandor" Then

            honorlembur.Text = "7500"

        ElseIf jabatan.Text = "Kepala Bagian" Then

            honorlembur.Text = "10000"

        ElseIf jabatan.Text = "Staff" Then

            honorlembur.Text = "5000"

        Else

            honorlembur.Text = 0

        End If

        total.Text = Val(honorlembur.Text * jamlembur.Text) + Val(gaji.Text) + Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(pajak.Text)

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnsimpanlv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpanlv.Click

        isitable( )

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunjanganistri.Text = ""

        jumlahanak.Text = ""

        tunjangananak.Text = ""

        jamlembur.Text = ""

        honorlembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub btnhapussemuadatalv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadatalv.Click

        LV.Items.Clear( )

    End Sub

    Private Sub btnhapusdatalvterpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatalvterpilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

                                                   TUGAS BAHASA PEMROGRAMAN

Referensi : http://mesran.net/berita-636-program-listview-penggajian-karyawan.html 

Pemrograman Penjualan FlashDisk Dengan Menggunakan Visual Basic.Net

Form Design :

Private Sub kdbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbarang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kdbarang.Text, 2)
        Select Case x
            Case "TS" : mrkbarang.Text = "Toshiba"
            Case "VG" : mrkbarang.Text = "VGen"
        End Select
        Dim y As Integer
        y = Microsoft.VisualBasic.Right(kdbarang.Text, 1)
        Select Case y
            Case Is = "001" : nmbarang.Text = "Flashdisk 4 Giga"
            Case Is = "002" : nmbarang.Text = "Flashdisk 2 Giga"
        End Select
        If kdbarang.Text = "TS001" Then
            harga.Text = "75000"
        ElseIf kdbarang.Text = "TS002" Then
            harga.Text = "60000"
        ElseIf kdbarang.Text = "VG001" Then
            harga.Text = "80000"
        ElseIf kdbarang.Text = "VG002" Then
            harga.Text = "65000"
        End If
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        total.Text = harga.Text * jlhbeli.Text
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nmbarang.Text = ""
        mrkbarang.Text = ""
        harga.Text = ""
        jlhbeli.Text = ""
        total.Text = ""
        kdbarang.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

Pemrograman Penggajian Karyawan Dengan Menggunakan Visual Basic.Net

Form Design : 

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

                pajak.Text = 0.015 * gaji.Text

            Case "Kepala Bgian" : gaji.Text = 2500000

                pajak.Text = 0.015 * gaji.Text

            Case "Staf" : gaji.Text = 1250000

                pajak.Text = 0.015 * gaji.Text

        End Select

    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")

        For i = 1 To 4

            jumlahanak.Items.Add(i)

        Next i

        For i = 1 To 10

            jamlembur.Items.Add(i)

        Next i

    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") : tunjanganistri.Text = 0.09 * gaji.Text

            Case ("Belum Menikah") : tunjanganistri.Text = 0

        End Select

    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahanak.SelectedIndexChanged

        If jumlahanak.Text >= 2 And status.Text = "Menikah" Then

            tunjangananak.Text = 0.07 * gaji.Text

        ElseIf jumlahanak.Text = 1 And status.Text = "Menikah" Then

            tunjangananak.Text = 0.03 * gaji.Text

        Else

            tunjangananak.Text = 0

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jabatan.Text = "Mandor" Then

            honorlembur.Text = 7500

        ElseIf jabatan.Text = "Kepala Bagian" Then

            honorlembur.Text = 10000

        ElseIf jabatan.Text = "Staf" Then

            honorlembur.Text = 5000

        Else

            honorlembur.Text = 0

        End If

        total.Text = Val(honorlembur.Text * jamlembur.Text) + Val(gaji.Text) + Val(tunjanganistri.Text) + Val(tunjangananak.Text) - Val(pajak.Text)

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjanganistri.Text = ""
        jumlahanak.Text = ""
        tunjangananak.Text = ""
        jamlembur.Text = ""
        honorlembur.Text = ""
        pajak.Text = ""
        total.Text = ""
    End Sub

Membuat Efek Kulit Macan Pada Foto Dengan Menggunakan Photoshop

Langsung ke TKP aja.

Langkah 1 :

Buka file foto yang akan kita eksekusi.

Klik file > Open > Pilih foto.

Ini contoh gambar temen saya sendiri *yang punya foto gak tau kalau fotonya di eksekusi ;p

*Zulkardi Sani

Lalu tekan CTRL + J untuk membuat layer 1.

Langkah 2 :

Buka gambar kulit macannya, bisa kita ambil contohnya dari google.

Langkah 3 :

Drag dan Drop gambar kulit macan tersebut ke foto wajah dengan cara.

Pilih Rectangular marquee tool > Klik tahan pada gambar kemudian tarik hingga marquee tool mengelilingi gambar > pilih move tool > Klik tahan pada gambar kemudian tarik (pindahkan ke foto wajah).

*Rectangular marquee tool

*Move Tool

Langkah 4 :

Setelah gambar kulit macan pindah ke foto wajah, Tekan CTRL + T untuk memperbesar dan memperkecil/Transformasi gambar sesuai kebutuhan.

Contoh :

Kemudian klik Oke. 

Langkah 5 :

Kemudian Pada layer 1 ubah Blending mode nya menjadi Multiply.

Langkah 6 :

Pada Layer 1, gunakan Eraser Tool untuk menghapus efek kulit macan pada bagian yang tidak diinginkan seperti mata,mulut.

Dan Hasilnya :

Demikian Tutorialnya semoga Bermanfaat buat kawan-kawan.

Lebih dan kurangnya Mohon maaf :D