Lya Waroka Tari'e Blog's: Desember 2013

Quiss oline
Berikut ini adalah desain nya :

dan berikut ini cara penyelesaian nya :

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodepelanggan.Items.Add("PAB-MED-100")
        kodepelanggan.Items.Add("TOK-BEL-101")
        kodepelanggan.Items.Add("SWA-MED-102")
        kodepelanggan.Items.Add("PAB-MED-103")
        kodepelanggan.Items.Add("RUM-MED-104")

        Call BuatTabel()
        Me.BackColor = Color.Bisque

    End Sub
    Private Sub jumlahpemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then
            totaltagihan.Text = Val(biayabeban.Text) + (hargam3.Text * jumlahpemakaian.Text)
            pajak.Text = 0.01 * totaltagihan.Text
            pembayaran.Text = Val(totaltagihan.Text) + (pajak.Text)

        End If

    End Sub
    Private Sub jumlahpemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahpemakaian.TextChanged

    End Sub
    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kodepelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "LIA WAROKA"
            Case "101" : nama.Text = "jhan f"
            Case "102" : nama.Text = "erin"
            Case "103" : nama.Text = "mia"
            Case "104" : nama.Text = "sandra"
        End Select
        x = Microsoft.VisualBasic.Left(kodepelanggan.Text, 3)
        Select Case x
            Case "TOK"
                hargam3.Text = 250
                biayabeban.Text = 15000
                type.Text = "TOKO"
            Case "RUM"
                hargam3.Text = 150
                biayabeban.Text = 10000
                type.Text = "RUMAH"
            Case "PAB"
                hargam3.Text = 25000
                biayabeban.Text = 25000
                type.Text = "PABRIK"
            Case "SWA"
                hargam3.Text = 20000
                biayabeban.Text = 60000
                type.Text = "SWALAYAN"
        End Select

        x = Microsoft.VisualBasic.Mid(kodepelanggan.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "medan"
            Case "BEL" : daerah.Text = "belawan"
            Case Else : daerah.Text = ""
        End Select
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kodepelanggan.Text = ""
        nama.Text = ""
        type.Text = ""
        hargam3.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        pajak.Text = ""
    End Sub

    Sub BuatTabel()
        lv.Columns.Add("kode pelanggan", 100, HorizontalAlignment.Center)
        lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
        lv.Columns.Add("type", 80, HorizontalAlignment.Center)
        lv.Columns.Add("hargam3", 80, HorizontalAlignment.Left)
        lv.Columns.Add("jumlahpemakaian", 80, HorizontalAlignment.Center)
        lv.Columns.Add("totaltagihan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("pembayaran", 80, HorizontalAlignment.Center)
        lv.Columns.Add("daerah", 80, HorizontalAlignment.Left)
        lv.Columns.Add("biayabeban", 80, HorizontalAlignment.Center)
        lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = kodepelanggan.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(type.Text)
        Lst.SubItems.Add(hargam3.Text)
        Lst.SubItems.Add(jumlahpemakaian.Text)
        Lst.SubItems.Add(totaltagihan.Text)
        Lst.SubItems.Add(pembayaran.Text)
        Lst.SubItems.Add(daerah.Text)
        Lst.SubItems.Add(biayabeban.Text)
        Lst.SubItems.Add(pajak.Text)
        lv.Items.Add(Lst)
    End Sub
    Private Sub btnskl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnskl.Click
        IsiTabel()
        kodepelanggan.Text = ""
        nama.Text = ""
        type.Text = ""
        hargam3.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        pajak.Text = ""
    End Sub

    Private Sub btnhsd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhsd.Click
        lv.Items.Clear()
    End Sub

    Private Sub btnhdydp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhdydp.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub
End Class

Berikut ini hasil nya:

Demikian la hasil penyelesaian dari pengolahan tagihan PDAM.

Nama : Lia Waroka Tarihoran
Npm : 12110480

Demikian quiss online VB.NET

Membuat Animasi di Photoshop

Saya coba buat dasar-dasar nya aja.. atau gimana sih cara buat suatu gambar itu jadi gerak.. belom masuk ke berubah bentuk ya.. cuman gerak aja..

Pembuatan animasi di photoshop ada 2 cara :

1. Import Langsung dari layer ( Make frame from layers – buat yang udah EXPERT )

2. Manual ( ini khusus buat menggerakan benda aja)

Sekarang kita mulai dengan yang manual dulu aja yaa.. dari dasar dulu la..

Pertamax.. hehehe buka dokumen baru :

Buat kotak dengan rectangle marquee tool. Klik Select > Inverse.. lalu warnai dengan warna Hitam Klik Edit > Fill > Black

Sekarang buat lingkaran dengan Elliptical Marquee tool.. ( Sambil tekan tombol SHIFT biar Bener-bener bulet jadinya )..

Warnai dengan Gradient TOol > Radial Gradient. Warna Terserah aja..

Kalo ngikutin nya bener … jadinya kayak gini ..

Sekarang kita gerakkan Bola nya..

Klik Windows > Animation, maka muncul Animation Bar..

Klik Duplicate Selected Frame .. Muncul Frame baru dengan posisi bola yang sama..

Sekarang pindahin bola yang ada di frame 2 ke tepi kiri tengah..

Klik Tween Animation Frame untuk membuat Frame-frame dari posisi bola di atas ke posisi bola di samping secara otomatis.. kalo mau gerakan nya halus.. frame nya banyakin aja.. saya pake 5 frame aja..

Sekarang udah jadi deh.. gerakan dari atas ke samping kiri.. coba aja tekan tombol Play.

Pake cara yang sama .. Sekarang klik frame terakhir.. Klik duplicate selected frame lagi.. Pindahkan bola ke bawah tengah.. lalu buat Tween animation frame.sebanyak 5 juga.. Lalu animasikan bola dari tengah bawah ke tengah kanan.. animasikan lagi..

Untuk yang terakhir jangan sampe kembali ke posisi awal.. tapi buat renggang sedikit..