apa aku terlalu bodoh ?

hari demi hari q lalui dengan fikiran penuh bingung . udah 3 kali aku bimbingan KP , tapi aku ngerasa apapun yang aku buat selalu salah ... apa aku terlalu bodoh ??? ini baru laporan KP , gimana kalau ini Skripsi ? ku rasa aku pasti nangis tiap malam ...

soal no.3 tentang TAGIHAN PDAM

soal no.3 tentang TAGIHAN PDAM

untuk lebih jelas , klik disini

Public Class Form1

    Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If nomor.Text = "123456" And password.Text = "090909" Then
            MENUUTAMA.Show()
            Me.Hide()
        Else
            MsgBox("DATA ANDA SALAH !!!")
            nomor.Text = ""
            password.Text = ""
        End If
    End Sub
End Class

(SELANJUTNYA BUAT FORM LAGI DENGAN NAME : MENUUTAMA.VB)
DESAIGN TAMPILAN MENGGUNAKAN "MENUS & TOOLBAR" PADA TOOLBAR.


Public Class MENUUTAMA


    Private Sub DATAPELANGGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPELANGGANToolStripMenuItem.Click
        DATA_pelanggan.Show()
    End Sub
End Class

(SELANJUTNYA BUAT FORM LAGI DENAGAN NAME: DATA_pelanggan)
DESAIGN TAMPILAN DAN PROGRAM :

Public Class DATA_pelanggan

    Sub BUATTABEL()
        LV.Columns.Add("No.REKENING", 100, HorizontalAlignment.Left)
        LV.Columns.Add("NAMA", 130, HorizontalAlignment.Center)
        LV.Columns.Add("KODE PELANGGAN", 70, HorizontalAlignment.Center)
        LV.Columns.Add("NO.URUT", 50, HorizontalAlignment.Center)
        LV.Columns.Add("DAERAH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("BEBAN BIAYA", 90, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA PER m3", 90, HorizontalAlignment.Center)
        LV.Columns.Add("PEMAKAIAN", 60, HorizontalAlignment.Center)
        LV.Columns.Add("BIAYA", 160, HorizontalAlignment.Center)
        LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL BAYAR", 180, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NOREK.Text
        LST.SubItems.Add(NAMA.Text)
        LST.SubItems.Add(KODE.Text)
        LST.SubItems.Add(NOMOR.Text)
        LST.SubItems.Add(LOKASI.Text)
        LST.SubItems.Add(TIPEPELANGGAN.Text)
        LST.SubItems.Add(BEBAN.Text)
        LST.SubItems.Add(HARGA.Text)
        LST.SubItems.Add(PEMAKAIAN.Text)
        LST.SubItems.Add(BIAYA.Text)
        LST.SubItems.Add(PAJAK.Text)
        LST.SubItems.Add(TOTAL.Text)
        LV.Items.Add(LST)
    End Sub

    Private Sub DATA_PELANGGAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BUATTABEL()
        LOKASI.Items.Add("MEDAN")
        LOKASI.Items.Add("BELAWAN")
        LOKASI.Items.Add("AKSARA")
        LOKASI.Items.Add("MARINDAL")
        LOKASI.Items.Add("BINJAI")
        LOKASI.Items.Add("LUBUK PAKAM")

        TIPEPELANGGAN.Items.Add("TOKO")
        TIPEPELANGGAN.Items.Add("RUMAH")
        TIPEPELANGGAN.Items.Add("SWALAYAN")
        TIPEPELANGGAN.Items.Add("PABRIK")


    End Sub

    Private Sub TIPEPELANGGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIPEPELANGGAN.SelectedIndexChanged


        If TIPEPELANGGAN.Text = "TOKO" Then
            BEBAN.Text = 25000
            HARGA.Text = 300
        ElseIf TIPEPELANGGAN.Text = "RUMAH" Then
            BEBAN.Text = 15000
            HARGA.Text = 100
        ElseIf TIPEPELANGGAN.Text = "SWALAYAN" Then
            BEBAN.Text = 10000
            HARGA.Text = 200
        ElseIf TIPEPELANGGAN.Text = "PABRIK" Then
            BEBAN.Text = 250000
            HARGA.Text = 500
        End If

        KODE.Text = TIPEPELANGGAN.Text & LOKASI.Text & NOMOR.Text

    End Sub

    Private Sub PEMAKAIAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMAKAIAN.TextChanged
        BIAYA.Text = (PEMAKAIAN.Text * HARGA.Text) + BEBAN.Text

        PAJAK.Text = 0.01 * BIAYA.Text

        TOTAL.Text = Val(BIAYA.Text) + PAJAK.Text
    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        ISITABEL()

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NOREK.Text = ""
        NAMA.Text = ""
        KODE.Text = ""
        NOMOR.Text = ""
        LOKASI.Text = ""
        TIPEPELANGGAN.Text = ""
        BEBAN.Text = ""
        HARGA.Text = ""
        PEMAKAIAN.Text = ""
        BIAYA.Text = ""
        PAJAK.Text = ""
        TOTAL.Text = ""
        NOREK.Focus()

    End Sub

    Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End

    End Sub

    Private Sub BTNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSSEMUA.Click
        LV.Items.Clear()
    End Sub

    Private Sub BTNHAPUSDIPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDIPILIH.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub
End Class

pak ,ini adalah program yang terdapat pada soal hal 33  untuk hari selasa.LATIHAN HALAMAN 33:

Public Class Form1

    Sub BUATTABEL()
        LV.Columns.Add("No.PEMBELIAN", 100, HorizontalAlignment.Center)
        LV.Columns.Add("KODE BARANG", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA BARANG", 120, HorizontalAlignment.Left)
        LV.Columns.Add("MERK", 85, HorizontalAlignment.Left)
        LV.Columns.Add("HARGA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH BELI", 70, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL HARGA", 160, HorizontalAlignment.Right)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = NOMOR.Text
        LST.SubItems.Add(KODE.Text)
        LST.SubItems.Add(NAMA.Text)
        LST.SubItems.Add(MERK.Text)
        LST.SubItems.Add(HARGA.Text)
        LST.SubItems.Add(JUMLAH.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
        BUATTABEL()
        KODE.Items.Add("TS001")
        KODE.Items.Add("TS002")
        KODE.Items.Add("VG001")
        KODE.Items.Add("VG002")

    End Sub


    Private Sub KODE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Right(KODE.Text, 3)
        If X = "001" Then
            NAMA.Text = "FLASHDISK 4GB"
        ElseIf X = "002" Then
            NAMA.Text = "FLASHDISK 2GB"
        Else
            NAMA.Text = 0
        End If

        X = Microsoft.VisualBasic.Left(KODE.Text, 2)
        If X = "TS" Then
            MERK.Text = "TOSHIBA"
        ElseIf X = "VG" Then
            MERK.Text = "V-GEN"
        Else
            MERK.Text = 0
        End If
    End Sub

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        ISITABEL()
    End Sub

    Private Sub JUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH.TextChanged
        If KODE.Text = "TS001" Then
            HARGA.Text = 105000
        ElseIf KODE.Text = "TS002" Then
            HARGA.Text = 75000
        ElseIf KODE.Text = "VG001" Then
            HARGA.Text = 90000
        Else
            HARGA.Text = 60000
        End If

        TOTAL.Text = JUMLAH.Text * Val(HARGA.Text)

    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        NOMOR.Text = ""
        KODE.Text = ""
        NAMA.Text = ""
        MERK.Text = ""
        HARGA.Text = ""
        JUMLAH.Text = ""
        TOTAL.Text = ""
        NOMOR.Focus()

    End Sub

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

    Private Sub BRNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRNHAPUSSEMUA.Click
        LV.Items.Clear()
    End Sub

    Private Sub BTNHAPUSPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSPILIH.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

End Class

pintar atau cerdas ?

Tak selamanya orang yang dapat predikat "pintar" tu mampu berfikir cerdas .

setiap manusia punya kemampuan dan skill yang berbeda .
mungkin disisi lain , manusia yang anggap "remeh" itu adalah orang yang akan membantu anda suatu saat nanti .
ataupun sebaliknya , malah manusia yang anda anggap "mampu" , belum tentu bisa membantu anda .
oleh sebab itu , berbuat baik dan sewajarnya terhadap orang lain .

apa ada yang salah ?

diriku benar2 gak ngerti , kenapa orang2 menatap sinis kepadaku ....
padahal , diriku sama sekali tak pernah melakukan hal buruk terhadap mereka ...

aneh ....
serasa " famous" ....

YANG PENTING NYAMAN

 

Tanggal 9 oktober 2011 merupakan hari yang bahagia sekaligus melelahkan . karena hari itu merupakan wedding party_a kakak dari sahabatku. Dimulai dari jam 9 pagi , diriku harus dandan dan pakai kebaya ini . hal yang paling berat yang ku lakukan hari itu adalah memakai "high heels 12cm" ...

4 jam pertama , masih terasa nyaman , akan tetapi setelah itu rasa pegal mulai menghampiri . Alhasil heels 12cm di ganti dengan "sendal jepit" yang super-duper nyaman.
meskipun sendal jepit gak se-sexy high heels , tapi sendal jepit memberikan kenyamanan ...
YANG PENTING NYAMAN cinnn....