Sunday 16 June 2013



JAKARTA – Euforia akhirnya meledak di Istora Senayan. Ganda putra Mohammad Ahsan/Hendra Setiawan membuat seluruh penonton bersorak usai menyelamatkan muka Indonesia dengan merebut gelar juara Djarum Indonesia Open Super Series Premier (DIOSSP) 2013.

Sukses ini didapat pasangan yang barus dipasangkan sekira setahun lalu, usai menumbangkan ganda putra Korea, Ko Sung Hyun/Lee Yong Dae dengan dua game langsung 21-14 dan 21-18.

Bermain di bawah dukungan penuh ribuan pendukung di Istora Senayan, Minggu (16/6) petang, Ahsan/Hendra langsung tampil menyerang. Tekanan demi tekanan terus dilancarkan sehingga memaksa unggulan kedua ini tidak dapat berbuah banyak di game pertama.

Di game kedua, Ahsan/Hendra kembali mengambil inisiatif serangan dan terus memimpin perolehan poin 14-11. Namun, pasangan Ko/Dae tidak lantas menyerah dan sempat menyamakan kedudukan menjadi 14-14.

Permainan reli-reli penjang nan mendebarkan kerap diperagakan kedua pasangan. Ahsan/Hendra yang terus menyerang akhirnya sukses menuntaskan perlawanan Ko/Dae dengan skor 21-18 dalam tempo 39 menit.

Kemenangan ini langsung disambut euforia seluruh penonton di Istora, tak terkecuali Ketua Umum PBSI yang juga Menteri Perdagangan Indonesia, Gita Wirjawan yang menyaksikan secara langsung ditemani Menpora, Roy Suryo dan Agum Gumelar. Pasalnya, ini merupakan satu-satunya gelar yang bisa diraih Indonesia setelah sebelumnya gagal di nomor tunggal putra, putri, ganda putri dan ganda campuran.

Usai pertandingan, rona kebahagiaan pun terpancar jelas di wajah Ahsan dan  Hendra. “Kami sadar bahwa kami adalah satu-satunya harapan untuk meraih gelar, maka kami bermain habis-habisan untuk bisa menang,” ujar Hendra Setiawan.

“Jujur, stamina saya sudah habis, tapi dukungan dari supporter membuat saya kuat,” timpal Ahsan memberikan apresiasi besar kepada supporter Indonesia yang tak pernah lelah memberikan dukungan. 

Sumber : http://famagulz.blogspot.com/2013/06/ahsanhendra-letupkan-euforia-istora.html#ixzz2WRSzGpve

Sunday 2 June 2013

http://www.mesran.blogspot.com/2013/05/tugas-ti-p1104.html


Nah, kali nie kita akan kembali dengan pembahasan VB 08....
Listview di gunakan untuk menampilkan data dalam bentuk tabel yang mempunyai
baris dan kolom......

Nah penasaran kan. heee.
Sekarang kita masuk keprogramnya. silah kan anda rancang seperti pada gambar di atas.

kemudian anda copy code ini ke form code..


Public Class Form1


    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        If kodebarang.Text = "TS001" Then
            nomorpembelian.Text = "1"
            namabarang.Text = "Laptop"
            merk.Text = "Acer"
            harga.Text = "105000"
            totalharga.Focus()
        ElseIf kodebarang.Text = "TS002" Then
            nomorpembelian.Text = "2"
            namabarang.Text = "HP"
            merk.Text = "Nokia"
            harga.Text = "1200000"
            totalharga.Focus()
        ElseIf kodebarang.Text = "VG003" Then
            nomorpembelian.Text = "3"
            namabarang.Text = "Printer"
            merk.Text = "Cannon"
            harga.Text = "2500000"


        End If


    End Sub
    Sub BuatTable()
        LV.Columns.Add("NOMOR PEMBELIAN", 150, HorizontalAlignment.Center)
        LV.Columns.Add("KODE BARANG", 120, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA BARANG", 120, HorizontalAlignment.Center)
        LV.Columns.Add("MERK", 120, HorizontalAlignment.Center)
        LV.Columns.Add("HARGA", 120, HorizontalAlignment.Center)
        LV.Columns.Add("JUMLAH BELI", 150, HorizontalAlignment.Center)
        LV.Columns.Add("TOTAL HARGA", 150, HorizontalAlignment.Center)

        LV.GridLines = True
        LV.FullRowSelect = True
        LV.View = View.Details


    End Sub
    Sub IsiTable()
        Dim x As New ListViewItem
        With x
            .Text = nomorpembelian.Text
            .SubItems.Add(kodebarang.Text)
            .SubItems.Add(namabarang.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(jumlahbeli.Text)
            .SubItems.Add(totalharga.Text)

            LV.Items.Add(x)

        End With
        nomorpembelian.Focus()

    End Sub
    Sub Total_Harga()

        Dim i As Long
        i = 0
        For j As Integer = 0 To lv.Items.Count - 1
            i = i + Val(lv.Items(j).SubItems(4).Text)
        Next

        Totalharga.Text = "RP." & Format(i, "###.######")


    End Sub
    Sub hapus()
        nomorpembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebarang.Items.Add("A001")
        kodebarang.Items.Add("A002")
        kodebarang.Items.Add("A003")

        BuatTable()



    End Sub

    Private Sub btnsimpankelistvew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistvew.Click
        totalharga.Text = harga.Text * jumlahbeli.Text

        IsiTable()
        nomorpembelian.Focus()
        hapus()





    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nomorpembelian.Text = ""
        namabarang.Text = ""
        kodebarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""

    End Sub

    Private Sub btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemuadata.Click
        namabarang.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
        LV.Items.Clear()


        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Semua Data Terhapus")
        End If

    End Sub

    Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih Dulu Yang Mau Di hapus")
        End If


    End Sub

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

    End Sub
End Class

Terima Kasi.....

Blog Archive

Popular Posts